<!-- #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
%>