
<!-- #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 AutoZandakaNyuryoku
	AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算")

	'仕訳日選択モード
	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 TaisyakuKubun

	Dim KouriHanbai
	KouriHanbai = KourihanbaiRiyo()



	'取引先市場配列作成（080929小野）
	Dim TorihikisakiMeishoAry
	ReDim TorihikisakiMeishoAry(0)
	Dim TorihikisakiShijoAry
	ReDim TorihikisakiShijoAry(0)
	Query = "exec SPM摘要表示一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Not(Content.Fields("摘要区分") = "K" AND Content.Fields("摘要CD") = KaisyaCD) Then
			ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1)
			ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1)
			TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & Content.Fields("摘要")
			TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = "" & Content.Fields("市場CD")
		End If
		Content.MoveNext
	Loop


	'勘定科目一覧を配列化
	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 ZandakaTotal,KarikataKingakuTotal,KashikataKingakuTotal	
	Dim KarikataMonthTotal,KashikataMonthTotal
	KarikataMonthTotal = 0
	KashikataMonthTotal = 0


	'↓ウィンドウ幅(fk_sokanjyomototyo_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 + 16 'プルダウンのため拡張
	WidthCell4 = 108
	WidthCell1 = 50
	WidthCell5 = 137 + 14 'プルダウンのため拡張
	WidthCell2 = 91
	WidthCell6 = 18 + 20 'プルダウンのため拡張
'	WidthParent2 = 811
	WidthParent = 833 + 50 'プルダウンのため拡張
	If Shiwakebi = "1" Then
		WidthParent = WidthParent + 10
	End If
	'↑ウィンドウ幅

