<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :精算表整理記入 ' 作成日:2002/8/27 ' 作成者:山崎 ' 目的 :精算表整理記入を表示する。 ' 概要 : ' <<表示>> ' ・精算表整理記入の画面 '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Cnt Dim RouteType RouteType = Request("RouteType") '振替記入にトグルするためのフラグ(081021小野) Dim Kimatsu Kimatsu = Request("Kimatsu") Dim PageType Dim Label PageType = "精算表整理記入" Label = "整理" If Kimatsu = "Kurikoshi" Then PageType = "精算表振替記入" Label = "振替" End If Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If '勘定科目一覧を配列化 Dim KamokuCDAry Dim KamokuMeiAry Dim KamokuSaimokuAry Dim KamokuKubunAry ReDim KamokuCDAry(0) ReDim KamokuMeiAry(0) ReDim KamokuSaimokuAry(0) ReDim KamokuKubunAry(0) Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ReDim PreServe KamokuCDAry(UBound(KamokuCDAry) + 1) '配列+1 ReDim PreServe KamokuMeiAry(UBound(KamokuMeiAry) + 1) '配列+1 ReDim PreServe KamokuSaimokuAry(UBound(KamokuSaimokuAry) + 1) '配列+1 ReDim PreServe KamokuKubunAry(UBound(KamokuKubunAry) + 1) '配列+1 KamokuCDAry(UBound(KamokuCDAry)) = "" & Content.Fields("勘定CD") KamokuMeiAry(UBound(KamokuMeiAry)) = "" & Content.Fields("勘定名称") KamokuSaimokuAry(UBound(KamokuSaimokuAry)) = "" & Content.Fields("勘定細目") KamokuKubunAry(UBound(KamokuKubunAry)) = "" & Content.Fields("勘定区分") Content.MoveNext Loop Dim PreKanjyoMeisai %> <html> <% = HtmlHeader("sj3tyobored11") %> <SCRIPT LANGUAGE="JavaScript"> <!-- HomeAlias = "<% = HomeAlias %>"; HomeAliasSL = "<% = HomeAliasSL %>"; ExitFlg = 2; --> </SCRIPT> <body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <form OnKeyDown="FormKeyDown(this)" method="POST" action="fk_seisanhyo_bin.asp" name="form1" autocomplete="off"> <input type="hidden" name="Kimatsu" value="<% = Kimatsu %>"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="SendValue" value=""> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", PageType, "", "", "", "", "","", "", "", "")) ElseIf PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", "")) 'ElseIf RouteType = "Ginko" Then ElseIf GB_Gyosyu = "B" Then Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b1.asp')", PageType, "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", PageType, "", "", "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GB_IEmode = "1" Then If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "")) Else Response.Write(HttpL3_1("行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "", "", "")) End If Else If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) End If End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4(PageType, "")) %> <div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5"> <tr> <td HEIGHT="40" align="center" valign="middle"> <TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%"> <tr align="CENTER"> <td height="32" onMouseOver="this.focus();this.focus();"> <!-- 勘定科目ボタン部分マウスオーバーでスプレッドシートオフフォーカス(061218小野)--> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="680" HEIGHT="100%" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <tr align="CENTER"> <td height="32"> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('A');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDAL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>資産</TD> <TD id="TDAR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('B');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDBL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>負債</TD> <TD id="TDBR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('C');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDCL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %></TD> <TD id="TDCR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('D');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>収益</TD> <TD id="TDDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('E');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDEL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>費用</TD> <TD id="TDER" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('F');" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD id="TDFL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>営業外損益</TD> <TD id="TDFR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('G');" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD id="TDGL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>特別損益</TD> <TD id="TDGR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('H');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDHL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD> <TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>その他</TD> <TD id="TDHR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70"> <TR> <TD id="TDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"></TD> <TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap>全勘定</TD> <TD id="TDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"></TD> </TR> </TABLE> </td> <td height="32"> </td> </tr> </TABLE> </td> </tr> </TABLE> </td> </tr> <tr> <td align="center" valign="middle"> <table width="680" height="100%" border="0" cellspacing="5" cellpadding="10" bgcolor="#ffffff" style="border:1px solid #000000"> <tr> <td align="center"<% If GB_IEmode = "1" Then %> background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"<% End If %>> <table width="600" height="100%" border="0" cellspacing="0" cellpadding="0"> <% If GB_IEmode = "1" Then %> <tr> <td valign="middle"> <object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"> <param name="lpkpath" value="spread6.lpk"> </object> <object width="908" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0"> </object> </td> </tr> <tr> <td height="49"> <object width="908" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread2" border="0"> </object> </td> </tr> <% Else %> <% Dim ShisanhyoKarikataGokei, ShisanhyoKashikataGokei Dim SyuseikinyuKarikataGokei, SyuseikinyuKashikataGokei Dim SonekikeisansyoKarikataGokei, SonekikeisansyoKashikataGokei Dim TaisyakutaisyohyoKarikataGokei, TaisyakutaisyohyoKashikataGokei ShisanhyoKarikataGokei = 0 ShisanhyoKashikataGokei = 0 SyuseikinyuKarikataGokei = 0 SyuseikinyuKashikataGokei = 0 SonekikeisansyoKarikataGokei = 0 SonekikeisansyoKashikataGokei = 0 TaisyakutaisyohyoKarikataGokei = 0 TaisyakutaisyohyoKashikataGokei = 0 Dim WidthCell1, WidthCell2, WidthParent, WidthParent2 Dim WidthCell3 '勘定科目 Dim HeightCell HeightCell = 20 WidthCell1 = 50 WidthCell1 = 37 'フォント対応 -13 WidthCell2 = 89 WidthCell2 = 96 'フォント対応 +7 x 8 = +56 WidthCell3 = 152 WidthCell3 = 121 'フォント対応 -(56 - 13 - 12) WidthParent = 949 WidthParent2 = 932 WidthParent = 961 'フォント対応+12 WidthParent2 = 944 'フォント対応+12 %> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214"> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse"> <tr HEIGHT="20"> <td rowspan="2" align="center" CLASS="br3b1" width="<% = WidthCell1 + WidthCell3 + 1 %>">勘定科目</td> <td colspan="2" align="center" CLASS="br3b1">残高試算表</td> <td colspan="2" align="center" CLASS="br3b1"><% = Label %>記入</td> <td colspan="2" align="center" CLASS="br3b1">損益計算書</td> <td colspan="2" align="center" CLASS="bb1">貸借対照表</td> </tr> <tr HEIGHT="20"> <td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td> <td align="center" width="<% = WidthCell2 %>" CLASS="bb1">貸方</td> </tr> </table> </TD> </TR> <TR> <TD HEIGHT="1" VALIGN="BOTTOM"></TD> </TR> <TR> <TD VALIGN="TOP"> <DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> <TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse"> <% 'スプレッドシート定義 ※全行共通なのでループ外 Dim SpMaxRow Dim SpRowCnt Dim SpMaxCol SpRowCnt = 0 SpMaxRow = SpRowCnt 'フォーム名 SpFormName = "SpCell" ' '行定義 SpRowHeight = "23" '高さ(pixel指定) SpRowCls = "" '行スタイルclass SpRowStyle = "" '行スタイル '列1定義 SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(1) = "br1" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト ' SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト SpInputBlur(1) = "" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "1" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(2) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "br3" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(2) = "" 'onBlurで作動させるスクリプト ' SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト SpInputChange(2) = "" 'onChangeで作動させるスクリプト SpInputRO(2) = "1" 'フォームreadonlyフラグ("1") '列3定義 SpCellType(3) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(3) = "br1" 'セルスタイルclass SpCellStyle(3) = "" 'セルスタイル SpInputCls(3) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(3) = "" 'フォームスタイル SpInputFocus(3) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(3) = "" 'onBlurで作動させるスクリプト SpInputChange(3) = "" 'onChangeで作動させるスクリプト SpInputRO(3) = "1" 'フォームreadonlyフラグ("1") '列4定義 SpCellType(4) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(4) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(4) = "br3" 'セルスタイルclass SpCellStyle(4) = "" 'セルスタイル SpInputCls(4) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(4) = "" 'フォームスタイル SpInputFocus(4) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(4) = "" 'onBlurで作動させるスクリプト SpInputChange(4) = "" 'onChangeで作動させるスクリプト SpInputRO(4) = "1" 'フォームreadonlyフラグ("1") '列5定義 SpCellType(5) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(5) = "br1" 'セルスタイルclass SpCellStyle(5) = "" 'セルスタイル SpInputCls(5) = "Spread4R" 'フォームスタイルclass SpInputStyle(5) = "" 'フォームスタイル SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(5) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト SpInputChange(5) = "" 'onChangeで作動させるスクリプト SpInputRO(5) = "" 'フォームreadonlyフラグ("1") '列6定義 SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(6) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(6) = "br3" 'セルスタイルclass SpCellStyle(6) = "" 'セルスタイル SpInputCls(6) = "Spread4R" 'フォームスタイルclass SpInputStyle(6) = "" 'フォームスタイル SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト SpInputChange(6) = "" 'onChangeで作動させるスクリプト SpInputRO(6) = "" 'フォームreadonlyフラグ("1") '列7定義 SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(7) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(7) = "br1" 'セルスタイルclass SpCellStyle(7) = "" 'セルスタイル SpInputCls(7) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(7) = "" 'フォームスタイル SpInputFocus(7) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(7) = "" 'onBlurで作動させるスクリプト SpInputChange(7) = "" 'onChangeで作動させるスクリプト SpInputRO(7) = "1" 'フォームreadonlyフラグ("1") '列8定義 SpCellType(8) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(8) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(8) = "br3" 'セルスタイルclass SpCellStyle(8) = "" 'セルスタイル SpInputCls(8) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(8) = "" 'フォームスタイル SpInputFocus(8) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(8) = "" 'onBlurで作動させるスクリプト SpInputChange(8) = "" 'onChangeで作動させるスクリプト SpInputRO(8) = "1" 'フォームreadonlyフラグ("1") '列9定義 SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(9) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(9) = "br1" 'セルスタイルclass SpCellStyle(9) = "" 'セルスタイル SpInputCls(9) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(9) = "" 'フォームスタイル SpInputFocus(9) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(9) = "" 'onBlurで作動させるスクリプト SpInputChange(9) = "" 'onChangeで作動させるスクリプト SpInputRO(9) = "1" 'フォームreadonlyフラグ("1") '列10定義 SpCellType(10) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(10) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(10) = "b0" 'セルスタイルclass SpCellStyle(10) = "" 'セルスタイル SpInputCls(10) = "Spread4Rro" 'フォームスタイルclass SpInputStyle(10) = "" 'フォームスタイル SpInputFocus(10) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(10) = "" 'onBlurで作動させるスクリプト SpInputChange(10) = "" 'onChangeで作動させるスクリプト SpInputRO(10) = "1" 'フォームreadonlyフラグ("1") ii = 0 Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'" If Kimatsu = "Kurikoshi" Then Query = Query & ", 10" Else Query = Query & ", 9" End If Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Dim ShisanhyoKarikata, ShisanhyoKashikata Dim SyuseikinyuKarikata, SyuseikinyuKashikata Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata ShisanhyoKarikata = Content.Fields("試算表借方金額") ShisanhyoKashikata = Content.Fields("試算表貸方金額") SyuseikinyuKarikata = Content.Fields("整理記入借方金額") SyuseikinyuKashikata = Content.Fields("整理記入貸方金額") SonekikeisansyoKarikata = Content.Fields("損益計算書借方金額") SonekikeisansyoKashikata = Content.Fields("損益計算書貸方金額") TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") '※この部分は社長に騙されて完全に誤ってた '「資産勘定で貸方」または「資産勘定以外で借方」なら貸借対照表の貸借金額を反転する(090119小野) ' If Content.Fields("勘定細目") = "A" And Content.Fields("貸借区分") = "C" Then ' TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") - Content.Fields("貸借対照表貸方金額") ' TaisyakutaisyohyoKashikata = 0 ' End If ' その他勘定は反転しない(111012小野) If Content.Fields("勘定細目") <> "A" And Content.Fields("勘定細目") <> "H" And Content.Fields("貸借区分") = "D" Then TaisyakutaisyohyoKarikata = 0 TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") - Content.Fields("貸借対照表借方金額") End If If IsNull(ShisanhyoKarikata) Then ShisanhyoKarikata = 0 End If If IsNull(ShisanhyoKashikata) Then ShisanhyoKashikata = 0 End If If IsNull(SyuseikinyuKarikata) Then SyuseikinyuKarikata = 0 End If If IsNull(SyuseikinyuKashikata) Then SyuseikinyuKashikata = 0 End If If IsNull(SonekikeisansyoKarikata) Then SonekikeisansyoKarikata = 0 End If If IsNull(SonekikeisansyoKashikata) Then SonekikeisansyoKashikata = 0 End If If IsNull(TaisyakutaisyohyoKarikata) Then TaisyakutaisyohyoKarikata = 0 End If If IsNull(TaisyakutaisyohyoKashikata) Then TaisyakutaisyohyoKashikata = 0 End If ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + ShisanhyoKarikata ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + ShisanhyoKashikata SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + SyuseikinyuKarikata SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + SyuseikinyuKashikata SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + SonekikeisansyoKarikata SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + SonekikeisansyoKashikata TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + TaisyakutaisyohyoKarikata TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + TaisyakutaisyohyoKashikata 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt '試算表残高が存在しない行は編集・削除可能 If ShisanhyoKarikata = 0 And ShisanhyoKashikata = 0 Then '列1定義 SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpInputCls(1) = "Spread4C" 'フォームスタイルclass SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpInputCls(2) = "Spread4L" 'フォームスタイルclass SpInputFocus(2) = "" 'onFocusで作動させるスクリプト SpInputBlur(2) = "" 'onBlurで作動させるスクリプト SpInputChange(2) = "KanjoMeiChange(this);SpSetBSPL();SpSetGokei();" 'onChangeで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値 SpInputValue(2) = "" SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuMeiAry) SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """" If KamokuMeiAry(Cnt) = "" & Content.Fields("勘定名称") Then SpInputOption(2) = SpInputOption(2) & " selected" End If SpInputOption(2) = SpInputOption(2) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf Next Else '列1定義 SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(1) = "" 'onBlurで作動させるスクリプト SpInputRO(1) = "1" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト SpInputBlur(2) = "" 'onBlurで作動させるスクリプト SpInputChange(2) = "" 'onChangeで作動させるスクリプト SpInputRO(2) = "1" 'フォームreadonlyフラグ("1") SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値 SpInputValue(2) = Content.Fields("勘定名称") 'フォーム初期値 SpInputOption(2) = "" End If SpInputValue(3) = ConvIntToMoney(ShisanhyoKarikata, false, true) 'フォーム初期値 SpInputValue(4) = ConvIntToMoney(ShisanhyoKashikata, false, true) 'フォーム初期値 SpInputValue(5) = ConvIntToMoney(SyuseikinyuKarikata, false, true) 'フォーム初期値 SpInputValue(6) = ConvIntToMoney(SyuseikinyuKashikata, false, true) 'フォーム初期値 SpInputValue(7) = ConvIntToMoney(SonekikeisansyoKarikata, false, true) 'フォーム初期値 SpInputValue(8) = ConvIntToMoney(SonekikeisansyoKashikata, false, true) 'フォーム初期値 SpInputValue(9) = ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) 'フォーム初期値 SpInputValue(10) = ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される ii = ii + 1 If 0=1 Then Response.Write("<TR HEIGHT=""" & HeightCell & """>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""center"" class=""br1"">" & Content.Fields("勘定CD") & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"" class=""br3"">" & AscLeft(Content.Fields("勘定名称"),18) & "</TD>" & vbCrLf) '勘定名称を18Byteで切り捨て(061102小野) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(ShisanhyoKarikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(ShisanhyoKashikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SyuseikinyuKarikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SyuseikinyuKashikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SonekikeisansyoKarikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SonekikeisansyoKashikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) & "</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) End If Content.MoveNext Loop 'スプレッドシートの空白行を発生させる '※↓↓↓追加行は勘定科目可変なので再定義 '列1定義 SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpInputCls(1) = "Spread4C" 'フォームスタイルclass SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") '列2定義 SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpInputCls(2) = "Spread4L" 'フォームスタイルclass SpInputFocus(2) = "" 'onFocusで作動させるスクリプト SpInputBlur(2) = "" 'onBlurで作動させるスクリプト SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") '※↑↑↑追加行は勘定科目可変なので再定義 SpInputValue(1) = "" 'フォーム初期値 SpInputValue(2) = "" 'フォーム初期値 SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuMeiAry) SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf Next SpInputValue(3) = "" 'フォーム初期値 SpInputValue(4) = "" 'フォーム初期値 SpInputValue(5) = "" 'フォーム初期値 SpInputValue(6) = "" 'フォーム初期値 SpInputValue(7) = "" 'フォーム初期値 SpInputValue(8) = "" 'フォーム初期値 SpInputValue(9) = "" 'フォーム初期値 SpInputValue(10) = "" 'フォーム初期値 For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される SpMaxRow = Cnt Next %> </TABLE> </DIV> </TD> </TR> <TR> <TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214"> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse"> <tr HEIGHT="<% = HeightCell %>"> <td align="left" width="<% = WidthCell1 + WidthCell3 + 1 %>" class="br3b1">試算表合計</td> <td id="ShisanhyoKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKarikataGokei, false, true) %></td> <td id="ShisanhyoKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKashikataGokei, false, true) %></td> <td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="bb1"> </td> </tr> <tr HEIGHT="<% = HeightCell %>"> <td id="SonekiLabel" align="left" class="br3b1"><% If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then Response.Write("当期利益") ElseIf SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then Response.Write("当期損失") Else Response.Write("当期") End If %></td> <% Dim ToukiPLKari Dim ToukiPLKashi Dim ToukiBSKari Dim ToukiBSKashi ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei If ToukiPLKari <= 0 Then ToukiPLKari = null End If If ToukiPLKashi <= 0 Then ToukiPLKashi = null End If If ToukiBSKari <= 0 Then ToukiBSKari = null End If If ToukiBSKashi <= 0 Then ToukiBSKashi = null End If %> <td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td> <td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td> <td id="ToukiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKari, false, true) %></td> <td id="ToukiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKashi, false, true) %></td> <td id="ToukiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKari, false, true) %></td> <td id="ToukiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKashi, false, true) %></td> </tr> <tr HEIGHT="<% = HeightCell %>"> <% Dim GokeiPLKari Dim GokeiPLKashi Dim GokeiBSKari Dim GokeiBSKashi If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then GokeiPLKari = SonekikeisansyoKashikataGokei Else GokeiPLKari = SonekikeisansyoKarikataGokei End If If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then GokeiPLKashi = SonekikeisansyoKarikataGokei Else GokeiPLKashi = SonekikeisansyoKashikataGokei End If If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0 Then GokeiBSKari = TaisyakutaisyohyoKashikataGokei Else GokeiBSKari = TaisyakutaisyohyoKarikataGokei End If If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0 Then GokeiBSKashi = TaisyakutaisyohyoKarikataGokei Else GokeiBSKashi = TaisyakutaisyohyoKashikataGokei End If %> <td align="left" class="br3b3">合計</td> <td align="right" width="<% = WidthCell2 %>" class="br1b3"> </td> <td align="right" width="<% = WidthCell2 %>" class="br3b3"> </td> <td id="SyuseikinyuKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKarikataGokei, false, true) %></td> <td id="SyuseikinyuKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKashikataGokei, false, true) %></td> <td id="GokeiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKari, false, true) %></td> <td id="GokeiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKashi, false, true) %></td> <td id="GokeiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKari, false, true) %></td> <td id="GokeiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKashi, false, true) %></td> </tr> </table> </TD> </TR> <TR> <TD colspan="10" height="1" align="center" class="tx1214"> ※入力行が足りない場合は一度「保存」してください </td> </TR> <% End If %> </table> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <% Dim KanjyoCDCol KanjyoCDCol = 1 %> <SCRIPT LANGUAGE="JavaScript"> //↓ブラウザ不問の共通関数 var KanjyoMeisaiSelected; KanjyoMeisaiSelected = ""; //勘定CDから勘定名称に変換 function ConvKanjyoMeisyoDx(KanjyoCD) { <% For Cnt = 1 To UBound(KamokuCDAry) Response.Write(" if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ & KamokuMeiAry(Cnt) & """;" & vbCrLf) Next %> return ""; } //勘定名称から勘定CDを逆引き function ConvRevKanjyoMeisyo(KanjyoMeisyo) { <% For Cnt = 1 To UBound(KamokuCDAry) Response.Write(" if (KanjyoMeisyo == """ & KamokuMeiAry(Cnt) & """)return """ & KamokuCDAry(Cnt) & """;" & vbCrLf) Next %> return ""; } //↑ブラウザ不問の共通関数 </SCRIPT> <% If GB_IEmode <> "1" Then %> <SCRIPT LANGUAGE="JavaScript"> SpMinRow = 1; SpMaxRow = <% = SpMaxRow %>; <% '最大セル番号を取得 SpMaxCol = 0 For Cnt = 1 To UBound(SpCellType) If "" & SpCellType(Cnt) <> "" Then SpMaxCol = Cnt End If Next %> SpMaxCol = <% = SpMaxCol %>; //勘定CDから勘定区分に変換 function ConvKanjyoKubun(KanjyoCD) { <% For Cnt = 1 To UBound(KamokuCDAry) Response.Write(" if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ & KamokuKubunAry(Cnt) & """;" & vbCrLf) Next %> return ""; } //各行のBS/PL横計 ※勘定区分B/Pに従ってBS/PLに集計する function SpSetBSPL() { var Karikata = 0; var Kashikata = 0; var KamokuKubun = ConvKanjyoKubun(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_1")[0].value); if (KamokuKubun != "") { document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = ""; document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = ""; document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = ""; document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = ""; //整理記入の金額を取得 if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value != "") { Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value != "") { Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value)); } //借方と貸方の差を計算 if (Karikata > Kashikata) { Karikata = Karikata - Kashikata; Kashikata = 0; } else if (Kashikata > Karikata) { Kashikata = Kashikata - Karikata; Karikata = 0; } else { Karikata = 0; Kashikata = 0; } //残高試算表の金額を加算 if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value != "") { Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value != "") { Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value)); } if (KamokuKubun == "P") { //PLに反映 if (Karikata > 0) { document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容&文字列引数で動作する } if (Kashikata > 0) { document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容&文字列引数で動作する } } else if (KamokuKubun == "B") { //BSに反映 if (Karikata > 0) { document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容&文字列引数で動作する } if (Kashikata > 0) { document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容&文字列引数で動作する } } } } //保存時のチェックに使うのでグローバル var SyuseikinyuKarikataGokei = 0; var SyuseikinyuKashikataGokei = 0; function SpSetGokei() { //alert(""); //縦集計 ShisanhyoKarikataGokei = 0; ShisanhyoKashikataGokei = 0; SyuseikinyuKarikataGokei = 0; SyuseikinyuKashikataGokei = 0; SonekikeisansyoKarikataGokei = 0; SonekikeisansyoKashikataGokei = 0; TaisyakutaisyohyoKarikataGokei = 0; TaisyakutaisyohyoKashikataGokei = 0; for (ii = SpMinRow; ii <= SpMaxRow; ii++) { if (document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value != "") { ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value != "") { ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value != "") { SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value != "") { SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value != "") { SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value != "") { SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value != "") { TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value)); } if (document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value != "") { TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value)); } } //試算表合計 document.getElementById("ShisanhyoKarikataGokei").innerHTML = NumComma(ShisanhyoKarikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する document.getElementById("ShisanhyoKashikataGokei").innerHTML = NumComma(ShisanhyoKashikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する //当期利益/損失 ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei; ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei; ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei; ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei; document.getElementById("ToukiPLKari").innerHTML = ""; document.getElementById("ToukiPLKashi").innerHTML = ""; document.getElementById("ToukiBSKari").innerHTML = ""; document.getElementById("ToukiBSKashi").innerHTML = ""; if (ToukiPLKari > 0) { document.getElementById("ToukiPLKari").innerHTML = NumComma(ToukiPLKari, false); //NumCommaはマイナスを許容&文字列引数で動作する } if (ToukiPLKashi > 0) { document.getElementById("ToukiPLKashi").innerHTML = NumComma(ToukiPLKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する } if (ToukiBSKari > 0) { document.getElementById("ToukiBSKari").innerHTML = NumComma(ToukiBSKari, false); //NumCommaはマイナスを許容&文字列引数で動作する } if (ToukiBSKashi > 0) { document.getElementById("ToukiBSKashi").innerHTML = NumComma(ToukiBSKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する } document.getElementById("SonekiLabel").innerHTML = "当期"; if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) { document.getElementById("SonekiLabel").innerHTML = "当期利益"; } else if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) { document.getElementById("SonekiLabel").innerHTML = "当期損失"; } //合計 document.getElementById("SyuseikinyuKarikataGokei").innerHTML = NumComma(SyuseikinyuKarikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する; document.getElementById("SyuseikinyuKashikataGokei").innerHTML = NumComma(SyuseikinyuKashikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する; GokeiPLKari = 0; GokeiPLKashi = 0; GokeiBSKari = 0; GokeiBSKashi = 0; GokeiPLKari = SonekikeisansyoKarikataGokei; if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) { GokeiPLKari = SonekikeisansyoKashikataGokei; } GokeiPLKashi = SonekikeisansyoKashikataGokei; if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) { GokeiPLKashi = SonekikeisansyoKarikataGokei; } GokeiBSKari = TaisyakutaisyohyoKarikataGokei; if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0) { GokeiBSKari = TaisyakutaisyohyoKashikataGokei; } GokeiBSKashi = TaisyakutaisyohyoKashikataGokei; if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0) { GokeiBSKashi = TaisyakutaisyohyoKarikataGokei; } document.getElementById("GokeiPLKari").innerHTML = NumComma(GokeiPLKari, false); //NumCommaはマイナスを許容&文字列引数で動作する; document.getElementById("GokeiPLKashi").innerHTML = NumComma(GokeiPLKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する; document.getElementById("GokeiBSKari").innerHTML = NumComma(GokeiBSKari, false); //NumCommaはマイナスを許容&文字列引数で動作する; document.getElementById("GokeiBSKashi").innerHTML = NumComma(GokeiBSKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する; } //勘定科目セルがinput(readonry)とselectの2種類があるので行挿入・行削除・行移動ができない。なので以下は非利用。 function SpRowInsertSub() { //プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(""); } //行挿入 SpRowInsert(); //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(TmpKanjoSaimoku); } } function SpRowDeleteSub() { //プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(""); } //行削除 SpRowDelete(); //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(TmpKanjoSaimoku); } SpSetGokei(); //削除時は再計算 } function SpRowShiftSub(UpDown) { //プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(""); } //行入れ替え SpRowShift(UpDown); //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetKanjyoKamokuList(TmpKanjoSaimoku); } } function KanjoCDChange(Form) { TmpValue = Form.value; TmpForm = Form.name.split("_"); Target = TmpForm[0] + "_" + (eval(TmpForm[1]) + 1); //alert(Target); elm = document.getElementsByName(Target)[0]; if (TmpValue != "") { if (ConvKanjyoMeisyoDx(TmpValue) == "") { alert("入力された勘定科目コードは存在しません"); Form.value = ""; TmpValue = ""; } } //プルダウンの先頭項目にセット(TmpValueがnullならクリアされる) SetKamokuList(elm, TmpValue); } function KanjoMeiChange(Form) { //alert(Form.value); TmpForm = Form.name.split("_"); Target = TmpForm[0] + "_" + (eval(TmpForm[1]) - 1); //alert(Target); elm = document.getElementsByName(Target)[0]; elm.value = Form.value; } function SetKanjyoKamokuList(kanjyomeisai) { KanjyoMeisaiSelected = kanjyomeisai; var Meisais; var ii; Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", ""); for (ii=0; ii<Meisais.length; ii++) { // document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>"; document.getElementById("TD" + Meisais[ii] + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>')"; document.getElementById("TD" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>')"; document.getElementById("TD" + Meisais[ii] + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>')"; } // document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>"; document.getElementById("TD" + KanjyoMeisaiSelected + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>')"; document.getElementById("TD" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>')"; document.getElementById("TD" + KanjyoMeisaiSelected + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>')"; for (ii = SpMinRow; ii <= SpMaxRow; ii++) { Target = "<% = SpFormName %>" + ii + "_2"; elm = document.getElementsByName(Target)[0]; if (elm.tagName.toLowerCase() == "select") { //selectタグのみ //現在選択されている科目を保持する TmpValue = elm.options[elm.selectedIndex].value; SetKamokuList(elm, TmpValue); } } } function SetKamokuList(elm, TmpValue) { //プルダウン項目を全クリア do { elm.options[0] = null; } while (elm.length != 0) Idx = 0; if (TmpValue != "") { //先頭項目に追加 elm.options[Idx] = new Option(ConvKanjyoMeisyoDx(TmpValue), TmpValue); Idx = Idx + 1; } elm.options[Idx] = new Option("", ""); //空白項目 Idx = Idx + 1; //2行目以降は現在選択されている勘定細目(KanjyoMeisaiSelected)に従う <% PreKanjyoMeisai = "" Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く(ループ内で常に閉じてから開くためのダミー) For Cnt = 1 To UBound(KamokuCDAry) ' If KamokuCDAry(Cnt) <> KanjyoCD Then '元帳勘定科目を除外 If PreKanjyoMeisai <> KamokuSaimokuAry(Cnt) Then '勘定科目が変わったらネストを閉じて開く Response.Write("}" & vbCrLf) Response.Write("if (KanjyoMeisaiSelected == """" || KanjyoMeisaiSelected == """ & KamokuSaimokuAry(Cnt) & """) {" & vbCrLf) PreKanjyoMeisai = KamokuSaimokuAry(Cnt) End If Response.Write("elm.options[Idx] = new Option(""" & KamokuMeiAry(Cnt) & """, """ & KamokuCDAry(Cnt) & """);") Response.Write("Idx = Idx + 1;" & vbCrLf) ' End If Next Response.Write("}" & vbCrLf) '最後のネストを閉じる %> // elm.selectedIndex = 0; //常に先頭行を選択する elm.value = TmpValue; //該当項目を選択 } function SubmitCheck() { //alert(SubmitCheck); SpSetGokei(); if (SyuseikinyuKarikataGokei != SyuseikinyuKashikataGokei) { alert("<% = Label %>記入の貸借が一致しません "); return false; } form1.SendValue.value = ""; for (jj = SpMinRow; jj <= SpMaxRow; jj++) { Target = "SpCell" + jj + "_" //セル番号を除くフォーム名 var Text1, Text5, Text6; Text1 = form1[Target + 1].value; Text5 = form1[Target + 5].value; Text6 = form1[Target + 6].value; //通貨のカンマ区切りを外す Text5 = ReplaceStr(Text5, ",", "") Text6 = ReplaceStr(Text6, ",", "") //文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) // Text1 = ReplaceStr(Text1, ",", "CommammoC") // Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") if (((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "") { alert("勘定科目を選択してください"); form1[Target + 2].focus(); return; } form1.SendValue.value = form1.SendValue.value + Text1; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + Text5; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + Text6; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + ";" } //alert(form1.SendValue.value); SubmitReal(form1); return true; } window.onload = function() { } </SCRIPT> <% Else %> <SCRIPT LANGUAGE="JavaScript"> var StrKanjyoKubun, aKanjyoKubun ; var StrTaisyakuKubun, aTaisyakuKubun ; function SubmitCheck() { var kari; var kasi; var sa; document.vaSpread2.Row = 3; document.vaSpread2.Col = 5; kari = ConvMoneyToInt(document.vaSpread2.value); if (isNaN(kari)) { kari=0; } document.vaSpread2.Col = 6; kasi = ConvMoneyToInt(document.vaSpread2.value); if (isNaN(kasi)) { kasi=0; } sa = kari - kasi; if(sa != 0) { alert("整理記入の貸借の差が" + Math.abs(sa) + "円あり、一致しません "); return false; } form1.SendValue.value = "" for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) { document.vaSpread1.Row = jj; var Text1, Text5, Text6; document.vaSpread1.Col = 1; Text1 = document.vaSpread1.Text; document.vaSpread1.Col = 5; Text5 = document.vaSpread1.Text; Text5 = ReplaceStr(Text5, ",", "") document.vaSpread1.Col = 6; Text6 = document.vaSpread1.Text; Text6 = ReplaceStr(Text6, ",", "") if(((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "") { alert("勘定科目を選択してください"); document.vaSpread1.SetActiveCell(1, document.vaSpread1.Row); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } form1.SendValue.value = form1.SendValue.value + Text1; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + Text5; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + Text6; form1.SendValue.value = form1.SendValue.value + "," form1.SendValue.value = form1.SendValue.value + ";" } SubmitReal(form1); return true; } KanjyoMeisaiSelected = ""; function SetKanjyoKamokuList(kanjyomeisai) { KanjyoMeisaiSelected = kanjyomeisai; var Meisais; var ii; Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", ""); for(ii=0; ii<Meisais.length; ii++) { document.all.item("TD" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"; document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>"; document.all.item("TD" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"; } document.all.item("TD" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"; document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>"; document.all.item("TD" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"; var ii; var Idx; Idx = 0; var listout; listout = ""; document.vaSpread1.Redraw = false; <% Response.Write("StrKanjyoKubun = """";" & vbCrLf) Response.Write("StrTaisyakuKubun = """";" & vbCrLf) Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) PreKanjyoMeisai = "" Response.Write("if(1 == 0){" & vbCrLf) Do While Not(Content.BOF Or Content.EOF) If PreKanjyoMeisai <> Content.Fields("勘定細目") Then Response.Write("}" & vbCrLf) Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf) PreKanjyoMeisai = Content.Fields("勘定細目") End If ' Response.Write("if(listout != """")listout = listout + ""\t"";" & vbCrLf) Response.Write("listout = listout + ""\t"";" & vbCrLf) Response.Write("listout = listout + """ & Content.Fields("勘定名称") & """;" & vbCrLf) Response.Write("StrKanjyoKubun = StrKanjyoKubun + ""-" & Content.Fields("勘定区分") & """;" & vbCrLf) Response.Write("StrTaisyakuKubun = StrTaisyakuKubun + ""-" & Content.Fields("貸借区分") & """;" & vbCrLf) Content.MoveNext Loop Response.Write("}" & vbCrLf) Response.Write("aKanjyoKubun = StrKanjyoKubun.split(""-"");" & vbCrLf) Response.Write("aTaisyakuKubun = StrTaisyakuKubun.split(""-"");" & vbCrLf) %> document.vaSpread1.Col = <% = KanjyoCDCol + 1 %>; for(i=1; i<= document.vaSpread1.MaxRows; i++) { document.vaSpread1.Row = i; if(document.vaSpread1.Text == "") { // document.vaSpread1.TypeComboBoxList = "\t" + listout; document.vaSpread1.TypeComboBoxList = listout; } else { document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout; } } document.vaSpread1.Redraw = true; return false; } <% '勘定科目プルダウン用の ListText 変数を生成する Dim StrKanjyoKubun, StrTaisyakuKubun Dim ListText Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" Set Content = OpenQuery(Query) ListText = "" Do While Not(Content.BOF Or Content.EOF) StrKanjyoKubun = StrKanjyoKubun & "-" & Content.Fields("勘定区分") StrTaisyakuKubun = StrTaisyakuKubun & "-" & Content.Fields("貸借区分") ListText = ListText & "\t" ListText = ListText & Content.Fields("勘定名称") Content.MoveNext Loop %> function SpreadInit(fpSpread) { fpSpread.MaxRows = 0; <% Dim Query Dim Content Dim ii ii = 0 Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'" If Kimatsu = "Kurikoshi" Then Query = Query & ", 10" Else Query = Query & ", 9" End If Set Content = OpenQuery(Query) '選択行の色を変える動作を停止(090624小野) Response.Write(" SpreadRowColorMode = false;" & vbCrLf) Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" fpSpread.Row = " & ii & ";" & vbCrLf) If Content.Fields("試算表借方金額") = 0 And Content.Fields("試算表貸方金額") = 0 Then '試算表残高が存在しない行は編集・削除可能(170517小野) Response.Write(" fpSpread.Col = 1;" & vbCrLf) Response.Write(" fpSpread.Lock = false;" & vbCrLf) Response.Write(" fpSpread.BackColor = 0xFFFFFF;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & vbCrLf) Response.Write(" fpSpread.Lock = false;" & vbCrLf) Response.Write(" fpSpread.BackColor = 0xFFFFFF;" & vbCrLf) Response.Write(" fpSpread.CellType = 8;" & vbCrLf) Response.Write(" fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf) End If Response.Write(" fpSpread.Col = 1;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Content.Fields("勘定CD") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyo(Content.Fields("勘定CD")) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 3;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表借方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 4;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表貸方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 5;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入借方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 6;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入貸方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 7;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書借方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 8;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書貸方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 9;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表借方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 10;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表貸方金額"), false ,true) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 11;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Content.Fields("勘定区分") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 12;" & vbCrLf) Response.Write(" fpSpread.Text = """ & Content.Fields("貸借区分") & """;" & vbCrLf) Response.Write(" fpSpread.Col = 0;" & vbCrLf) Response.Write(" fpSpread.Text = "" "";" & vbCrLf) Content.MoveNext Loop '選択行の色を変える動作を再開(090624小野) Response.Write(" SpreadRowColorMode = true;" & vbCrLf) Response.Write(" SpreadRowColor(fpSpread);") '選択行の色を変える(090624小野) %> } function SpreadInsertItem2(fpSpread) { fpSpread.MaxRows = fpSpread.MaxRows + 1; fpSpread.InsertRows(fpSpread.ActiveRow,1); fpSpread.Row = fpSpread.ActiveRow; fpSpread.Col = 0; fpSpread.Text = " "; fpSpread.Col = 1; fpSpread.Lock = false; fpSpread.BackColor = 0xFFFFFF; fpSpread.Col = 2; fpSpread.Lock = false; fpSpread.BackColor = 0xFFFFFF; fpSpread.CellType = 8; <% Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf) %> SpreadRowColor(fpSpread); //選択行の色を変える(090624小野) } StrKanjyoKubun = "<% = StrKanjyoKubun %>"; aKanjyoKubun = StrKanjyoKubun.split("-"); StrTaisyakuKubun = "<% = StrTaisyakuKubun %>"; aTaisyakuKubun = StrTaisyakuKubun.split("-"); function SpreadDelItem2(fpSpread) { fpSpread.Row = fpSpread.ActiveRow; fpSpread.Col = 1; if (fpSpread.Lock != true) { if (fpSpread.MaxRows >= 1) { fpSpread.DeleteRows(fpSpread.ActiveRow,1); fpSpread.MaxRows = fpSpread.MaxRows - 1; SetGokei(); } } else { alert("試算表貸借が存在する行は削除できません \n\n整理記入の貸借をクリアしたい場合は \n額面に 0 を入力して保存してください "); } SpreadRowColor(fpSpread); //選択行の色を変える(090624小野) } function SpreadAddItem3(fpSpread) { fpSpread.MaxRows = fpSpread.MaxRows + 1; fpSpread.Col = 0; fpSpread.Row = fpSpread.MaxRows; fpSpread.Text = " "; fpSpread.Col = 1; fpSpread.Lock = false; fpSpread.BackColor = 0xFFFFFF; fpSpread.Col = 2; fpSpread.Lock = false; fpSpread.BackColor = 0xFFFFFF; fpSpread.CellType = 8; <% Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf) %> fpSpread.focus(); fpSpread.SetActiveCell(1, fpSpread.MaxRows); SpreadRowColor(fpSpread); //選択行の色を変える(090624小野) } function SetGokei() { var Tmp = Array(10); var TmpGokei = Array(10); for(jj = 3; jj <= 10; jj++) { TmpGokei[jj] = 0; } for(ii = 1; ii <= document.vaSpread1.MaxRows; ii++) { var Tmp1, KanjyoKubun, TaisyakuKubun; Tmp1 = 0; for(jj = 3; jj <= 10; jj++) { document.vaSpread1.Row = ii; document.vaSpread1.Col = 11; KanjyoKubun = document.vaSpread1.Text; document.vaSpread1.Col = 12; TaisyakuKubun = document.vaSpread1.Text; document.vaSpread1.Col = jj; var Text1; Text1 = "" if(jj == 3 || jj == 4 || jj == 5 || jj == 6) { Text1 = document.vaSpread1.Text; Text1 = ReplaceStr(Text1, ",", "") if(Text1 == "") { Text1 = 0; } else { Text1 = Math.floor(Text1); } if(jj == 3){Tmp1 = Text1;} else if(jj == 4){Tmp1 = Tmp1 - Text1;} else if(jj == 5){Tmp1 = Tmp1 + Text1;} else if(jj == 6){Tmp1 = Tmp1 - Text1;} } else { Text1 = 0; //if(jj == 7 && KanjyoKubun == "P" && TaisyakuKubun == "D"){Text1 = Tmp1;} //else if(jj == 8 && KanjyoKubun == "P" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;} //else if(jj == 9 && KanjyoKubun == "B" && TaisyakuKubun == "D"){Text1 = Tmp1;} //else if(jj == 10 && KanjyoKubun == "B" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;} //貸借区分に依存させない(100215小野) if(jj == 7 && KanjyoKubun == "P" && Tmp1 > 0){Text1 = Tmp1;} else if(jj == 8 && KanjyoKubun == "P" && Tmp1 < 0){Text1 = -1 * Tmp1;} else if(jj == 9 && KanjyoKubun == "B" && Tmp1 > 0){Text1 = Tmp1;} else if(jj == 10 && KanjyoKubun == "B" && Tmp1 < 0){Text1 = -1 * Tmp1;} if(Text1 != 0) { document.vaSpread1.value = Text1; } else { document.vaSpread1.value = ""; } } Tmp[jj] = Text1; TmpGokei[jj] = TmpGokei[jj] + Text1; } } for(jj = 3; jj <= 4; jj++) { document.vaSpread2.Row = 1; document.vaSpread2.Col = jj; document.vaSpread2.value = TmpGokei[jj]; } for(jj = 5; jj <= 6; jj++) { document.vaSpread2.Row = 3; document.vaSpread2.Col = jj; document.vaSpread2.value = TmpGokei[jj]; } if (TmpGokei[7] > TmpGokei[8]) { document.vaSpread2.Row = 2; document.vaSpread2.Col = 2; document.vaSpread2.value = "当期損失"; document.vaSpread2.Col = 7; document.vaSpread2.value = ""; document.vaSpread2.Col = 8; document.vaSpread2.value = TmpGokei[7] - TmpGokei[8]; document.vaSpread2.Col = 9; document.vaSpread2.value = TmpGokei[7] - TmpGokei[8]; document.vaSpread2.Col = 10; document.vaSpread2.value = ""; document.vaSpread2.Row = 3; document.vaSpread2.Col = 7; document.vaSpread2.value = TmpGokei[7]; document.vaSpread2.Col = 8; document.vaSpread2.value = TmpGokei[7]; document.vaSpread2.Col = 9; document.vaSpread2.value = TmpGokei[10]; document.vaSpread2.Col = 10; document.vaSpread2.value = TmpGokei[10]; } else { document.vaSpread2.Row = 2; document.vaSpread2.Col = 2; if (TmpGokei[7] < TmpGokei[8]) { document.vaSpread2.value = "当期利益"; } else { document.vaSpread2.value = "当期"; } document.vaSpread2.Col = 7; document.vaSpread2.value = TmpGokei[8] - TmpGokei[7]; document.vaSpread2.Col = 8; document.vaSpread2.value = ""; document.vaSpread2.Col = 9; document.vaSpread2.value = ""; document.vaSpread2.Col = 10; document.vaSpread2.value = TmpGokei[8] - TmpGokei[7]; document.vaSpread2.Row = 3; document.vaSpread2.Col = 7; document.vaSpread2.value = TmpGokei[8]; document.vaSpread2.Col = 8; document.vaSpread2.value = TmpGokei[8]; document.vaSpread2.Col = 9; document.vaSpread2.value = TmpGokei[9]; document.vaSpread2.Col = 10; document.vaSpread2.value = TmpGokei[9]; } } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript"> // if(KeyAsciiCode == 9 && KeyShift == 0){} // else SpreadKeyDown(this, KeyAsciiCode, KeyShift); if(KeyAsciiCode == 46 && this.EditMode == false) { SetGokei(); } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript"> SpreadKeyUp(this, KeyAsciiCode, KeyShift); </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript"> Dim tmp tmp = SpreadChange(Me, ColNo, RowNo) If tmp = "ERR" Then Cancel = true SpreadReFocus(Me) End If Call SetRenewCell(Me, ColNo, RowNo) </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript"> SetRenewCell(this, ColNo, RowNo) this.focus(); </SCRIPT> <SCRIPT LANGUAGE="JavaScript"> function SetRenewCell(obj, ColNo, RowNo) { if(ColNo == 1) { obj.Row = RowNo; var tmp, tmpIdx; obj.Col = 1; tmp = "" + obj.value; tmp = ConvKanjyoMeisyoDx(tmp); obj.Col = 2; for(ii = 1; ii <= obj.TypeComboBoxCount; ii++) { obj.TypeComboBoxIndex = ii; if(tmp == obj.TypeComboBoxString) { tmpIdx = ii; obj.Col = 11; obj.Text = aKanjyoKubun[tmpIdx]; tmpIdx = ii; obj.Col = 12; obj.Text = aTaisyakuKubun[tmpIdx]; } } obj.Col = 2; obj.TypeComboBoxRemoveItem(2, RowNo, 0); obj.TypeComboBoxIndex = 0; obj.TypeComboBoxString = tmp; obj.Text = tmp; obj.Col = 2; tmpIdx = obj.TypeComboBoxCurSel; } else if(ColNo == 2) { obj.Row = RowNo; obj.Col = 2; var tmp, tmpIdx; tmpIdx = obj.TypeComboBoxCurSel; obj.Col = 2; obj.Row = RowNo; tmp = ConvRevKanjyoMeisyo(obj.Text); obj.Col = 1; obj.value = tmp; obj.Col = 2; for(ii = 1; ii <= obj.TypeComboBoxCount; ii++) { obj.TypeComboBoxIndex = ii; if(obj.Text == obj.TypeComboBoxString) { tmpIdx = ii; obj.Col = 11; obj.Text = aKanjyoKubun[tmpIdx]; tmpIdx = ii; obj.Col = 12; obj.Text = aTaisyakuKubun[tmpIdx]; } } // obj.focus(); } else if(ColNo == 5 || ColNo == 6) { SetGokei(); } } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript"> // ヘッダー列クリック時にソートしない場合にはコメントアウトする // SpreadClick(this, ColNo, RowNo); this.Col = this.ActiveCol; this.Row = this.ActiveRow; SpreadRowColor(this); //選択行の色を変える(090624小野) this.EditMode = true; </SCRIPT> <SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript"> document.vaSpread1.focus(); </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript"> this.Col = Col; this.Row = Row; if(this.CellType == 12) { if(!Mode) { this.TypeCurrencyLeadingZero = 2; } } SpreadRowColor(this); //選択行の色を変える(090624小野) this.focus(); </SCRIPT> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> if(typeof(form1.dummy) == "object")form1.dummy.focus(); // SpreadInit 第 3n + 1 引数 (nは整数) // 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 document.vaSpread1.Redraw = false; document.vaSpread2.Redraw = false; // SpreadLoad(document.vaSpread1, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9, "勘定区分", 1, 0, "貸借区分", 1, 0); // SpreadLoad(document.vaSpread2, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9); SpreadLoad(document.vaSpread1, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4, "勘定区分", 1, 0, "貸借区分", 1, 0); SpreadLoad(document.vaSpread2, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4); document.vaSpread1.ScriptEnhanced = true; document.vaSpread2.ScriptEnhanced = true; document.vaSpread2.OperationMode = 1; document.vaSpread2.ColHeadersShow = false; document.vaSpread2.Col = -1; document.vaSpread2.Row = -1; document.vaSpread2.FontSize = 10; document.vaSpread2.BackColorStyle = 1; document.vaSpread2.Row = -1; document.vaSpread2.Col = -1; document.vaSpread2.BackColor = 0xE6E6E6; document.vaSpread2.Lock = true; document.vaSpread2.MaxRows = 0; SpreadAddItem(document.vaSpread2); SpreadAddItem(document.vaSpread2); SpreadAddItem(document.vaSpread2); document.vaSpread2.Col = 2; document.vaSpread2.Row = 1; document.vaSpread2.Text = "試算表合計" document.vaSpread2.Row = 2; document.vaSpread2.Text = "当期損益" document.vaSpread2.Row = 3; document.vaSpread2.Text = "合計" document.vaSpread1.Col = -1; document.vaSpread1.Row = 0; document.vaSpread1.FontSize = 10; document.vaSpread1.RowHeight(0) = 10; document.vaSpread1.ColHeaderRows = 2; //その他の Spread に関する設定はここに入れる document.vaSpread1.Col = -1; document.vaSpread1.Row = -1; document.vaSpread1.FontSize = 10; document.vaSpread1.BackColorStyle = 1; document.vaSpread1.Row = -1; document.vaSpread1.Col = -1; document.vaSpread1.BackColor = 0xE6E6E6; document.vaSpread1.Lock = true; document.vaSpread1.Col = 5; document.vaSpread1.BackColor = 0xFFFFFF; document.vaSpread1.Lock = false; document.vaSpread1.Col = 6; document.vaSpread1.BackColor = 0xFFFFFF; document.vaSpread1.Lock = false; document.vaSpread1.Col = -1; document.vaSpread1.Row = 0; document.vaSpread1.FontSize = 11; document.vaSpread1.RowHeight(0) = 12; document.vaSpread1.ColHeaderRows = 2; var SpreadHeader; SpreadHeader = -1000; document.vaSpread1.AddCellSpan(1, SpreadHeader, 2, 2); document.vaSpread1.AddCellSpan(3, SpreadHeader, 2, 1); document.vaSpread1.AddCellSpan(5, SpreadHeader, 2, 1); document.vaSpread1.AddCellSpan(7, SpreadHeader, 2, 1); document.vaSpread1.AddCellSpan(9, SpreadHeader, 2, 1); document.vaSpread1.Row = SpreadHeader; document.vaSpread1.Col = 1; document.vaSpread1.Text = "勘定科目"; document.vaSpread1.Col = 3; <% If Kimatsu = "Kurikoshi" Then %> document.vaSpread1.Text = "修正後残高試算表"; <% Else %> document.vaSpread1.Text = "残高試算表"; <% End If %> document.vaSpread1.Col = 5; <% If Kimatsu = "Kurikoshi" Then %> document.vaSpread1.Text = "振替記入"; <% Else %> document.vaSpread1.Text = "整理記入"; <% End If %> document.vaSpread1.Col = 7; document.vaSpread1.Text = "損益計算書"; document.vaSpread1.Col = 9; document.vaSpread1.Text = "貸借対照表"; document.vaSpread1.Row = SpreadHeader + 1; document.vaSpread1.Col = 3; document.vaSpread1.Text = "借方"; document.vaSpread1.Col = 4; document.vaSpread1.Text = "貸方"; document.vaSpread1.Col = 5; document.vaSpread1.Text = "借方"; document.vaSpread1.Col = 6; document.vaSpread1.Text = "貸方"; document.vaSpread1.Col = 7; document.vaSpread1.Text = "借方"; document.vaSpread1.Col = 8; document.vaSpread1.Text = "貸方"; document.vaSpread1.Col = 9; document.vaSpread1.Text = "借方"; document.vaSpread1.Col = 10; document.vaSpread1.Text = "貸方"; document.vaSpread1.RetainSelBlock = false; SpreadInit(document.vaSpread1); SetGokei(); document.vaSpread1.ReDraw = true; document.vaSpread2.ReDraw = true; </SCRIPT> <% End If %> <% = HtmlFooter %> </html> <% End Sub %>