<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	:精算表整理記入
'	作成日:2002/8/27
'	作成者:山崎
'	目的 :精算表整理記入を表示する。
'	概要	:
'	 <<表示>>
'	・精算表整理記入の画面
'################################################
'-->
'
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt


	Dim RouteType
	RouteType = Request("RouteType")

	'振替記入にトグルするためのフラグ(081021小野)
	Dim Kimatsu
	Kimatsu = Request("Kimatsu")

	Dim PageType
	Dim Label
	PageType = "精算表整理記入"
	Label = "整理"
	If Kimatsu = "Kurikoshi" Then
		PageType = "精算表振替記入"
		Label = "振替"
	End If

	Dim Kaishibi
	Dim Syuryobi

	Kaishibi = Request("Kaishibi")
	Syuryobi = Request("Syuryobi")

	If Kaishibi = "" Then
		Kaishibi = GB_KaikeiKaishibi
	End If
	IF Syuryobi = "" Then
		Syuryobi = GB_KaikeiSyuryobi
	End If


	'勘定科目一覧を配列化
	Dim KamokuCDAry
	Dim KamokuMeiAry
	Dim KamokuSaimokuAry
	Dim KamokuKubunAry
	ReDim KamokuCDAry(0)
	ReDim KamokuMeiAry(0)
	ReDim KamokuSaimokuAry(0)
	ReDim KamokuKubunAry(0)
	Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe KamokuCDAry(UBound(KamokuCDAry) + 1) '配列+1
		ReDim PreServe KamokuMeiAry(UBound(KamokuMeiAry) + 1) '配列+1
		ReDim PreServe KamokuSaimokuAry(UBound(KamokuSaimokuAry) + 1) '配列+1
		ReDim PreServe KamokuKubunAry(UBound(KamokuKubunAry) + 1) '配列+1
		KamokuCDAry(UBound(KamokuCDAry)) = "" & Content.Fields("勘定CD")
		KamokuMeiAry(UBound(KamokuMeiAry)) = "" & Content.Fields("勘定名称")
		KamokuSaimokuAry(UBound(KamokuSaimokuAry)) = "" & Content.Fields("勘定細目")
		KamokuKubunAry(UBound(KamokuKubunAry)) = "" & Content.Fields("勘定区分")
		Content.MoveNext
	Loop


	Dim PreKanjyoMeisai

