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

<%
'<!--
'################################################
'	 名称	:株主資本等変動計算書の入力
'	 作成日	:2007/1/26
'	 作成者	:小野
'	 目的	:株主資本等変動計算書を記帳する
'	 概要	:
'################################################
'-->
'
%>
<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt


	Dim RouteType
	RouteType = Request("RouteType")

	Dim PageType
	Dim PageType2
	PageType = "株主資本等変動計算書"
	PageType2 = "株主資本変動計算"

	Dim Url
	Url = Request.ServerVariables("URL")

%>
<html>
<% = HtmlHeader("") %>
<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">
<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 PackageMode = 1 Then
		Response.Write(HttpL2("メインメニュー" ,"tblbtn('/" & HomeAlias & "/user/bk/menu_cyac.asp')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType2, "", "", "", "", "", "", ""))
	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')", PageType2, "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	If GB_IEmode = "1" Then
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	Else
		'※HttpL3_1にボタンを追加する事前処理(210107小野)
		Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();SpSetZandaka();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');"))
	End If

	'Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "", "", "", "", "", "", "", ""))
	Response.Write(HttpL3_2("照会", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "')", "印刷", "tblbtn( '" & Replace(Url, ".asp", "_view.asp") & "?RouteType=" & RouteType & "&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">
			<table width="680" height="100%" border="0" cellspacing="5" cellpadding="15" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center">
						<table width="620" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="120" cellspacing="0" cellpadding="0">
										<tr>
											<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpaceH(PageType) %></td>
										</tr>
									</table>
								</td>
							</tr>
<% 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="864" 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>
<% Else %>
<%
	Dim WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthCell6, WidthCell7, WidthParent
	Dim HeightCell
	HeightCell = 23
	WidthCell1 = 150
	WidthCell2 = 180
	WidthCell3 = 180
	WidthCell4 = 95
	WidthCell5 = 120
	WidthCell6 = 40
	WidthCell7 = 100
	WidthParent = 892
%>
				<TR> 
					<TD VALIGN="BOTTOM" HEIGHT="<% = HeightCell %>">
						<TABLE HEIGHT="<% = HeightCell %>" BORDER="1" CELLPADDING="0" CELLSPACING="0" BORDERCOLOR="#000000" BGCOLOR="#DDDDDD" CLASS="tx1214" STYLE="border-collapse: collapse">
							<TR ALIGN="CENTER" HEIGHT="<% = HeightCell %>"> 
								<TD WIDTH="<% = WidthCell1 %>">集計分類1</TD>
								<TD WIDTH="<% = WidthCell2 %>">集計分類2</TD>
								<TD WIDTH="<% = WidthCell3 %>">集計分類3</TD>
								<TD WIDTH="<% = WidthCell4 %>">集計区分</TD>
								<TD WIDTH="<% = WidthCell5 %>">変動額細目</TD>
								<TD WIDTH="<% = WidthCell6 %>" CLASS="tx1416">±</TD>
								<TD WIDTH="<% = WidthCell7 %>">金額</TD>
							</TR>
						</TABLE>
					</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="1" CELLSPACING="0" CELLPADDING="0" BORDERCOLOR="#000000" BGCOLOR="#FFFFFF" CLASS="tx1214" 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) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(1) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(1) = "" 'セルスタイルclass
	SpCellStyle(1) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(1) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト
	SpInputChange(1) = "" 'onChangeで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(2) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "" 'セルスタイルclass
	SpCellStyle(2) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(2) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト
	SpInputChange(2) = "" 'onChangeで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(3) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "" 'セルスタイルclass
	SpCellStyle(3) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(3) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト
	SpInputChange(3) = "" 'onChangeで作動させるスクリプト
	SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpCellWidth(4) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(4) = "" 'セルスタイルclass
	SpCellStyle(4) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(4) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "" 'onBlurで作動させるスクリプト
	SpInputChange(4) = "" 'onChangeで作動させるスクリプト
	SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(5) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "" 'セルスタイルclass
	SpCellStyle(5) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(5) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "FormStrLeftIME(this,30,true);" 'onBlurで作動させるスクリプト
	SpInputChange(5) = "" 'onChangeで作動させるスクリプト
	SpInputRO(5) = "" 'フォームreadonlyフラグ("1")
	'列6定義
	SpCellType(6) = "9" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpCellWidth(6) = WidthCell6 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(6) = "" 'セルスタイルclass
	SpCellStyle(6) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(6) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
	SpInputChange(6) = "" 'onChangeで作動させるスクリプト
	SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
	'列7定義
	SpCellType(7) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨)
	SpCellWidth(7) = WidthCell7 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(7) = "" 'セルスタイルclass
	SpCellStyle(7) = "border:1px solid #000000;" 'セルスタイル
	SpInputCls(7) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(7) = "" 'フォームスタイル
	SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(7) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputChange(7) = "" 'onChangeで作動させるスクリプト
	SpInputRO(7) = "" 'フォームreadonlyフラグ("1")

								ii = 0
								Query = "exec SPK帳簿_株主資本等変動計算書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
								Set Content = OpenQuery(Query)
								If Content.BOF Or Content.EOF Then
									'存在しなければSYSORIGNのマスタを取得
									Query = "exec SPK帳簿_株主資本等変動計算書取得M '" & GB_SystemCD & "', 'SYSORIGN', 'K001'"
									Set Content = OpenQuery(Query)
								End If
								Set Content = OpenQuery(Query)    
							    Do While Not(Content.BOF Or Content.EOF)

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	SpInputValue(1) = Content.Fields("集計分類1") 'フォーム初期値
	SpInputValue(2) = Content.Fields("集計分類2") 'フォーム初期値
	SpInputValue(3) = Content.Fields("集計分類3") 'フォーム初期値
	SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(4) = SpInputOption(4) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(4) = SpInputOption(4) & "<option value=""前期末残高"""
	If "" & Content.Fields("集計区分") = "1" Then
		SpInputOption(4) = SpInputOption(4) & " selected"
	End If
	SpInputOption(4) = SpInputOption(4) & ">前期末残高</option>"' & vbCrLf
	SpInputOption(4) = SpInputOption(4) & "<option value=""当期変動額"""
	If "" & Content.Fields("集計区分") = "2" Then
		SpInputOption(4) = SpInputOption(4) & " selected"
	End If
	SpInputOption(4) = SpInputOption(4) & ">当期変動額</option>"' & vbCrLf
	SpInputValue(5) = Content.Fields("変動額細目") 'フォーム初期値
	SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(6) = SpInputOption(6) & "<option value=""+"""
	If "" & Content.Fields("加減区分") = "+" Then
		SpInputOption(6) = SpInputOption(6) & " selected"
	End If
	SpInputOption(6) = SpInputOption(6) & ">+</option>"' & vbCrLf
	SpInputOption(6) = SpInputOption(6) & "<option value=""-"""
	If "" & Content.Fields("加減区分") = "-" Then
		SpInputOption(6) = SpInputOption(6) & " selected"
	End If
	SpInputOption(6) = SpInputOption(6) & ">-</option>"' & vbCrLf
	SpInputValue(7) = ConvIntToMoney(Content.Fields("金額"), false ,false) 'フォーム初期値
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

If 0=1 Then
									Response.Write("<TR ALIGN=""CENTER"" HEIGHT=""" & HeightCell & """>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell1 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類1") & "</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell2 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類2") & "</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell3 & """ ALIGN=""LEFT"">" & Content.Fields("集計分類3") & "</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell4 & """ ALIGN=""CENTER"">" & Content.Fields("集計区分") & "</TD>" & vbCrLf) '1:前期末残高 2:当期変動額
									Response.Write("<TD WIDTH=""" & WidthCell5 & """ ALIGN=""LEFT"">" & Content.Fields("変動額細目") & "</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell6 & """ ALIGN=""CENTER"" CLASS=""tx1416"">" & Content.Fields("加減区分") & "</TD>" & vbCrLf)
									Response.Write("<TD WIDTH=""" & WidthCell7 & """ ALIGN=""CENTER"">" & ConvIntToMoney(Content.Fields("金額"), false ,false) & "</TD>" & vbCrLf)
									Response.Write("</TR>")
End If
									ii = ii + 1
									Content.MoveNext
								Loop

	'スプレッドシートの空白行を発生させる
	SpInputValue(1) = "" 'フォーム初期値
	SpInputValue(2) = "" 'フォーム初期値
	SpInputValue(3) = "" 'フォーム初期値
	SpInputOption(4) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(4) = SpInputOption(4) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(4) = SpInputOption(4) & "<option value=""前期末残高"">前期末残高</option>"' & vbCrLf
	SpInputOption(4) = SpInputOption(4) & "<option value=""当期変動額"">当期変動額</option>"' & vbCrLf
	SpInputValue(5) = "" 'フォーム初期値
	SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(6) = SpInputOption(6) & "<option value=""+"">+</option>"' & vbCrLf
	SpInputOption(6) = SpInputOption(6) & "<option value=""-"">-</option>"' & vbCrLf
	SpInputValue(7) = "" 'フォーム初期値
	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>
<% End If %>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>
</form>

</body>



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

//↑ブラウザ不問の共通関数
</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 SubmitCheck() {
		form1.SendValue.value = ""
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var RowText;
			var bCheck;
			bCheck = new Array();
			RowText = "";
			for (ii = 1; ii <= SpMaxCol; ii++) {
				var Text1;
				Text1 = form1[Target + ii].value;
				//通貨のカンマ区切りを外す
				if (ii == 7) {
					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 (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[4] == 1) {
					alert("集計区分を選択してください");
					form1[Target + 4].focus();
					return;
				}
				if (bCheck[7] == 1) {
//金額NULLは0扱いなので許容
//					alert("金額を入力してください");
//					form1[Target + 7].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();
	form1.SpCell1_7.focus();

}

</SCRIPT>



<% Else 'IEモード %>



<SCRIPT LANGUAGE="JavaScript">

	function SubmitCheck()
	{

		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;

				var Text1;
				Text1 = document.vaSpread1.Text;

				//文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野)
				if(document.vaSpread1.ColID == 1 || document.vaSpread1.ColID == 18 || document.vaSpread1.ColID == 21 || document.vaSpread1.ColID == 22)
				{
					Text1 = ReplaceStr(Text1, ",", "CommammoC")
					Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
				}
				//文字型・適用型フィールドの半角カンマ・セミコロンを代替文字に変換する処理(070201小野)

				if(document.vaSpread1.ColID == 12)	//通貨型からカンマを除く処理
				{
					Text1 = ReplaceStr(Text1, ",", "")
				}

				RowText = RowText + Text1;
				RowText = RowText + ",";

				bCheck[ii] = 0;
				if(Text1 == "")
				{
					bCheck[ii] = 1;
				}
			}

			if(ReplaceStr(RowText, ",", "") != "")
			{
				if(bCheck[4] == 1)
				{
					alert("集計区分を選択してください");
					document.vaSpread1.SetActiveCell(4, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if(bCheck[7] == 1)
				{
//金額NULLは0扱いなので許容
//					alert("金額を入力して下さい");
//					document.vaSpread1.SetActiveCell(7, jj);
//					document.vaSpread1.focus();
//					document.vaSpread1.EditMode = true;
//					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}

		}

		SubmitReal(form1);
		return true;
	}


	function SpreadInit(fpSpread)
	{
		fpSpread.MaxRows = 0;
<%
		Dim Query
		Dim Content
		Dim ii
		ii = 0

		Query = "exec SPK帳簿_株主資本等変動計算書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			Query = "exec SPK帳簿_株主資本等変動計算書取得M '" & GB_SystemCD & "', 'SYSORIGN', 'K001'"
			Set Content = OpenQuery(Query)
		End If

		'選択行の色を変える動作を停止(090624小野)
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Dim ShukeiKubun
		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)
			Response.Write("		fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類1"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類2"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Replace(Replace("" & Content.Fields("集計分類3"), "\", "\\"), """", "”") & """;" & vbCrLf)
			ShukeiKubun = "" & Content.Fields("集計区分")
			If ShukeiKubun = "1" Then
				ShukeiKubun = "前期末残高"
			Else
				ShukeiKubun = "当期変動額"
			End If
			Response.Write("		fpSpread.Col = 4;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ShukeiKubun & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 5;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & Replace(Replace("" & Content.Fields("変動額細目"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 6;" & vbCrLf)
			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 = 0;" & vbCrLf)
			Response.Write("		fpSpread.Text = "" "";" & vbCrLf)
		Content.MoveNext
		Loop

		If ii = 0 Then
			Response.Write("		SpreadAddItem(fpSpread);")
			Response.Write("		fpSpread.SetActiveCell(1, 1);" & vbCrLf)
			Response.Write("		fpSpread.EditMode=true;")
		End If
		'選択行の色を変える動作を再開(090624小野)
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える(090624小野)
	%>
	}

</SCRIPT>

<SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript">
	document.vaSpread1.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;

	SpreadLoad(document.vaSpread1, "集計分類1", 1, 20, "集計分類2", 1, 20, "集計分類3", 1, 20, "集計区分", 8, 12, "当期変動額細目", 1, 15, "±", 8, 3.5, "金額", 12, 12);

	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;


	var SpreadHeader;
	SpreadHeader = -1000;

	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 4;
	document.vaSpread1.TypeComboBoxList = "\t前期末残高\t当期変動額"
	document.vaSpread1.Col = 6;
	document.vaSpread1.TypeComboBoxList = "\t+\t-"

	SpreadInit(document.vaSpread1);

	document.vaSpread1.SetActiveCell(1,1)

	document.vaSpread1.ReDraw = true;

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>


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

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

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



<% End If %>



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