
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：補助簿_商品有高帳
'	 作成日：2002/9/17
'	 作成者：川崎
'	 目的　：補助簿_商品有高帳を表示する。
'	 概要	：
'		<<表示>>
'	・補助簿_商品有高帳の画面
'	履歴　：2002/09/20　川崎　必須入力チェックの追加
'			-　受払区分、取引先
'	履歴　：2012/10/17　小野　材料元帳モードを新設
'################################################
'-->
'
%>

<%
main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt

	Dim ShijoCD
	ShijoCD = Request("ShijoCD")

	Dim SyohinCD
	SyohinCD = Request("SyohinCD")

	Dim Mode
	Mode = Request("Mode")


	Dim PageType
	PageType = "商品有高帳"
	If Mode = "Zairyo" Then
		PageType = "材料元帳"
	End If

	Dim RouteType
	RouteType = Request("RouteType")

	Dim Label
	Label = "商品"
	If Mode = "Zairyo" Then
		Label = "材料"
	End If

	Dim Query, Content

	Dim AutoZandakaNyuryoku
	AutoZandakaNyuryoku = GetEnshuParam(EnshuCD, "残高自動計算")


	'取引先配列作成
	Dim TorihikisakiCDAry
	Dim TorihikisakiAry
	ReDim TorihikisakiCDAry(0)
	ReDim TorihikisakiAry(0)
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") <> KaisyaCD And (PackageMode = 1 Or Content.Fields("業種CD") <> "B") Then	'銀行を除外（080618小野）
			ReDim PreServe TorihikisakiCDAry(UBound(TorihikisakiCDAry) + 1)
			ReDim PreServe TorihikisakiAry(UBound(TorihikisakiAry) + 1)
			TorihikisakiCDAry(UBound(TorihikisakiCDAry)) = "" & Content.Fields("会社CD")
			TorihikisakiAry(UBound(TorihikisakiAry)) = "" & Content.Fields("会社略名称")
		End If
		Content.MoveNext
	Loop
	'小売販売
	If KourihanbaiRiyo() > 0 Then
		ReDim PreServe TorihikisakiCDAry(UBound(TorihikisakiCDAry) + 1)
		ReDim PreServe TorihikisakiAry(UBound(TorihikisakiAry) + 1)
		TorihikisakiCDAry(UBound(TorihikisakiCDAry)) = "SJ4KOURIHANBAI"
		TorihikisakiAry(UBound(TorihikisakiAry)) = "" & ConvKaisyaMeisyo(TorihikisakiCDAry(UBound(TorihikisakiCDAry)))
	End If


	'取引先市場配列作成（081111小野）
	Dim TorihikisakiMeishoAry
	ReDim TorihikisakiMeishoAry(0)
	Dim TorihikisakiShijoAry
	ReDim TorihikisakiShijoAry(0)
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") <> KaisyaCD And (PackageMode = 1 Or Content.Fields("業種CD") <> "B") Then	'（081111小野）
			ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1)
			ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1)
			TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & Content.Fields("会社略名称")
			TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = "" & Content.Fields("市場CD")
		End If
		Content.MoveNext
	Loop
	'小売販売
	If KourihanbaiRiyo() > 0 Then
		ReDim PreServe TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry) + 1)
		ReDim PreServe TorihikisakiShijoAry(UBound(TorihikisakiShijoAry) + 1)
		TorihikisakiMeishoAry(UBound(TorihikisakiMeishoAry)) = "" & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
		TorihikisakiShijoAry(UBound(TorihikisakiShijoAry)) = ""
	End If


	'仕訳日選択モード
	Dim Shiwakebi
	Shiwakebi = "0"
	If ShiwakebiSelect = 1 Then
		Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定")
	End If
'	Shiwakebi = "0"
'	Shiwakebi = "1"
	Dim TmpShiwakebiAry
	Dim ShiwakebiAry '自前フォーム用配列
	ReDim ShiwakebiAry(0)
	If Shiwakebi = "1" Then
		Query = ""
		Query = Query & "  "
		Query = Query & "  "
		Query = Query & " SELECT 取引日 "
		Query = Query & " FROM TSK伝票F "
		Query = Query & " WHERE 削除フラグ = 0 "
		Query = Query & " 	AND システムCD = '" & GB_SystemCD & "' "
		Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
		Query = Query & " 	AND 会社CD = '" & KaisyaCD & "' "
		Query = Query & " GROUP BY 取引日 "
		Query = Query & " ORDER BY 取引日 DESC "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			TmpShiwakebiAry = TmpShiwakebiAry & "\t" & SetTimeYYYYMMDD(Content.Fields("取引日"))
			ReDim PreServe ShiwakebiAry(UBound(ShiwakebiAry) + 1) '配列+1
			ShiwakebiAry(UBound(ShiwakebiAry)) = "" & SetTimeYYYYMMDD(Content.Fields("取引日"))
			Content.MoveNext
		Loop
	End If


	Dim SyohinCDClear
	SyohinCDClear = 1
	Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If ShijoCD = "" Or ShijoCD = "" & Content.Fields("市場CD") Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then	'市場CDが指定されていれば絞込み（081111小野）
			If Content.Fields("" & Label & "CD") = SyohinCD Then
				SyohinCDClear = 0
			End If
		End If
		Content.MoveNext
	Loop
	If SyohinCDClear = 1 Then
		SyohinCD = ""
	End If


	Dim HeightCell
	Dim WidthCell0, WidthCell1, WidthCell2, WidthCell3, WidthCell4, WidthCell5, WidthParent, WidthParent2
	Dim SpreadCls
	Dim BaseText1214
	Dim BaseText1416
	HeightCell = 20
	WidthCell0 = 84
	WidthCell1 = 80
	WidthCell2 = 96
	WidthCell3 = 48
	WidthCell4 = 72
	WidthCell5 = 90
	WidthParent = 926
	WidthParent2 = 904
	If Shiwakebi = "1" Then
		WidthCell0 = WidthCell0 + 10
		WidthParent = WidthParent + 10
	End If
	SpreadCls = "Spread4"
	BaseText1214 = "tx1416"
	BaseText1416 = "tx1618"


	Dim ii
	Dim Torihikibi, UkebaraiKubun, TorihikisakiCD
	Dim UkeireSuryo, UkeireTanka, UkeireKingaku
	Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku
	Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku
	Dim KeisanHoho
	Dim Tani


%>
<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_syohinaridakatyo_bin.asp" name="form1" autocomplete="off">
<!-- testフォームが単一だとEnterでsubmitされてしまうのでダミーフォームを設置 -->
<input type="text" name="dummydummydummydummydummydummydummy" style="display:none;">
<input type="hidden" name="Mode" value="<% = Mode %>">
<input type="hidden" name="RouteType" value="<% = RouteType %>">
<input type="hidden" name="SendValue">
<%
	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')", "手入力帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_cyac3.asp')", PageType, "", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "経理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s1.asp')", "帳簿", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s12.asp')", PageType, "", "", ""))
	End If
	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	If SyohinCD <> "" Then
		'※HttpL3_1にボタンを追加する事前処理（210107小野）