%>
<html>
<% = HtmlHeader("sj3tyobored11") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	method="POST" action="fk_seisanhyo_bin.asp" name="form1" autocomplete="off">
<input type="hidden" name="Kimatsu" value="<% = Kimatsu %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue" value="">
<%
	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HtmlDesign(2))
	Else
		Response.Write(HtmlDesign(1))
	End If

	Response.Write(HttpL1(3))

	If InStr(RouteType, "HojyoboOnly") > 0 Then
		Response.Write(HttpL2("補助簿ウィンドウ" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp?RouteType=" & RouteType & "')", PageType, "", "", "", "", "","", "", "", ""))
	ElseIf PackageMode = 1 Then
		Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", PageType, "", "", "", "", "", "", "", "", ""))
	'ElseIf RouteType = "Ginko" Then
	ElseIf GB_Gyosyu = "B" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_b1.asp')", PageType, "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", PageType, "", "", "", "", ""))
	End If
	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If GB_IEmode = "1" Then
		If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then
			Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", ""))
		Else
			Response.Write(HttpL3_1("行の追加", "SpreadAddItem3(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の挿入", "SpreadInsertItem2(document.vaSpread1);SetKanjyoKamokuList(KanjyoMeisaiSelected);", "行の削除", "SpreadDelItem2(document.vaSpread1);", "", "", "", ""))
		End If
	Else
		If GetEnshuParam(EnshuCD, "整理記入精算表利用") = "1" Then
			Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
		Else
			Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
		End If
	End If

	Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(PageType, ""))
%>

<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td HEIGHT="40" align="center" valign="middle">

			<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" BGCOLOR="#FFFFFF" STYLE="BORDER:1px solid #000000" WIDTH="680" HEIGHT="100%">
				<tr align="CENTER">
					<td height="32" onMouseOver="this.focus();this.focus();">	<!-- 勘定科目ボタン部分マウスオーバーでスプレッドシートオフフォーカス(061218小野)-->
						<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" BGCOLOR="#FFFFFF" WIDTH="680" HEIGHT="100%" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>">
							<tr align="CENTER">
								<td height="32">&nbsp;</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('A');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDAL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDAC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>資産</TD>
											<TD id="TDAR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('B');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDBL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDBC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>負債</TD>
											<TD id="TDBR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('C');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDCL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDCC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap><% If MHMKANJOSAIMOKC <> "" Then Response.Write(MHMKANJOSAIMOKC) Else Response.Write("資本") End If %></TD>
											<TD id="TDCR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('D');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>収益</TD>
											<TD id="TDDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('E');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDEL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDEC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>費用</TD>
											<TD id="TDER" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('F');" BGCOLOR="#33CCFF" CLASS="tbtn1">
										<TR>
											<TD id="TDFL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDFC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>営業外損益</TD>
											<TD id="TDFR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('G');" BGCOLOR="#33CCFF" CLASS="tbtn1">
										<TR>
											<TD id="TDGL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDGC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>特別損益</TD>
											<TD id="TDGR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('H');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDHL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>"></TD>
											<TD id="TDHC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>" nowrap>その他</TD>
											<TD id="TDHR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetKanjyoKamokuList('');" BGCOLOR="#33CCFF" CLASS="tbtn1" WIDTH="70">
										<TR>
											<TD id="TDL" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>"></TD>
											<TD id="TDC" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>" nowrap>全勘定</TD>
											<TD id="TDR" WIDTH="9" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>"></TD>
										</TR>
									</TABLE>
								</td>
								<td height="32">&nbsp;</td>
							</tr>
						</TABLE>
					</td>
				</tr>
			</TABLE>
		</td>
	</tr>
	<tr>
		<td align="center" valign="middle">
			<table width="680" height="100%" border="0" cellspacing="5" cellpadding="10" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center"<% If GB_IEmode = "1" Then %> background="/<% = HomeAlias %>/images/window_bk.gif?<% = GB_STU %>"<% End If %>>
						<table width="600" height="100%" border="0" cellspacing="0" cellpadding="0">
<% If GB_IEmode = "1" Then %>
							<tr>
								<td valign="middle">
									<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
										<param name="lpkpath" value="spread6.lpk">
									</object>
									<object width="908" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5"	codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
									</object>
								</td>
							</tr>
							<tr>
								<td height="49">
									<object width="908" height="100%" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5"	codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread2" border="0">
									</object>
								</td>
							</tr>
<% Else %>
<%

	Dim ShisanhyoKarikataGokei, ShisanhyoKashikataGokei
	Dim SyuseikinyuKarikataGokei, SyuseikinyuKashikataGokei
	Dim SonekikeisansyoKarikataGokei, SonekikeisansyoKashikataGokei
	Dim TaisyakutaisyohyoKarikataGokei, TaisyakutaisyohyoKashikataGokei

	ShisanhyoKarikataGokei = 0
	ShisanhyoKashikataGokei = 0
	SyuseikinyuKarikataGokei = 0
	SyuseikinyuKashikataGokei = 0
	SonekikeisansyoKarikataGokei = 0
	SonekikeisansyoKashikataGokei = 0
	TaisyakutaisyohyoKarikataGokei = 0
	TaisyakutaisyohyoKashikataGokei = 0

	Dim WidthCell1, WidthCell2, WidthParent, WidthParent2
	Dim WidthCell3	'勘定科目
	Dim HeightCell
	HeightCell = 20
	WidthCell1 = 50
	WidthCell1 = 37 'フォント対応 -13
	WidthCell2 = 89
	WidthCell2 = 96 'フォント対応 +7 x 8 = +56
	WidthCell3 = 152
	WidthCell3 = 121 'フォント対応 -(56 - 13 - 12)
	WidthParent = 949
	WidthParent2 = 932
	WidthParent = 961 'フォント対応+12
	WidthParent2 = 944 'フォント対応+12
%>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214">
								<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" CLASS="bt3" STYLE="border-collapse: collapse">
									<tr HEIGHT="20">
										<td rowspan="2" align="center" CLASS="br3b1" width="<% = WidthCell1 + WidthCell3 + 1 %>">勘定科目</td>
										<td colspan="2" align="center" CLASS="br3b1">残高試算表</td>
										<td colspan="2" align="center" CLASS="br3b1"><% = Label %>記入</td>
										<td colspan="2" align="center" CLASS="br3b1">損益計算書</td>
										<td colspan="2" align="center" CLASS="bb1">貸借対照表</td>
									</tr>
									<tr HEIGHT="20">
										<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br3b1">貸方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="br1b1">借方</td>
										<td align="center" width="<% = WidthCell2 %>" CLASS="bb1">貸方</td>
									</tr>
								</table>
								</TD>
							</TR>
							<TR>
								<TD HEIGHT="1" VALIGN="BOTTOM"></TD>
							</TR>
							<TR>
								<TD VALIGN="TOP">
								<DIV ID="Layer1" STYLE="position:relative; left:0px; top:-1px; width:<% = WidthParent %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;"> 
								<TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" STYLE="border-collapse: collapse">
								<%

	'スプレッドシート定義 ※全行共通なのでループ外
	Dim SpMaxRow
	Dim SpRowCnt
	Dim SpMaxCol
	SpRowCnt = 0
	SpMaxRow = SpRowCnt
	'フォーム名
	SpFormName = "SpCell" '
	'行定義
	SpRowHeight = "23" '高さ(pixel指定)
	SpRowCls = "" '行スタイルclass
	SpRowStyle = "" '行スタイル
	'列1定義
	SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(1) = "br1" 'セルスタイルclass
	SpCellStyle(1) = "" 'セルスタイル
	SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト
'	SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
	SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
	SpInputChange(1) = "" 'onChangeで作動させるスクリプト
	SpInputRO(1) = "1" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpCellWidth(2) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "br3" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
'	SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
	SpInputChange(2) = "" 'onChangeで作動させるスクリプト
	SpInputRO(2) = "1" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "br1" 'セルスタイルclass
	SpCellStyle(3) = "" 'セルスタイル
	SpInputCls(3) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "" 'onBlurで作動させるスクリプト
	SpInputChange(3) = "" 'onChangeで作動させるスクリプト
	SpInputRO(3) = "1" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(4) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(4) = "br3" 'セルスタイルclass
	SpCellStyle(4) = "" 'セルスタイル
	SpInputCls(4) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "" 'onBlurで作動させるスクリプト
	SpInputChange(4) = "" 'onChangeで作動させるスクリプト
	SpInputRO(4) = "1" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(5) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "br1" 'セルスタイルclass
	SpCellStyle(5) = "" 'セルスタイル
	SpInputCls(5) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
	SpInputChange(5) = "" 'onChangeで作動させるスクリプト
	SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
	'列6定義
	SpCellType(6) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(6) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(6) = "br3" 'セルスタイルclass
	SpCellStyle(6) = "" 'セルスタイル
	SpInputCls(6) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
	SpInputChange(6) = "" 'onChangeで作動させるスクリプト
	SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
	'列7定義
	SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(7) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(7) = "br1" 'セルスタイルclass
	SpCellStyle(7) = "" 'セルスタイル
	SpInputCls(7) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(7) = "" 'フォームスタイル
	SpInputFocus(7) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(7) = "" 'onBlurで作動させるスクリプト
	SpInputChange(7) = "" 'onChangeで作動させるスクリプト
	SpInputRO(7) = "1" 'フォームreadonlyフラグ("1")
	'列8定義
	SpCellType(8) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(8) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(8) = "br3" 'セルスタイルclass
	SpCellStyle(8) = "" 'セルスタイル
	SpInputCls(8) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(8) = "" 'フォームスタイル
	SpInputFocus(8) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(8) = "" 'onBlurで作動させるスクリプト
	SpInputChange(8) = "" 'onChangeで作動させるスクリプト
	SpInputRO(8) = "1" 'フォームreadonlyフラグ("1")
	'列9定義
	SpCellType(9) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(9) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(9) = "br1" 'セルスタイルclass
	SpCellStyle(9) = "" 'セルスタイル
	SpInputCls(9) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(9) = "" 'フォームスタイル
	SpInputFocus(9) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(9) = "" 'onBlurで作動させるスクリプト
	SpInputChange(9) = "" 'onChangeで作動させるスクリプト
	SpInputRO(9) = "1" 'フォームreadonlyフラグ("1")
	'列10定義
	SpCellType(10) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(10) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(10) = "b0" 'セルスタイルclass
	SpCellStyle(10) = "" 'セルスタイル
	SpInputCls(10) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(10) = "" 'フォームスタイル
	SpInputFocus(10) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(10) = "" 'onBlurで作動させるスクリプト
	SpInputChange(10) = "" 'onChangeで作動させるスクリプト
	SpInputRO(10) = "1" 'フォームreadonlyフラグ("1")

									ii = 0
		Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'"
		If Kimatsu = "Kurikoshi" Then
			Query = Query & ", 10"
		Else
			Query = Query & ", 9"
		End If
									Set Content = OpenQuery(Query)
									Do While Not(Content.BOF Or Content.EOF)
										Dim ShisanhyoKarikata, ShisanhyoKashikata
										Dim SyuseikinyuKarikata, SyuseikinyuKashikata
										Dim SonekikeisansyoKarikata, SonekikeisansyoKashikata
										Dim TaisyakutaisyohyoKarikata, TaisyakutaisyohyoKashikata

										ShisanhyoKarikata = Content.Fields("試算表借方金額")
										ShisanhyoKashikata = Content.Fields("試算表貸方金額")
										SyuseikinyuKarikata = Content.Fields("整理記入借方金額")
										SyuseikinyuKashikata = Content.Fields("整理記入貸方金額")
										SonekikeisansyoKarikata = Content.Fields("損益計算書借方金額")
										SonekikeisansyoKashikata = Content.Fields("損益計算書貸方金額")
										TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額")
										TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額")

										'※この部分は社長に騙されて完全に誤ってた
										'「資産勘定で貸方」または「資産勘定以外で借方」なら貸借対照表の貸借金額を反転する(090119小野)
'										If Content.Fields("勘定細目") = "A" And Content.Fields("貸借区分") = "C" Then
'											TaisyakutaisyohyoKarikata = Content.Fields("貸借対照表借方金額") - Content.Fields("貸借対照表貸方金額")
'											TaisyakutaisyohyoKashikata = 0
'										End If
										'                                        その他勘定は反転しない(111012小野)
										If Content.Fields("勘定細目") <> "A" And Content.Fields("勘定細目") <> "H" And Content.Fields("貸借区分") = "D" Then
											TaisyakutaisyohyoKarikata = 0
											TaisyakutaisyohyoKashikata = Content.Fields("貸借対照表貸方金額") - Content.Fields("貸借対照表借方金額")
										End If

										If IsNull(ShisanhyoKarikata) Then ShisanhyoKarikata = 0 End If
										If IsNull(ShisanhyoKashikata) Then ShisanhyoKashikata = 0 End If
										If IsNull(SyuseikinyuKarikata) Then SyuseikinyuKarikata = 0 End If
										If IsNull(SyuseikinyuKashikata) Then SyuseikinyuKashikata = 0 End If
										If IsNull(SonekikeisansyoKarikata) Then SonekikeisansyoKarikata = 0 End If
										If IsNull(SonekikeisansyoKashikata) Then SonekikeisansyoKashikata = 0 End If
										If IsNull(TaisyakutaisyohyoKarikata) Then TaisyakutaisyohyoKarikata = 0 End If
										If IsNull(TaisyakutaisyohyoKashikata) Then TaisyakutaisyohyoKashikata = 0 End If

										ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + ShisanhyoKarikata
										ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + ShisanhyoKashikata
										SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + SyuseikinyuKarikata
										SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + SyuseikinyuKashikata
										SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + SonekikeisansyoKarikata
										SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + SonekikeisansyoKashikata
										TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + TaisyakutaisyohyoKarikata
										TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + TaisyakutaisyohyoKashikata

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	'試算表残高が存在しない行は編集・削除可能
	If ShisanhyoKarikata = 0 And ShisanhyoKashikata = 0 Then
		'列1定義
		SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
		SpInputCls(1) = "Spread4C" 'フォームスタイルclass
		SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
		SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);SpSetBSPL();SpSetGokei();" 'onBlurで作動させるスクリプト
		SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
		'列2定義
		SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
		SpInputCls(2) = "Spread4L" 'フォームスタイルclass
		SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
		SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
		SpInputChange(2) = "KanjoMeiChange(this);SpSetBSPL();SpSetGokei();" 'onChangeで作動させるスクリプト
		SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
		SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値
		SpInputValue(2) = ""
		SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
		SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
		For Cnt = 1 To UBound(KamokuMeiAry)
			SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """"
			If KamokuMeiAry(Cnt) = "" & Content.Fields("勘定名称") Then
				SpInputOption(2) = SpInputOption(2) & " selected"
			End If
			SpInputOption(2) = SpInputOption(2) & ">" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
		Next
	Else
		'列1定義
		SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
		SpInputCls(1) = "Spread4Cro" 'フォームスタイルclass
		SpInputFocus(1) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
		SpInputRO(1) = "1" 'フォームreadonlyフラグ("1")
		'列2定義
		SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
		SpInputCls(2) = "Spread4Lro" 'フォームスタイルclass
		SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
		SpInputChange(2) = "" 'onChangeで作動させるスクリプト
		SpInputRO(2) = "1" 'フォームreadonlyフラグ("1")
		SpInputValue(1) = Content.Fields("勘定CD") 'フォーム初期値
		SpInputValue(2) = Content.Fields("勘定名称") 'フォーム初期値
		SpInputOption(2) = ""
	End If
	SpInputValue(3) = ConvIntToMoney(ShisanhyoKarikata, false, true) 'フォーム初期値
	SpInputValue(4) = ConvIntToMoney(ShisanhyoKashikata, false, true) 'フォーム初期値
	SpInputValue(5) = ConvIntToMoney(SyuseikinyuKarikata, false, true) 'フォーム初期値
	SpInputValue(6) = ConvIntToMoney(SyuseikinyuKashikata, false, true) 'フォーム初期値
	SpInputValue(7) = ConvIntToMoney(SonekikeisansyoKarikata, false, true) 'フォーム初期値
	SpInputValue(8) = ConvIntToMoney(SonekikeisansyoKashikata, false, true) 'フォーム初期値
	SpInputValue(9) = ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) 'フォーム初期値
	SpInputValue(10) = ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) 'フォーム初期値
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

										ii = ii + 1
If 0=1 Then
										Response.Write("<TR HEIGHT=""" & HeightCell & """>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""center"" class=""br1"">" & Content.Fields("勘定CD") & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"" class=""br3"">" & AscLeft(Content.Fields("勘定名称"),18) & "</TD>" & vbCrLf) '勘定名称を18Byteで切り捨て(061102小野)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(ShisanhyoKarikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(ShisanhyoKashikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SyuseikinyuKarikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SyuseikinyuKashikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(SonekikeisansyoKarikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br3"">" & ConvIntToMoney(SonekikeisansyoKashikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""br1"">" & ConvIntToMoney(TaisyakutaisyohyoKarikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""RIGHT"" class=""b0"">" & ConvIntToMoney(TaisyakutaisyohyoKashikata, false, true) & "</TD>" & vbCrLf)
										Response.Write("</TR>" & vbCrLf)
End If
										Content.MoveNext
									Loop

	'スプレッドシートの空白行を発生させる
	'※↓↓↓追加行は勘定科目可変なので再定義
	'列1定義
	SpCellType(1) = "2" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpInputCls(1) = "Spread4C" 'フォームスタイルclass
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "FormStrLeftEdge(this,4,true,false);FormStrTrim(this,true);KanjoCDChange(this);" 'onBlurで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpInputCls(2) = "Spread4L" 'フォームスタイルclass
	SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
	SpInputChange(2) = "KanjoMeiChange(this);" 'onChangeで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
	'※↑↑↑追加行は勘定科目可変なので再定義
	SpInputValue(1) = "" 'フォーム初期値
	SpInputValue(2) = "" 'フォーム初期値
	SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(KamokuMeiAry)
		SpInputOption(2) = SpInputOption(2) & "<option value=""" & KamokuCDAry(Cnt) & """>" & KamokuMeiAry(Cnt) & "</option>"' & vbCrLf
	Next
	SpInputValue(3) = "" 'フォーム初期値
	SpInputValue(4) = "" 'フォーム初期値
	SpInputValue(5) = "" 'フォーム初期値
	SpInputValue(6) = "" 'フォーム初期値
	SpInputValue(7) = "" 'フォーム初期値
	SpInputValue(8) = "" 'フォーム初期値
	SpInputValue(9) = "" 'フォーム初期値
	SpInputValue(10) = "" 'フォーム初期値
	For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
		'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
		Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
		SpMaxRow = Cnt
	Next

								%>
								</TABLE>
								</DIV>
								</TD>
							</TR>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM" WIDTH="<% = WidthParent %>" class="tx1214">
									<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse">
										<tr HEIGHT="<% = HeightCell %>">
											<td align="left" width="<% = WidthCell1 + WidthCell3 + 1 %>" class="br3b1">試算表合計</td>
											<td id="ShisanhyoKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKarikataGokei, false, true) %></td>
											<td id="ShisanhyoKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ShisanhyoKashikataGokei, false, true) %></td>
											<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="bb1"> </td>
										</tr>
										<tr HEIGHT="<% = HeightCell %>">
											<td id="SonekiLabel" align="left" class="br3b1"><%
												If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
													Response.Write("当期利益")
												ElseIf SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then 
													Response.Write("当期損失") 
												Else
													Response.Write("当期") 
												End If
											%></td>
<%
	Dim ToukiPLKari
	Dim ToukiPLKashi
	Dim ToukiBSKari
	Dim ToukiBSKashi
	ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei
	ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei
	ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei
	ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei
	If ToukiPLKari <= 0 Then ToukiPLKari = null End If
	If ToukiPLKashi <= 0 Then ToukiPLKashi = null End If
	If ToukiBSKari <= 0 Then ToukiBSKari = null End If
	If ToukiBSKashi <= 0 Then ToukiBSKashi = null End If
%>
											<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br1b1"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br3b1"> </td>
											<td id="ToukiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKari, false, true) %></td>
											<td id="ToukiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiPLKashi, false, true) %></td>
											<td id="ToukiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKari, false, true) %></td>
											<td id="ToukiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb1" style="padding-right:3px;"><% = ConvIntToMoney(ToukiBSKashi, false, true) %></td>
										</tr>
										<tr HEIGHT="<% = HeightCell %>">
<%
	Dim GokeiPLKari
	Dim GokeiPLKashi
	Dim GokeiBSKari
	Dim GokeiBSKashi
	If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0 Then
		GokeiPLKari = SonekikeisansyoKashikataGokei
	Else
		GokeiPLKari = SonekikeisansyoKarikataGokei
	End If
	If SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0 Then
		GokeiPLKashi = SonekikeisansyoKarikataGokei
	Else
		GokeiPLKashi = SonekikeisansyoKashikataGokei
	End If
	If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0 Then
		GokeiBSKari = TaisyakutaisyohyoKashikataGokei
	Else
		GokeiBSKari = TaisyakutaisyohyoKarikataGokei
	End If
	If TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0 Then
		GokeiBSKashi = TaisyakutaisyohyoKarikataGokei
	Else
		GokeiBSKashi = TaisyakutaisyohyoKashikataGokei
	End If
%>
											<td align="left" class="br3b3">合計</td>
											<td align="right" width="<% = WidthCell2 %>" class="br1b3"> </td>
											<td align="right" width="<% = WidthCell2 %>" class="br3b3"> </td>
											<td id="SyuseikinyuKarikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKarikataGokei, false, true) %></td>
											<td id="SyuseikinyuKashikataGokei" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(SyuseikinyuKashikataGokei, false, true) %></td>
											<td id="GokeiPLKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKari, false, true) %></td>
											<td id="GokeiPLKashi" align="right" width="<% = WidthCell2 - 3 %>" class="br3b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiPLKashi, false, true) %></td>
											<td id="GokeiBSKari" align="right" width="<% = WidthCell2 - 3 %>" class="br1b3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKari, false, true) %></td>
											<td id="GokeiBSKashi" align="right" width="<% = WidthCell2 - 3 %>" class="bb3" style="padding-right:3px;"><% = ConvIntToMoney(GokeiBSKashi, false, true) %></td>
										</tr>
									</table>
								</TD>
							</TR>
							<TR>
								<TD colspan="10" height="1" align="center" class="tx1214">
									※入力行が足りない場合は一度「保存」してください
								</td>
							</TR>
<% End If %>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>

</body>
<%
	Dim KanjyoCDCol
	KanjyoCDCol = 1
%>



<SCRIPT LANGUAGE="JavaScript">
//↓ブラウザ不問の共通関数


	var KanjyoMeisaiSelected;
	KanjyoMeisaiSelected = "";


	//勘定CDから勘定名称に変換
	function ConvKanjyoMeisyoDx(KanjyoCD) {
<%
	For Cnt = 1 To UBound(KamokuCDAry)
		Response.Write("		if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ &  KamokuMeiAry(Cnt) & """;" & vbCrLf)
	Next
