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

<%
'<!--
'################################################
'	名称	:経費管理・労務費管理
'	作成日	:2016/1/28
'	作成者	:小野
'	目的	:
'	概要	:
'################################################
'-->
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt


	Dim PageType								'ページの種類	"仕入" or "売上"かを判定
	Dim SyohinCD , Shohinmei , ShohinRyakumei		'商品コード、商品名称、商品略名称
	Dim HanbaiTanka , ShireTnanka , UnsoTanka		'標準販売単価、標準仕入単価、運送費単価
	Dim SokoryoTanka , Jyuryo , Yoseki			'倉庫料単価、重量、容積
	Dim Bikou						'備考
	Dim GazoFile
	Dim Tani
	Dim Lot
	Dim SyohinKubun
	Dim ShijyoCD, SyoyuKaisyaCD

	Dim ii

	Dim Query
	Dim Content

	PageType = Request("Pagetype")
	SyohinCD = Request("SyohinCD")
	SyohinKubun = Request("SyohinKubun")

	Dim Mode
	Mode = Request("Mode")

	Dim Title
	If SyohinKubun = "Z" Then
		Title = "材料"
	Else
		Title = "商品"
	End If

	Dim Kubun
	Kubun = Request("Kubun")
	If Kubun = "" Then
		Kubun = "K"
	End If

	Dim Label
	Label = "経費"
	Dim LabelSep
	LabelSep = "経 費"
	If Kubun <> "K" Then
		Label = "労務費"
		LabelSep = "労 務 費"
	End If


	Dim GakuseiBango
	If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
	Else
		GakuseiBango =  GB_GakuseiNo
	End If

'演習名称GET
'	Dim EnshuName
'	EnshuName = ConvEnshuMeisyo(EnshuCD)


	If SyohinCD <> "" Then

		Query = "exec SPM" & Title & "取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & SyohinCD & "'"

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			ShijyoCD = Content.Fields("市場CD")
			Shohinmei = Content.Fields("" & Title & "名称")
			ShohinRyakumei = Content.Fields("" & Title & "略名称")
			HanbaiTanka = Content.Fields("標準販売単価")
			ShireTnanka = Content.Fields("標準仕入単価")
			UnsoTanka = Content.Fields("運送料単価")
			SokoryoTanka = Content.Fields("倉庫料単価")
			Jyuryo = Content.Fields("" & Title & "重量")
			Yoseki = Content.Fields("" & Title & "容積")
			Bikou = Content.Fields("備考")
			GazoFile = Content.Fields("画像ファイル")
			Tani = Content.Fields("単位")
			Lot = Content.Fields("ロット")
			SyoyuKaisyaCD = Content.Fields("所有会社CD")
		End If

	End If

	Dim jj,tmps