'		Call HttpL3_1_AddBtn("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "")
'		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("行↑", "SpreadShiftRowSub(document.vaSpread1, 'Up');", "行↓", "SpreadShiftRowSub(document.vaSpread1, 'Dn');", "", "", "", "", "", "")
			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()", "行挿入", "SpRowInsertSub();", "行削除", "SpRowDeleteSub();", "行↑", "SpRowShiftSub('Up');", "行↓", "SpRowShiftSub('Dn');"))
		End If
	Else
		Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", ""))
	End If

	If SyohinCD <> "" Then
		'Response.Write(HttpL3_2("照会", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "')", "", "", "", "", "", "", "", ""))
		Response.Write(HttpL3_2("照会", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "')", "印刷", "tblbtn( 'fk_syohinaridakatyo_view.asp?RouteType=" & RouteType & "&Mode=" & Mode & "&SyohinCD=" & SyohinCD & "&AutoPrint=1')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", ""))
	End If

	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="2">
	<tr>
		<td align="center" valign="middle">
			<table width="780" height="100%" border="0" cellspacing="2" cellpadding="5" bgcolor="#ffffff" style="border:1px solid #000000">
				<tr>
					<td align="center">
						<table width="<% = WidthParent %>" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="<% = WidthParent %>" cellspacing="0" cellpadding="0">
										<tr>
											<td width="400" align="left" class="tx1416">
											<% If SyohinCD <> "" Then %>
												計算方法：
												<select name="KeisanHoho" size="1"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %> class="tbox4_w">
													<option value=""></option>
													<option value="SS">先入先出法</option>
													<option value="IH">移動平均法</option>
												<% 'If Mode = "Zairyo" Then %>
													<option value="SH">総平均法</option>
												<% 'End If %>
												</select>
											<% End If %>&nbsp;
											</td>
										<% If GB_IEmode = "1" Then %>
											<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td>
										<% Else %>
											<td align="center" width="30%" class="bb2" nowrap><% = SetStringInsertSpace(PageType) %></td>
										<% End If %>
											<td width="400" align="right" class="tx1416">
											<% If SyohinCD <> "" Then %>
											単位：
												<% If GB_IEmode = "1" Then %>
												<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
													<param name="lpkpath" value="spread6.lpk">
												</object>
												<object width="123" height="20" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5" codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread3" border="0">
												</object>
												<input type="hidden" name="Tani" value="">
												<% Else %>
												<input type="text" name="Tani" size="12" value="<% = Tani %>" class="tbox4_ime" style="background-color:#ffffff;" onBlur="FormStrLeftIME(this,100,true);">
												<% End If %>
											<% End If %>&nbsp;
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td align="center" valign="top" height="25">
									<table border="0" cellpadding="0" cellspacing="0" class="tx1416">
										<tr>
										<% If PackageMode = 1 Then %>
										<% ElseIf Mode = "Zairyo" Then %>
										<% Else %>
											<% If SyohinCD <> "" Then %>
											<td align="center">取引先市場&nbsp;</td>
											<td align="center">
												<select size="1" name="TShijoCD" class="tbox4_w" onChange="SetTorihikisakiShijoList(this.value);"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>>
													<option value="">全て表示</option>
													<%
														Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
														Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
															Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
															Content.MoveNext
														Loop
													%>
												</select>
											</td>
											<td align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
											<% End If %>
											<td align="center">商品市場&nbsp;</td>
											<td align="center">
												<select size="1" name="ShijoCD" class="tbox4_w" onChange="ShijoSelect()"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>>
													<option value="">全て表示</option>
													<%
														Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
														Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
															Response.Write("<option value=""" & Content.Fields("市場CD") & """")
															If Content.Fields("市場CD") = ShijoCD Then
																Response.Write(" selected")
															End If
															Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
															Content.MoveNext
														Loop
														Response.Write("<option value=""higenteietnegih""")
														If ShijoCD = "higenteietnegih" Then
															Response.Write(" selected")
														End If
														Response.Write(">市場非限定</option>" & vbCrLf)
													%>
												</select>
											</td>
											<td align="center">&nbsp;&nbsp;&nbsp;&nbsp;</td>
										<% End If %>
											<td align="center"><% = Label %>名&nbsp;</td>
											<td align="center">
												<select size="1" name="SyohinCD" class="tbox4_w" onChange="SyohinSelect()"<% If GB_IEmode = "1" Then %> onMouseOver="if(SubmitFlg!=0){this.focus();}"<% End If %>>
													<option value="">＜＜ 選択してください ＞＞</option>
													<%
														Query = "exec SPM" & Label & "一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
														Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
															If ShijoCD = "" Or ShijoCD = "" & Content.Fields("市場CD") Or (ShijoCD = "higenteietnegih" And "" & Content.Fields("市場CD") = "") Then	'市場CDが指定されていれば絞込み（081111小野）
																Response.Write("<option value=""" & Content.Fields("" & Label & "CD") & """")
																If Content.Fields("" & Label & "CD") = SyohinCD Then
																	Response.Write(" selected")
																End If
																Response.Write(">" & Content.Fields("" & Label & "名称") & "</option>" & vbCrLf)
															End If
														Content.MoveNext
														Loop
													%>
												</select>
											</td>
										</tr>
									</table>
								</td>
							</tr>
<% If GB_IEmode = "1" Then %>
							<tr>
								<td align="center" valign="middle" style="ime-mode:disabled;">
								<% If SyohinCD <> "" Then %>
									<table width="770" height="100%" border="0" cellspacing="0" cellpadding="0">
										<tr>
											<td valign="middle" align="center">
												<object width="1" height="1" classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
													<param name="lpkpath" value="spread6.lpk">
												</object>
												<br>
												<object width="954" 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>
									</table>
								<% Else %>
									<span class="tx1618"><font color="#ff0000">上のメニューより入力対象の商品を選択してください</font></span>
									<BR>
									<BR>
									<BR>
									<BR>
									<BR>
								<% End If %>
								</td>
							</tr>
<% Else %>
						<% If SyohinCD <> "" Then %>
							<TR>
								<TD HEIGHT="20" VALIGN="BOTTOM">
									<TABLE HEIGHT="20" BORDER="0" class="bt3" CELLPADDING="0" CELLSPACING="0" STYLE="border-collapse: collapse">
									<TR ALIGN="CENTER">
										<TD WIDTH="<% = WidthCell0 %>" rowspan="2" class="br1b1">取引日</TD>
										<TD HEIGHT="<% = HeightCell %>" colspan="2" class="br3b1">摘　要</TD>
										<TD HEIGHT="<% = HeightCell %>" colspan="3" class="br3b1">受　入</TD>
										<TD HEIGHT="<% = HeightCell %>" colspan="3" class="br3b1">払　出</TD>
										<TD HEIGHT="<% = HeightCell %>" colspan="3" class="bb1">残　高</TD>
									</TR>

									<TR ALIGN="CENTER">
										<TD WIDTH="<% = WidthCell1 %>" HEIGHT="<% = HeightCell %>" class="br1b1" nowrap>受払区分</TD>
										<TD WIDTH="<% = WidthCell2 %>" HEIGHT="<% = HeightCell %>" class="br3b1" nowrap>取引先</TD>
										<TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD>
										<TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD>
										<TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
										<TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD>
										<TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD>
										<TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" class="br3b1">金額</TD>
										<TD WIDTH="<% = WidthCell3 %>" HEIGHT="<% = HeightCell %>" class="br1b1">数量</TD>
										<TD WIDTH="<% = WidthCell4 %>" HEIGHT="<% = HeightCell %>" class="br1b1">単価</TD>
										<TD WIDTH="<% = WidthCell5 %>" HEIGHT="<% = HeightCell %>" 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 %>; height:100%; z-index:3; overflow: auto;"> 
										<TABLE ID="SyoukaiList" BORDER="0" CELLSPACING="0" CELLPADDING="0" CLASS="<% = BaseText1214 %>" 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) = "0" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(1) = WidthCell0 'セル幅(pixel指定)
	SpCellCls(1) = "br1" 'セルスタイルclass
	SpCellStyle(1) = "" 'セルスタイル
	SpInputCls(1) = SpreadCls & "C" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "SetDate(this, 1, true);" 'onBlurで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	If Shiwakebi = "1" Then
		SpCellType(1) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
		SpCellWidth(1) = WidthCell0 'セル幅(pixel指定)
		SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
	End If
	'列2定義
	SpCellType(2) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(2) = WidthCell1 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "br1" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
	SpInputRO(2) = "" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(3) = WidthCell2 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "br3" 'セルスタイルclass
	SpCellStyle(3) = "" 'セルスタイル
	SpInputCls(3) = SpreadCls & "L" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "" 'onBlurで作動させるスクリプト
	SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(4) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(4) = "br1" 'セルスタイルclass
	SpCellStyle(4) = "" 'セルスタイル
	SpInputCls(4) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('U');" 'onBlurで作動させるスクリプト
	SpInputRO(4) = "0" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(5) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "br1" 'セルスタイルclass
	SpCellStyle(5) = "" 'セルスタイル
	SpInputCls(5) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('U');" 'onBlurで作動させるスクリプト
	SpInputRO(5) = "0" 'フォームreadonlyフラグ("1")
	'列6定義
	SpCellType(6) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(6) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(6) = "br3" 'セルスタイルclass
	SpCellStyle(6) = "" 'セルスタイル
	SpInputCls(6) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputRO(6) = "0" 'フォームreadonlyフラグ("1")
	If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
		SpInputCls(6) = SpreadCls & "Rro" 'フォームスタイルclass
		SpInputStyle(6) = "" 'フォームスタイル
		SpInputFocus(6) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
		SpInputRO(6) = "1" 'フォームreadonlyフラグ("1")
	End If
	'列7定義
	SpCellType(7) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(7) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(7) = "br1" 'セルスタイルclass
	SpCellStyle(7) = "" 'セルスタイル
	SpInputCls(7) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(7) = "" 'フォームスタイル
	SpInputFocus(7) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(7) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('H');" 'onBlurで作動させるスクリプト
	SpInputRO(7) = "0" 'フォームreadonlyフラグ("1")
	'列8定義
	SpCellType(8) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(8) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(8) = "br1" 'セルスタイルclass
	SpCellStyle(8) = "" 'セルスタイル
	SpInputCls(8) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(8) = "" 'フォームスタイル
	SpInputFocus(8) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(8) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('H');" 'onBlurで作動させるスクリプト
	SpInputRO(8) = "0" 'フォームreadonlyフラグ("1")
	'列9定義
	SpCellType(9) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(9) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(9) = "br3" 'セルスタイルclass
	SpCellStyle(9) = "" 'セルスタイル
	SpInputCls(9) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(9) = "" 'フォームスタイル
	SpInputFocus(9) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(9) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputRO(9) = "0" 'フォームreadonlyフラグ("1")
	If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
		SpInputCls(9) = SpreadCls & "Rro" 'フォームスタイルclass
		SpInputStyle(9) = "" 'フォームスタイル
		SpInputFocus(9) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(9) = "" 'onBlurで作動させるスクリプト
		SpInputRO(9) = "1" 'フォームreadonlyフラグ("1")
	End If
	'列10定義
	SpCellType(10) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(10) = WidthCell3 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(10) = "br1" 'セルスタイルclass
	SpCellStyle(10) = "" 'セルスタイル
	SpInputCls(10) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(10) = "" 'フォームスタイル
	SpInputFocus(10) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(10) = "FormStrFloatEdge(this,5,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('Z');" 'onBlurで作動させるスクリプト
	SpInputRO(10) = "0" 'フォームreadonlyフラグ("1")
	'列11定義
	SpCellType(11) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(11) = WidthCell4 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(11) = "br1" 'セルスタイルclass
	SpCellStyle(11) = "" 'セルスタイル
	SpInputCls(11) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(11) = "" 'フォームスタイル
	SpInputFocus(11) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(11) = "FormStrFloatEdge(this,8,0,true);FormStrFloatCutoff(this,true);SpSetZandaka('Z');" 'onBlurで作動させるスクリプト
	SpInputRO(11) = "0" 'フォームreadonlyフラグ("1")
	'列12定義
	SpCellType(12) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨）
	SpCellWidth(12) = WidthCell5 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(12) = "b0" 'セルスタイルclass
	SpCellStyle(12) = "" 'セルスタイル
	SpInputCls(12) = SpreadCls & "R" 'フォームスタイルclass
	SpInputStyle(12) = "" 'フォームスタイル
	SpInputFocus(12) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(12) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);" 'onBlurで作動させるスクリプト
	SpInputRO(12) = "0" 'フォームreadonlyフラグ("1")
	If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then
		SpInputCls(12) = SpreadCls & "Rro" 'フォームスタイルclass
		SpInputStyle(12) = "" 'フォームスタイル
		SpInputFocus(12) = "this.blur();" 'onFocusで作動させるスクリプト
		SpInputBlur(12) = "" 'onBlurで作動させるスクリプト
		SpInputRO(12) = "1" 'フォームreadonlyフラグ("1")
	End If

		ii = 0
		Query = "exec SPK補助簿_" & PageType & "取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & SyohinCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1
			KeisanHoho = Content.Fields("" & PageType & "計算区分")
'			Tani = Replace(Replace(Content.Fields("単位"), "\", "\\"), """", "”")
			Tani = "" & Content.Fields("単位")
			Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
			UkebaraiKubun = Content.Fields("受払区分")
			TorihikisakiCD = Content.Fields("取引先CD")
			UkeireTanka = Content.Fields("受入単価")
			UkeireSuryo = Content.Fields("受入数量")
			UkeireKingaku = Content.Fields("受入金額")
			HaraidasiTanka = Content.Fields("払出単価")
			HaraidasiSuryo = Content.Fields("払出数量")
			HaraidasiKingaku = Content.Fields("払出金額")
			ZandakaTanka = Content.Fields("残高単価")
			ZandakaSuryo = Content.Fields("残高数量")
			ZandakaKingaku = Content.Fields("残高金額")


	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	If Shiwakebi = "1" Then
		SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
		'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
		If InStr(TmpShiwakebiAry, Torihikibi) < 1 Then
			SpInputOption(1) = SpInputOption(1) & "<option value=""" & Torihikibi & """ selected>" & Torihikibi & "</option>"' & vbCrLf
		End If
		SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf
		For Cnt = 1 To UBound(ShiwakebiAry)
			SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """"
			If ShiwakebiAry(Cnt) = Torihikibi Then
				SpInputOption(1) = SpInputOption(1) & " selected"
			End If
			SpInputOption(1) = SpInputOption(1) & ">" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf
		Next
	Else
		SpInputValue(1) = Torihikibi 'フォーム初期値
	End If
'	SpInputValue(2) = TaisyakuKubun 'フォーム初期値
	SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(2) = SpInputOption(2) & "<option value=""繰越"""
	If UkebaraiKubun = "K" Then
		SpInputOption(2) = SpInputOption(2) & " selected"
	End If
	SpInputOption(2) = SpInputOption(2) & ">繰越</option>"' & vbCrLf
	SpInputOption(2) = SpInputOption(2) & "<option value=""仕入"""
	If UkebaraiKubun = "S" Then
		SpInputOption(2) = SpInputOption(2) & " selected"
	End If
	SpInputOption(2) = SpInputOption(2) & ">仕入</option>"' & vbCrLf
	If Mode = "Zairyo" Then
		SpInputOption(2) = SpInputOption(2) & "<option value=""払出"""
		If UkebaraiKubun = "H" Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">払出</option>"' & vbCrLf
	Else
		SpInputOption(2) = SpInputOption(2) & "<option value=""仕入返品"""
		If UkebaraiKubun = "X" Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">仕入返品</option>"' & vbCrLf
		SpInputOption(2) = SpInputOption(2) & "<option value=""売上"""
		If UkebaraiKubun = "U" Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">売上</option>"' & vbCrLf
		SpInputOption(2) = SpInputOption(2) & "<option value=""売上返品"""
		If UkebaraiKubun = "Y" Then
			SpInputOption(2) = SpInputOption(2) & " selected"
		End If
		SpInputOption(2) = SpInputOption(2) & ">売上返品</option>"' & vbCrLf
	End If
	'SpInputValue(3) = ConvKaisyaRyakuMeisyo(TorihikisakiCD) 'フォーム初期値
	SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TorihikisakiAry)
		SpInputOption(3) = SpInputOption(3) & "<option value=""" & TorihikisakiAry(Cnt) & """"
		If TorihikisakiCD = TorihikisakiCDAry(Cnt) Then
			SpInputOption(3) = SpInputOption(3) & " selected"
		End If
		SpInputOption(3) = SpInputOption(3) & ">" & TorihikisakiAry(Cnt) & "</option>"' & vbCrLf
	Next
	SpInputValue(4) = ConvIntToMoney(UkeireSuryo , false, false) 'フォーム初期値
	SpInputValue(5) = ConvIntToMoney(UkeireTanka , false, false) 'フォーム初期値
	SpInputValue(6) = ConvIntToMoney(UkeireKingaku , false, false) 'フォーム初期値
	SpInputValue(7) = ConvIntToMoney(HaraidasiSuryo , false, false) 'フォーム初期値
	SpInputValue(8) = ConvIntToMoney(HaraidasiTanka , false, false) 'フォーム初期値
	SpInputValue(9) = ConvIntToMoney(HaraidasiKingaku , false, false) 'フォーム初期値
	SpInputValue(10) = ConvIntToMoney(ZandakaSuryo , false, false) 'フォーム初期値
	SpInputValue(11) = ConvIntToMoney(ZandakaTanka , false, false) 'フォーム初期値
	SpInputValue(12) = ConvIntToMoney(ZandakaKingaku , false, false) 'フォーム初期値
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

If 0=1 Then
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireKingaku , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiKingaku , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaKingaku , false ,false) & """;" & vbCrLf)
End If
			Content.MoveNext
		Loop

	'スプレッドシートの空白行を発生させる
	If Shiwakebi = "1" Then
		SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
		SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf
		For Cnt = 1 To UBound(ShiwakebiAry)
			SpInputOption(1) = SpInputOption(1) & "<option value=""" & ShiwakebiAry(Cnt) & """>" & ShiwakebiAry(Cnt) & "</option>"' & vbCrLf
		Next
	Else
		SpInputValue(1) = "" 'フォーム初期値
	End If
	SpInputOption(2) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(2) = SpInputOption(2) & "<option value=""""></option>"' & vbCrLf
	SpInputOption(2) = SpInputOption(2) & "<option value=""繰越"">繰越</option>"' & vbCrLf
	SpInputOption(2) = SpInputOption(2) & "<option value=""仕入"">仕入</option>"' & vbCrLf
	If Mode = "Zairyo" Then
		SpInputOption(2) = SpInputOption(2) & "<option value=""払出"">払出</option>"' & vbCrLf
	Else
		SpInputOption(2) = SpInputOption(2) & "<option value=""仕入返品"">仕入返品</option>"' & vbCrLf
		SpInputOption(2) = SpInputOption(2) & "<option value=""売上"">売上</option>"' & vbCrLf
		SpInputOption(2) = SpInputOption(2) & "<option value=""売上返品"">売上返品</option>"' & vbCrLf
	End If
	SpInputOption(3) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(3) = SpInputOption(3) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TorihikisakiAry)
		SpInputOption(3) = SpInputOption(3) & "<option value=""" & TorihikisakiAry(Cnt) & """>" & TorihikisakiAry(Cnt) & "</option>"' & vbCrLf
	Next
	SpInputValue(4) = "" 'フォーム初期値
	SpInputValue(5) = "" 'フォーム初期値
	SpInputValue(6) = "" 'フォーム初期値
	SpInputValue(7) = "" 'フォーム初期値
	SpInputValue(8) = "" 'フォーム初期値
	SpInputValue(9) = "" 'フォーム初期値
	SpInputValue(10) = "" 'フォーム初期値
	SpInputValue(11) = "" 'フォーム初期値
	SpInputValue(12) = "" 'フォーム初期値
	For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
		'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
		Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
		SpMaxRow = Cnt
	Next

%>
										</TABLE>
									</DIV>
								</TD>
							</TR>
							<TR>
								<TD colspan="10" height="1" align="center" class="tx1214">
									※入力行が足りない場合は一度「保存」してください
								</td>
							</TR>
						<% Else %>
							<TR>
								<TD align="center">
									<span class="tx1618"><font color="#ff0000">上のメニューより入力対象の商品を選択してください</font><br><br><br><br><br><br><br></span>
								</TD>
							</TR>
						<% End If %>

<% End If %>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">
//↓ブラウザ不問の共通関数


	function ShijoSelect(){
//alert("ShijoSelect");
		var v,i;
		i = form1.ShijoCD.selectedIndex;
		v = form1.ShijoCD.options[i].value;
		tblbtn("fk_syohinaridakatyo.asp?RouteType=<% = RouteType %>&ShijoCD=" + v + "&SyohinCD=<% = SyohinCD %>");
	}

	function SyohinSelect(){
		var v,i;
		i = form1.SyohinCD.selectedIndex;
		v = form1.SyohinCD.options[i].value;
		tblbtn("fk_syohinaridakatyo.asp?RouteType=<% = RouteType %>&Mode=<% = Mode %>&ShijoCD=<% = ShijoCD %>&SyohinCD=" + v);
	}


	var PlusCelNo, MinusCelNo, TotalCelNo
	var Zandaka

</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 %>;

	Zandaka;
	PlusCelNo = 4; //数量
	MinusCelNo = 5; //単価
	TotalCelNo = 6; //金額


	//残高自動設定
	function SpSetZandaka(Mode) {
		<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
//alert("残高自動設定");
		Zandaka = 0;
		PlusCelNo = 4; //数量
		MinusCelNo = 5; //単価
		TotalCelNo = 6; //金額
		if (Mode == "H") {
			PlusCelNo = 7; //数量
			MinusCelNo = 8; //単価
			TotalCelNo = 9; //金額
		} else if (Mode == "Z") {
			PlusCelNo = 10; //数量
			MinusCelNo = 11; //単価
			TotalCelNo = 12; //金額
		}
		Target = "SpCell" + SpSelRow + "_" //セル番号を除くフォーム名
//alert("残高自動設定");
		if (form1[Target + PlusCelNo].value != "" && form1[Target + MinusCelNo].value != "") {
//alert("残高自動設定");
			Zandaka = eval(ConvMoneyToInt(form1[Target + PlusCelNo].value) * ConvMoneyToInt(form1[Target + MinusCelNo].value));
			form1[Target + TotalCelNo].value = NumComma(Zandaka, false); //NumCommaはマイナスを許容＆文字列引数で動作する
		} else {
			form1[Target + TotalCelNo].value = "";
		}
		<% End If %>
	}


	function SpRowInsertSub() {
	//プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//現在の絞込み状態を保持
		TmpTorihikisakiShijo = form1.TShijoCD.value;
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行挿入
		SpRowInsert();
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	function SpRowDeleteSub() {
	//プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//現在の絞込み状態を保持
		TmpTorihikisakiShijo = form1.TShijoCD.value;
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行削除
		SpRowDelete();
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	function SpRowShiftSub(UpDown) {
	//プルダウンの内容をスライドするため一旦取引先市場の絞込みを解除する
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//現在の絞込み状態を保持
		TmpTorihikisakiShijo = form1.TShijoCD.value;
		//絞込みを解除(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList("");
		}
	<% End If %>
		//行入れ替え
		SpRowShift(UpDown);
	<% If PackageMode <> 1 And Mode <> "Zairyo" Then %>
		//絞込みを復元(全て表示は除く)
		if (TmpTorihikisakiShijo != "") {
			SetTorihikisakiShijoList(TmpTorihikisakiShijo);
		}
	<% End If %>
	}


	function SetTorihikisakiShijoList(ShijoCD) {
		for (ii = SpMinRow; ii <= SpMaxRow; ii++) {
			Target = "<% = SpFormName %>" + ii + "_3";
			elm = document.getElementsByName(Target)[0];
			//現在選択されている摘要を保持する
			TmpValue = elm.options[elm.selectedIndex].value;
			//プルダウン項目を全クリア
			do {
				elm.options[0] = null;
			} while (elm.length != 0)
			Idx = 0;
			if (TmpValue != "") {
				//先頭項目に追加
				elm.options[Idx] = new Option(TmpValue, TmpValue);
				Idx = Idx + 1;
			}
			elm.options[Idx] = new Option("", ""); //空白項目
			Idx = Idx + 1;
<%
	PreShijoCD = ""
	Response.Write("if (1 == 0) {" & vbCrLf) '最初のネストを開く（ループ内で常に閉じてから開くためのダミー）
	For Cnt = 1 To UBound(TorihikisakiMeishoAry)
		If PreShijoCD <> TorihikisakiShijoAry(Cnt) Then
			'勘定科目が変わったらネストを閉じて開く
			Response.Write("}" & vbCrLf)
			Response.Write("if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(Cnt) & """) {" & vbCrLf)
			PreShijoCD = TorihikisakiShijoAry(Cnt)
		End If
		Response.Write("elm.options[Idx] = new Option(""" &  TorihikisakiMeishoAry(Cnt) & """, """ & TorihikisakiMeishoAry(Cnt) & """);")
		Response.Write("Idx = Idx + 1;" & vbCrLf)
	Next
	Response.Write("}" & vbCrLf) '最後のネストを閉じる
%>
//			elm.selectedIndex = 0; //常に先頭行を選択する
			elm.value = TmpValue; //該当項目を選択
		}
	}


	function SubmitCheck() {
//alert("SubmitCheck");
		Zandaka = 0;
		var ShiireTanka, ShiireSuryo, ShiireKingaku;
		var HaraidashiTanka, HaraidashiSuryo, HaraidashiKingaku;
		if (form1.KeisanHoho.value == "") {
			alert("計算方法を選択してください　");
			form1.KeisanHoho.focus();
			return;
		}
		form1.SendValue.value = ""
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var RowText;
			RowText = "";
			var bCheck;
			bCheck = Array();
			var aText; //金額確認用
			aText = Array();
			for (ii = 1; ii <= SpMaxCol; ii++) {
				//収入・支出の0入力はクリア（onBlurで処理しているが念のため）
				if (ii >= 4 && ii <= 12 && form1[Target + ii].value == "0") {
					form1[Target + ii].value = "";
				}
				bCheck[ii] = 0;
				var Text1;
				Text1 = form1[Target + ii].value;
				//通貨のカンマ区切りを外す
				if (ii >= 4 && ii <= 12) {
					Text1 = ReplaceStr(Text1, ",", "")
				}
				RowText = RowText + Text1;
				RowText = RowText + ",";
				if(Text1 == "") {
					bCheck[ii] = 1;
				}
				aText[ii] = Text1; //金額確認用
			}
			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[4] == 0 || bCheck[5] == 0 || bCheck[6] == 0) {
					if (bCheck[4] == 1) {
						alert("受入の数量を入力してください　");
						form1[Target + 4].focus();
						return;
					}
					if (bCheck[5] == 1) {
						alert("受入の単価を入力してください　");
						form1[Target + 5].focus();
						return;
					}
					if (bCheck[6] == 1) {
						alert("受入の金額を入力してください　");
						form1[Target + 6].focus();
						return;
					}
					if (Math.floor(aText[4]) * Math.floor(aText[5]) != Math.floor(aText[6])) {
						alert("正しい受入の金額を入力してください　");
						form1[Target + 6].focus();
						return;
					}
				}
				if (bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0) {
					if (bCheck[7] == 1) {
						alert("払出の数量を入力してください　");
						form1[Target + 7].focus();
						return;
					}
					//総平均法のみ
					if (form1.KeisanHoho.value != "SH") {
						if (bCheck[8] == 1) {
							alert("払出の単価を入力してください　");
							form1[Target + 8].focus();
							return;
						}
						if (bCheck[9] == 1) {
							alert("払出の金額を入力してください　");
							form1[Target + 9].focus();
							return;
						}
						if (Math.floor(aText[7]) * Math.floor(aText[8]) != Math.floor(aText[9])) {
							alert("正しい払出の金額を入力してください　");
							form1[Target + 9].focus();
							return;
						}
					}
				}
				if (bCheck[10] == 0 || bCheck[11] == 0 || bCheck[12] == 0) {
					if (bCheck[10] == 1) {
						alert("残高の数量を入力してください　");
						form1[Target + 10].focus();
						return;
					}
					if (form1.KeisanHoho.value != "SH") {
						if (bCheck[11] == 1) {
							alert("残高の単価を入力してください　");
							form1[Target + 11].focus();
							return;
						}
						if (bCheck[12] == 1) {
							alert("残高の金額を入力してください　");
							form1[Target + 11].focus();
							return;
						}
						if (Math.floor(aText[10]) * Math.floor(aText[11]) != Math.floor(aText[12])) {
							alert("正しい残高の金額を入力してください　");
							form1[Target + 12].focus();
							return;
						}
					}
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
//alert(form1.SendValue.value);
		SubmitReal(form1);
		return true;
	}



window.onload = function() {

<% If SyohinCD <> "" Then %>
	form1.KeisanHoho.value = "<% = KeisanHoho %>";
	form1.Tani.value = "<% = Tani %>";
<% End If %>

	form1.SpCell<% = (SpRowCnt + 1) %>_1.focus();

}

</SCRIPT>



<% Else 'IEモード %>
<SCRIPT LANGUAGE="JavaScript">


	function SubmitCheck() {
		document.vaSpread3.Row = 1;
		document.vaSpread3.Col = 1;
		form1.Tani.value = document.vaSpread3.Text;

		////////残高チェックここから
		PlusCelNo = 4;
		MinusCelNo = 7;
		TotalCelNo = 10;
		Zandaka = 0
		////////残高チェックここまで
		var ShiireTanka, ShiireSuryo, ShiireKingaku;
		var HaraidashiTanka, HaraidashiSuryo, HaraidashiKingaku;

		if (form1.KeisanHoho.value == "") {
			alert("計算方法を選択してください　");
			form1.KeisanHoho.focus();
			return;
		}

		form1.SendValue.value = ""
		var tmp1;
		for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
			document.vaSpread1.Row = jj;
			SFlug = 0;
			UFlug = 0;
			ZFlug = 0;
			var RowText;
			RowText = "";
			var bCheck;
			bCheck = Array();
			var aText;
			aText = Array();
			var nscheck=0;	 //数量・単価の入力チェック用
			for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
				document.vaSpread1.Col = ii;
				bCheck[ii] = 0;

				var Text1;
				Text1 = document.vaSpread1.Text;

				//残高補完フラグ
				if ((ii == 4 || ii == 5) && Text1 != "") {
					SFlug = 1;
				}
				if ((ii == 7 || ii == 8) && Text1 != "") {
					UFlug = 1;
				}
				if ((ii == 10 || ii == 11) && Text1 != "") {
					ZFlug = 1;
				}

				//残高自動設定
				<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
				if (ii == 6 && SFlug == 1) {
					document.vaSpread1.Text = Math.floor(aText[4]) * Math.floor(aText[5]);
					Text1 = document.vaSpread1.Text;
				}
				if (ii == 9 && UFlug == 1) {
					document.vaSpread1.Text = Math.floor(aText[7]) * Math.floor(aText[8]);
					Text1 = document.vaSpread1.Text;
				}
				<% If AutoZandakaNyuryoku <> "2" Then %>
				if (ii == 12 && ZFlug == 1) {
					document.vaSpread1.Text = Math.floor(aText[10]) * Math.floor(aText[11]);
					Text1 = document.vaSpread1.Text;
				}
				<% End If %>
				<% End If %>

				if(document.vaSpread1.ColID == 12) {
					Text1 = ReplaceStr(Text1, ",", "")
				}
                                //↓金額・数量が0ならばNULL文字に変換（061115小野）
				if(Text1 == "0" && ii > 3) {
					Text1 = ""
				}
                                //↑金額・数量が0ならばNULL文字に変換（061115小野）
				aText[ii] = Text1;

				RowText = RowText + Text1;
				RowText = RowText + ",";

				if(Text1 == "") {
					bCheck[ii] = 1;
				} else if (ii > 4) {
					nscheck = 1;
				}
			}
			if(ReplaceStr(RowText, ",", "") != "") {
//				取引日の未入力を許可（170821小野）
//				if(bCheck[1] == 1) {
//					alert("取引日を入力してください　");
//					document.vaSpread1.SetActiveCell(1, jj);
//					document.vaSpread1.focus();
//					document.vaSpread1.EditMode = true;
//					return;
//				}
//				受払区分の未入力を許可（170821小野）
//				if(bCheck[2] == 1) {
//					alert("受払区分を入力してください　");
//					document.vaSpread1.SetActiveCell(2, jj);
//					document.vaSpread1.focus();
//					document.vaSpread1.EditMode = true;
//					return;
//				}
				//移動平均法のみ
				if(form1.KeisanHoho.value == "IH") {
//					if(bCheck[3] == 1)
//					{
//						alert("取引先を入力してください　");
//						document.vaSpread1.SetActiveCell(3, jj);
//						document.vaSpread1.focus();
//						document.vaSpread1.EditMode = true;
//						return;
//					}
					if(nscheck == 0) {
						alert("受払いの明細を入力してください　");
						document.vaSpread1.SetActiveCell(4, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
				}
				if(bCheck[4] == 0 || bCheck[5] == 0 || bCheck[6] == 0) {
					if(bCheck[4] == 1) {
						alert("受入の数量を入力してください　");
						document.vaSpread1.SetActiveCell(4, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					if(bCheck[5] == 1) {
						alert("受入の単価を入力してください　");
						document.vaSpread1.SetActiveCell(5, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}

					if(bCheck[6] == 1) {
						alert("受入の金額を入力してください　");
						document.vaSpread1.SetActiveCell(6, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					if(Math.floor(aText[4]) * Math.floor(aText[5]) != Math.floor(aText[6])) {
						alert("正しい受入の金額を入力してください　");
						document.vaSpread1.SetActiveCell(6, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}

				}
				if(bCheck[7] == 0 || bCheck[8] == 0 || bCheck[9] == 0) {
					if(bCheck[7] == 1) {
						alert("払出の数量を入力してください　");
						document.vaSpread1.SetActiveCell(7, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					//総平均法のみ
					if (form1.KeisanHoho.value != "SH") {
						if(bCheck[8] == 1)
						{
							alert("払出の単価を入力してください　");
							document.vaSpread1.SetActiveCell(8, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(bCheck[9] == 1) {
							alert("払出の金額を入力してください　");
							document.vaSpread1.SetActiveCell(9, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(Math.floor(aText[7]) * Math.floor(aText[8]) != Math.floor(aText[9])) {
							alert("正しい払出の金額を入力してください　");
							document.vaSpread1.SetActiveCell(9, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
					}
				}
				if(bCheck[10] == 0 || bCheck[11] == 0 || bCheck[12] == 0) {
					if(bCheck[10] == 1) {
						alert("残高の数量を入力してください　");
						document.vaSpread1.SetActiveCell(10, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					if (form1.KeisanHoho.value != "SH") {
						if(bCheck[11] == 1) {
							alert("残高の単価を入力してください　");
							document.vaSpread1.SetActiveCell(11, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(bCheck[12] == 1) {
							alert("残高の金額を入力してください　");
							document.vaSpread1.SetActiveCell(12, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
						if(Math.floor(aText[10]) * Math.floor(aText[11]) != Math.floor(aText[12])) {
							alert("正しい残高の金額を入力してください　");
							document.vaSpread1.SetActiveCell(12, jj);
							document.vaSpread1.focus();
							document.vaSpread1.EditMode = true;
							return;
						}
					}
				}
				//移動平均法のみ
				if(form1.KeisanHoho.value == "IH") {
					////////残高チェックここから
					if(aText[PlusCelNo] != "") {
						Zandaka = Zandaka + Math.floor(aText[PlusCelNo]);
					}
					if(aText[MinusCelNo] != "") {
						Zandaka = Zandaka - Math.floor(aText[MinusCelNo]);
					}
					if(Zandaka != Math.floor(aText[TotalCelNo])) {
						alert("残高の数量が合いません　");
						document.vaSpread1.SetActiveCell(10, jj);
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					////////残高チェックここまで
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
		SubmitReal(form1);
		return true;
	}


	function SetTorihikisakiShijoList(ShijoCD) {	//取引先メニューを選択市場で絞込む（081111小野）
		var ii;
		var Idx;
		Idx = 0;
		var listout;
		listout = "";
		document.vaSpread1.Redraw = false;
<%
	Dim PreShijoCD
	PreShijoCD = ""
	Response.Write("		if (1 == 0) {" & vbCrLf)	'1行目のダミーネスト
	For ii = 1 To UBound(TorihikisakiMeishoAry)
		If TorihikisakiShijoAry(ii) <> PreShijoCD Then
			Response.Write("		}" & vbCrLf)	'上にダミーネストを設けてあるので1行目から閉じてOK
			PreShijoCD = TorihikisakiShijoAry(ii)
			Response.Write("		if (ShijoCD == """" || ShijoCD == """ & TorihikisakiShijoAry(ii) & """) {" & vbCrLf)
		End If
'		Response.Write("			if (listout != """") listout = listout + ""\t"";" & vbCrLf)
		Response.Write("			listout = listout + ""\t"";" & vbCrLf)
		Response.Write("			listout = listout + """ & TorihikisakiMeishoAry(ii) & """;" & vbCrLf)
	Next
	Response.Write("		}" & vbCrLf)	'最終行のネストを閉じる
%>
		document.vaSpread1.Col = 3;
		for (i=1; i<= document.vaSpread1.MaxRows; i++) {
			document.vaSpread1.Row = i;
			if (document.vaSpread1.Text == "") {
//				document.vaSpread1.TypeComboBoxList = "\t" + listout;
				document.vaSpread1.TypeComboBoxList = listout;
			} else {
				document.vaSpread1.TypeComboBoxList = document.vaSpread1.Text + "\t" + listout;
			}
		}
		document.vaSpread1.Redraw = true;
		return false;
	}



	function SpreadInit(fpSpread)
	{

		fpSpread.MaxRows = 0;
<%
		ii = 0

		Query = "exec SPK補助簿_" & PageType & "取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "','" & SyohinCD & "'"
		Set Content = OpenQuery(Query)

		'選択行の色を変える動作を停止（090624小野）
		Response.Write("		SpreadRowColorMode = false;" & vbCrLf)
		Do While Not(Content.BOF Or Content.EOF)
			ii = ii + 1

			KeisanHoho = Content.Fields("" & PageType & "計算区分")
			Tani = Replace(Replace(Content.Fields("単位"), "\", "\\"), """", "”")
			Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
			UkebaraiKubun = Content.Fields("受払区分")
			TorihikisakiCD = Content.Fields("取引先CD")
			UkeireTanka = Content.Fields("受入単価")
			UkeireSuryo = Content.Fields("受入数量")
			UkeireKingaku = Content.Fields("受入金額")
			HaraidasiTanka = Content.Fields("払出単価")
			HaraidasiSuryo = Content.Fields("払出数量")
			HaraidasiKingaku = Content.Fields("払出金額")
			ZandakaTanka = Content.Fields("残高単価")
			ZandakaSuryo = Content.Fields("残高数量")
			ZandakaKingaku = Content.Fields("残高金額")

			Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("		fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("		fpSpread.Col = 1;" & vbCrLf)
			'仕訳日選択モード
			If Shiwakebi = "1" Then
				'すでに入力されている日付が仕訳日一覧に存在しなければプルダウンの先頭行に追加
				If InStr(TmpShiwakebiAry, SetTimeYYYYMMDD(Torihikibi)) < 1 Then
					Response.Write("		fpSpread.TypeComboBoxList = """ & SetTimeYYYYMMDD(Torihikibi) & "\t" & TmpShiwakebiAry & """;" & vbCrLf)
				End If
			End If
			Response.Write("		fpSpread.Text = """ & Torihikibi & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 2;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvKubunMeisyo("受払区分", UkebaraiKubun) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 3;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvKaisyaRyakuMeisyo(TorihikisakiCD) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 4;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 5;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 6;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(UkeireKingaku , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 7;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 8;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 9;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(HaraidasiKingaku , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 10;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaSuryo, false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 11;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaTanka , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 12;" & vbCrLf)
			Response.Write("		fpSpread.Text = """ & ConvIntToMoney(ZandakaKingaku , false ,false) & """;" & vbCrLf)
			Response.Write("		fpSpread.Col = 0;" & vbCrLf)
			Response.Write("		fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop
		Response.Write("		form1.Tani.value = """ & Tani & """;" & vbCrLf)

		'空白行を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>


<%
	Dim iii
	For iii = 1 To 3
		If iii <> 2 Then
%>

<SCRIPT FOR="vaSpread<% = iii %>" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread<% = iii %>" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>

<SCRIPT FOR="vaSpread<% = iii %>" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)
	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
<% If iii = 1 Then %>
	Else
		Call SetRenewCell(Me, ColNo, RowNo)
<% End If %>
	End If
</SCRIPT>

<SCRIPT FOR="vaSpread<% = iii %>" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	this.EditMode = true;
</SCRIPT>

<%
		End If
	Next
%>

<SCRIPT LANGUAGE="JavaScript">
	function SetRenewCell(obj, ColNo, RowNo) {
		<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
		//残高自動設定（100921小野）
		obj.Row = RowNo;
		<% If AutoZandakaNyuryoku <> "2" Then %>
		if (ColNo >= 4 && ColNo <= 12) {
		<% Else %>
		if (ColNo >= 4 && ColNo <= 9) {
		<% End If %>
			var SuryoCol;
			var TankaCol;
			var ZandakaCol;
			if (ColNo >= 4 && ColNo <= 6) {
				SuryoCol = 4;
				TankaCol = 5;
				ZandakaCol = 6;
			} else if (ColNo >= 7 && ColNo <= 9) {
				SuryoCol = 7;
				TankaCol = 8;
				ZandakaCol = 9;
			} else if (ColNo >= 10 && ColNo <= 12) {
				SuryoCol = 10;
				TankaCol = 11;
				ZandakaCol = 12;
			}
			var Suryo;
			var Tanka;
			var Zandaka;
			obj.Col = SuryoCol;
			Suryo = obj.Text;
			Suryo = ReplaceStr(Suryo, ",", "")
			obj.Col = TankaCol;
			Tanka = obj.Text;
			Tanka = ReplaceStr(Tanka, ",", "")
			if (Suryo != "" && Tanka != "") {
				obj.Col = ZandakaCol;
				obj.Text = Math.floor(Suryo) * Math.floor(Tanka);
			}
		}
		<% End If %>
	}


	//スプレッドシート行移動（210107小野）
	function SpreadShiftRowSub(obj, Mode) {
		if (SpreadShiftRow(obj, Mode)) { //includesj.js
			//勘定科目名はSetRenewCellが必要
//			var KanjoCDCol = 1; //勘定CD列を指定
//			SetRenewCell(obj, KanjoCDCol, obj.ActiveRow);
//			if (obj.ActiveRow - 1 >= 1) {
//				SetRenewCell(obj, KanjoCDCol, obj.ActiveRow - 1);
//			}
//			if (obj.ActiveRow + 1 <= obj.MaxRows) {
//				SetRenewCell(obj, KanjoCDCol, obj.ActiveRow + 1);
//			}
		}
	}

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
	this.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 SyohinCD <> "" Then %>

	form1.KeisanHoho.value = "<% = KeisanHoho %>";
	<% If Not(IsNull(Tani)) Then %>
	form1.Tani.value = "<% = Tani %>";
	<% End If %>

	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadInit 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
	<% If Shiwakebi = "1" Then %>
	//仕訳日選択モード
	SpreadLoad(document.vaSpread1, "取引日", 8, 12.3, "受払区分", 8, 9.8, "取引先", 8, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 5.4, "単価", 12, 9.4, "金額", 12, 11.8);
	<% Else %>
	SpreadLoad(document.vaSpread1, "取引日", 0, 10.2, "受払区分", 8, 9.8, "取引先", 8, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8, "数量", 12, 6, "単価", 12, 9.4, "金額", 12, 11.8);
	<% End If %>
	SpreadLoad(document.vaSpread3, "摘要", 22, 15);

	SpreadColumn(document.vaSpread1,  4, 99999)
	SpreadColumn(document.vaSpread1,  5, 99999999)
	SpreadColumn(document.vaSpread1,  6, 9999999999)
	SpreadColumn(document.vaSpread1,  7, 99999)
	SpreadColumn(document.vaSpread1,  8, 99999999)
	SpreadColumn(document.vaSpread1,  9, 9999999999)
	SpreadColumn(document.vaSpread1, 10, 99999)
	SpreadColumn(document.vaSpread1, 11, 99999999)
	SpreadColumn(document.vaSpread1, 12, 9999999999)

	document.vaSpread1.ScriptEnhanced = true;
	document.vaSpread3.ScriptEnhanced = true;

	document.vaSpread3.BackColor = 0xFeFeFe;

	document.vaSpread3.RowHeadersShow = false;
	document.vaSpread3.ColHeadersShow = false;
	document.vaSpread3.MaxRows = 1;
	document.vaSpread3.MaxCols = 1;
	document.vaSpread3.Row = 0;
	document.vaSpread3.Col = 0;

	var SpreadHeader;
	SpreadHeader = -1000;

	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.fontsize = 11;


	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = 0 ;
	document.vaSpread1.fontsize = 11;


	document.vaSpread1.RowHeight(0) = 10;
	document.vaSpread1.ColHeaderRows = 2;


	document.vaSpread1.AddCellSpan(1, SpreadHeader, 1, 2);
	document.vaSpread1.AddCellSpan(2, SpreadHeader, 2, 1);
	document.vaSpread1.AddCellSpan(4, SpreadHeader, 3, 1);
	document.vaSpread1.AddCellSpan(7, SpreadHeader, 3, 1);
	document.vaSpread1.AddCellSpan(10, SpreadHeader, 3, 1);
	document.vaSpread1.Row = SpreadHeader;
	document.vaSpread1.Col = -1;
	document.vaSpread1.fontsize = 9;
	document.vaSpread1.Col = 1;
	document.vaSpread1.Text = "取引日";
	document.vaSpread1.Col = 2;
	document.vaSpread1.Text = "摘要";
	document.vaSpread1.Col = 4;
	document.vaSpread1.Text = "受入";
	document.vaSpread1.Col = 7;
	document.vaSpread1.Text = "払出";
	document.vaSpread1.Col = 10;
	document.vaSpread1.Text = "残高";

	document.vaSpread1.Row = SpreadHeader + 1;
	document.vaSpread1.Col = -1;
	document.vaSpread1.fontsize = 9;
	document.vaSpread1.Col = 2;
	document.vaSpread1.Text = "受払区分";
	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.Col = 11;
	document.vaSpread1.Text = "単価";
	document.vaSpread1.Col = 12;
	document.vaSpread1.Text = "金額";


	document.vaSpread1.Row = -1;

	<% If Shiwakebi = "1" Then %>
	//仕訳日選択モード
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 1;
	document.vaSpread1.TypeComboBoxList = "<% = TmpShiwakebiAry %>"
	<% End If %>

	document.vaSpread1.Col = 2;
<% If Mode = "Zairyo" Then %>
		document.vaSpread1.TypeComboBoxList = "\t繰越\t仕入\t払出"
<% Else %>
		document.vaSpread1.TypeComboBoxList = "\t繰越\t仕入\t仕入返品\t売上\t売上返品"
<% End If %>

	document.vaSpread1.Col = 3;
<%
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)

	Dim ListText
'	ListText = "　\t"
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("会社CD") <> KaisyaCD And (PackageMode = 1 Or Content.Fields("業種CD") <> "B") Then	'銀行を除外（080618小野）
'			If ListText <> "" Then
				ListText = ListText & "\t"
'			End If
			ListText = ListText & Content.Fields("会社略名称")
		End If

		Content.MoveNext
	Loop
	'小売販売
	If KourihanbaiRiyo() > 0 Then
		If ListText <> "" Then
			ListText = ListText & "\t"
		End If
		ListText = ListText & ConvKaisyaMeisyo("SJ4KOURIHANBAI")
	End If
	Response.Write("document.vaSpread1.TypeComboBoxList = """ & ListText & """")

%>

//残高自動設定
<% If AutoZandakaNyuryoku = "1" Or AutoZandakaNyuryoku = "2" Then %>
	document.vaSpread1.Row = -1;
	document.vaSpread1.Col = 6;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;
	document.vaSpread1.Col = 9;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;
	<% If AutoZandakaNyuryoku <> "2" Then %>
	document.vaSpread1.Col = 12;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;
	<% End If %>
<% End If %>

	document.vaSpread1.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);

	document.vaSpread3.Row = 1;
	document.vaSpread3.Col = 1;
	document.vaSpread3.TypeMaxEditLen = 40;
	document.vaSpread3.Text = "<% = Tani %>";

	document.vaSpread1.Redraw = true;
	document.vaSpread3.Redraw = true;

	<% End If %>
</SCRIPT>
<% End If %>



<% = HtmlFooter %>
</html>
<%
End Sub
%>