%>
		return "";
	}

	//勘定名称から勘定CDを逆引き
	function ConvRevKanjyoMeisyo(KanjyoMeisyo) {
<%
	For Cnt = 1 To UBound(KamokuCDAry)
		Response.Write("		if (KanjyoMeisyo == """ & KamokuMeiAry(Cnt) & """)return """ &  KamokuCDAry(Cnt) & """;" & vbCrLf)
	Next
%>
		return "";
	}


//↑ブラウザ不問の共通関数
</SCRIPT>



<% If GB_IEmode <> "1" Then %>
<SCRIPT LANGUAGE="JavaScript">


	SpMinRow = 1;
	SpMaxRow = <% = SpMaxRow %>;
<%
	'最大セル番号を取得
	SpMaxCol = 0
	For Cnt = 1 To UBound(SpCellType)
		If "" & SpCellType(Cnt) <> "" Then
			SpMaxCol = Cnt
		End If
	Next
%>
	SpMaxCol = <% = SpMaxCol %>;


	//勘定CDから勘定区分に変換
	function ConvKanjyoKubun(KanjyoCD) {
<%
	For Cnt = 1 To UBound(KamokuCDAry)
		Response.Write("		if (KanjyoCD == """ & KamokuCDAry(Cnt) & """)return """ &  KamokuKubunAry(Cnt) & """;" & vbCrLf)
	Next
%>
		return "";
	}


	//各行のBS/PL横計 ※勘定区分B/Pに従ってBS/PLに集計する
	function SpSetBSPL() {
		var Karikata = 0;
		var Kashikata = 0;
		var KamokuKubun = ConvKanjyoKubun(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_1")[0].value);
		if (KamokuKubun != "") {
			document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = "";
			document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = "";
			document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = "";
			document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = "";
			//整理記入の金額を取得
			if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value != "") {
				Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_5")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value != "") {
				Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_6")[0].value));
			}
			//借方と貸方の差を計算
			if (Karikata > Kashikata) {
				Karikata = Karikata - Kashikata;
				Kashikata = 0;
			} else if (Kashikata > Karikata) {
				Kashikata = Kashikata - Karikata;
				Karikata = 0;
			} else {
				Karikata = 0;
				Kashikata = 0;
			}
			//残高試算表の金額を加算
			if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value != "") {
				Karikata = Karikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_3")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value != "") {
				Kashikata = Kashikata + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_4")[0].value));
			}
			if (KamokuKubun == "P") {
				//PLに反映
				if (Karikata > 0) {
					document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_7")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容&文字列引数で動作する
				}
				if (Kashikata > 0) {
					document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_8")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容&文字列引数で動作する
				}
			} else if (KamokuKubun == "B") {
				//BSに反映
				if (Karikata > 0) {
					document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_9")[0].value = NumComma(Karikata, false); //NumCommaはマイナスを許容&文字列引数で動作する
				}
				if (Kashikata > 0) {
					document.getElementsByName("<% = SpFormName %>" + SpSelRow + "_10")[0].value = NumComma(Kashikata, false); //NumCommaはマイナスを許容&文字列引数で動作する
				}
			}
		}
	}


	//保存時のチェックに使うのでグローバル
	var SyuseikinyuKarikataGokei = 0;
	var SyuseikinyuKashikataGokei = 0;

	function SpSetGokei() {
//alert("");
		//縦集計
		ShisanhyoKarikataGokei = 0;
		ShisanhyoKashikataGokei = 0;
		SyuseikinyuKarikataGokei = 0;
		SyuseikinyuKashikataGokei = 0;
		SonekikeisansyoKarikataGokei = 0;
		SonekikeisansyoKashikataGokei = 0;
		TaisyakutaisyohyoKarikataGokei = 0;
		TaisyakutaisyohyoKashikataGokei = 0;
		for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value != "") {
				ShisanhyoKarikataGokei = ShisanhyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_3")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value != "") {
				ShisanhyoKashikataGokei = ShisanhyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_4")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value != "") {
				SyuseikinyuKarikataGokei = SyuseikinyuKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_5")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value != "") {
				SyuseikinyuKashikataGokei = SyuseikinyuKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_6")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value != "") {
				SonekikeisansyoKarikataGokei = SonekikeisansyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_7")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value != "") {
				SonekikeisansyoKashikataGokei = SonekikeisansyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_8")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value != "") {
				TaisyakutaisyohyoKarikataGokei = TaisyakutaisyohyoKarikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_9")[0].value));
			}
			if (document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value != "") {
				TaisyakutaisyohyoKashikataGokei = TaisyakutaisyohyoKashikataGokei + eval(ConvMoneyToInt(document.getElementsByName("<% = SpFormName %>" + ii + "_10")[0].value));
			}
		}
		//試算表合計
		document.getElementById("ShisanhyoKarikataGokei").innerHTML = NumComma(ShisanhyoKarikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する
		document.getElementById("ShisanhyoKashikataGokei").innerHTML = NumComma(ShisanhyoKashikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する
		//当期利益/損失
		ToukiPLKari = SonekikeisansyoKashikataGokei - SonekikeisansyoKarikataGokei;
		ToukiPLKashi = SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei;
		ToukiBSKari = TaisyakutaisyohyoKashikataGokei - TaisyakutaisyohyoKarikataGokei;
		ToukiBSKashi = TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei;
		document.getElementById("ToukiPLKari").innerHTML = "";
		document.getElementById("ToukiPLKashi").innerHTML = "";
		document.getElementById("ToukiBSKari").innerHTML = "";
		document.getElementById("ToukiBSKashi").innerHTML = "";
		if (ToukiPLKari > 0) {
			document.getElementById("ToukiPLKari").innerHTML = NumComma(ToukiPLKari, false); //NumCommaはマイナスを許容&文字列引数で動作する
		}
		if (ToukiPLKashi > 0) {
			document.getElementById("ToukiPLKashi").innerHTML = NumComma(ToukiPLKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する
		}
		if (ToukiBSKari > 0) {
			document.getElementById("ToukiBSKari").innerHTML = NumComma(ToukiBSKari, false); //NumCommaはマイナスを許容&文字列引数で動作する
		}
		if (ToukiBSKashi > 0) {
			document.getElementById("ToukiBSKashi").innerHTML = NumComma(ToukiBSKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する
		}
		document.getElementById("SonekiLabel").innerHTML = "当期";
		if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) {
			document.getElementById("SonekiLabel").innerHTML = "当期利益";
		} else if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) {
			document.getElementById("SonekiLabel").innerHTML = "当期損失";
		}
		//合計
		document.getElementById("SyuseikinyuKarikataGokei").innerHTML = NumComma(SyuseikinyuKarikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する;
		document.getElementById("SyuseikinyuKashikataGokei").innerHTML = NumComma(SyuseikinyuKashikataGokei, false); //NumCommaはマイナスを許容&文字列引数で動作する;
		GokeiPLKari = 0;
		GokeiPLKashi = 0;
		GokeiBSKari = 0;
		GokeiBSKashi = 0;
		GokeiPLKari = SonekikeisansyoKarikataGokei;
		if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei < 0) {
			GokeiPLKari = SonekikeisansyoKashikataGokei;
		}
		GokeiPLKashi = SonekikeisansyoKashikataGokei;
		if (SonekikeisansyoKarikataGokei - SonekikeisansyoKashikataGokei > 0) {
			GokeiPLKashi = SonekikeisansyoKarikataGokei;
		}
		GokeiBSKari = TaisyakutaisyohyoKarikataGokei;
		if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei < 0) {
			GokeiBSKari = TaisyakutaisyohyoKashikataGokei;
		}
		GokeiBSKashi = TaisyakutaisyohyoKashikataGokei;
		if (TaisyakutaisyohyoKarikataGokei - TaisyakutaisyohyoKashikataGokei > 0) {
			GokeiBSKashi = TaisyakutaisyohyoKarikataGokei;
		}
		document.getElementById("GokeiPLKari").innerHTML = NumComma(GokeiPLKari, false); //NumCommaはマイナスを許容&文字列引数で動作する;
		document.getElementById("GokeiPLKashi").innerHTML = NumComma(GokeiPLKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する;
		document.getElementById("GokeiBSKari").innerHTML = NumComma(GokeiBSKari, false); //NumCommaはマイナスを許容&文字列引数で動作する;
		document.getElementById("GokeiBSKashi").innerHTML = NumComma(GokeiBSKashi, false); //NumCommaはマイナスを許容&文字列引数で動作する;
	}


//勘定科目セルがinput(readonry)とselectの2種類があるので行挿入・行削除・行移動ができない。なので以下は非利用。
	function SpRowInsertSub() {
	//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList("");
		}
		//行挿入
		SpRowInsert();
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList(TmpKanjoSaimoku);
		}
	}

	function SpRowDeleteSub() {
	//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList("");
		}
		//行削除
		SpRowDelete();
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList(TmpKanjoSaimoku);
		}
		SpSetGokei(); //削除時は再計算
	}

	function SpRowShiftSub(UpDown) {
	//プルダウンの内容をスライドするため一旦勘定科目の絞込みを解除する
		//現在の絞込み状態を保持
		TmpKanjoSaimoku = KanjyoMeisaiSelected;
		//絞込みを解除(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList("");
		}
		//行入れ替え
		SpRowShift(UpDown);
		//絞込みを復元(全科目は除く)
		if (TmpKanjoSaimoku != "") {
			SetKanjyoKamokuList(TmpKanjoSaimoku);
		}
	}


	function KanjoCDChange(Form) {
		TmpValue = Form.value;
		TmpForm = Form.name.split("_");
		Target = TmpForm[0] + "_" + (eval(TmpForm[1]) + 1);
//alert(Target);
		elm = document.getElementsByName(Target)[0];
		if (TmpValue != "") {
			if (ConvKanjyoMeisyoDx(TmpValue) == "") {
				alert("入力された勘定科目コードは存在しません");
				Form.value = "";
				TmpValue = "";
			}
		}
		//プルダウンの先頭項目にセット(TmpValueがnullならクリアされる)
		SetKamokuList(elm, TmpValue);
	}


	function KanjoMeiChange(Form) {
//alert(Form.value);
		TmpForm = Form.name.split("_");
		Target = TmpForm[0] + "_" + (eval(TmpForm[1]) - 1);
//alert(Target);
		elm = document.getElementsByName(Target)[0];
		elm.value = Form.value;
	}


	function SetKanjyoKamokuList(kanjyomeisai) {
		KanjyoMeisaiSelected = kanjyomeisai;
		var Meisais;
		var ii;
		Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", "");
		for (ii=0; ii<Meisais.length; ii++) {
//			document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
			document.getElementById("TD" + Meisais[ii] + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>')";
			document.getElementById("TD" + Meisais[ii] + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>')";
			document.getElementById("TD" + Meisais[ii] + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>')";
		}
//		document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
		document.getElementById("TD" + KanjyoMeisaiSelected + "L").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>')";
		document.getElementById("TD" + KanjyoMeisaiSelected + "C").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>')";
		document.getElementById("TD" + KanjyoMeisaiSelected + "R").style.backgroundImage = "url('/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>')";
		for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
			Target = "<% = SpFormName %>" + ii + "_2";
			elm = document.getElementsByName(Target)[0];
			if (elm.tagName.toLowerCase() == "select") { //selectタグのみ
				//現在選択されている科目を保持する
				TmpValue = elm.options[elm.selectedIndex].value;
				SetKamokuList(elm, TmpValue);
			}
		}
	}


	function SetKamokuList(elm, TmpValue) {
		//プルダウン項目を全クリア
		do {
			elm.options[0] = null;
		} while (elm.length != 0)
		Idx = 0;
		if (TmpValue != "") {
			//先頭項目に追加
			elm.options[Idx] = new Option(ConvKanjyoMeisyoDx(TmpValue), TmpValue);
			Idx = Idx + 1;
		}
		elm.options[Idx] = new Option("", ""); //空白項目
		Idx = Idx + 1;
		//2行目以降は現在選択されている勘定細目(KanjyoMeisaiSelected)に従う
<%
	PreKanjyoMeisai = ""
	Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く(ループ内で常に閉じてから開くためのダミー)
	For Cnt = 1 To UBound(KamokuCDAry)
'		If KamokuCDAry(Cnt) <> KanjyoCD Then '元帳勘定科目を除外
			If PreKanjyoMeisai <> KamokuSaimokuAry(Cnt) Then
				'勘定科目が変わったらネストを閉じて開く
				Response.Write("}" & vbCrLf)
				Response.Write("if (KanjyoMeisaiSelected == """" || KanjyoMeisaiSelected == """ & KamokuSaimokuAry(Cnt) & """) {" & vbCrLf)
				PreKanjyoMeisai = KamokuSaimokuAry(Cnt)
			End If
			Response.Write("elm.options[Idx] = new Option(""" &  KamokuMeiAry(Cnt) & """, """ & KamokuCDAry(Cnt) & """);")
			Response.Write("Idx = Idx + 1;" & vbCrLf)
'		End If
	Next
	Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
//		elm.selectedIndex = 0; //常に先頭行を選択する
		elm.value = TmpValue; //該当項目を選択
	}


	function SubmitCheck() {
//alert(SubmitCheck);
		SpSetGokei();
		if (SyuseikinyuKarikataGokei != SyuseikinyuKashikataGokei) {
			alert("<% = Label %>記入の貸借が一致しません ");
			return false;
		}
		form1.SendValue.value = "";
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var Text1, Text5, Text6;
			Text1 = form1[Target + 1].value;
			Text5 = form1[Target + 5].value;
			Text6 = form1[Target + 6].value;
			//通貨のカンマ区切りを外す
			Text5 = ReplaceStr(Text5, ",", "")
			Text6 = ReplaceStr(Text6, ",", "")
			//文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野)
//			Text1 = ReplaceStr(Text1, ",", "CommammoC")
//			Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
			if (((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "") {
				alert("勘定科目を選択してください");
				form1[Target + 2].focus();
				return;
			}
			form1.SendValue.value = form1.SendValue.value + Text1;
			form1.SendValue.value = form1.SendValue.value + ","
			form1.SendValue.value = form1.SendValue.value + Text5;
			form1.SendValue.value = form1.SendValue.value + ","
			form1.SendValue.value = form1.SendValue.value + Text6;
			form1.SendValue.value = form1.SendValue.value + ","
			form1.SendValue.value = form1.SendValue.value + ";"
		}
//alert(form1.SendValue.value);
		SubmitReal(form1);
		return true;
	}


window.onload = function() {

}


</SCRIPT>



<% Else %>



<SCRIPT LANGUAGE="JavaScript">

	var StrKanjyoKubun, aKanjyoKubun ;
	var StrTaisyakuKubun, aTaisyakuKubun ;

	function SubmitCheck() {
		var kari;
		var kasi;
		var sa;
		document.vaSpread2.Row = 3;
		document.vaSpread2.Col = 5;
		kari = ConvMoneyToInt(document.vaSpread2.value);
		if (isNaN(kari)) {
			kari=0;
		}
		document.vaSpread2.Col = 6;
		kasi = ConvMoneyToInt(document.vaSpread2.value);
		if (isNaN(kasi)) {
			kasi=0;
		}
		sa = kari - kasi;
		if(sa != 0) {
			alert("整理記入の貸借の差が" + Math.abs(sa) + "円あり、一致しません ");
			return false;
		}

		form1.SendValue.value = ""
		for(jj = 1; jj <= document.vaSpread1.MaxRows; jj++)
		{
			document.vaSpread1.Row = jj;
			var Text1, Text5, Text6;

			document.vaSpread1.Col = 1;
			Text1 = document.vaSpread1.Text;

			document.vaSpread1.Col = 5;
			Text5 = document.vaSpread1.Text;
			Text5 = ReplaceStr(Text5, ",", "")

			document.vaSpread1.Col = 6;
			Text6 = document.vaSpread1.Text;
			Text6 = ReplaceStr(Text6, ",", "")

			if(((Text5 != "0" && Text5 != "") || (Text6 != "0" && Text6 != "")) && Text1 == "")
			{
				alert("勘定科目を選択してください");
				document.vaSpread1.SetActiveCell(1, document.vaSpread1.Row);
				document.vaSpread1.focus();
				document.vaSpread1.EditMode = true;
				return;
			}

				form1.SendValue.value = form1.SendValue.value + Text1;
				form1.SendValue.value = form1.SendValue.value + ","
				form1.SendValue.value = form1.SendValue.value + Text5;
				form1.SendValue.value = form1.SendValue.value + ","
				form1.SendValue.value = form1.SendValue.value + Text6;
				form1.SendValue.value = form1.SendValue.value + ","



				form1.SendValue.value = form1.SendValue.value + ";"

		}

		SubmitReal(form1);
		return true;
	}


	KanjyoMeisaiSelected = "";

	function SetKanjyoKamokuList(kanjyomeisai)
	{
		KanjyoMeisaiSelected = kanjyomeisai;

		var Meisais;
		var ii;
		Meisais = Array("A", "B", "C", "D", "E", "F", "G", "H", "");
		for(ii=0; ii<Meisais.length; ii++)
		{

			document.all.item("TD" + Meisais[ii] + "L").background = "/<% = HomeAlias %>/images/dlogbtn_bl.gif?<% = GB_STU %>";
			document.all.item("TD" + Meisais[ii] + "C").background = "/<% = HomeAlias %>/images/dlogbtn_bc.gif?<% = GB_STU %>";
			document.all.item("TD" + Meisais[ii] + "R").background = "/<% = HomeAlias %>/images/dlogbtn_br.gif?<% = GB_STU %>";
		}
		document.all.item("TD" + KanjyoMeisaiSelected + "L").background = "/<% = HomeAlias %>/images/dlogbtn_rl.gif?<% = GB_STU %>";
		document.all.item("TD" + KanjyoMeisaiSelected + "C").background = "/<% = HomeAlias %>/images/dlogbtn_rc.gif?<% = GB_STU %>";
		document.all.item("TD" + KanjyoMeisaiSelected + "R").background = "/<% = HomeAlias %>/images/dlogbtn_rr.gif?<% = GB_STU %>";



		var ii;
		var Idx;
		Idx = 0;
		var listout;
		listout = "";
		document.vaSpread1.Redraw = false;
	<%
		Response.Write("StrKanjyoKubun = """";" & vbCrLf)
		Response.Write("StrTaisyakuKubun = """";" & vbCrLf)
		Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
		Set Content = OpenQuery(Query)

		PreKanjyoMeisai = ""
		Response.Write("if(1 == 0){" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
			If PreKanjyoMeisai <> Content.Fields("勘定細目") Then
				Response.Write("}" & vbCrLf)
				Response.Write("if(kanjyomeisai == """" || kanjyomeisai == """ & Content.Fields("勘定細目") & """){" & vbCrLf)
				PreKanjyoMeisai = Content.Fields("勘定細目")
			End If
'			Response.Write("if(listout != """")listout = listout + ""\t"";" & vbCrLf)
			Response.Write("listout = listout + ""\t"";" & vbCrLf)
			Response.Write("listout = listout + """ & Content.Fields("勘定名称") & """;" & vbCrLf)
			Response.Write("StrKanjyoKubun = StrKanjyoKubun + ""-" & Content.Fields("勘定区分") & """;" & vbCrLf)
			Response.Write("StrTaisyakuKubun = StrTaisyakuKubun + ""-" & Content.Fields("貸借区分") & """;" & vbCrLf)
			Content.MoveNext
		Loop
		Response.Write("}" & vbCrLf)
		Response.Write("aKanjyoKubun = StrKanjyoKubun.split(""-"");" & vbCrLf)
		Response.Write("aTaisyakuKubun = StrTaisyakuKubun.split(""-"");" & vbCrLf)
	%>

		document.vaSpread1.Col = <% = KanjyoCDCol + 1 %>;
		for(i=1; i<= document.vaSpread1.MaxRows; i++)
		{
			document.vaSpread1.Row = i;
			if(document.vaSpread1.Text == "")
			{
//				document.vaSpread1.TypeComboBoxList = "\t" + listout;
				document.vaSpread1.TypeComboBoxList = listout;
			}
			else
			{
				document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
			}
		}
		document.vaSpread1.Redraw = true;
		return false;
	}


<%
	'勘定科目プルダウン用の ListText 変数を生成する
	Dim StrKanjyoKubun, StrTaisyakuKubun
	Dim ListText
	Query = "exec SPM勘定科目一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GyosyuKubun & "', '', '" & GB_KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	ListText = ""
	Do While Not(Content.BOF Or Content.EOF)
		StrKanjyoKubun = StrKanjyoKubun & "-" & Content.Fields("勘定区分")
		StrTaisyakuKubun = StrTaisyakuKubun & "-" & Content.Fields("貸借区分")
		ListText = ListText & "\t"
		ListText = ListText & Content.Fields("勘定名称")
		Content.MoveNext
	Loop
%>


	function SpreadInit(fpSpread) {
		fpSpread.MaxRows = 0;
<%

		Dim Query
		Dim Content
		Dim ii
		ii = 0

		Query = "exec SPK自動転記帳簿_八桁精算表照会 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & Kaishibi & "','" & Syuryobi & "'"
		If Kimatsu = "Kurikoshi" Then
			Query = Query & ", 10"
		Else
			Query = Query & ", 9"
		End If
		Set Content = OpenQuery(Query)

		'選択行の色を変える動作を停止(090624小野)
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1
			Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("		fpSpread.Row = " & ii & ";" & vbCrLf)
			If Content.Fields("試算表借方金額") = 0 And Content.Fields("試算表貸方金額") = 0 Then
				'試算表残高が存在しない行は編集・削除可能(170517小野)
				Response.Write("		fpSpread.Col = 1;" & vbCrLf)
				Response.Write("		fpSpread.Lock = false;" & vbCrLf)
				Response.Write("		fpSpread.BackColor = 0xFFFFFF;" & vbCrLf)
				Response.Write("		fpSpread.Col = 2;" & vbCrLf)
				Response.Write("		fpSpread.Lock = false;" & vbCrLf)
				Response.Write("		fpSpread.BackColor = 0xFFFFFF;" & vbCrLf)
				Response.Write("		fpSpread.CellType = 8;" & vbCrLf)
				Response.Write("		fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
			End If
			Response.Write("		fpSpread.Col = 1;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Content.Fields("勘定CD") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvKanjyoMeisyo(Content.Fields("勘定CD")) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表借方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 4;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("試算表貸方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 5;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入借方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 6;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("整理記入貸方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 7;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書借方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 8;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("損益計算書貸方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 9;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表借方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 10;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(Content.Fields("貸借対照表貸方金額"), false ,true) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 11;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Content.Fields("勘定区分") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 12;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Content.Fields("貸借区分") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 0;" & vbCrLf)
			Response.Write("		fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop
		'選択行の色を変える動作を再開(090624小野)
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える(090624小野)

	%>
	}


	function SpreadInsertItem2(fpSpread)
	{
		fpSpread.MaxRows = fpSpread.MaxRows + 1;
		fpSpread.InsertRows(fpSpread.ActiveRow,1);
		fpSpread.Row = fpSpread.ActiveRow;
		fpSpread.Col = 0;
		fpSpread.Text = " ";
		fpSpread.Col = 1;
		fpSpread.Lock = false;
		fpSpread.BackColor = 0xFFFFFF;
		fpSpread.Col = 2;
		fpSpread.Lock = false;
		fpSpread.BackColor = 0xFFFFFF;
		fpSpread.CellType = 8;
<%
	Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
%>
		SpreadRowColor(fpSpread);	//選択行の色を変える(090624小野)
	}

	StrKanjyoKubun = "<% = StrKanjyoKubun %>";
	aKanjyoKubun = StrKanjyoKubun.split("-");

	StrTaisyakuKubun = "<% = StrTaisyakuKubun %>";
	aTaisyakuKubun = StrTaisyakuKubun.split("-");


	function SpreadDelItem2(fpSpread) {

		fpSpread.Row = fpSpread.ActiveRow;
		fpSpread.Col = 1;
		if (fpSpread.Lock != true) {
			if (fpSpread.MaxRows >= 1) {
				fpSpread.DeleteRows(fpSpread.ActiveRow,1);
				fpSpread.MaxRows = fpSpread.MaxRows - 1;
				SetGokei();
			}
		} else {
			alert("試算表貸借が存在する行は削除できません \n\n整理記入の貸借をクリアしたい場合は \n額面に 0 を入力して保存してください ");
		}
		SpreadRowColor(fpSpread);	//選択行の色を変える(090624小野)
	}


	function SpreadAddItem3(fpSpread)
	{
		fpSpread.MaxRows = fpSpread.MaxRows + 1;
		fpSpread.Col = 0;
		fpSpread.Row = fpSpread.MaxRows;
		fpSpread.Text = " ";
		fpSpread.Col = 1;
		fpSpread.Lock = false;
		fpSpread.BackColor = 0xFFFFFF;
		fpSpread.Col = 2;
		fpSpread.Lock = false;
		fpSpread.BackColor = 0xFFFFFF;
		fpSpread.CellType = 8;
<%
		Response.Write("fpSpread.TypeComboBoxList = """ & ListText & """;" & vbCrLf)
%>
		fpSpread.focus();
		fpSpread.SetActiveCell(1, fpSpread.MaxRows);
		SpreadRowColor(fpSpread);	//選択行の色を変える(090624小野)
	}

	function SetGokei()
	{
		var Tmp = Array(10);
		var TmpGokei = Array(10);

		for(jj = 3; jj <= 10; jj++)
		{
			TmpGokei[jj] = 0;
		}

		for(ii = 1; ii <= document.vaSpread1.MaxRows; ii++)
		{
			var Tmp1, KanjyoKubun, TaisyakuKubun;
			Tmp1 = 0;
			for(jj = 3; jj <= 10; jj++)
			{
				document.vaSpread1.Row = ii;
				document.vaSpread1.Col = 11;
				KanjyoKubun = document.vaSpread1.Text;
				document.vaSpread1.Col = 12;
				TaisyakuKubun = document.vaSpread1.Text;


				document.vaSpread1.Col = jj;

				var Text1;
				Text1 = ""
				if(jj == 3 || jj == 4 || jj == 5 || jj == 6)
				{
					Text1 = document.vaSpread1.Text;
					Text1 = ReplaceStr(Text1, ",", "")
					if(Text1 == "")
					{
						Text1 = 0;
					}
					else
					{
						Text1 = Math.floor(Text1);
					}


					if(jj == 3){Tmp1 = Text1;}
					else if(jj == 4){Tmp1 = Tmp1 - Text1;}
					else if(jj == 5){Tmp1 = Tmp1 + Text1;}
					else if(jj == 6){Tmp1 = Tmp1 - Text1;}

				}
				else
				{
					Text1 = 0;
					//if(jj == 7 && KanjyoKubun == "P" && TaisyakuKubun == "D"){Text1 = Tmp1;}
					//else if(jj == 8 && KanjyoKubun == "P" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;}
					//else if(jj == 9 && KanjyoKubun == "B" && TaisyakuKubun == "D"){Text1 = Tmp1;}
					//else if(jj == 10 && KanjyoKubun == "B" && TaisyakuKubun == "C"){Text1 = -1 * Tmp1;}
                    //貸借区分に依存させない(100215小野)
					if(jj == 7 && KanjyoKubun == "P" && Tmp1 > 0){Text1 = Tmp1;}
					else if(jj == 8 && KanjyoKubun == "P" && Tmp1 < 0){Text1 = -1 * Tmp1;}
					else if(jj == 9 && KanjyoKubun == "B" && Tmp1 > 0){Text1 = Tmp1;}
					else if(jj == 10 && KanjyoKubun == "B" && Tmp1 < 0){Text1 = -1 * Tmp1;}
					if(Text1 != 0)
					{
						document.vaSpread1.value = Text1;
					}
					else
					{
						document.vaSpread1.value = "";
					}
				}

				Tmp[jj] = Text1;
				TmpGokei[jj] = TmpGokei[jj] + Text1;
			}

		}

		for(jj = 3; jj <= 4; jj++)
		{
			document.vaSpread2.Row = 1;
			document.vaSpread2.Col = jj;
			document.vaSpread2.value = TmpGokei[jj];
		}
		for(jj = 5; jj <= 6; jj++)
		{
			document.vaSpread2.Row = 3;
			document.vaSpread2.Col = jj;
			document.vaSpread2.value = TmpGokei[jj];
		}


		if (TmpGokei[7] > TmpGokei[8]) {

			document.vaSpread2.Row = 2;
			document.vaSpread2.Col = 2;
			document.vaSpread2.value = "当期損失";
			document.vaSpread2.Col = 7;
			document.vaSpread2.value = "";
			document.vaSpread2.Col = 8;
			document.vaSpread2.value = TmpGokei[7] - TmpGokei[8];
			document.vaSpread2.Col = 9;
			document.vaSpread2.value = TmpGokei[7] - TmpGokei[8];
			document.vaSpread2.Col = 10;
			document.vaSpread2.value = "";

			document.vaSpread2.Row = 3;
			document.vaSpread2.Col = 7;
			document.vaSpread2.value = TmpGokei[7];
			document.vaSpread2.Col = 8;
			document.vaSpread2.value = TmpGokei[7];
			document.vaSpread2.Col = 9;
			document.vaSpread2.value = TmpGokei[10];
			document.vaSpread2.Col = 10;
			document.vaSpread2.value = TmpGokei[10];

		} else {

			document.vaSpread2.Row = 2;
			document.vaSpread2.Col = 2;
			if (TmpGokei[7] < TmpGokei[8]) {
				document.vaSpread2.value = "当期利益";
			} else {
				document.vaSpread2.value = "当期";
			}
			document.vaSpread2.Col = 7;
			document.vaSpread2.value = TmpGokei[8] - TmpGokei[7];
			document.vaSpread2.Col = 8;
			document.vaSpread2.value = "";
			document.vaSpread2.Col = 9;
			document.vaSpread2.value = "";
			document.vaSpread2.Col = 10;
			document.vaSpread2.value = TmpGokei[8] - TmpGokei[7];

			document.vaSpread2.Row = 3;
			document.vaSpread2.Col = 7;
			document.vaSpread2.value = TmpGokei[8];
			document.vaSpread2.Col = 8;
			document.vaSpread2.value = TmpGokei[8];
			document.vaSpread2.Col = 9;
			document.vaSpread2.value = TmpGokei[9];
			document.vaSpread2.Col = 10;
			document.vaSpread2.value = TmpGokei[9];

		}


	}

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	if(KeyAsciiCode == 9 && KeyShift == 0){}
//	else SpreadKeyDown(this, KeyAsciiCode, KeyShift);
	if(KeyAsciiCode == 46 && this.EditMode == false)
	{
		SetGokei();
	}
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)

	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
	End If
	Call SetRenewCell(Me, ColNo, RowNo)
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
	SetRenewCell(this, ColNo, RowNo)
	this.focus();
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
	function SetRenewCell(obj, ColNo, RowNo)
	{

		if(ColNo == 1)
		{
			obj.Row = RowNo;
			var tmp, tmpIdx;

			obj.Col = 1;
			tmp = "" + obj.value;
			tmp = ConvKanjyoMeisyoDx(tmp);
			obj.Col = 2;
			for(ii = 1; ii <= obj.TypeComboBoxCount; ii++)
			{
				obj.TypeComboBoxIndex = ii;
				if(tmp == obj.TypeComboBoxString)
				{
					tmpIdx = ii;
					obj.Col = 11;
					obj.Text = aKanjyoKubun[tmpIdx];

					tmpIdx = ii;
					obj.Col = 12;
					obj.Text = aTaisyakuKubun[tmpIdx];
				}
			}
			obj.Col = 2;
			obj.TypeComboBoxRemoveItem(2, RowNo, 0);
			obj.TypeComboBoxIndex = 0;
			obj.TypeComboBoxString = tmp;
			obj.Text = tmp;

			obj.Col = 2;
			tmpIdx = obj.TypeComboBoxCurSel;


		}
		else if(ColNo == 2)
		{
			obj.Row = RowNo;

			obj.Col = 2;
			var tmp, tmpIdx;
			tmpIdx = obj.TypeComboBoxCurSel;

			obj.Col = 2;
			obj.Row = RowNo;
			tmp = ConvRevKanjyoMeisyo(obj.Text);
			obj.Col = 1;
			obj.value = tmp;

			obj.Col = 2;
			for(ii = 1; ii <= obj.TypeComboBoxCount; ii++)
			{
				obj.TypeComboBoxIndex = ii;
				if(obj.Text == obj.TypeComboBoxString)
				{
					tmpIdx = ii;
					obj.Col = 11;
					obj.Text = aKanjyoKubun[tmpIdx];

					tmpIdx = ii;
					obj.Col = 12;
					obj.Text = aTaisyakuKubun[tmpIdx];
				}
			}
//			obj.focus();
		}
		else if(ColNo == 5 || ColNo == 6)
		{
			SetGokei();
		}
	}
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	ヘッダー列クリック時にソートしない場合にはコメントアウトする
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	SpreadRowColor(this);	//選択行の色を変える(090624小野)
	this.EditMode = true;
</SCRIPT>

<SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript">
	document.vaSpread1.focus();
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript">
	this.Col = Col;
	this.Row = Row;
	if(this.CellType == 12) {
		if(!Mode) {
			this.TypeCurrencyLeadingZero = 2;
		}
	}
	SpreadRowColor(this);	//選択行の色を変える(090624小野)
	this.focus();
</SCRIPT>


<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadInit 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
	document.vaSpread2.Redraw = false;
//	SpreadLoad(document.vaSpread1, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9, "勘定区分", 1, 0, "貸借区分", 1, 0);
//	SpreadLoad(document.vaSpread2, "勘定CD", 21, 4, "勘定名称", 1, 13, "試算表借方", 12, 9, "試算表貸方", 12, 9, "整理記入借方", 12, 9, "整理記入貸方", 12, 9, "損益計算書借方", 12, 9, "損益計算書貸方", 12, 9, "貸借対照表借方", 12, 9, "貸借対照表貸方", 12, 9);
	SpreadLoad(document.vaSpread1, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4, "勘定区分", 1, 0, "貸借区分", 1, 0);
	SpreadLoad(document.vaSpread2, "勘定CD", 21, 5.6, "勘定名称", 1, 19, "試算表借方", 12, 10.4, "試算表貸方", 12, 10.4, "整理記入借方", 12, 10.4, "整理記入貸方", 12, 10.4, "損益計算書借方", 12, 10.4, "損益計算書貸方", 12, 10.4, "貸借対照表借方", 12, 10.4, "貸借対照表貸方", 12, 10.4);


	document.vaSpread1.ScriptEnhanced = true;
	document.vaSpread2.ScriptEnhanced = true;



	document.vaSpread2.OperationMode = 1;

	document.vaSpread2.ColHeadersShow = false;
	document.vaSpread2.Col = -1;
	document.vaSpread2.Row = -1;
	document.vaSpread2.FontSize = 10;

	document.vaSpread2.BackColorStyle = 1;
	document.vaSpread2.Row = -1;
	document.vaSpread2.Col = -1;
	document.vaSpread2.BackColor = 0xE6E6E6;
	document.vaSpread2.Lock = true;
	document.vaSpread2.MaxRows = 0;
	SpreadAddItem(document.vaSpread2);
	SpreadAddItem(document.vaSpread2);
	SpreadAddItem(document.vaSpread2);
	document.vaSpread2.Col = 2;
	document.vaSpread2.Row = 1;
	document.vaSpread2.Text = "試算表合計"
	document.vaSpread2.Row = 2;
	document.vaSpread2.Text = "当期損益"
	document.vaSpread2.Row = 3;
	document.vaSpread2.Text = "合計"


	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = 0;
	document.vaSpread1.FontSize = 10;
	document.vaSpread1.RowHeight(0) = 10;
	document.vaSpread1.ColHeaderRows = 2;

	//その他の Spread に関する設定はここに入れる
	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.FontSize = 10;

	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = -1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;

	document.vaSpread1.Col = 5;
	document.vaSpread1.BackColor = 0xFFFFFF;
	document.vaSpread1.Lock = false;
	document.vaSpread1.Col = 6;
	document.vaSpread1.BackColor = 0xFFFFFF;
	document.vaSpread1.Lock = false;


	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = 0;
	document.vaSpread1.FontSize = 11;
	document.vaSpread1.RowHeight(0) = 12;
	document.vaSpread1.ColHeaderRows = 2;

	var SpreadHeader;
	SpreadHeader = -1000;
	document.vaSpread1.AddCellSpan(1, SpreadHeader, 2, 2);
	document.vaSpread1.AddCellSpan(3, SpreadHeader, 2, 1);
	document.vaSpread1.AddCellSpan(5, SpreadHeader, 2, 1);
	document.vaSpread1.AddCellSpan(7, SpreadHeader, 2, 1);
	document.vaSpread1.AddCellSpan(9, SpreadHeader, 2, 1);
	document.vaSpread1.Row = SpreadHeader;
	document.vaSpread1.Col = 1;
	document.vaSpread1.Text = "勘定科目";
	document.vaSpread1.Col = 3;
<% If Kimatsu = "Kurikoshi" Then %>
	document.vaSpread1.Text = "修正後残高試算表";
<% Else %>
	document.vaSpread1.Text = "残高試算表";
<% End If %>
	document.vaSpread1.Col = 5;
<% If Kimatsu = "Kurikoshi" Then %>
	document.vaSpread1.Text = "振替記入";
<% Else %>
	document.vaSpread1.Text = "整理記入";
<% End If %>
	document.vaSpread1.Col = 7;
	document.vaSpread1.Text = "損益計算書";
	document.vaSpread1.Col = 9;
	document.vaSpread1.Text = "貸借対照表";

	document.vaSpread1.Row = SpreadHeader + 1;
	document.vaSpread1.Col = 3;
	document.vaSpread1.Text = "借方";
	document.vaSpread1.Col = 4;
	document.vaSpread1.Text = "貸方";
	document.vaSpread1.Col = 5;
	document.vaSpread1.Text = "借方";
	document.vaSpread1.Col = 6;
	document.vaSpread1.Text = "貸方";
	document.vaSpread1.Col = 7;
	document.vaSpread1.Text = "借方";
	document.vaSpread1.Col = 8;
	document.vaSpread1.Text = "貸方";
	document.vaSpread1.Col = 9;
	document.vaSpread1.Text = "借方";
	document.vaSpread1.Col = 10;
	document.vaSpread1.Text = "貸方";

	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);

	SetGokei();

	document.vaSpread1.ReDraw = true;
	document.vaSpread2.ReDraw = true;

</SCRIPT>



<% End If %>



<% = HtmlFooter %>
</html>
<%
End Sub
%>