<!-- #include file="../../../include.asp" --> <% '<!-- '################################################ ' 名称 :帳簿_総勘定元帳 ' 作成日:2003/1/24 ' 作成者:山崎 ' 目的 :総勘定元帳を記帳する。 ' 概要 : ' <<表示>> '################################################ '--> ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 'MHMKANJOSAIMOKC = "" Dim Cnt Dim RouteType RouteType = Request("RouteType") Dim PageType PageType = "総勘定元帳" Dim Url Url = Request.ServerVariables("URL") Dim KanjyoCD KanjyoCD = Request("KanjyoCD") '仕訳日選択モード Dim Shiwakebi Shiwakebi = "0" If ShiwakebiSelect = 1 Then Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定") End If ' Shiwakebi = "0" ' Shiwakebi = "1" Dim TmpShiwakebiAry 'Spread羅列(存在チェックにも利用) Dim ShiwakebiAry '自前フォーム用配列 ReDim ShiwakebiAry(0) If Shiwakebi = "1" Then Query = "" Query = Query & " " Query = Query & " " Query = Query & " SELECT 取引日 " Query = Query & " FROM TSK伝票F " Query = Query & " WHERE 削除フラグ = 0 " Query = Query & " AND システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " Query = Query & " GROUP BY 取引日 " Query = Query & " ORDER BY 取引日 DESC " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日")) ReDim PreServe ShiwakebiAry(UBound(ShiwakebiAry) + 1) '配列+1 ShiwakebiAry(UBound(ShiwakebiAry)) = "" & SetTimeYYYYMMDD(Content.Fields("取引日")) Content.MoveNext Loop End If '勘定科目一覧を配列化 Dim KamokuCDAry Dim KamokuMeiAry Dim KamokuSaimokuAry ReDim KamokuCDAry(0) ReDim KamokuMeiAry(0) ReDim KamokuSaimokuAry(0) Dim ChkKanjyoCD ChkKanjyoCD = 0 '勘定CDの存在確認(061116小野) 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 KamokuCDAry(UBound(KamokuCDAry)) = "" & Content.Fields("勘定CD") KamokuMeiAry(UBound(KamokuMeiAry)) = "" & Content.Fields("勘定名称") KamokuSaimokuAry(UBound(KamokuSaimokuAry)) = "" & Content.Fields("勘定細目") If Content.Fields("勘定CD") = KanjyoCD Then ChkKanjyoCD = 1 '勘定CDの存在確認(061116小野) End If Content.MoveNext Loop Dim PreKanjyoMeisai Dim bExist Dim KarikataTorihikibi, KarikataTekiyo1, KarikataTekiyo2, KarikataAiteKanjyo, KarikataShityo, KarikataKingaku, KarikataTaisyakuKubun, KarikataZandaka Dim KashikataTorihikibi, KashikataTekiyo1, KashikataTekiyo2, KashikataAiteKanjyo, KashikataShityo, KashikataKingaku, KashikataTaisyakuKubun, KashikataZandaka Dim ZandakaTotal,KarikataKingakuTotal,KashikataKingakuTotal Dim KarikataMonthTotal,KashikataMonthTotal KarikataMonthTotal = 0 KashikataMonthTotal = 0 Dim MonthTotalHyoji MonthTotalHyoji = "0" '↓ウィンドウ幅(fk_sokanjyomototyohyojyun_view_main_in__.aspと同じ) ※Egdeモードのみ利用 Dim WidthParent, WidthParent2 Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7 Dim HeightCell HeightCell = 23 WidthCell7 = 84 If Shiwakebi = "1" Then WidthCell7 = WidthCell7 + 10 End If WidthCell3 = 77 WidthCell4 = 108 WidthCell1 = 50 WidthCell5 = 137 + 14 'プルダウンのため拡張 WidthCell2 = 91 WidthCell6 = 18 ' WidthParent2 = 811 WidthParent = 857 + 28 'プルダウンのため拡張 If Shiwakebi = "1" Then WidthParent = WidthParent + 20 End If '↑ウィンドウ幅 %> <% '_view_main.aspと同じにする %> <% = 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="<% = Replace(Url, ".asp", "_bin.asp") %>" name="form1" autocomplete="off"> <!-- testフォームが単一だとEnterでsubmitされてしまうのでダミーフォームを設置 --> <input type="text" name="dummydummydummydummydummydummydummy" style="display:none;"> <input type="hidden" name="RouteType" value="<% = RouteType %>"> <input type="hidden" name="SendValue" value=""> <input type="hidden" name="KanjyoCD" value="<% = KanjyoCD %>"> <% If InStr(RouteType, "HojyoboOnly") > 0 Then Response.Write(HtmlDesign(2)) Else Response.Write(HtmlDesign(1)) End If Response.Write(HttpL1(3)) If PackageMode = 1 Then Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.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')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "", "", "")) End If Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")) If KanjyoCD <> "" And ChkKanjyoCD = 1 Then '当該勘定CDに対する勘定科目が存在しなければ保存ボタンを表示しない(061116小野) 'If KanjyoCD <> "" Then ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", "")) ' Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "借方行削除", "KariKashiDelItem('Kari');", "貸方行削除", "KariKashiDelItem('Kashi');")) '※HttpL3_1にボタンを追加する事前処理(210107小野) If GB_IEmode = "1" Then Call HttpL3_1_AddBtn("借行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 1, 5);", "借行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 1, 5);", "貸行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up', 7, 11);", "貸行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn', 7, 11);", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "行挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);", "借行削除", "KariKashiDelItem('Kari');", "貸行削除", "KariKashiDelItem('Kashi');")) Else Call HttpL3_1_AddBtn("貸行挿入", "SpRowInsertSub('kashi');", "貸行削除", "SpRowDeleteSub('kashi');", "貸行↑", "SpRowShiftSub('kashi','Up');", "貸行↓", "SpRowShiftSub('kashi','Dn');", "", "") Response.Write(HttpL3_1("保存", "SubmitCheck();", "借行挿入", "SpRowInsertSub('kari');", "借行削除", "SpRowDeleteSub('kari');", "借行↑", "SpRowShiftSub('kari','Up');", "借行↓", "SpRowShiftSub('kari','Dn');")) End If End If 'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&KanjyoCD=" & KanjyoCD & "&AutoPrint=1')", "", "", "", "", "", "")) 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 align="center" valign="middle" height="30" > <TABLE BORDER="0" width="<% If KanjyoCD <> "" Then %>900<% Else %>450<% End If %>" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF"> <TR> <TD height="30" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <table height="55" width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="100%" height="25" align="CENTER" valign="MIDDLE"> <table height="30" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" class="tx1416" nowrap>元帳勘定科目 <input type="text" name="TmpKanjyoCD" size="4" value="<% = KanjyoCD %>" onChange="<% If GB_IEmode <> "1" Then %>FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);<% End If %>TmpKanjyoCDChk(this.value)" class="tbox4" maxlength="4" onClick="this.focus();this.focus();"> <!-- 範囲選択時にスプレッドシートをオフフォーカスするためにonClick処理(061225小野)--> <select size="1" name="Tmp2KanjyoCD" onChange="if(this.value != '<% = KanjyoCD %>')tblbtn('fk_sokanjyomototyohyojyun.asp?KanjyoCD=' + this.value)" style="width:160" class="tbox4"> <option value=""> </option> <% For Cnt = 1 To UBound(KamokuCDAry) Response.Write("<option value=""" & KamokuCDAry(Cnt) & """") If KamokuCDAry(Cnt) = KanjyoCD Then Response.Write(" selected") End If Response.Write(">" & KamokuMeiAry(Cnt) & "</option>" & vbCrLf) Next ' Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'" ' Set Content = OpenQuery(Query) ' ListText = "" ' Do While Not(Content.BOF Or Content.EOF) ' Response.Write("<option value=""" & Content.Fields("勘定CD") & """") ' If Content.Fields("勘定CD") = KanjyoCD Then ' Response.Write(" selected") ' End If ' Response.Write(">" & Content.Fields("勘定名称")) ' Response.Write("</option>" & vbCrLf) ' Content.MoveNext ' Loop %> </select> </td> </tr> <tr> <td align="center" class="tx1416"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD id="TDAL" WIDTH="10" 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 onClick="SetKanjyoKamokuList('A');"><% = Spacer(1,1) %>資産<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('B');"><% = Spacer(2,1) %>負債<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('C');"><% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('D');"><% = Spacer(2,1) %>収益<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('E');"><% = Spacer(2,1) %>費用<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('F');"><% = Spacer(2,1) %>営業外<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('G');"><% = Spacer(2,1) %>特別<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('H');"><% = Spacer(2,1) %>その他<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap onClick="SetKanjyoKamokuList('');"><% = Spacer(2,1) %>全て<% = Spacer(1,1) %></TD> <TD id="TDR" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </table> </td> </tr> </table> </TD> <% If KanjyoCD <> "" Then %> <td> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="100%" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"> <tr align="CENTER"> <td class="tx1416" height="21" valign="bottom">相手勘定科目</td> </tr> <tr> <td align="center"> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" BGCOLOR="#33CCFF" CLASS="tbtn1"> <TR> <TD id="TEAL" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"> </TD> <TD id="TEAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('A');"><% = Spacer(1,1) %>資産<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('B');"><% = Spacer(2,1) %>負債<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TECC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('C');"><% = Spacer(2,1) %><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %><% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('D');"><% = Spacer(2,1) %>収益<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('E');"><% = Spacer(2,1) %>費用<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('F');"><% = Spacer(2,1) %>営業外<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('G');"><% = Spacer(2,1) %>特別<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('H');"><% = Spacer(2,1) %>その他<% = Spacer(2,1) %></TD> <TD BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bline.gif?<% = GB_STU %>" WIDTH="3"></TD> <TD id="TEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap onClick="SetAiteKanjyoKamokuList('');"><% = Spacer(2,1) %>全て<% = Spacer(1,1) %></TD> <TD id="TER" WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"> </TD> </TR> </TABLE> </td> </tr> </TABLE> </td> <% End If %> </tr> </TABLE> </td> </tr> <tr> <td align="center" valign="middle"> <table width="720" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000"> <% If GB_IEmode = "1" Then %> <tr><td HEIGHT="8" onMouseOver="this.focus();this.focus();"></td></tr> <!-- スプレッドシートオフフォーカスのためのダミーテーブル(061225小野)--> <% End If %> <tr> <td align="center"> <% If GB_IEmode = "1" Then %> <table width="922" height="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="top" align="center" height="30"> <table border="0" width="700" cellspacing="0" cellpadding="0"> <tr> <td width="230"></td> <td align="center" class="tx1618" style="border-bottom: 1px solid black;" nowrap height="20"><% = SetStringInsertSpace(PageType) %></td> <td width="230" align="right"></td> </tr> <tr> <td width="230"></td> <td align="center" class="tx1618" nowrap height="25"><% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %></td> <td width="230" align="right"></td> </tr> </table> </td> </tr> <tr> <td align="center" valign="middle"> <% If KanjyoCD <> "" Then %> <object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331"> <param name="lpkpath" value="spread6.lpk"> </object> <object width="922" 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> <% Else %> <span class="tx1618"><font color="#ff0000">上のメニューより入力対象の勘定科目を選択してください</font></span> <BR> <BR> <BR> <BR> <BR> <% End If %> </td> </tr> </table> <% Else %> <TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="100%"> <% If KanjyoCD <> "" Then %> <tr> <td valign="top" align="center" height="30"> <table border="0" cellspacing="0" cellpadding="0"> <tr> <td align="left" width="35%" nowrap></td> <td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace("総勘定元帳") %></td> <td align="right" width="35%" nowrap class="tx1214"></td> </tr> </table> </td> </tr> <tr> <td valign="top" align="center" height="25"> <table border="0" width="100%" cellspacing="0" cellpadding="0"> <tr> <td width="100"></td> <td align="center" nowrap height="25" class="tx1618"> <% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %> </td> <td width="100" align="left" class="tx1214">No.<% = KanjyoCD %></td> </tr> </table> </td> </tr> <TR> <TD HEIGHT="20" VALIGN="BOTTOM"> <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse"> <TR ALIGN="CENTER"> <TD WIDTH="<% = WidthCell7 %>" HEIGHT="<% = HeightCell %>" ALIGN="CENTER" CLASS="br1b1">取引日</TD> <TD WIDTH="<% = WidthCell1 + WidthCell5 + 1 %>" ALIGN="CENTER" CLASS="br1b1">相手勘定科目</TD> <TD WIDTH="<% = WidthCell1 %>" ALIGN="CENTER" CLASS="br3b1">仕丁</TD> <TD WIDTH="<% = WidthCell2 %>" ALIGN="CENTER" CLASS="br2b1">借方</TD> <TD WIDTH="<% = WidthCell7 %>" ALIGN="CENTER" CLASS="br1b1">取引日</TD> <TD WIDTH="<% = WidthCell1 + WidthCell5 + 1 %>" ALIGN="CENTER" CLASS="br1b1">相手勘定科目</TD> <TD WIDTH="<% = WidthCell1 %>" ALIGN="CENTER" CLASS="br3b1">仕丁</TD> <TD WIDTH="<% = WidthCell2 %>" ALIGN="CENTER" 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 = HeightCell '高さ(pixel指定) SpRowCls = "" '行スタイルclass SpRowStyle = "" '行スタイル '列1定義 SpCellType(1) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(1) = WidthCell7 'セル幅(pixel指定) SpCellCls(1) = "br1" 'セルスタイルclass SpCellStyle(1) = "" 'セルスタイル SpInputCls(1) = "Spread4C" 'フォームスタイルclass SpInputStyle(1) = "" 'フォームスタイル SpInputFocus(1) = "" 'onFocusで作動させるスクリプト SpInputBlur(1) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト SpInputChange(1) = "" 'onChangeで作動させるスクリプト SpInputRO(1) = "" 'フォームreadonlyフラグ("1") If Shiwakebi = "1" Then SpCellType(1) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpInputBlur(1) = "" 'onBlurで作動させるスクリプト End If '列2定義 SpCellType(2) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(2) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(2) = "br1" 'セルスタイルclass SpCellStyle(2) = "" 'セルスタイル SpInputCls(2) = "Spread4C" 'フォームスタイルclass SpInputStyle(2) = "" 'フォームスタイル SpInputFocus(2) = "" 'onFocusで作動させるスクリプト SpInputBlur(2) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト SpInputChange(2) = "" 'onChangeで作動させるスクリプト SpInputRO(2) = "" 'フォームreadonlyフラグ("1") '列3定義 SpCellType(3) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(3) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(3) = "br1" 'セルスタイルclass SpCellStyle(3) = "" 'セルスタイル SpInputCls(3) = "Spread4L" 'フォームスタイルclass SpInputStyle(3) = "" 'フォームスタイル SpInputFocus(3) = "" 'onFocusで作動させるスクリプト SpInputBlur(3) = "" 'onBlurで作動させるスクリプト SpInputChange(3) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト SpInputRO(3) = "" 'フォームreadonlyフラグ("1") '列4定義 SpCellType(4) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(4) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(4) = "br3" 'セルスタイルclass SpCellStyle(4) = "" 'セルスタイル SpInputCls(4) = "Spread4L" 'フォームスタイルclass SpInputStyle(4) = "" 'フォームスタイル SpInputFocus(4) = "" 'onFocusで作動させるスクリプト SpInputBlur(4) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" 'onBlurで作動させるスクリプト SpInputChange(4) = "" 'onChangeで作動させるスクリプト SpInputRO(4) = "" 'フォームreadonlyフラグ("1") '列5定義 SpCellType(5) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(5) = "br2" 'セルスタイルclass SpCellStyle(5) = "" 'セルスタイル SpInputCls(5) = "Spread4R" 'フォームスタイルclass SpInputStyle(5) = "" 'フォームスタイル SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(5) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputChange(5) = "" 'onChangeで作動させるスクリプト SpInputRO(5) = "" 'フォームreadonlyフラグ("1") '列6定義 SpCellType(6) = "0" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(6) = WidthCell7 'セル幅(pixel指定) SpCellCls(6) = "br1" 'セルスタイルclass SpCellStyle(6) = "" 'セルスタイル SpInputCls(6) = "Spread4C" 'フォームスタイルclass SpInputStyle(6) = "" 'フォームスタイル SpInputFocus(6) = "" 'onFocusで作動させるスクリプト SpInputBlur(6) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト SpInputChange(6) = "" 'onChangeで作動させるスクリプト SpInputRO(6) = "" 'フォームreadonlyフラグ("1") If Shiwakebi = "1" Then SpCellType(6) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpInputBlur(6) = "" 'onBlurで作動させるスクリプト End If '列7定義 SpCellType(7) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(7) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(7) = "br1" 'セルスタイルclass SpCellStyle(7) = "" 'セルスタイル SpInputCls(7) = "Spread4C" 'フォームスタイルclass SpInputStyle(7) = "" 'フォームスタイル SpInputFocus(7) = "" 'onFocusで作動させるスクリプト SpInputBlur(7) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト SpInputChange(7) = "" 'onChangeで作動させるスクリプト SpInputRO(7) = "" 'フォームreadonlyフラグ("1") '列8定義 SpCellType(8) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン) SpCellWidth(8) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(8) = "br1" 'セルスタイルclass SpCellStyle(8) = "" 'セルスタイル SpInputCls(8) = "Spread4L" 'フォームスタイルclass SpInputStyle(8) = "" 'フォームスタイル SpInputFocus(8) = "" 'onFocusで作動させるスクリプト SpInputBlur(8) = "" 'onBlurで作動させるスクリプト SpInputChange(8) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト SpInputRO(8) = "" 'フォームreadonlyフラグ("1") '列9定義 SpCellType(9) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(9) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(9) = "br3" 'セルスタイルclass SpCellStyle(9) = "" 'セルスタイル SpInputCls(9) = "Spread4L" 'フォームスタイルclass SpInputStyle(9) = "" 'フォームスタイル SpInputFocus(9) = "" 'onFocusで作動させるスクリプト SpInputBlur(9) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" 'onBlurで作動させるスクリプト SpInputChange(9) = "" 'onChangeで作動させるスクリプト SpInputRO(9) = "" 'フォームreadonlyフラグ("1") '列10定義 SpCellType(10) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨) SpCellWidth(10) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算 SpCellCls(10) = "b0" 'セルスタイルclass SpCellStyle(10) = "" 'セルスタイル SpInputCls(10) = "Spread4R" 'フォームスタイルclass SpInputStyle(10) = "" 'フォームスタイル SpInputFocus(10) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト SpInputBlur(10) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト SpInputChange(10) = "" 'onChangeで作動させるスクリプト SpInputRO(10) = "" 'フォームreadonlyフラグ("1") ii = 0 bExist = 2 Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'" Set ContentKarikata = OpenQuery(Query) Set ContentKashikata = OpenQuery(Query) Do While bExist > 0 bExist = 2 Dim DbKarikataKingaku Dim DbKashikataKingaku KarikataTorihikibi = "" KarikataTekiyo1 = "" KarikataTekiyo2 = "" KarikataAiteKanjyo = "" KarikataShityo = "" KarikataKingaku = "" KarikataTaisyakuKubun = "" KarikataZandaka = "" KashikataTorihikibi = "" KashikataTekiyo1 = "" KashikataTekiyo2 = "" KashikataAiteKanjyo = "" KashikataShityo = "" KashikataKingaku = "" KashikataTaisyakuKubun = "" KashikataZandaka = "" For jj = 1 To 1000 If (ContentKarikata.BOF Or ContentKarikata.EOF) Then bExist = bExist - 1 Exit For Else If IsNull(ContentKarikata.Fields("借方金額")) Then ContentKarikata.MoveNext ElseIf ContentKarikata.Fields("借方金額") = 0 Then ContentKarikata.MoveNext Else KarikataTorihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("取引日")) KarikataTekiyo2 = ContentKarikata.Fields("摘要") KarikataAiteKanjyo = ContentKarikata.Fields("相手勘定CD") KarikataShityo = ContentKarikata.Fields("仕丁") KarikataKingaku = ContentKarikata.Fields("借方金額") ContentKarikata.MoveNext Exit For End If End If Next For jj = 1 To 1000 If (ContentKashikata.BOF Or ContentKashikata.EOF) Then bExist = bExist - 1 Exit For Else If IsNull(ContentKashikata.Fields("貸方金額")) Then ContentKashikata.MoveNext ElseIf ContentKashikata.Fields("貸方金額") = 0 Then ContentKashikata.MoveNext Else KashikataTorihikibi = SetTimeYYYYMMDD(ContentKashikata.Fields("取引日")) KashikataTekiyo2 = ContentKashikata.Fields("摘要") KashikataAiteKanjyo = ContentKashikata.Fields("相手勘定CD") KashikataShityo = ContentKashikata.Fields("仕丁") KashikataKingaku = ContentKashikata.Fields("貸方金額") ContentKashikata.MoveNext Exit For End If End If Next If bExist = 0 Then Exit Do End If If IsNull(KarikataKingaku) or (KarikataKingaku="") Then Else KarikataKingakuTotal = KarikataKingakuTotal + KarikataKingaku KarikataMonthTotal = KarikataMonthTotal + KarikataKingaku End If If IsNull(KashikataKingaku) or (KashikataKingaku="") Then Else KashikataKingakuTotal = KashikataKingakuTotal + KashikataKingaku KashikataMonthTotal = KashikataMonthTotal + KashikataKingaku End If 'スプレッドシート行生成 ※此処で値のみ代入 SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映) SpMaxRow = SpRowCnt If Shiwakebi = "1" Then SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ) 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, KarikataTorihikibi) < 1 Then SpInputOption(1) = SpInputOption(1) & "<option value=""" & KarikataTorihikibi & """ selected>" & KarikataTorihikibi & "</option>"' & vbCrLf End If SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """" If ShiwakebiAry(Cnt) = KarikataTorihikibi Then SpInputOption(1) = SpInputOption(1) & " selected" End If SpInputOption(1) = SpInputOption(1) & ">" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(1) = KarikataTorihikibi 'フォーム初期値 End If SpInputValue(2) = KarikataAiteKanjyo 'フォーム初期値 ' SpInputValue(3) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) 'フォーム初期値 SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外 SpInputOption(3) = SpInputOption(3) & "<option value=""" & KamokuCDAry(Cnt) & """" If KamokuCDAry(Cnt) = KarikataAiteKanjyo Then SpInputOption(3) = SpInputOption(3) & " selected" End If SpInputOption(3) = SpInputOption(3) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf End If Next SpInputValue(4) = KarikataShityo 'フォーム初期値 SpInputValue(5) = ConvIntToMoney(KarikataKingaku, false, false) 'フォーム初期値 If Shiwakebi = "1" Then SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ) 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, KashikataTorihikibi) < 1 Then SpInputOption(6) = SpInputOption(6) & "<option value=""" & KashikataTorihikibi & """ selected>" & KashikataTorihikibi & "</option>"' & vbCrLf End If SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(6) = SpInputOption(6) & "<option value=""" & ShiwakebiAry(Cnt) & """" If ShiwakebiAry(Cnt) = KashikataTorihikibi Then SpInputOption(6) = SpInputOption(6) & " selected" End If SpInputOption(6) = SpInputOption(6) & ">" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(6) = KashikataTorihikibi 'フォーム初期値 End If SpInputValue(7) = KashikataAiteKanjyo 'フォーム初期値 ' SpInputValue(8) = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) 'フォーム初期値 SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(8) = SpInputOption(8) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外 SpInputOption(8) = SpInputOption(8) & "<option value=""" & KamokuCDAry(Cnt) & """" If KamokuCDAry(Cnt) = KashikataAiteKanjyo Then SpInputOption(8) = SpInputOption(8) & " selected" End If End If SpInputOption(8) = SpInputOption(8) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf Next SpInputValue(9) = KashikataShityo 'フォーム初期値 SpInputValue(10) = ConvIntToMoney(KashikataKingaku, false, false) 'フォーム初期値 'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される If 0=1 Then Response.Write("<TR ALIGN=""CENTER"">" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell7 & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" CLASS=""br1"">" & KarikataTorihikibi & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br1"">" & KarikataAiteKanjyo & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell5 & """ ALIGN=""LEFT"" CLASS=""br1"">" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br3"">" & KarikataShityo & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" CLASS=""br2"">" & ConvIntToMoney(KarikataKingaku, false, false) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell7 & """ HEIGHT=""" & HeightCell & """ ALIGN=""CENTER"" CLASS=""br1"">" & KashikataTorihikibi & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br1"">" & KashikataAiteKanjyo & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell5 & """ ALIGN=""LEFT"" CLASS=""br1"">" & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br3"">" & KashikataShityo & "</TD>" & vbCrLf) Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(KashikataKingaku, false, false) & "</TD>" & vbCrLf) Response.Write("</TR>" & vbCrLf) End If ii = ii + 1 Loop 'スプレッドシートの空白行を発生させる If Shiwakebi = "1" Then SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """>" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(1) = "" 'フォーム初期値 End If SpInputValue(2) = "" 'フォーム初期値 SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外 SpInputOption(3) = SpInputOption(3) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf End If Next SpInputValue(4) = "" 'フォーム初期値 SpInputValue(5) = "" 'フォーム初期値 If Shiwakebi = "1" Then SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(ShiwakebiAry) SpInputOption(6) = SpInputOption(6) & "<option value=""" & ShiwakebiAry(Cnt) & """>" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf Next Else SpInputValue(6) = "" 'フォーム初期値 End If SpInputValue(7) = "" 'フォーム初期値 SpInputOption(8) = "" 'フォーム初期値(selectプルダウンのoptionタグ) SpInputOption(8) = SpInputOption(8) & "<option value=""""></option>"' & vbCrLf For Cnt = 1 To UBound(KamokuCDAry) If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外 SpInputOption(8) = SpInputOption(8) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf End If Next 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 colspan="10" height="1" align="center" class="tx1214"> ※入力行が足りない場合は一度「保存」してください </td> </TR> <% Else %> <tr> <td valign="middlle" align="center" height="100%"> <span class="tx1618"><font color="#ff0000">上のメニューより入力対象の勘定科目を選択してください</font><br><br><br><br><br><br><br></span> </td> </tr> <% End If %> </TABLE> <% End If %> </td> </tr> </table> </td> </tr> </table> </div> </form> </body> <SCRIPT LANGUAGE="JavaScript"> //↓ブラウザ不問の共通関数 var KanjyoMeisaiSelected; 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.getElementById("TD" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = 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.getElementById("TD" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = 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; //現在選択されているメニュー内容を保持する(090629小野) var TmpVal = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].value; var TmpTxt = form1.Tmp2KanjyoCD.options[form1.Tmp2KanjyoCD.selectedIndex].text; do { form1.Tmp2KanjyoCD.options[0] = null; } while(form1.Tmp2KanjyoCD.length != 0) //現在選択されているメニュー内容があればメニュー1行目に挿入する(090629小野) if (TmpVal != "" && TmpTxt != "") { form1.Tmp2KanjyoCD.options[Idx] = new Option(TmpTxt, TmpVal); Idx = Idx + 1; } form1.Tmp2KanjyoCD.options[Idx] = new Option("", ""); Idx = Idx + 1; <% PreKanjyoMeisai = "" Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く(ループ内で常に閉じてから開くためのダミー) For Cnt = 1 To UBound(KamokuCDAry) '現在の科目を除外(100523小野) If KamokuCDAry(Cnt) <> KanjyoCD Then If PreKanjyoMeisai <> KamokuSaimokuAry(Cnt) Then Response.Write("}" & vbCrLf) 'ネストを閉じて開く Response.Write("if (kanjyomeisai == """" || kanjyomeisai == """ & KamokuSaimokuAry(Cnt) & """){" & vbCrLf) PreKanjyoMeisai = KamokuSaimokuAry(Cnt) End If Response.Write("form1.Tmp2KanjyoCD.options[Idx] = new Option(""" & KamokuMeiAry(Cnt) & """, """ & KamokuCDAry(Cnt) & """);") Response.Write("Idx = Idx + 1;" & vbCrLf) End If Next Response.Write("}" & vbCrLf) '最後のネストを閉じる %> return false; } //勘定CD配列作成(061127小野) // var KanjyoCDArray; KanjyoCDArray = new Array(); <% Dim KanjyoCDCnt KanjyoCDCnt = 0 For Cnt = 1 To UBound(KamokuCDAry) KanjyoCDCnt = KanjyoCDCnt + 1 Response.Write("KanjyoCDArray[" & KanjyoCDCnt & "] = '" & KamokuCDAry(Cnt) & "';" & vbCrLf) Next %> //勘定CDチェック(061201小野) function TmpKanjyoCDChk(formKanjyoCD) { if (KanjyoCDCheck(formKanjyoCD) == formKanjyoCD) { //alert(formKanjyoCD); tblbtn('fk_sokanjyomototyohyojyun.asp?KanjyoCD=' + formKanjyoCD); // return; } } function KanjyoCDCheck(obj) { if (obj == '') { alert('勘定コードを入力して下さい'); form1.TmpKanjyoCD.focus(); return false; } for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) { if (obj == KanjyoCDArray[kk]) { //alert(obj); return obj; } } alert('勘定コード ' + obj + ' の勘定科目は存在しません'); form1.TmpKanjyoCD.focus(); return false; } //勘定CDから勘定名称に変換 function ConvKanjyoMeisyo(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 %>; 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 (TmpValue == "<% = KanjyoCD %>") { alert("このページの勘定科目コードは入力できません"); Form.value = ""; TmpValue = ""; } else if (ConvKanjyoMeisyo(TmpValue) == "") { alert("入力された勘定科目コードは存在しません"); Form.value = ""; TmpValue = ""; } } // //プルダウンの先頭項目にセット(TmpValueがnullならクリアされる) SetAiteKamokuList(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 SpRowInsertSub(Taishaku) { //プルダウンの内容をスライドするため一旦相手勘定の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList("", Taishaku); } //行挿入 TmpSpMinCol = SpMinCol; //元の範囲を保持 TmpSpMaxCol = SpMaxCol; //元の範囲を保持 SpMinCol = 1; SpMaxCol = 5; if (Taishaku == "kashi") { SpMinCol = 6; SpMaxCol = 10; } SpRowInsert(); SpMinCol = TmpSpMinCol; //元の範囲を復元 SpMaxCol = TmpSpMaxCol; //元の範囲を復元 SpRowColor(); //元の範囲で行色変え //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList(TmpKanjoSaimoku, Taishaku); } } function SpRowDeleteSub(Taishaku) { //プルダウンの内容をスライドするため一旦相手勘定の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList("", Taishaku); } //行挿入 TmpSpMinCol = SpMinCol; //元の範囲を保持 TmpSpMaxCol = SpMaxCol; //元の範囲を保持 SpMinCol = 1; SpMaxCol = 5; if (Taishaku == "kashi") { SpMinCol = 6; SpMaxCol = 10; } SpRowDelete(); SpMinCol = TmpSpMinCol; //元の範囲を復元 SpMaxCol = TmpSpMaxCol; //元の範囲を復元 SpRowColor(); //元の範囲で行色変え //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList(TmpKanjoSaimoku, Taishaku); } } function SpRowShiftSub(Taishaku, UpDown) { //プルダウンの内容をスライドするため一旦相手勘定の絞込みを解除する //現在の絞込み状態を保持 TmpKanjoSaimoku = KanjyoMeisaiSelected; //絞込みを解除(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList("", Taishaku); } //行挿入 TmpSpMinCol = SpMinCol; //元の範囲を保持 TmpSpMaxCol = SpMaxCol; //元の範囲を保持 SpMinCol = 1; SpMaxCol = 5; if (Taishaku == "kashi") { SpMinCol = 6; SpMaxCol = 10; } SpRowShift(UpDown); SpMinCol = TmpSpMinCol; //元の範囲を復元 SpMaxCol = TmpSpMaxCol; //元の範囲を復元 SpRowColor(); //元の範囲で行色変え //絞込みを復元(全科目は除く) if (TmpKanjoSaimoku != "") { SetAiteKanjyoKamokuList(TmpKanjoSaimoku, Taishaku); } } function SetAiteKamokuList(elm, TmpValue) { //プルダウン項目を全クリア do { elm.options[0] = null; } while (elm.length != 0) Idx = 0; if (TmpValue != "") { //先頭項目に追加 elm.options[Idx] = new Option(ConvKanjyoMeisyo(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 SetAiteKanjyoKamokuList(kanjyomeisai, Taishaku) { //alert(Taishaku); KanjyoMeisaiSelected = kanjyomeisai; //選択状態をグローバル変数に代入 var Meisais; var ii; Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", ""); for (ii = 0; ii < Meisais.length; ii++) { document.getElementById("TE" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>')"; } document.getElementById("TE" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>')"; for (ii = SpMinRow; ii <= SpMaxRow; ii++) { if (!Taishaku || Taishaku == "kari") { //借方 Target = "<% = SpFormName %>" + ii + "_3"; elm = document.getElementsByName(Target)[0]; //現在選択されている科目を保持する TmpValue = elm.options[elm.selectedIndex].value; SetAiteKamokuList(elm, TmpValue); } if (!Taishaku || Taishaku == "kashi") { //貸方 Target = "<% = SpFormName %>" + ii + "_8"; elm = document.getElementsByName(Target)[0]; //現在選択されている科目を保持する TmpValue = elm.options[elm.selectedIndex].value; SetAiteKamokuList(elm, TmpValue); } } } function SubmitCheck() { form1.SendValue.value = "" for (jj = SpMinRow; jj <= SpMaxRow; jj++) { Target = "SpCell" + jj + "_" //セル番号を除くフォーム名 var RowText; var bCheck; bCheck = new Array(); RowText = ""; for (ii = 1; ii <= SpMaxCol; ii++) { //相手勘定CDチェック(念のため) if (ii == 2 && form1[Target + ii].value != '' || ii == 7 && form1[Target + ii].value != '') { bCheck[ii] = 1; //フラグに偽をセット for (kk = 1; kk <= <% = KanjyoCDCnt %>; kk++) { if (form1[Target + ii].value == KanjyoCDArray[kk]) { bCheck[ii] = 0; //勘定CD配列に符合すればフラグに真をセット break; } } if(bCheck[ii] == 1) { alert('相手勘定コード ' + form1[Target + ii].value + ' の勘定科目は存在しません'); form1[Target + ii].value = ""; return; } } var Text1; Text1 = form1[Target + ii].value; //通貨のカンマ区切りを外す if (ii == 5 || ii == 10) { Text1 = ReplaceStr(Text1, ",", "") } //文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野) Text1 = ReplaceStr(Text1, ",", "CommammoC") Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS") RowText = RowText + Text1; RowText = RowText + ","; //IEモードのスプレッドシートの列数に合わせるため1列追加 if (ii == 5) { RowText = RowText + ","; } bCheck[ii] = 0; if (Text1 == "") { bCheck[ii] = 1; } } if (ReplaceStr(RowText, ",", "") != "") { RowText = form1.KanjyoCD.value + "," + RowText; if (bCheck[1] == 0 || bCheck[2] == 0 || bCheck[3] == 0 || bCheck[4] == 0 || bCheck[5] == 0) { //借方に入力が存在する if (bCheck[1] == 1) { alert("取引日を入力してください"); form1[Target + 1].focus(); return; } if (bCheck[5] == 1) { alert("借方金額を入力してください"); form1[Target + 5].focus(); return; } } if (bCheck[6] == 0 || bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0 || bCheck[10] == 0) { //貸方に入力が存在する if (bCheck[6] == 1) { alert("取引日を入力してください"); form1[Target + 6].focus(); return; } if (bCheck[10] == 1) { alert("貸方金額を入力してください"); form1[Target + 10].focus(); return; } } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } //alert(form1.SendValue.value); SubmitReal(form1); return true; } window.onload = function() { form1.SpCell<% = (SpRowCnt + 1) %>_1.focus(); } </SCRIPT> <% Else 'IEモード %> <% Dim KanjyoCDCol1, KanjyoCDCol2 KanjyoCDCol1 = 2 KanjyoCDCol2 = 8 %> <SCRIPT LANGUAGE="JavaScript"> function SubmitCheck() { if (KanjyoCDCheck(form1.TmpKanjyoCD.value) == form1.TmpKanjyoCD.value) { //勘定CDチェック(061201小野) ////////残高チェックここから var PlusCelNo, MinusCelNo, TaisyakuCelNo, TotalCelNo; var Zandaka, PlusMinus; PlusCelNo = 7; MinusCelNo = 8; TaisyakuCelNo = 9; TotalCelNo = 10; Zandaka = 0 ////////残高チェックここまで form1.SendValue.value = "" for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++) { document.vaSpread1.Row = jj; var RowText; var bCheck; bCheck = new Array(); RowText = ""; for(ii = 1; ii <= document.vaSpread1.MaxCols; ii++) { document.vaSpread1.Col = ii; //相手勘定CDチェック(061127小野) if (ii == <% = KanjyoCDCol1 %> && document.vaSpread1.Text != '' || ii == <% = KanjyoCDCol2 %> && document.vaSpread1.Text != '') { //相手勘定CD未入力は容認(061129小野) bCheck[ii] = 1; //フラグに偽をセット for (kk=1; kk<=<% = KanjyoCDCnt %>; kk++) { if (document.vaSpread1.Text == KanjyoCDArray[kk]) { bCheck[ii] = 0; //勘定CD配列に符合すればフラグに真をセット break; } } if(bCheck[ii] == 1) { alert('相手勘定コード ' + document.vaSpread1.Text + ' の勘定科目は存在しません'); document.vaSpread1.SetActiveCell(ii, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } } var Text1; Text1 = document.vaSpread1.Text; if(document.vaSpread1.ColID == 12) { Text1 = ReplaceStr(Text1, ",", "") } RowText = RowText + Text1; RowText = RowText + ","; bCheck[ii] = 0; if(Text1 == "") { bCheck[ii] = 1; } } if(ReplaceStr(RowText, ",", "") != "") { RowText = form1.KanjyoCD.value + "," + RowText; if(bCheck[5] == 1 && bCheck[11] == 1) { alert("借方金額もしくは貸方金額を入力して下さい"); document.vaSpread1.SetActiveCell(5, jj); document.vaSpread1.focus(); document.vaSpread1.EditMode = true; return; } form1.SendValue.value = form1.SendValue.value + RowText + ";" } } SubmitReal(form1); return true; } } //貸借片側のみの行削除(100523小野) function KariKashiDelItem(Mode) { var Kijun = <% = KanjyoCDCol1 - 1 %>; if (Mode == "Kashi") { Kijun = <% = KanjyoCDCol2 - 1 %>; } for (ii = Kijun; ii <= Kijun + 4; ii++) { document.vaSpread1.Col = ii; document.vaSpread1.Text = ""; } //貸借両方が削除されたら実際の行削除を行う var DelFlg = 1; for (ii = <% = KanjyoCDCol1 - 1 %>; ii <= <% = KanjyoCDCol2 + 3 %>; ii++) { document.vaSpread1.Col = ii; if (document.vaSpread1.Text != "") { DelFlg = 0; break; } } if (DelFlg == 1) { SpreadDelItem(document.vaSpread1); } } //スプレッドシート行移動(210107小野) function SpreadShiftRowSub(obj, Mode, StartCol, EndCol) { if (SpreadShiftRow(obj, Mode, StartCol, EndCol)) { //includesj.js //勘定科目名はSetRenewCellが必要 var KanjoCDCol = StartCol; //勘定CD列を指定 SetRenewCell(obj, KanjoCDCol, obj.ActiveRow); if (obj.ActiveRow - 1 >= 1) { SetRenewCell(obj, KanjoCDCol, obj.ActiveRow - 1); } if (obj.ActiveRow + 1 <= obj.MaxRows) { SetRenewCell(obj, KanjoCDCol, obj.ActiveRow + 1); } } } function SetAiteKanjyoKamokuList(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("TE" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"; // document.all.item("TE" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>"; document.getElementById("TE" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>')"; // document.all.item("TE" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"; } // document.all.item("TE" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"; // document.all.item("TE" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>"; document.getElementById("TE" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>')"; // document.all.item("TE" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"; var ii; var Idx; Idx = 0; var listout; listout = ""; document.vaSpread1.Redraw = false; <% 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) '現在の科目を除外(100523小野) If Content.Fields("勘定CD") <> KanjyoCD Then 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) End If Content.MoveNext Loop Response.Write("}" & vbCrLf) '最後のネストを閉じる %> document.vaSpread1.Col = <% = KanjyoCDCol1 + 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.Col = <% = KanjyoCDCol2 + 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; } <% 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) '現在の科目を除外(100523小野) If Content.Fields("勘定CD") <> KanjyoCD Then ' If ListText <> "" Then ListText = ListText & "\t" ' End If ListText = ListText & Content.Fields("勘定名称") End If Content.MoveNext Loop %> function SpreadInit(fpSpread) { fpSpread.MaxRows = 0; <% Dim Query Dim ContentKarikata, ContentKashikata Dim ii, jj jj = 0 Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'" Set ContentKarikata = OpenQuery(Query) Set ContentKashikata = OpenQuery(Query) '選択行の色を変える動作を停止(090624小野) Response.Write(" SpreadRowColorMode = false;" & vbCrLf) bExist = 2 Do While bExist > 0 bExist = 2 KarikataTorihikibi = "" KarikataTekiyo1 = "" KarikataTekiyo2 = "" KarikataAiteKanjyo = "" KarikataShityo = "" KarikataKingaku = "" KarikataTaisyakuKubun = "" KarikataZandaka = "" KashikataTorihikibi = "" KashikataTekiyo1 = "" KashikataTekiyo2 = "" KashikataAiteKanjyo = "" KashikataShityo = "" KashikataKingaku = "" KashikataTaisyakuKubun = "" KashikataZandaka = "" For ii = 1 To 1000 If (ContentKarikata.BOF Or ContentKarikata.EOF) Then bExist = bExist - 1 Exit For ElseIf IsNull(ContentKarikata.Fields("借方金額")) Then ContentKarikata.MoveNext Else KarikataTorihikibi = SetTimeYYYYMMDD(ContentKarikata.Fields("取引日")) KarikataAiteKanjyo = ContentKarikata.Fields("相手勘定CD") KarikataShityo = ContentKarikata.Fields("仕丁") KarikataKingaku = ContentKarikata.Fields("借方金額") ContentKarikata.MoveNext Exit For End If Next For ii = 1 To 1000 If (ContentKashikata.BOF Or ContentKashikata.EOF) Then bExist = bExist - 1 Exit For ElseIf IsNull(ContentKashikata.Fields("貸方金額")) Then ContentKashikata.MoveNext Else KashikataTorihikibi = SetTimeYYYYMMDD(ContentKashikata.Fields("取引日")) KashikataAiteKanjyo = ContentKashikata.Fields("相手勘定CD") KashikataShityo = ContentKashikata.Fields("仕丁") KashikataKingaku = ContentKashikata.Fields("貸方金額") ContentKashikata.MoveNext Exit For End If Next If bExist = 0 Then Exit Do End If jj = jj + 1 Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" fpSpread.Row = " & jj & ";" & vbCrLf) Response.Write(" fpSpread.Col = 1;" & vbCrLf) '仕訳日選択モード If Shiwakebi = "1" Then 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(KarikataTorihikibi)) < 1 Then Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(KarikataTorihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf) End If End If Response.Write(" fpSpread.Text = """ & KarikataTorihikibi & """;" & vbCrLf) Response.Write(" fpSpread.Col = 2;" & vbCrLf) Response.Write(" fpSpread.Text = """ & KarikataAiteKanjyo & """;" & vbCrLf) Response.Write(" fpSpread.Col = 3;" & vbCrLf) '元帳勘定科目と同一の相手勘定科目はメニューから除外されるが 'すでに保存されてしまっている同一科目は表示する必要があるのでメニューに追加する(100523小野) If KarikataAiteKanjyo = KanjyoCD Then Response.Write(" document.vaSpread1.TypeComboBoxList = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & "\t" & ListText & """;" & vbCrLf) End If Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KarikataAiteKanjyo) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 4;" & vbCrLf) Response.Write(" fpSpread.Text = """ & KarikataShityo & """;" & vbCrLf) Response.Write(" fpSpread.Col = 5;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(KarikataKingaku, false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 7;" & vbCrLf) '仕訳日選択モード If Shiwakebi = "1" Then 'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加 If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(KashikataTorihikibi)) < 1 Then Response.Write(" fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(KashikataTorihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf) End If End If Response.Write(" fpSpread.Text = """ & KashikataTorihikibi & """;" & vbCrLf) Response.Write(" fpSpread.Col = 8;" & vbCrLf) Response.Write(" fpSpread.Text = """ & KashikataAiteKanjyo & """;" & vbCrLf) Response.Write(" fpSpread.Col = 9;" & vbCrLf) '元帳勘定科目と同一の相手勘定科目はメニューから除外されるが 'すでに保存されてしまっている同一科目は表示する必要があるのでメニューに追加する(100523小野) If KashikataAiteKanjyo = KanjyoCD Then Response.Write(" document.vaSpread1.TypeComboBoxList = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & "\t" & ListText & """;" & vbCrLf) End If Response.Write(" fpSpread.Text = """ & ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KashikataAiteKanjyo) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 10;" & vbCrLf) Response.Write(" fpSpread.Text = """ & KashikataShityo & """;" & vbCrLf) Response.Write(" fpSpread.Col = 11;" & vbCrLf) Response.Write(" fpSpread.Text = """ & ConvIntToMoney(KashikataKingaku, false ,false) & """;" & vbCrLf) Response.Write(" fpSpread.Col = 0;" & vbCrLf) Response.Write(" fpSpread.Text = "" "";" & vbCrLf) Loop '空白行を5行追加し1行目を選択状態にする(080620小野) jj = jj + 1 Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" SpreadAddItem(fpSpread);" & vbCrLf) Response.Write(" document.vaSpread1.SetActiveCell(1, " & jj & ");" & vbCrLf) '貸方借方で入力行数の多い方を基準とする Response.Write(" fpSpread.EditMode=true;" & vbCrLf) '選択行の色を変える動作を再開(090624小野) Response.Write(" SpreadRowColorMode = true;" & vbCrLf) Response.Write(" SpreadRowColor(fpSpread);" & vbCrLf) '選択行の色を変える(090624小野) %> } </SCRIPT> <SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript"> <% If KanjyoCD <> "" Then %> if(typeof(form1.dummy) == "object")form1.dummy.focus(); // SpreadInit 第 3n + 1 引数 (nは整数) // 0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要 document.vaSpread1.Redraw = false; <% If Shiwakebi = "1" Then %> //仕訳日選択モード SpreadLoad(document.vaSpread1, "取引日", 8, 12.5, "勘定CD", 21, 6, "勘定名称", 8, 18, "仕丁", 21, 6, "借方金額", 12, 12, " ", 0, 0.3, "取引日", 8, 12.5, "勘定CD", 21, 6, "勘定名称", 8, 18, "仕丁", 21, 6, "貸方金額", 12, 12); <% Else %> SpreadLoad(document.vaSpread1, "取引日", 0, 10.5, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "借方金額", 12, 12, " ", 0, 0.3, "取引日", 0, 10.5, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "貸方金額", 12, 12); <% End If %> document.vaSpread1.ScriptEnhanced = true; //その他の Spread に関する設定はここに入れる document.vaSpread1.Row = -1; document.vaSpread1.Col = -1; document.vaSpread1.FontSize = 11; document.vaSpread1.Row = 0; document.vaSpread1.FontSize = 11; <% If Shiwakebi = "1" Then %> //仕訳日選択モード document.vaSpread1.Row = -1; document.vaSpread1.Col = 1; document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>" document.vaSpread1.Row = -1; document.vaSpread1.Col = 7; document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>" <% End If %> document.vaSpread1.Row = -1; document.vaSpread1.Col = 9; document.vaSpread1.TypeComboBoxList = "借\t貸" var SpreadHeader; SpreadHeader = -1000; document.vaSpread1.AddCellSpan(<% = KanjyoCDCol1 %>, SpreadHeader, 2, 2); document.vaSpread1.Row = SpreadHeader; document.vaSpread1.Col = <% = KanjyoCDCol1 %>; document.vaSpread1.Text = "相手勘定科目"; document.vaSpread1.AddCellSpan(<% = KanjyoCDCol2 %>, SpreadHeader, 2, 2); document.vaSpread1.Row = SpreadHeader; document.vaSpread1.Col = <% = KanjyoCDCol2 %>; document.vaSpread1.Text = "相手勘定科目"; document.vaSpread1.Row = -1; document.vaSpread1.Col = <% = KanjyoCDCol1 + 1 %>; document.vaSpread1.TypeComboBoxList = "<% = ListText %>"; document.vaSpread1.Col = <% = KanjyoCDCol2 + 1 %>; document.vaSpread1.TypeComboBoxList = "<% = ListText %>"; //ダミー区切り線表示用(090423小野) document.vaSpread1.Col = 6; document.vaSpread1.BackColor = 0xC0C0C0; document.vaSpread1.Lock = true; document.vaSpread1.RetainSelBlock = false; SpreadInit(document.vaSpread1); document.vaSpread1.ReDraw = true; <% End If%> </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) Else Call SetRenewCell(Me, ColNo, RowNo) End If </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 == <% = KanjyoCDCol1 %>) { var tmp; obj.Col = <% = KanjyoCDCol1 %>; obj.Row = RowNo; tmp = "" + obj.value; tmp = ConvKanjyoMeisyo(tmp); obj.Col = <% = KanjyoCDCol1 + 1 %>; obj.Row = RowNo; obj.TypeComboBoxRemoveItem(<% = KanjyoCDCol1 + 1 %>, RowNo, 0); obj.TypeComboBoxIndex = 0; obj.TypeComboBoxString = tmp; obj.Text = tmp; //相手勘定科目メニューの一列目が上書きされてしまうのでここでメニューを更新する(080930小野) SetAiteKanjyoKamokuList(KanjyoMeisaiSelected); } else if(ColNo == <% = KanjyoCDCol1 + 1%>) { var tmp; obj.Col = <% = KanjyoCDCol1 + 1 %>; obj.Row = RowNo; tmp = ConvRevKanjyoMeisyo(obj.Text); obj.Col = <% = KanjyoCDCol1 %>; obj.Row = RowNo; obj.value = tmp; } if(ColNo == <% = KanjyoCDCol2 %>) { var tmp; obj.Col = <% = KanjyoCDCol2 %>; obj.Row = RowNo; tmp = "" + obj.value; tmp = ConvKanjyoMeisyo(tmp); obj.Col = <% = KanjyoCDCol2 + 1 %>; obj.Row = RowNo; obj.TypeComboBoxRemoveItem(<% = KanjyoCDCol2 + 1 %>, RowNo, 0); obj.TypeComboBoxIndex = 0; obj.TypeComboBoxString = tmp; obj.Text = tmp; //相手勘定科目メニューの一列目が上書きされてしまうのでここでメニューを更新する(080930小野) SetAiteKanjyoKamokuList(KanjyoMeisaiSelected); } else if(ColNo == <% = KanjyoCDCol2 + 1%>) { var tmp; obj.Col = <% = KanjyoCDCol2 + 1 %>; obj.Row = RowNo; tmp = ConvRevKanjyoMeisyo(obj.Text); obj.Col = <% = KanjyoCDCol2 %>; obj.Row = RowNo; obj.value = tmp; } } </SCRIPT> <SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript"> // ヘッダー列クリック時にソートしない場合にはコメントアウトする // SpreadClick(this, ColNo, RowNo); this.Col = this.ActiveCol; this.Row = this.ActiveRow; this.EditMode = true; </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> <% End If %> <% = HtmlFooter %> </html> <% End Sub %>