<!-- #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">&nbsp;<% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %>&nbsp;</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
%>