%>
<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)"	 name="form1" method="POST" action="fd_keihiroumuhi_bin.asp" autocomplete="off">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="SyohinCD" value="<% = SyohinCD %>">
<input type="hidden" name="SyohinKubun" value="<% = SyohinKubun %>">
<input type="hidden" name="Kubun" value="<% = Kubun %>">
<input type="hidden" name="SendValue" value="">
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(2))

	Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", Label & "管理", "", "", "", "", ""))

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

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

	Response.Write(HttpL3_2("一覧表示", "tblbtn( '/" & HomeAlias & "/admin/master/shohin/fm_shohin_ichiran.asp?PageType=" & PageType & "&SyohinCD=" & SyohinCD & "&SyohinKubun=" & SyohinKubun & "&Mode=" & Mode & "&Kubun=" & Kubun & "')", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL4(Label & "管理", ""))

%>



<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" style="background-image: url('images/bkimg_bsq.gif'); background-repeat: repeat-y; background-attachment: scroll; background-position: 0% 50%">
			<table width="601" height="388" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
				<tr>
					<td width="600" height="40">
						<table width="586" height="40" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td width="100%" align="right" valign="bottom">
									<table  width="100%" border="0" cellpadding="0" cellspacing="0" width="100%">
										<tr>
											<td height="3" colspan="3" onMouseOver="this.focus();this.focus();"><img src="/<% = HomeAlias %>/images/spacer.gif" height="1"></td>
										</tr>
										<tr>
											<td width="30" valign="bottom"></td>
											<td width="145">
												<table width="160" height="30" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td height="30" class="tx2022"><% = LabelSep %> 管 理 表</td>
													</tr>
												</table>
											</td>
											<td>
												<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1618">
														<td height="20" align="right"><% = Title %>名:</td>
														<td height="20" align="left"><% = Shohinmei %></td>
														<td height="20" align="right">ロット:</td>
														<td height="20" align="left"><% = Lot %><% = Tani %></td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
<% If GB_IEmode = "1" Then %>
				<tr>
					<td height="300" align="center" valign="top">
						<table width="510" height="250" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
										<param name="lpkpath" value="spread6.lpk">
									</object>
									<object width="550" height="308" 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>
									<object width="550" height="20" 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>
						</table>
					</td>
				</tr>
<% Else %>
				<tr height="26"> 
					<td align="center" valign="top"> 
						<table width="564" height="26" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<table height="26" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000">
										<tr class="tx1416">
											<td align="center" width="440">科目名</td>
											<td align="center" width="100">金額</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr>
					<td height="250" align="center" valign="top">
						<table width="564" height="353" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:564px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
									<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000">
<%

	'スプレッドシート定義 ※全行共通なのでループ外
	Dim SpMaxRow
	Dim SpRowCnt
	Dim SpMaxCol
	SpRowCnt = 0
	SpMaxRow = SpRowCnt
	'フォーム名
	SpFormName = "SpCell" '
	'行定義
	SpRowHeight = "26" '高さ(pixel指定)
	SpRowCls = "tx1416" '行スタイルclass
	SpRowStyle = "" '行スタイル
	'列1定義
	SpCellType(1) = "1" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpCellWidth(1) = "440" 'セル幅(pixel指定)
	SpCellCls(1) = "" 'セルスタイルclass
	SpCellStyle(1) = "" 'セルスタイル
	SpInputCls(1) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "FormStrLeftIME(this,100,true);" 'onBlurで作動させるスクリプト
	SpInputChange(1) = "" 'onChangeで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "3" '形式指定(0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン)
	SpCellWidth(2) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")

										Dim GokeiKingaku
										GokeiKingaku = 0
										Query = "exec SPM経費労務費取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "'"
										Set Content = OpenQuery(Query)
										Do While Not(Content.BOF Or Content.EOF)

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	SpInputValue(1) = Content.Fields("摘要") 'フォーム初期値
	SpInputValue(2) = ConvIntToMoney(Content.Fields("金額"), false, false) 'フォーム初期値
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

If 0=1 Then
%>
										<tr height="25" class="tx1416"> 
											<td align="left">&nbsp;<% = Content.Fields("摘要") %>
											<td width="110" align="right"><% = SetMoney(Content.Fields("金額"), false, true) %>&nbsp;</td>
										</tr>
<%
End If
											GokeiKingaku = GokeiKingaku + Content.Fields("金額")
											Content.MoveNext
										Loop

	'スプレッドシートの空白行を発生させる
	SpInputValue(1) = "" 'フォーム初期値
	SpInputValue(2) = "" 'フォーム初期値
	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>
						</table>
					</td>
				</tr>
<% End If %>
			</table>
		</td>
	</tr>
</table>

</div>
</form>
</body>



<% 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() {
//alert("SubmitCheck");
		form1.SendValue.value = ""
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var RowText;
			RowText = "";
			var bCheck;
			bCheck = Array();
			var Tekiyo, Kingaku
			for (ii = 1; ii <= SpMaxCol; ii++) {
				bCheck[ii] = 0;
				//通貨の0入力はクリア(onBlurで処理しているが念のため)
				if (ii == 2 && form1[Target + ii].value == "0") {
					form1[Target + ii].value = "";
				}
				var Text1;
				Text1 = form1[Target + ii].value;
//alert("SubmitCheck");
				//通貨のカンマ区切りを外す
				if (ii == 2) {
					Text1 = ReplaceStr(Text1, ",", "");
				}
				//文字型フィールドの半角カンマ・セミコロンを代替文字に変換する処理
				Text1 = ReplaceStr(Text1, ",", "CommammoC")
				Text1 = ReplaceStr(Text1, ";", "SemicolonolocimeS")
				//テンポラリに代入
				if (ii == 1) Tekiyo = '' + Text1;
				if (ii == 2) Kingaku = Math.floor(Text1);
				RowText = RowText + Text1;
				RowText = RowText + ",";
				if (Text1 == "") {
					bCheck[ii] = 1;
				}
			}
			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[1] == 1) {
					alert("科目名を入力してください ");
					form1[Target + 1].focus();
					return;
				}
				if (bCheck[2] == 1) {
					alert("金額を入力してください ");
					form1[Target + 2].focus();
					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
		if (form1.SendValue.value == '') {
			alert("明細を入力してください");
			return false;
		}
//alert(form1.SendValue.value);
		SubmitReal(form1);
		return true;
	}



window.onload = function() {

	form1.SpCell<% = (SpRowCnt + 1) %>_1.focus();

}

</SCRIPT>



<% Else 'IEモード %>
<SCRIPT LANGUAGE="JavaScript">

//################################################
//	名称:SubmitCheck
//	目的:更新前に入力値をチェックする。
//################################################
	function SubmitCheck() {

		form1.SendValue.value = "";

		//** 3.明細部のチェック
		for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
			document.vaSpread1.Row = jj;
			var RowText;
			RowText = "";
			var TmpRowText;
			TmpRowText = "";
			var bCheck;
			bCheck = Array();
			var Tekiyo, Kingaku
			for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
				document.vaSpread1.Col = ii;
				bCheck[ii] = 0;
				//セルを取得
				var Text1;
				Text1 = document.vaSpread1.Text;

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

				//通貨のカンマを除く
				if (document.vaSpread1.ColID == 12) {
					Text1 = ReplaceStr(Text1, ",", "")
				}
				//テンポラリに代入
				if (ii == 1) {
					if ('' + Text1 == '------------------------------') {
						document.vaSpread1.Text = '';
						Text1 = '';
					}
					Tekiyo = '' + Text1;
				}
				if (ii == 2) Kingaku = Math.floor(Text1);
				//行テキストにセルをカンマ区切りで繋げる
				RowText = RowText + Text1;
				RowText = RowText + ",";
				//Nullならエラーフラグを立てる
				if(Text1 == "") {
					bCheck[ii] = 1;
				}
			}
			//行テキストに要素が存在する場合
			if (ReplaceStr(RowText, ",", "") != "" && ReplaceStr(RowText, ",", "") != "0") {	//"0"1文字のみは数量0のみなので要素無しと見なす
				if (bCheck[1] == 1) {
					alert("科目名を入力してください ");
					document.vaSpread1.SetActiveCell(1, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if (bCheck[2] == 1) {
					alert("金額を入力してください ");
					document.vaSpread1.SetActiveCell(2, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
		if (form1.SendValue.value == '') {
			alert("明細を入力してください ");
			return false;
		}

		SubmitReal(form1);
		return true;
	}



	function SetGokei() {
		var TmpGokei = 0;
		for (ii = 1; ii <= document.vaSpread1.MaxRows; ii++) {
			document.vaSpread1.Row = ii;
			document.vaSpread1.Col = 2;
			var Text1, Text2;
			Text1 = document.vaSpread1.value;
			if (Text1 != "") {
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = eval(Text1);
			} else {
				Text2 = 0;
			}
			TmpGokei = TmpGokei + Text2;
		}
		document.vaSpread2.Row = 1;
		document.vaSpread2.Col = 2;
		document.vaSpread2.value = TmpGokei;
	}



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

		Query = "exec SPM経費労務費取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & SyohinKubun & "', '" & SyohinCD & "', '" & Kubun & "'"
'Response.Write(Query)
'Exit Sub
		Set Content = OpenQuery(Query)

		'選択行の色を変える動作を停止(090624小野)
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
'			Response.Write("			SyohinMeisyoArray[" & ii & "] = """ & ConvSyohinMeisyo(Content.Fields("商品CD")) & """;" & vbCrLf)
'			Response.Write("			MotoSuryoArray[" & ii & "] = " & ConvIntToMoney(Content.Fields("数量"), false ,false) & ";" & vbCrLf)
			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("摘要"), "\", "\\"), """", "”") & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 2;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(Content.Fields("金額"), false ,false) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 0;" & vbCrLf)
			Response.Write("			fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop

		'空白行を5行追加し1行目を選択状態にする(080620小野)
		ii = ii + 1
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		Response.Write("		document.vaSpread1.SetActiveCell(1, " & ii & ");" & vbCrLf)
		Response.Write("		fpSpread.EditMode=true;" & vbCrLf)
		'選択行の色を変える動作を再開(090624小野)
		Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
		Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える(090624小野)

%>
	}
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	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="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	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="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)
	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
	Else
		Call SetRenewCell(Me, ColNo, RowNo)
	End If
</SCRIPT>

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

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

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadLoad 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
	document.vaSpread2.Redraw = false;
	SpreadLoad(document.vaSpread1, "科目名",  1, 51.4, "金額", 12, 12.2);
	SpreadLoad(document.vaSpread2, "科目名",  1, 51.4, "金額", 99, 12.2);

	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 = 12;

	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);
	document.vaSpread2.Col = 1;
	document.vaSpread2.Row = 1;
	document.vaSpread2.TypeHAlign = 1; //右寄せ
	document.vaSpread2.Text = "<% = Label %>合計 "

	document.vaSpread1.Col = 1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.TypeMaxEditLen = 127;

	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.FontSize = 12;

//	document.vaSpread1.Col = 2;
//	document.vaSpread1.BackColorStyle = 1;
//	document.vaSpread1.BackColor = 0xE6E6E6;
//	document.vaSpread1.Lock = true;

	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);

	SetGokei();

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


//	form1.Torihikibi.select;
//	form1.Torihikibi.focus();
//	event.returnValue = false;
//	return;

</SCRIPT>
<% End If %>



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