%>
<html>
<% '_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
		If GB_IEmode = "1" Then
			'※HttpL3_1にボタンを追加する事前処理（210107小野）
			Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "")
			Response.Write(HttpL3_1("保存", "SubmitCheck()", "行追加", "SpreadAddItem2(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);SetTorihikisakiShijoList(form1.TorihikisakiShijo.value);", "行挿入", "SpreadInsertItem(document.vaSpread1);SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);SetTorihikisakiShijoList(form1.TorihikisakiShijo.value);", "行削除", "SpreadDelItem(document.vaSpread1);", "", ""))
		Else
			'※HttpL3_1にボタンを追加する事前処理（210107小野）
			Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
			Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsertSub();", "行削除", "SpRowDeleteSub();SpSetZandaka();", "行↑", "SpRowShiftSub('Up');SpSetZandaka();", "行↓", "SpRowShiftSub('Dn');SpSetZandaka();"))
		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 %>970<% Else %>450<% End If %>" CELLSPACING="5" CELLPADDING="0" HEIGHT="100%" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF">
				<TR>
					<TD align="CENTER" height="34" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table height="55" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td width="100%" height="25" align="CENTER" valign="MIDDLE">
									<table height="1" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td align="center" class="tx1416">元帳勘定科目
												<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_sokanjyomototyo.asp?KanjyoCD=' + this.value)" style="width:160" class="tbox4">
												<option value="">　　　　</option>
												<%
													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
																TaisyakuKubun = Content.Fields("貸借区分")
																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 %>
					<% If PackageMode = 1 Then %>
					<% Else %>
					<TD width="110" height="30" align="center" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
						<table height="55" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="25" align="CENTER" valign="MIDDLE">
									<table height="35" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td height="20" align="center" class="tx1416">取引先市場
											</td>
										</tr>
										<tr>
											<td align="center" class="tx1416">
												<select size="1" name="TorihikisakiShijo" onChange="SetTorihikisakiShijoList(this.value);" style="width:100px;" class="tbox4">
												<option value="">すべて表示</option>
												<%
													Query = "exec SPM市場一覧 '" & GB_SystemCD & "', '" & EnshuCD & "'"
													Set Content = OpenQuery(Query)
													Do While Not(Content.BOF Or Content.EOF)
														Response.Write("<option value=""" & Content.Fields("市場CD") & """")
														Response.Write(">" & Content.Fields("市場名称"))
														Response.Write("</option>" & vbCrLf)
														Content.MoveNext
													Loop
												%>
												</select>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</TD>
					<% End If %>
					<td>
						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="100%" HEIGHT="55" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
							<tr align="CENTER">
								<td class="tx1416" height="21" valign="bottom">相手勘定科目</td>
							</tr>
							<tr>
								<td onMouseOver="this.focus();this.focus();" 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="0" 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="916" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="704" 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="916" 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><br><br><br><br><br><br><br></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" width="600" 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>
											<!--↓↓↓勘定科目＋勘定科目CD -->
											<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>
											<!--↑↑↑勘定科目＋勘定科目CD -->
										</tr>
									</table>
								</td>
							</tr>

							<TR>
								<TD HEIGHT="16" VALIGN="BOTTOM">
									<TABLE HEIGHT="28" BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
										<TR ALIGN="CENTER">
											<TD WIDTH="<% = WidthCell7 %>" CLASS="br1b1">取引日</TD>
											<TD WIDTH="<% = WidthCell3 %>" CLASS="br1b1">取引先</TD>
											<TD WIDTH="<% = WidthCell4 %>" CLASS="br1b1">明細摘要</TD>
											<TD WIDTH="<% = WidthCell1 + WidthCell5 + 1 %>" CLASS="br1b1">相手勘定科目</TD>
											<TD WIDTH="<% = WidthCell1 %>" CLASS="br3b1">仕丁</TD>
											<TD WIDTH="<% = WidthCell2 %>" CLASS="br3b1">借方金額</TD>
											<TD WIDTH="<% = WidthCell2 %>" CLASS="br3b1">貸方金額</TD>
											<TD WIDTH="<% = WidthCell6 %>" CLASS="br3b1">貸借</TD>
											<TD WIDTH="<% = WidthCell2 %>" CLASS="bb1">残高</TD>
										</TR>
									</TABLE>
								</TD>
							</TR>
							<TR>
								<TD HEIGHT="1" VALIGN="BOTTOM"></TD><!--これがないと見出しのボトムラインが消える-->
							</TR>
							<TR>
								<TD VALIGN="TOP">
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> 
									<TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse">
									<%

	'スプレッドシート定義 ※全行共通なのでループ外
	Dim SpMaxRow
	Dim SpRowCnt
	Dim SpMaxCol
	SpRowCnt = 0
	SpMaxRow = SpRowCnt
	'フォーム名
	SpFormName = "SpCell" '
	'行定義
	SpRowHeight = 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) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(2) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "br1" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
	SpInputChange(2) = "" 'onChangeで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "1" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(3) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "br1" 'セルスタイルclass
	SpCellStyle(3) = "" 'セルスタイル
	SpInputCls(3) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト
	SpInputChange(3) = "" 'onChangeで作動させるスクリプト
	SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(4) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(4) = "br1" 'セルスタイルclass
	SpCellStyle(4) = "" 'セルスタイル
	SpInputCls(4) = "Spread4C" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
	SpInputChange(4) = "" 'onChangeで作動させるスクリプト
	SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(5) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "br1" 'セルスタイルclass
	SpCellStyle(5) = "" 'セルスタイル
	SpInputCls(5) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "" 'onBlurで作動させるスクリプト
	SpInputChange(5) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
	SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
	'列6定義
	SpCellType(6) = "2" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(6) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(6) = "br3" 'セルスタイルclass
	SpCellStyle(6) = "" 'セルスタイル
	SpInputCls(6) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(6) = "" 'onChangeで作動させるスクリプト
	SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
	'列7定義
	SpCellType(7) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(7) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(7) = "br3" 'セルスタイルclass
	SpCellStyle(7) = "" 'セルスタイル
	SpInputCls(7) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(7) = "" 'フォームスタイル
	SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(7) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
	SpInputChange(7) = "" 'onChangeで作動させるスクリプト
	SpInputRO(7) = "" 'フォームreadonlyフラグ("1")
	'列8定義
	SpCellType(8) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(8) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(8) = "br3" 'セルスタイルclass
	SpCellStyle(8) = "" 'セルスタイル
	SpInputCls(8) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(8) = "" 'フォームスタイル
	SpInputFocus(8) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(8) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetZandaka();" 'onBlurで作動させるスクリプト
	SpInputChange(8) = "" 'onChangeで作動させるスクリプト
	SpInputRO(8) = "" 'フォームreadonlyフラグ("1")
	'列9定義
	SpCellType(9) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(9) = WidthCell6 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(9) = "br3" 'セルスタイルclass
	SpCellStyle(9) = "" 'セルスタイル
	SpInputCls(9) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(9) = "" 'フォームスタイル
	SpInputFocus(9) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(9) = "" '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")
	If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
		SpInputCls(10) = "Spread4Rro" 'フォームスタイルclass
		SpInputStyle(10) = "" 'フォームスタイル
		SpInputFocus(10) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(10) = "" 'onBlurで作動させるスクリプト
		SpInputRO(10) = "1" 'フォームreadonlyフラグ("1")
	End If

										Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'"
										Set Content = OpenQuery(Query)
										Do While Not(Content.BOF Or Content.EOF)

										Dim DbTorihikibi, DbShityo, DbKarikataKingaku, DbKashikataKingaku, DbTekiyo, DbTaisyakuKubun, DbZandaka
										Dim DbAiteKanjyo
										Dim DbTekiyoCD
										Dim DbTekiyoMeisyo, DbAiteKanjyoMeisyo

										DbTorihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
										DbShityo = Content.Fields("仕丁")
										DbKarikataKingaku = Content.Fields("借方金額")
										DbKashikataKingaku = Content.Fields("貸方金額")
										DbTekiyo = "" & Content.Fields("摘要")
										DbAiteKanjyo = Content.Fields("相手勘定CD")
										DbTekiyoMeisyo = Content.Fields("摘要会社名称")
										DbAiteKanjyoMeisyo = Content.Fields("相手勘定名称")
										DbTekiyoCD = "" & Content.Fields("摘要CD")

										'小売販売
										If Content.Fields("摘要CD") = "SJ4KOURIHANBAI" Then
											DbTekiyoMeisyo = ConvTekiyoMeisyo(Content.Fields("摘要CD"))
										End If

										Dim Zandaka
										DbTaisyakuKubun = Content.Fields("貸借略名称")
										DbZandaka = Content.Fields("残高")
										Zandaka = DbZandaka
										TaisyakuKubun = DbTaisyakuKubun

										If "" & DbZandaka = "" Then
											If Not(IsNull(DbKarikataKingaku)) Then
												ZandakaTotal = ZandakaTotal + DbKarikataKingaku
													
											End If

											If Not(IsNull(DbKashikataKingaku)) Then
												ZandakaTotal = ZandakaTotal - DbKashikataKingaku
													
											End If
											If ZandakaTotal >= 0 Then 
												TaisyakuKubun = "借"
											Else
												TaisyakuKubun = "貸"
											End If
											Zandaka = Abs(ZandakaTotal)
										End If

										If IsNull(DbKarikataKingaku) or (DbKarikataKingaku="") Then
										Else
											KarikataKingakuTotal = KarikataKingakuTotal + DbKarikataKingaku
											KarikataMonthTotal = KarikataMonthTotal + DbKarikataKingaku
										End If

										If IsNull(DbKashikataKingaku) or (DbKashikataKingaku="") Then
										Else
											KashikataKingakuTotal = KashikataKingakuTotal + DbKashikataKingaku
											KashikataMonthTotal = KashikataMonthTotal + DbKashikataKingaku
										End If

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	If Shiwakebi = "1" Then
		SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
		'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
		If InStr(TmpShiwakebiAry, DbTorihikibi) < 1 Then
			SpInputOption(1) = SpInputOption(1) & "<option value=""" & DbTorihikibi & """ selected>" & DbTorihikibi & "</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) = DbTorihikibi Then
				SpInputOption(1) = SpInputOption(1) & " selected"
			End If
			SpInputOption(1) = SpInputOption(1) & ">" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf
		Next
	Else
		SpInputValue(1) = DbTorihikibi 'フォーム初期値
	End If
'	SpInputValue(2) = DbTekiyoMeisyo 'フォーム初期値
	SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TorihikisakiMeishoAry)
		SpInputOption(2) = SpInputOption(2) & "<option value=""" & TorihikisakiMeishoAry(Cnt) & """"
		If TorihikisakiMeishoAry(Cnt) = DbTekiyoMeisyo Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">" & TorihikisakiMeishoAry(Cnt) & "</option>"' & vbCrLf
	Next
	If KouriHanbai > 0 Then
		SpInputOption(2) = SpInputOption(2) & "<option value=""" & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & """"
		If ConvTekiyoMeisyo("SJ4KOURIHANBAI") = DbTekiyoMeisyo Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">" & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & "</option>"' & vbCrLf
	End If
	SpInputValue(3) = DbTekiyo 'フォーム初期値
	SpInputValue(4) = DbAiteKanjyo 'フォーム初期値
'	SpInputValue(5) = DbAiteKanjyoMeisyo 'フォーム初期値
	SpInputOption(5) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(5) = SpInputOption(5) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(KamokuCDAry)
		If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
			SpInputOption(5) = SpInputOption(5) & "<option value=""" & KamokuCDAry(Cnt) & """"
			If KamokuMeiAry(Cnt) = DbAiteKanjyoMeisyo Then
				SpInputOption(5) = SpInputOption(5) & " selected"
			End If
			SpInputOption(5) = SpInputOption(5) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
		End If
	Next
	SpInputValue(6) = DbShityo 'フォーム初期値
	SpInputValue(7) = ConvIntToMoney(DbKarikataKingaku, false, true) 'フォーム初期値
	SpInputValue(8) = ConvIntToMoney(DbKashikataKingaku, false, true) 'フォーム初期値
'	SpInputValue(9) = TaisyakuKubun 'フォーム初期値
	SpInputOption(9) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(9) = SpInputOption(9) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(9) = SpInputOption(9) & "<option value=""借"""
	If TaisyakuKubun = "借" Then
		SpInputOption(9) = SpInputOption(9) & " selected"
	End If
	SpInputOption(9) = SpInputOption(9) & ">借</option>"' & vbCrLf
	SpInputOption(9) = SpInputOption(9) & "<option value=""貸"""
	If TaisyakuKubun = "貸" Then
		SpInputOption(9) = SpInputOption(9) & " selected"
	End If
	SpInputOption(9) = SpInputOption(9) & ">貸</option>"' & vbCrLf
	SpInputValue(10) = ConvIntToMoney(Zandaka, 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"">" & DbTorihikibi & "</TD>" & vbCrLf)
										'Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"" CLASS=""br1"">" & DbTekiyoMeisyo & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"" CLASS=""br1""><span style=""width:" & WidthCell3 & "px; height:14px; overflow:hidden"">" & HardWrap(DbTekiyoMeisyo) & "</span></TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell4 & """ ALIGN=""LEFT"" CLASS=""br1""><span style=""width:" & WidthCell4 & "px; height:14px; overflow:hidden"">" & HardWrap(DbTekiyo) & "</span></TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br1"">" & DbAiteKanjyo & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell5 & """ ALIGN=""LEFT"" CLASS=""br1"">" & DbAiteKanjyoMeisyo & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""CENTER"" CLASS=""br3"">" & DbShityo & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(DbKarikataKingaku, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" CLASS=""br3"">" & ConvIntToMoney(DbKashikataKingaku, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell6 & """ ALIGN=""CENTER"" CLASS=""br3"">" & TaisyakuKubun & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" CLASS=""b0"">" & ConvIntToMoney(Zandaka, false, false) & "</TD>" & vbCrLf)
										Response.Write("</TR>")
End If

										Content.MoveNext
									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
	SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TorihikisakiMeishoAry)
		SpInputOption(2) = SpInputOption(2) & "<option value=""" & TorihikisakiMeishoAry(Cnt) & """>" & TorihikisakiMeishoAry(Cnt) & "</option>"' & vbCrLf
	Next
	If KouriHanbai > 0 Then
		SpInputOption(2) = SpInputOption(2) & "<option value=""" & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & """>" & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & "</option>"' & vbCrLf
	End If
	SpInputValue(3) = "" 'フォーム初期値
	SpInputValue(4) = "" 'フォーム初期値
	SpInputOption(5) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(5) = SpInputOption(5) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(KamokuCDAry)
		If KamokuCDAry(Cnt) <> KanjyoCD Then '現在の科目を除外
			SpInputOption(5) = SpInputOption(5) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
		End If
	Next
	SpInputValue(6) = "" 'フォーム初期値
	SpInputValue(7) = "" 'フォーム初期値
	SpInputValue(8) = "" 'フォーム初期値
	SpInputOption(9) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(9) = SpInputOption(9) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(9) = SpInputOption(9) & "<option value=""借"">借</option>"' & vbCrLf
	SpInputOption(9) = SpInputOption(9) & "<option value=""貸"">貸</option>"' & vbCrLf
	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></span>
								</td>
							</tr>
							<% End If %>
						</TABLE>
<% End If %>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>

</body>



<SCRIPT LANGUAGE="JavaScript">
//↓ブラウザ不問の共通関数

	var PlusCelNo, MinusCelNo, TaisyakuCelNo, TotalCelNo;
<% If TaisyakuKubun = "D" Then %>
	//貸借区分に従う処理（100215廃止）
	PlusCelNo = 7;
	MinusCelNo = 8;
<% Else %>
	//貸借区分に従う処理（100215廃止）
	PlusCelNo = 8;
	MinusCelNo = 7;
<% End If %>
	//残高貸借に従う処理（100215復活）
	PlusCelNo = 7;
	MinusCelNo = 8;

	TaisyakuCelNo = 9;
	TotalCelNo = 10;


	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_sokanjyomototyo.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 SpSetZandaka() {
		<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
//alert("残高自動設定");
		Zandaka = 0;
//		for (jj = 1; jj <= 2; jj++) {
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
//alert(form1["SpCell" + jj + "_3"].value);
			ErrFlg = 0;
			if (form1[Target + PlusCelNo].value != "") { //収入
				Zandaka = Zandaka + Math.floor(ConvMoneyToInt(form1[Target + PlusCelNo].value));
			} else {
				ErrFlg = 1;
			}
			if (form1[Target + MinusCelNo].value != "") { //支出
				Zandaka = Zandaka - Math.floor(ConvMoneyToInt(form1[Target + MinusCelNo].value));
			} else if (ErrFlg == 1) {
				ErrFlg = 2;
			}
			form1[Target + TotalCelNo].value = "";
			if (ErrFlg < 2) {
				TmpZandaka = Zandaka;
				if (TmpZandaka < 0) {
					TmpZandaka = TmpZandaka * -1;
				}
				form1[Target + TotalCelNo].value = NumComma(TmpZandaka, false); //NumCommaはマイナスを許容＆文字列引数で動作する
//				FormStrFloatEdge(form1[Target + TotalCelNo],10,0,true);
			}
		}
//alert(tmp);
		<% End If %>
	}


	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() {
	//プルダウンの内容をスライドするため一旦相手勘定・取引先市場の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
	<% If PackageMode <> 1 Then %>
		TmpTorihikisakiShijo = form1.TorihikisakiShijo.value;
	<% End If %>
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList("");
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行挿入
		SpRowInsert();
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList(TmpKanjoSaimoku);
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	function SpRowDeleteSub() {
	//プルダウンの内容をスライドするため一旦相手勘定・取引先市場の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
	<% If PackageMode <> 1 Then %>
		TmpTorihikisakiShijo = form1.TorihikisakiShijo.value;
	<% End If %>
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList("");
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行削除
		SpRowDelete();
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList(TmpKanjoSaimoku);
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	function SpRowShiftSub(UpDown) {
	//プルダウンの内容をスライドするため一旦相手勘定・取引先市場の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
	<% If PackageMode <> 1 Then %>
		TmpTorihikisakiShijo = form1.TorihikisakiShijo.value;
	<% End If %>
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList("");
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行入れ替え
		SpRowShift(UpDown);
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetAiteKanjyoKamokuList(TmpKanjoSaimoku);
		}
	<% If PackageMode <> 1 Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	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) {
		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++) {
			Target = "<% = SpFormName %>" + ii + "_5";
			elm = document.getElementsByName(Target)[0];
			//現在選択されている科目を保持する
			TmpValue = elm.options[elm.selectedIndex].value;
			SetAiteKamokuList(elm, TmpValue);
		}
	}


	function SetTorihikisakiShijoList(ShijoCD) {
		for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
			Target = "<% = SpFormName %>" + ii + "_2";
			elm = document.getElementsByName(Target)[0];
			//現在選択されている摘要を保持する
			TmpValue = elm.options[elm.selectedIndex].value;
			//プルダウン項目を全クリア
			do {
				elm.options[0] = null;
			} while (elm.length != 0)
			Idx = 0;
			if (TmpValue != "") {
				//先頭項目に追加
				elm.options[Idx] = new Option(TmpValue, TmpValue);
				Idx = Idx + 1;
			}
			elm.options[Idx] = new Option("", ""); //空白項目
			Idx = Idx + 1;
<%
	PreShijoCD = ""
	Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く（ループ内で常に閉じてから開くためのダミー）
	For Cnt = 1 To UBound(TorihikisakiMeishoAry)
		If PreShijoCD <> TorihikisakiShijoAry(Cnt) Then
			'勘定科目が変わったらネストを閉じて開く
			Response.Write("}" & vbCrLf)
			Response.Write("if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(Cnt) & """) {" & vbCrLf)
			PreShijoCD = TorihikisakiShijoAry(Cnt)
		End If
		Response.Write("elm.options[Idx] = new Option(""" &  TorihikisakiMeishoAry(Cnt) & """, """ & TorihikisakiMeishoAry(Cnt) & """);")
		Response.Write("Idx = Idx + 1;" & vbCrLf)
	Next
	Response.Write("}" & vbCrLf) '最後のネストを閉じる
	If KouriHanbai > 0 Then
		Response.Write("elm.options[Idx] = new Option(""" &  ConvTekiyoMeisyo("SJ4KOURIHANBAI") & """, """ & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & """);")
		Response.Write("Idx = Idx + 1;" & vbCrLf)
	End If
%>
//			elm.selectedIndex = 0; //常に先頭行を選択する
			elm.value = TmpValue; //該当項目を選択
		}
	}


	function SubmitCheck() {
		var TaishakuErr = false; //科目貸借と合わない行がある場合に警告を表示するフラグ（120702小野）
		var Zandaka, PlusMinus;
		var ZandakaJidoFlg;
		Zandaka = 0;
		ZandakaJidoFlg = 0;
		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 == 4 && 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;
					}
				}
			<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
				//残高自動設定
				if(ii == TotalCelNo && ZandakaJidoFlg == 1) { //ZandakaJidoFlgは最初は0なので貸借チェックするまでは処理されない
					//残高貸借に従う処理
					if (Zandaka < 0) {
						form1[Target + TotalCelNo].value = NumComma((Zandaka * -1), false); //NumCommaはマイナスを許容＆文字列引数で動作する
					} else {
						form1[Target + TotalCelNo].value = NumComma(Zandaka, false); //NumCommaはマイナスを許容＆文字列引数で動作する
					}
				}
			<% End If %>
				var Text1;
				Text1 = form1[Target + ii].value;
				//通貨のカンマ区切りを外す
				if (ii == PlusCelNo || ii == MinusCelNo || ii == TotalCelNo) {
					Text1 = ReplaceStr(Text1, ",", "")
				}
				//文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理（070201小野）
				Text1 = ReplaceStr(Text1, ",", "CommammoC")
				Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
				RowText = RowText + Text1;
				RowText = RowText + ",";
				bCheck[ii] = 0;
				if (Text1 == "") {
					bCheck[ii] = 1;
				}
				////////残高チェックここから
				if (Text1 != "") {
					ZandakaJidoFlg = 1;
					if (ii == PlusCelNo) {
						Zandaka = Zandaka + Math.floor(Text1);
					} else if (ii == MinusCelNo) {
						Zandaka = Zandaka - Math.floor(Text1);
					} else if (ii == TaisyakuCelNo) {
//alert(Text1);
//return false;
						//残高貸借に従う処理（100215復活）
						PlusMinus = 0;
						if (Text1 == "借") {
							PlusMinus = 1;
						} else if (Text1 == "貸") {
							PlusMinus = -1;
						}
					}
					if (ii == TotalCelNo) {
						//残高貸借に従う処理（100215復活）
						if (Zandaka != Math.floor(Text1) * PlusMinus) {
						<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
							alert("残高の貸借が合っていません　");
							form1[Target + (ii = 1)].focus();
						<% Else %>
							alert("貸借または残高が合っていません　");
							form1[Target + ii].focus();
						<% End If %>
							return;
						}
					}
				} else {
					ZandakaJidoFlg = 0;
				}
				////////残高チェックここまで
			}
			if (ReplaceStr(RowText, ",", "") != "") {
				RowText = form1.KanjyoCD.value + "," + RowText;
				if (bCheck[1] == 0 || bCheck[2] == 0 || bCheck[3] == 0 || bCheck[4] == 0 || bCheck[5] == 0 || bCheck[6] == 0 || bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0 || bCheck[10] == 0) { //入力が存在する
					if (bCheck[1] == 1) {
						alert("取引日を入力してください");
						form1[Target + 1].focus();
						return;
					}
					if (bCheck[PlusCelNo] == 1 && bCheck[MinusCelNo] == 1) {
						alert("借方金額もしくは貸方金額を入力してください");
						form1[Target + PlusCelNo].focus();
						return;
					}
					if (bCheck[TaisyakuCelNo] == 1) {
						alert("残高の貸借を選択してください");
						form1[Target + TaisyakuCelNo].focus();
						return;
					}
					if (bCheck[TotalCelNo] == 1) {
						alert("残高を入力してください");
						form1[Target + TotalCelNo].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 KanjyoCDCol
	KanjyoCDCol = 4
%>

<SCRIPT LANGUAGE="JavaScript">


	function SubmitCheck() {

		var TaishakuErr = false; //科目貸借と合わない行がある場合に警告を表示するフラグ（120702小野）

		var Zandaka, PlusMinus;
		var ZandakaJidoFlg;
		Zandaka = 0;
		ZandakaJidoFlg = 0;

		if (KanjyoCDCheck(form1.TmpKanjyoCD.value) == form1.TmpKanjyoCD.value) {	//勘定CDチェック（061201小野）

			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 == <% = KanjyoCDCol %> && 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;
						}
					}

				<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
					//残高自動設定
					if(ii == TotalCelNo && ZandakaJidoFlg == 1) {	//ZandakaJidoFlgは最初は0なので貸借チェックするまでは処理されない
						//貸借区分に従う処理（100215廃止）
//						document.vaSpread1.Text = Zandaka;
						//残高貸借に従う処理（100215復活）
						if (Zandaka < 0 ) {
							document.vaSpread1.Text = Zandaka * -1;
						} else {
							document.vaSpread1.Text = Zandaka
						}
					}
				<% End If %>

					var Text1;
					Text1 = document.vaSpread1.Text;

					//文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理（070201小野）
					if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 18 || document.vaSpread1.ColID == 21 || document.vaSpread1.ColID == 22 || document.vaSpread1.ColID == 44) {
						Text1 = ReplaceStr(Text1, ",", "CommammoC")
						Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
					}

					//通貨型からカンマを除外
					if(document.vaSpread1.ColID == 12) {
						Text1 = ReplaceStr(Text1, ",", "")
					}

					RowText = RowText + Text1;
					RowText = RowText + ",";

					bCheck[ii] = 0;

					if (ii == PlusCelNo || ii == MinusCelNo) {	//金額のゼロは未入力扱いにする
						if (Text1 == "" || Text1 == 0) {
							bCheck[ii] = 1;
						}
					} else {
						if (Text1 == "") {
							bCheck[ii] = 1;
						}
					}

					////////残高チェックここから
					if(Text1 != "") {
						ZandakaJidoFlg = 1;
						if(ii == PlusCelNo) {
							Zandaka = Zandaka + Math.floor(Text1);
						} else if(ii == MinusCelNo) {
							Zandaka = Zandaka - Math.floor(Text1);
						} else if(ii == TaisyakuCelNo) {
							//貸借区分に従う処理（100215廃止）
						<% If TaisyakuKubun = "D" Then %>
//							if (document.vaSpread1.Text != "借") {
//								alert('貸借が合っていません');
//								document.vaSpread1.SetActiveCell(ii, jj);
//								document.vaSpread1.focus();
//								document.vaSpread1.EditMode = true;
//								return;
//							}
						<% Else %>
//							if (document.vaSpread1.Text != "貸") {
//								alert('貸借が合っていません');
//								document.vaSpread1.SetActiveCell(ii, jj);
//								document.vaSpread1.focus();
//								document.vaSpread1.EditMode = true;
//								return;
//							}
						<% End If %>
							//貸借区分に従う処理（120702）※警告のみを表示する処理（ここではフラグのみ）※貸借警告は廃止151207
						<% If TaisyakuKubun = "D" Then %>
							if (document.vaSpread1.Text != "借") {
								TaishakuErr = true;
							}
						<% Else %>
							if (document.vaSpread1.Text != "貸") {
								TaishakuErr = true;
							}
						<% End If %>
							//残高貸借に従う処理（100215復活）
							PlusMinus = 0;
							if (Text1 == "借") {
								PlusMinus = 1;
							} else if (Text1 == "貸") {
								PlusMinus = -1;
							}
						}
						if (ii == TotalCelNo) {
							//貸借区分に従う処理（100215廃止）
//							if (Zandaka != Math.floor(Text1)) {
							//残高貸借に従う処理（100215復活）
							if (Zandaka != Math.floor(Text1) * PlusMinus) {
							<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
								alert("残高の貸借が合っていません　");
								document.vaSpread1.SetActiveCell(ii-1, jj);
							<% Else %>
								alert("貸借または残高が合っていません　");
								document.vaSpread1.SetActiveCell(ii, jj);
							<% End If %>
								document.vaSpread1.focus();
								document.vaSpread1.EditMode = true;
								return;
							}
						}
					} else {
						ZandakaJidoFlg = 0;
					}
					////////残高チェックここまで
				}

				if(ReplaceStr(RowText, ",", "") != "") {
					if (bCheck[1] == 1 && bCheck[2] == 1 && bCheck[3] == 1 && bCheck[4] == 1 && bCheck[5] == 1 && bCheck[6] == 1 && bCheck[7] == 1 && bCheck[8] == 1 && bCheck[9] == 1 && bCheck[10] == 1) {	//0入力のみでもヒットしてしまうのでここで除外
					} else {
						RowText = form1.KanjyoCD.value + "," + RowText;
						if(bCheck[1] == 1) {
							alert("取引日を入力してください");
							document.vaSpread1.SetActiveCell(1, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(bCheck[7] == 1 && bCheck[8] == 1) {
							alert("借方金額もしくは貸方金額を入力してください");
							document.vaSpread1.SetActiveCell(7, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(bCheck[9] == 1) {
							alert("貸借を選択してください");
							document.vaSpread1.SetActiveCell(9, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(bCheck[10] == 1) {
							alert("残高を入力してください");
							document.vaSpread1.SetActiveCell(10, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						form1.SendValue.value = form1.SendValue.value + RowText + ";"
					}
				}

			}
			if (TaishakuErr) {
//				if (!confirm("残高貸借が科目貸借と合っていない行がありますがよろしいですか？　\n「<% = ConvKanjyoMeisyoDx(GB_SystemCD, EnshuCD, KanjyoCD) %>」の科目貸借：<% If TaisyakuKubun = "D" Then %>借<% Else %>貸<% End If %>方　\n\n※残高貸借が科目貸借と合わなくても間違いではない場合もあります　")) {
//					return false;
//				}
			}
			SubmitReal(form1);
			return true;
		}
	}


	//相手勘定細目ボタン
	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.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 %>')";

		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 = <% = KanjyoCDCol + 1 %>;
		for(i=1; i<= document.vaSpread1.MaxRows; i++)
		{
			document.vaSpread1.Row = i;
			if(document.vaSpread1.Text == "")
			{
//				document.vaSpread1.TypeComboBoxList = "\t" + listout;
				document.vaSpread1.TypeComboBoxList = listout;
			}
			else
			{
				document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
			}
		}
		document.vaSpread1.Redraw = true;
		return false;
	}


	function SetTorihikisakiShijoList(ShijoCD) {	//取引先メニューを選択市場で絞込む（080929小野）
		var ii;
		var Idx;
		Idx = 0;
		var listout;
		listout = "";
		document.vaSpread1.Redraw = false;
<%
	Dim PreShijoCD
	PreShijoCD = ""
	Response.Write("		if (1 == 0) {" & vbCrLf)	'1行目のダミーネスト
	For ii = 1 To UBound(TorihikisakiMeishoAry)
		If TorihikisakiShijoAry(ii) <> PreShijoCD Then
			Response.Write("		}" & vbCrLf)	'上にダミーネストを設けてあるので1行目から閉じてOK
			PreShijoCD = TorihikisakiShijoAry(ii)
			Response.Write("		if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(ii) & """) {" & vbCrLf)
		End If
'		Response.Write("			if (listout != """") listout = listout + ""\t"";" & vbCrLf)
		Response.Write("			listout = listout + ""\t"";" & vbCrLf)
		Response.Write("			listout = listout + """ & TorihikisakiMeishoAry(ii) & """;" & vbCrLf)
	Next
	Response.Write("		}" & vbCrLf)	'最終行のネストを閉じる
	If KouriHanbai > 0 Then
		Response.Write("		if (listout != """") listout = listout + ""\t"";" & vbCrLf)
		Response.Write("		listout = listout + """ & ConvTekiyoMeisyo("SJ4KOURIHANBAI") & """;" & vbCrLf)
	End If
%>
		document.vaSpread1.Col = 2;
		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

	'全取引先メニュー文字列作成（初期表示用）
	Dim TekiyoList
	TekiyoList = ""
	For ii = 1 To UBound(TorihikisakiMeishoAry)
'		If TekiyoList <> "" Then
			TekiyoList = TekiyoList & "\t"
'		End If
		TekiyoList = TekiyoList & TorihikisakiMeishoAry(ii)
	Next
	If KouriHanbai > 0 Then
		TekiyoList = TekiyoList & "\t"
		TekiyoList = TekiyoList & ConvTekiyoMeisyo("SJ4KOURIHANBAI")
	End If
%>


	function SpreadInit(fpSpread) {
		fpSpread.MaxRows = 0;
<%
		Dim Query
		Dim Content
		Dim ii
		ii = 0

		Query = "exec SPK帳簿_総勘定元帳取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & KanjyoCD & "'"
		Set Content = OpenQuery(Query)

		'選択行の色を変える動作を停止（090624小野）
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
		ii = ii + 1
			Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("		fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("		fpSpread.Col = 1;" & vbCrLf)
			'仕訳日選択モード
			If Shiwakebi = "1" Then
				'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
				If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(Content.Fields("取引日"))) < 1 Then
					Response.Write("		fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
				End If
			End If
			Response.Write("		fpSpread.Text = """ & SetTimeYYYYMMDD(Content.Fields("取引日")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 6;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Content.Fields("仕丁") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvTekiyoMeisyoDx(EnshuCD, KaisyaCD, Content.Fields("摘要CD")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Replace(Replace(Content.Fields("摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 4;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Content.Fields("相手勘定CD") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 5;" & vbCrLf)
			'元帳勘定科目と同一の相手勘定科目はメニューから除外されるが
			'すでに保存されてしまっている同一科目は表示する必要があるので追加する（100523小野）
			If Content.Fields("相手勘定CD") = KanjyoCD Then
				Response.Write("		document.vaSpread1.TypeComboBoxList = """ & Content.Fields("相手勘定名称") & "\t" & ListText & """;" & vbCrLf)
			End If
			Response.Write("		fpSpread.Text = """ & Content.Fields("相手勘定名称") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 7;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("借方金額"), false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 8;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸方金額"), false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 9;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvKubunMeisyo("貸借略区分", Content.Fields("貸借区分")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 10;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("残高"), false ,false) & """;" & vbCrLf)

			Response.Write("		fpSpread.Col = 0;" & vbCrLf)
			Response.Write("		fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop

		'空白行を5行追加し1行目を選択状態にする（080620小野）
		ii = ii + 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, " & ii & ");" & vbCrLf)
		Response.Write("		fpSpread.EditMode=true;" & vbCrLf)
		'選択行の色を変える動作を再開（090624小野）
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);" & vbCrLf)	'選択行の色を変える（090624小野）

%>
	}


	function SpreadKeyDown2(fpSpread, KeyAsciiCode, KeyShift)
	{
		if (KeyAsciiCode == 9) {
			if(KeyShift == 0)
			{
				var bFlg;
				bFlg = 0;
				if(fpSpread.OperationMode != 2)
				{
					if(fpSpread.ActiveRow == fpSpread.MaxRows)
					{
						if(fpSpread.ActiveCol == fpSpread.MaxCols)
						{
							bFlg = 1;
						}
						if(fpSpread.ActiveCol == fpSpread.MaxCols - 1 && fpSpread.ColWidth(fpSpread.MaxCols) == 0)
						{
							bFlg = 1;
						}
					}
				}
				if(bFlg == 1)
				{
					SpreadAddItem(fpSpread);
				}
			}
			SpreadActive(fpSpread);
		}
		else if(KeyAsciiCode == 113)	//F2
		{
			fpSpread.Col = fpSpread.ActiveCol;
			fpSpread.Row = fpSpread.ActiveRow;
			fpSpread.EditMode = true;
		}
		else if(KeyAsciiCode == 46)		//DEL
		{
			if(fpSpread.EditMode == false)
			{
				fpSpread.Col = fpSpread.ActiveCol;
				fpSpread.Row = fpSpread.ActiveRow;
				if(fpSpread.CellType == 12)
				{
					fpSpread.TypeCurrencyLeadingZero = 1;
				}
				fpSpread.Text = "";
				fpSpread.EditMode = true;
			}
		}
//		else if((KeyAsciiCode >= 47 && KeyAsciiCode <= 111) || (KeyAsciiCode >= 185 && KeyAsciiCode <= 227)) 	//数値文字などの入力
//		{
//			if(fpSpread.EditMode == false)
//			{
//				fpSpread.Col = fpSpread.ActiveCol;
//				fpSpread.Row = fpSpread.ActiveRow;
//				fpSpread.EditMode = true;
//				fpSpread.Text = "1";
//			}
//		}
	}

	function SpreadEditModeAuto() {
		document.vaSpread1.Col = document.vaSpread1.ActiveCol;
		document.vaSpread1.Row = document.vaSpread1.ActiveRow;
		document.vaSpread1.EditMode = true;
	}


</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:摘要 44:摘要100byte
	document.vaSpread1.Redraw = false;
	<% If Shiwakebi = "1" Then %>
	//仕訳日選択モード
	SpreadLoad(document.vaSpread1, "取引日", 8, 12.5, "取引先", 8, 12, "明細摘要", 44, 12, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "借方金額", 12, 12, "貸方金額", 12, 12, "貸借", 8, 4.2, "残高", 12, 12);
	<% Else %>
	SpreadLoad(document.vaSpread1, "取引日", 0, 10.5, "取引先", 8, 12, "明細摘要", 44, 14, "勘定CD", 21, 6, "勘定名称", 8, 20, "仕丁", 21, 6, "借方金額", 12, 12, "貸方金額", 12, 12, "貸借", 8, 4.2, "残高", 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 %>"
	<% End If %>

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 9;
	document.vaSpread1.TypeComboBoxList = "\t借\t貸"

	var SpreadHeader;
	SpreadHeader = -1000;
	document.vaSpread1.AddCellSpan(<% = KanjyoCDCol %>, SpreadHeader, 2, 2);
	document.vaSpread1.Row = SpreadHeader;
	document.vaSpread1.Col = <% = KanjyoCDCol %>;
	document.vaSpread1.Text = "相手勘定科目";

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = <% = KanjyoCDCol + 1 %>;
	document.vaSpread1.TypeComboBoxList = "<% = ListText %>";

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 2;
	document.vaSpread1.TypeComboBoxList = "<% = TekiyoList %>";

//残高自動設定
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 10;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;
<% End If %>

	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 == <% = KanjyoCDCol %>) {
			var tmp;
			obj.Col = <% = KanjyoCDCol %>;
			obj.Row = RowNo;
			tmp = "" + obj.value;
			tmp = ConvKanjyoMeisyo(tmp);
			obj.Col = <% = KanjyoCDCol + 1 %>;
			obj.Row = RowNo;
			obj.TypeComboBoxRemoveItem(<% = KanjyoCDCol + 1 %>, RowNo, 0);
			obj.TypeComboBoxIndex = 0;
			obj.TypeComboBoxString = tmp;
			obj.Text = tmp;
			//相手勘定科目メニューの一列目が上書きされてしまうのでここでメニューを更新する（080929小野）
			SetAiteKanjyoKamokuList(KanjyoMeisaiSelected);
		}
		else if(ColNo == <% = KanjyoCDCol + 1%>)
		{
			var tmp;
			obj.Col = <% = KanjyoCDCol + 1 %>;
			obj.Row = RowNo;
			tmp = ConvRevKanjyoMeisyo(obj.Text);
			obj.Col = <% = KanjyoCDCol %>;
			obj.Row = RowNo;
			obj.value = tmp;
		}
		<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
		//残高自動設定（080703小野）
		tmp = 0;
		for (jj = 1; jj <= obj.MaxRows; jj++) {
			ErrFlg = 0;
			obj.Row = jj;
			obj.Col = PlusCelNo;
			if ('' + obj.Text != '') {
				tmp = tmp + Math.floor(ConvMoneyToInt(obj.Text));
			} else {
				ErrFlg = 1;
			}
			obj.Col = MinusCelNo;
			if ('' + obj.Text != '') {
				tmp = tmp - Math.floor(ConvMoneyToInt(obj.Text));
			} else if (ErrFlg == 1) {
				ErrFlg = 2;
			}
			if (ErrFlg < 2) {
				obj.Col = TotalCelNo;
				//貸借区分に従う処理（100215廃止）
//				obj.Text = tmp;
				//残高貸借に従う処理（100215復活）
				if (tmp < 0 ) {
					obj.Text = tmp * -1;
				} else {
					obj.Text = tmp;
				}
			}
		}
		<% End If %>
	}


	//スプレッドシート行移動（210107小野）
	function SpreadShiftRowSub(obj, Mode) {
		if (SpreadShiftRow(obj, Mode)) { //includesj.js
			//勘定科目名はSetRenewCellが必要
			var KanjoCDCol = 3; //勘定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);
			}
		}
	}

</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;
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	if(this.CellType == 12) {
		if(!Mode) {
			this.TypeCurrencyLeadingZero = 2;
		}
	}
	SpreadRowColor(this);	//選択行の色を変える（090624小野）
	this.focus();
</SCRIPT>



<% End If %>



<% = HtmlFooter %>
</html>
<%
End Sub
%>