<!-- #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 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 Shiwakebi
	Shiwakebi = "0"
	If ShiwakebiSelect = 1 Then
		Shiwakebi = GetEnshuParam(EnshuCD, "日付仕訳日指定")
	End If
'	Shiwakebi = "0"
'	Shiwakebi = "1"
	Dim TmpShiwakebiAry
	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("取引日"))
			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

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta http-equiv="Pragma" content="no-cache">
<meta http-equiv="Cache-Control" content="no-cache">
<meta http-equiv="Expires" content="-1">
<link href="../../../binx/sj3web.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<link href="../../../binx/sj3tyobored.css?<% = TimeUniq() %>" rel="stylesheet" type="text/css">
<title><% = AppTitle %></title>
<script language="JScript" src="../../../include.js?<% = TimeUniq() %>"></script>
<script language="JScript" src="../../../includesj.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../include_enc.js?<% = TimeUniq() %>"></script>
<script language="JScript.Encode" src="../../../includesj_enc.js?<% = TimeUniq() %>"></script>
<script type=""text/javascript"" src="../../../javascript.js?<% = TimeUniq() %>"></script>
</head>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="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">
<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);", "", ""))
	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="954" height="100%" border="0" cellspacing="0" cellpadding="0">
							<tr>
								<td valign="top" align="center" height="30">
									<table border="0" width="954" cellspacing="0" cellpadding="0">
										<tr>
											<td width="400" align="left" class="tx1416">
											<% If SyohinCD <> "" Then %>
												計算方法:
												<select name="KeisanHoho" size="1" onMouseOver="if(SubmitFlg!=0){this.focus();}" 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>
											<td class="tx1618" align="center" style="border-bottom: 1px solid black;" nowrap><% = SetStringInsertSpace(PageType) %></td>
											<td width="400" align="right" class="tx1416">
											<% If SyohinCD <> "" 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="">
											<% 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);" onMouseOver="if(SubmitFlg!=0){this.focus();}">
													<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()" onMouseOver="if(SubmitFlg!=0){this.focus();}">
													<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()" onMouseOver="if(SubmitFlg!=0){this.focus();}">
													<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>
							<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>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>

</div>
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">


	function SubmitCheck() {
		document.vaSpread3.Row = 1;
		document.vaSpread3.Col = 1;
		form1.Tani.value = document.vaSpread3.Text;

		////////残高チェックここから
		var PlusCelNo, MinusCelNo, TotalCelNo;
		var Zandaka;
		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 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);
	}



<%
	'取引先市場配列作成(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
%>

	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;
<%
		Dim ii
		ii = 0
		Dim Torihikibi, UkebaraiKubun, TorihikisakiCD
		Dim UkeireSuryo, UkeireTanka, UkeireKingaku
		Dim HaraidasiSuryo, HaraidasiTanka, HaraidasiKingaku
		Dim ZandakaSuryo, ZandakaTanka, ZandakaKingaku
		Dim KeisanHoho
		Dim Tani

		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>

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