
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：材料仕入伝票入力
'	作成日	：2008/3/14
'	作成者	：小野
'	目的	：材料仕入伝票の入力画面を表示する。
'	概要	：
'################################################
'-->
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If


	Dim Cnt


	'マスタの標準消費税率を取得
	Dim StdTaxRate
	Dim StdTaxRateUnso
	StdTaxRate = GB_Shohizei
	StdTaxRateUnso = GB_Shohizei
	If GB_ShohizeiMode = 1 Then
		Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') "
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("標準") = "1" Then
				StdTaxRate = Content.Fields("消費税率")
			End If
			If "" & Content.Fields("運送費標準") = "1" Then
				StdTaxRateUnso = Content.Fields("消費税率")
			End If
			Content.MoveNext
		Loop
	End If


	Dim DenpyoNo, Torihikibi, DenpyoTekiyo,TorihikisakiCD		'伝票番号、取引日、伝票摘要、取引先CD
	Dim DenpyoSyoriKubun,TujyoHenpinKubun,TmpTorihikisakiName	'伝票処理区分、通常返品区分、取引先名称
	Dim PageType								'ページの種類	"仕入"　or　"売上"かを判定
	Dim SyohinCD(5)								'商品コード
	Dim SyohinName(5)							'商品名称
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)									'数量
	Dim Tanka(5)									'単価
	Dim Kingaku(5)							 	'金額
	Dim GokeiKingaku								'合計
	Dim SyohizeiKingaku							'消費税
	Dim ZeikomiKingaku							'税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'学生氏名（係印）
	Dim OldDenpyoNo

	TujyoHenpinKubun = "N" '現状返品はあり得ないので固定

	Dim ii

	Dim Query
	Dim Content

	Dim Genkin, Toza
	Dim Shimei
	DenpyoNo = Request("DenpyoNo")
	PageType=	Request("Pagetype")

	Dim ShowDel
	ShowDel = Request("ShowDel")

	Dim LabelSoumu
	Dim LabelTanto
	Dim LabelKakari
	LabelSoumu = ""
	LabelTanto = ""
	LabelKakari = "係　印"
	If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If
	If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If
	If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If

	Dim title
	title = "材料仕入伝票"

	Dim GakuseiBango
	If Session(HomeAlias & "EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
	Else
		GakuseiBango =  GB_GakuseiNo
	End If

	Dim ReturnValue
	ReturnValue = "" & Request("ReturnValue")
'Response.Write("あ" & ReturnValue & "あ")
'Exit Sub


	Dim TmpCnt
	Dim ErrorFlg
	ErrorFlg = Request("ErrorFlg")

	'追加モードでリジェクトされた場合はクエリを取得（090528小野）
	If ErrorFlg <> "" Then

		DenpyoNo = Request("DenpyoNo")
		Torihikibi = Request("Torihikibi")
		TorihikisakiCD = Request("TorihikisakiCD")
		TujyoHenpinKubun = Request("TujyoHenpinKubun")
		DenpyoTekiyo = Request("DenpyoTekiyo")
		If TujyoHenpinKubun = "N" Then	'通常
			Checked_N = "checked"
			Checked_R = ""
		Else
			Checked_R = "checked"
			Checked_N = ""
		End If

	'修正モード
	ElseIf DenpyoNo <> "" Then

		OldDenpyoNo = DenpyoNo	'この場合のみOldDenpyoNoを持たせる（090528小野）

		'///////	１．「伝票」ヘッダ部のデータを取得。
		Query = "exec SPK伝票_材料仕入伝票取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

			Torihikibi = SetTimeYYYYMMDD(Content.Fields("取引日"))
			DenpyoTekiyo = Content.Fields("伝票摘要")
			DenpyoSyoriKubun = Content.Fields("伝票処理区分")
			TorihikisakiCD = Content.Fields("取引先CD")
			TujyoHenpinKubun = Content.Fields("通常返品区分")
			GakuseiShimei = Content.Fields("氏名")
			GakuseiBango = Content.Fields("学生番号")

			If TujyoHenpinKubun = "N" Then	'通常
				Checked_N = "checked"
				Checked_R = ""
			Else
				Checked_R = "checked"
				Checked_N = ""
			End If

		End If

	Else
		Checked_N = "checked"
		Checked_R = ""
	End If

	Dim jj,tmps

'	Dim JidoBangoDenpyo
'	JidoBangoDenpyo = GetEnshuParam(EnshuCD, "自動番号伝票")

	'自動番号伝票フラグ・実践日取得
	Dim JidoBangoDenpyo
	Dim Jissenbi
	Jissenbi = ""
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		JidoBangoDenpyo = "" & Content.Fields("自動番号伝票")
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
	End If

	Dim KouriRiyo
	KouriRiyo = KourihanbaiRiyo()


	'消費税率配列作成（消費税率マスタ及び材料マスタ・現在伝票からすべての設定税率を取得する）
	'材料配列も作成
	'まず仮配列に代入しその後本配列にソートする
	Dim TmpTaxRateAry
	ReDim TmpTaxRateAry(0)
	Dim TmpTaxRate
	Dim ZairyoCDAry
	ReDim ZairyoCDAry(0)
	Dim ZairyoAry
	ReDim ZairyoAry(0)
	Dim ZairyoTankaAry
	ReDim ZairyoTankaAry(0)
	Dim ZairyoZeiritsuAry
	ReDim ZairyoZeiritsuAry(0)
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TDA消費税率M "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " ORDER BY 消費税率 DESC "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
		TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率")
'Response.Write(TmpTaxRateAry(UBound(TmpTaxRateAry)) & "<br>")
		TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列
		Content.MoveNext
	Loop
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("標準消費税率") <> "" Then
			If InStr(TmpTaxRate, "'" & Content.Fields("標準消費税率") & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("標準消費税率")
				TmpTaxRate = TmpTaxRate & "'" & Content.Fields("標準消費税率") & "'" '存在チェック用羅列
			End If
		End If
		ReDim PreServe ZairyoCDAry(UBound(ZairyoCDAry) + 1) '配列+1
		ZairyoCDAry(UBound(ZairyoCDAry)) = Content.Fields("材料CD")
		ReDim PreServe ZairyoAry(UBound(ZairyoAry) + 1) '配列+1
		ZairyoAry(UBound(ZairyoAry)) = Content.Fields("材料名称")
		ReDim PreServe ZairyoTankaAry(UBound(ZairyoTankaAry) + 1) '配列+1
		ZairyoTankaAry(UBound(ZairyoTankaAry)) = Content.Fields("標準販売単価")
		ReDim PreServe ZairyoZeiritsuAry(UBound(ZairyoZeiritsuAry) + 1) '配列+1
		ZairyoZeiritsuAry(UBound(ZairyoZeiritsuAry)) = Content.Fields("標準消費税率")
		Content.MoveNext
	Loop
	Query = "exec SPK伝票_材料仕入明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("消費税率") <> "" Then
			If InStr(TmpTaxRate, "'" & Content.Fields("消費税率") & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率")
				TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列
			End If
		End If
		Content.MoveNext
	Loop
	'本配列にソート
	Dim TCnt
	Dim TaxRateAry
	ReDim TaxRateAry(0)
	ReDim PreServe TaxRateAry(UBound(TmpTaxRateAry)) '仮配列と同じ長さ
	For TCnt = 1 To UBound(TaxRateAry)
		TaxRateAry(Tcnt) = 0 'すべてにゼロを代入
	Next
	TmpTaxRate = "" '存在チェック用羅列リセット
	For TCnt = 1 To UBound(TaxRateAry)
		For TmpCnt = 1 To UBound(TmpTaxRateAry)
			'その時点で有効な最大税率を取得する
			If InStr(TmpTaxRate, "'" & TmpTaxRateAry(TmpCnt) & "'") < 1 Then
				If TmpTaxRateAry(TmpCnt) > TaxRateAry(TCnt) Then
					TaxRateAry(TCnt) = TmpTaxRateAry(TmpCnt)
				End If
			End If
		Next
		TmpTaxRate = TmpTaxRate & "'" & TaxRateAry(TCnt) & "'" '存在チェック用羅列
	Next
For TmpCnt = 1 To UBound(TmpTaxRateAry)
'	Response.Write(TmpTaxRateAry(TmpCnt) & "<br>")
Next
For TCnt = 1 To UBound(TaxRateAry)
'	Response.Write(TaxRateAry(TCnt) & "<br>")
Next
'Response.Write(TmpTaxRate & "<br>")
'Exit Sub


	Dim SenColor
	SenColor = "#5500FF"


%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;
-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<form OnKeyDown="FormKeyDown(this)"	 name="form1" method="POST" action="fk_zairyoshiire_bin.asp" autocomplete="off">
<!-- testフォームが単一だとEnterでsubmitされてしまうのでダミーフォームを設置 -->
<input type="text" name="dummydummydummydummydummydummydummy" style="display:none;">
<input type="hidden" name="ShowDel" value="<% = ShowDel %>">
<input type="hidden" name="PageType" value="<% = PageType %>">
<input type="hidden" name="OldDenpyoNo" value="<% = OldDenpyoNo %>">
<input type="hidden" name="SendValue" value="">
<% If GB_IEmode = "1" Then 'IEモードはスプレッドから此処に代入する %>
<input type="hidden" name="SyohizeiKingaku" value="">
<% End If %>
<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(2))

	'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "製造部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s6.asp')", "材料仕入伝票", "", "", "", "", ""))
	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_s11.asp')", "材料仕入伝票", "", "", ""))

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

'	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))
'	Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	If GB_IEmode = "1" Then
		'※HttpL3_1にボタンを追加する事前処理（210107小野）
'		Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行の追加", "SpreadAddItem2(document.vaSpread1);", "行の挿入", "SpreadInsertItem(document.vaSpread1);", "行の削除", "SpreadDelItem(document.vaSpread1);", "", ""))
	Else
		'※HttpL3_1にボタンを追加する事前処理（210107小野）
'		Call HttpL3_1_AddBtn( "", "", "", "", "", "", "", "", "", "")
		Response.Write(HttpL3_1("保存", "SubmitCheck()", "行挿入", "SpRowInsert();", "行削除", "SpRowDelete();SpSetKingaku();", "行↑", "SpRowShift('Up');", "行↓", "SpRowShift('Dn');"))
	End If

	If OldDenpyoNo <> "" Then
		Response.Write(HttpL3_2("追加", "tblbtn( 'fk_zairyoshiire.asp?PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fk_zairyoshiire_ichiran.asp?DenpyoNo=" & DenpyoNo & "&PageType=" & PageType & "&ShowDel=" & ShowDel & "')", "", "", "", "", "", "", "", ""))
	End If

	If OldDenpyoNo <> "" Then
		Response.Write(HttpL4(Title, "修正"))
	Else
		Response.Write(HttpL4(Title, "追加"))
	End If

	Response.Write(HttpL5(ErrorFlg))

%>



<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">


<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="5">
	<tr>
		<td align="center" style="background-image: url('images/bkimg_bsq.gif'); background-repeat: repeat-y; background-attachment: scroll; background-position: 0% 50%">
			<table width="<% If GB_ShohizeiMode = 1 Then %>700<% Else %>650<% End If %>" height="420" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
				<tr>
					<td width="650" height="60">
						<table width="630" height="70" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td width="510" align="right" valign="bottom">


									<table	border="0" cellpadding="0" cellspacing="0" width="100%">
										<tr>
											<td height="3" colspan="3" onMouseOver="this.focus();this.focus();"><img src="/<% = HomeAlias %>/images/spacer.gif" height="1"></td>
										</tr>
										<tr>
											<td width="15" valign="bottom"></td>
											<td width="165">
												<table width="160" height="30" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td height="45" class="tx2022" style="color:#5500FF">材 料 仕 入 伝 票</td>
													</tr>
												</table>
											</td>
											<td valign="bottom">
												<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="72" height="20" align="right" style="color:#5500FF">伝票番号：</td>
														<td height="26">
<% If JidoBangoDenpyo = "1" Or (DenpyoNo <> "" And ErrorFlg = "") Then %>
															<input type="text" name="DenpyoNo" size="20" readonly class="tbox4_ro" value="<% = DenpyoNo %>">
<% Else %>
															<input type="text" name="DenpyoNo" size="20" onKeyup="FormStrLeft(this,12,false,false);" onKeypress="FormStrLeft(this,12,false,false);" onBlur="<% If GB_IEmode <> "1" Then %>FormStrLeftEdge(this,12,true,false);<% End If %>FormStrTrim(this,true);" class="tbox4" value="<% = DenpyoNo %>"><!-- 半角シャープを拒否（061213小野）-->
<% End If %>
														</td>
													</tr>
												</table>
											</td>
										</tr>
										<tr>
											<td width="15">
											</td>
											<td>
												<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="58" height="20" align="left" style="color:#5500FF">取引日：</td>
														<td height="20">
								<% If Jissenbi <> "" And DenpyoNo <> "" Then '実践日固定モード且つ修正モード %>
									<input type="text" name="Torihikibi" size="12" value="<% = Torihikibi %>" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true, '<% = Torihikibi %>', '')" readonly class="tbox4_ro" tabindex="-1">
								<% ElseIf Jissenbi <> "" Then '実践日固定モード %>
									<input type="text" name="Torihikibi" size="12" value="<% = Jissenbi %>" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true, '<% = Jissenbi %>', '')" readonly class="tbox4_ro" tabindex="-1">
								<% Else %>
									<input type="text" name="Torihikibi" size="12" onKeyup="FormStrDate(this);" onKeypress="FormStrDate(this);" onBlur="SetDate(this, 1, true)" class="tbox4" value="<% = Torihikibi %>">
								<% End If %>
														</td>
													</tr>
												</table>
											</td>
											<td>
												<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="72" height="20" align="right" style="color:#5500FF">摘要：</td>
														<td height="26" align="left" valign="middle">
														<% If GB_IEmode <> "1" Then %>
															<input type="text" name="DenpyoTekiyo" size="30" value="<% = DenpyoTekiyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,30,true)">
														<% Else %>
															<input type="hidden" name="DenpyoTekiyo" value="<% = DenpyoTekiyo %>">
															<object classid="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">
																<param name="lpkpath" value="spread6.lpk">
															</object>
															<object width="147" 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>
														<% End If %>
														</td>
													</tr>
												</table>
											</td>
										</tr>
										<tr>
											<td width="15">
											</td>

											<td>
												<table width="210" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="58" height="20" align="left" style="color:#5500FF">取引先：</td>
														<td height="20">
															<select size="1" name="TorihikisakiCD" class="tbox4">
																<option value="">　　　　</option>

		<%
											Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
											Set Content = OpenQuery(Query)

											Do While Not(Content.BOF Or Content.EOF)
												'材料仕入は商社のみ
												If Content.Fields("業種CD") = "K" Then
													If (Content.Fields("市場CD") = GB_ShijyoCD AND  Content.Fields("業種CD") = "K") OR Content.Fields("業種CD") = "S" Then
														'自社はリストから除く 2006/02/14 修正 BY Hamada
														If Content.Fields("会社略名称") <> GB_KaisyaRyakuMeisyo Then
															Response.Write("<option value=""" & Content.Fields("会社CD") & """")
															If Content.Fields("会社CD") = TorihikisakiCD Then
																Response.Write(" selected")
															End If
															Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
														End If
													End If
												End If
												Content.MoveNext
											Loop
											If KouriRiyo > 0 And PageType = "売上伝票" Then '売上伝票のみ
												Response.Write("<option value=""SJ4KOURIHANBAI""")
												If TorihikisakiCD = "SJ4KOURIHANBAI" Then
														Response.Write(" selected")
												End If
												Response.Write(">" & ConvKaisyaMeisyo("SJ4KOURIHANBAI") & "</option>" & vbCrLf)
											End If
		%>

															</select>
														</td>
													</tr>
												</table>
											</td>
											<td>
												<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1416">
														<td width="72" height="20" align="right" style="color:#5500FF">伝票区分：</td>
														<td height="20" style="color:#5500FF">
															<input type="radio" value="N" name="TujyoHenpinKubun" <% = Checked_N %>>通常
															<!--<input type="radio" value="R" name="TujyoHenpinKubun" <% = Checked_R %>>返品-->
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
								<td align="right" valign="bottom">
									<table width="120" height="40" border="1" cellpadding="0" cellspacing="0" bordercolor="#5500FF" STYLE="border-collapse: collapse">
										<tr class="tx1214" style="color:#5500FF">
											<td width="40" height="14" align="center"><% = LabelSoumu %></td>
											<td width="40" height="14" align="center"><% = LabelTanto %></td>
											<td width="40" height="14" align="center"><% = LabelKakari %></td>
										</tr>
										<tr class="tx1214">
											<td width="40" height="40" align="center">　</td>
											<td width="40" height="40" align="center">　</td>
											<td width="40" height="40" align="center"><font color="FF0000"><% = ConvShimeiRyakuMeisyo(GakuseiBango)  %></font></td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
<% If GB_IEmode = "1" Then %>
				<tr>
					<td height="265" align="center" valign="top">
						<table width="510" height="250" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<object width="<% If GB_ShohizeiMode = 1 Then %>668<% Else %>612<% End If %>" height="250" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5"	codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread1" border="0">
									</object>
									<object width="<% If GB_ShohizeiMode = 1 Then %>668<% Else %>612<% End If %>" height="55" onMouseOver="SubmitFlg=1" classid="clsid:41f841c1-ae16-11d5-8817-0050da6ef5e5"	codebase="/<% = HomeAlias %>/binx/spr32x60.cab#version=1,1,1,1" id="vaSpread2" border="0">
									</object>
								</td>
							</tr>
						</table>
					</td>
				</tr>
<% Else %>
				<tr> 
					<td align="center" height="26" valign="bottom"> 
						<table width="<% If GB_ShohizeiMode = 1 Then %>660<% Else %>610<% End If %>" height="24" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<table width="<% If GB_ShohizeiMode = 1 Then %>640<% Else %>590<% End If %>" height="24" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<% = SenColor %>">
										<tr class="tx1416" style="color:<% = SenColor %>">
											<td align="center">材料名称</td>
											<td align="center" width="100"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %></td>
											<td align="center" width="100">数　量</td>
											<td align="center" width="100">単　価</td>
											<td align="center" width="100">金　額</td>
										<% If GB_ShohizeiMode = 1 Then %>
											<td align="center" width="48">税率</td>
										<% End If %>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr> 
					<td align="center" VALIGN="TOP">
						<table width="<% If GB_ShohizeiMode = 1 Then %>660<% Else %>610<% End If %>" height="287" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<DIV ID="Layer1" STYLE="position:relative; left:0px; top:0px; width:<% If GB_ShohizeiMode = 1 Then %>660<% Else %>610<% End If %>px; height:100%; z-index:1; border: 1px none #000000; overflow: auto;">
									<table width="<% If GB_ShohizeiMode = 1 Then %>640<% Else %>590<% End If %>" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<% = SenColor %>">
<%

	'スプレッドシート定義 ※全行共通なのでループ外
	Dim SpMaxRow
	Dim SpRowCnt
	Dim SpMaxCol
	SpRowCnt = 0
	SpMaxRow = SpRowCnt
	'フォーム名
	SpFormName = "SpCell" '
	'行定義
	SpRowHeight = "26" '高さ(pixel指定)
	SpRowCls = "tx1416" '行スタイルclass
	SpRowStyle = "" '行スタイル
	'列1定義
	SpCellType(1) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(1) = "186" 'セル幅(pixel指定)
	SpCellCls(1) = "" 'セルスタイルclass
	SpCellStyle(1) = "" 'セルスタイル
	SpInputCls(1) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(1) = "" 'フォームスタイル
	SpInputFocus(1) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(1) = "" 'onBlurで作動させるスクリプト
	SpInputChange(1) = "SpChangeZairyo();SpSetKingaku();" 'onChangeで作動させるスクリプト
	SpInputRO(1) = "" 'フォームreadonlyフラグ("1")
	'列2定義
	SpCellType(2) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(2) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(2) = "" 'セルスタイルclass
	SpCellStyle(2) = "" 'セルスタイル
	SpInputCls(2) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(2) = "" 'フォームスタイル
	SpInputFocus(2) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(2) = "" 'onBlurで作動させるスクリプト
	SpInputRO(2) = "1" 'フォームreadonlyフラグ("1")
	'列3定義
	SpCellType(3) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(3) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(3) = "" 'セルスタイルclass
	SpCellStyle(3) = "" 'セルスタイル
	SpInputCls(3) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(3) = "" 'フォームスタイル
	SpInputFocus(3) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(3) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト
	SpInputRO(3) = "" 'フォームreadonlyフラグ("1")
	'列4定義
	SpCellType(4) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(4) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(4) = "" 'セルスタイルclass
	SpCellStyle(4) = "" 'セルスタイル
	SpInputCls(4) = "Spread4R" 'フォームスタイルclass
	SpInputStyle(4) = "" 'フォームスタイル
	SpInputFocus(4) = "FormStrCommaReplace(this);" 'onFocusで作動させるスクリプト
	SpInputBlur(4) = "FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SpSetKingaku();" 'onBlurで作動させるスクリプト
	SpInputRO(4) = "" 'フォームreadonlyフラグ("1")
	'列5定義
	SpCellType(5) = "3" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(5) = "100" 'セル幅(pixel指定) ※フォーム幅は自動計算
	SpCellCls(5) = "" 'セルスタイルclass
	SpCellStyle(5) = "" 'セルスタイル
	SpInputCls(5) = "Spread4Rro" 'フォームスタイルclass
	SpInputStyle(5) = "" 'フォームスタイル
	SpInputFocus(5) = "this.blur();" 'onFocusで作動させるスクリプト
	SpInputBlur(5) = "" 'onBlurで作動させるスクリプト
	SpInputRO(5) = "1" 'フォームreadonlyフラグ("1")
If GB_ShohizeiMode = 1 Then
	'列6定義
	SpCellType(6) = "9" '形式指定（0:日付・1:文字列・2:英数字・3:通貨 9:プルダウン）
	SpCellWidth(6) = "48" 'セル幅(pixel指定)
	SpCellCls(6) = "" 'セルスタイルclass
	SpCellStyle(6) = "" 'セルスタイル
	SpInputCls(6) = "Spread4L" 'フォームスタイルclass
	SpInputStyle(6) = "" 'フォームスタイル
	SpInputFocus(6) = "" 'onFocusで作動させるスクリプト
	SpInputBlur(6) = "" 'onBlurで作動させるスクリプト
	SpInputChange(6) = "SpSetGokei();" 'onChangeで作動させるスクリプト
	SpInputRO(6) = "" 'フォームreadonlyフラグ("1")
End If

										Dim RowCnt
										RowCnt = 0
										'///////  ２．「仕入明細」明細部のデータを取得。
										Query = "exec SPK伝票_材料仕入明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
										Set Content = OpenQuery(Query)
										GokeiKingaku = 0
										SyohizeiKingaku = 0
										Do While Not(Content.BOF Or Content.EOF)
											GokeiKingaku = GokeiKingaku + (Content.Fields("受注単価") * Content.Fields("受注数量"))
											'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
											'ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku 
											If "" & Content.Fields("消費税率") = "" Or GB_ShohizeiMode <> 1 Then
												SyohizeiKingaku = SyohizeiKingaku + (((Content.Fields("受注単価") * Content.Fields("受注数量")) * StdTaxRate) / 100)
											Else
												SyohizeiKingaku = SyohizeiKingaku + (((Content.Fields("受注単価") * Content.Fields("受注数量")) * Content.Fields("消費税率")) / 100)
											End If

	'スプレッドシート行生成 ※此処で値のみ代入
	SpRowCnt = SpRowCnt + 1 '行番号(フォーム名に反映)
	SpMaxRow = SpRowCnt
	SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(ZairyoAry)
		SpInputOption(1) = SpInputOption(1) & "<option value=""" & ZairyoAry(Cnt) & """"
		If ZairyoAry(Cnt) = "" & Content.Fields("材料名称") Then
			SpInputOption(1) = SpInputOption(1) & " selected"
		End If
		SpInputOption(1) = SpInputOption(1) & ">" & ZairyoAry(Cnt) & "</option>"' & vbCrLf
	Next
	SpInputValue(2) = ConvIntToMoney(Content.Fields("標準販売単価"), false, false) 'フォーム初期値
	SpInputValue(3) = ConvIntToMoney(Content.Fields("受注数量"), false, false) 'フォーム初期値
	SpInputValue(4) = ConvIntToMoney(Content.Fields("受注単価"), false, false) 'フォーム初期値
	SpInputValue(5) = ConvIntToMoney(Content.Fields("受注単価") * Content.Fields("受注数量"), false, false) 'フォーム初期値
If GB_ShohizeiMode = 1 Then
	SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TaxRateAry)
		SpInputOption(6) = SpInputOption(6) & "<option value=""" & TaxRateAry(Cnt) & """"
		If "" & TaxRateAry(Cnt) = "" & Content.Fields("消費税率") Then
			SpInputOption(6) = SpInputOption(6) & " selected"
		End If
		SpInputOption(6) = SpInputOption(6) & ">" & TaxRateAry(Cnt) & "</option>"' & vbCrLf
	Next
End If
	'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
	Call SpreadRow(SpRowCnt) '引数の行番号がフォーム名に付加される

If 0=1 Then
%>
										<tr height="24" class="tx1416"> 
											<td width="228" align="center"><% = AscLeft(Content.Fields("材料名称"),26) %>&nbsp;</td> <!-- 商品名称を26byteで切捨て（061101小野）-->
											<td width="90" align="right"><% = SetMoney(Content.Fields("標準販売単価"), false, true) %>&nbsp;</td>
											<td width="90" align="right"><% = SetMoney(Content.Fields("受注数量"), false, true) %>&nbsp;</td>
											<td width="90" align="right"><% = SetMoney(Content.Fields("受注単価"), false, true) %>&nbsp;</td>
											<td width="90" align="right"><% = SetMoney(Content.Fields("受注単価") * Content.Fields("受注数量"), false, true) %>&nbsp;</td>
										<% If GB_ShohizeiMode = 1 Then %>
											<td width="48" align="right"><% = Content.Fields("消費税率") %>％&nbsp;</td>
										<% End If %>
										</tr>
<%
End If
											RowCnt = RowCnt + 1
											Content.MoveNext
										Loop
										ZeikomiKingaku = GokeiKingaku + Fix(SyohizeiKingaku)

	'スプレッドシートの空白行を発生させる
	SpInputOption(1) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(1) = SpInputOption(1) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(ZairyoAry)
		SpInputOption(1) = SpInputOption(1) & "<option value=""" & ZairyoAry(Cnt) & """>" & ZairyoAry(Cnt) & "</option>"' & vbCrLf
	Next
	SpInputValue(2) = "" 'フォーム初期値
	SpInputValue(3) = "" 'フォーム初期値
	SpInputValue(4) = "" 'フォーム初期値
	SpInputValue(5) = "" 'フォーム初期値
If GB_ShohizeiMode = 1 Then
	SpInputOption(6) = "" 'フォーム初期値(selectプルダウンのoptionタグ)
	SpInputOption(6) = SpInputOption(6) & "<option value=""""></option>"' & vbCrLf
	For Cnt = 1 To UBound(TaxRateAry)
		SpInputOption(6) = SpInputOption(6) & "<option value=""" & TaxRateAry(Cnt) & """>" & TaxRateAry(Cnt) & "</option>"' & vbCrLf
	Next
End If
	For Cnt = SpRowCnt + 1 To SpRowCnt + SpBlankRow
		'Response.Write(SpreadRow(SpRowCnt)) '引数の行番号がフォーム名に付加される
		Call SpreadRow(Cnt) '引数の行番号がフォーム名に付加される
		SpMaxRow = Cnt
	Next

%>
									</table>
									</DIV>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr> 
					<td align="center"> 
						<table width="<% If GB_ShohizeiMode = 1 Then %>660<% Else %>610<% End If %>" height="26" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td>
									<table width="<% If GB_ShohizeiMode = 1 Then %>640<% Else %>590<% End If %>" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<% = SenColor %>">
										<tr height="24" class="tx1416"> 
											<td align="center" rowspan="3">　</td>
											<td align="center" width="201" style="color:<% = SenColor %>">合計金額</td>
											<td align="right" width="100"><input type="text" name="GokeiKingaku" value="<% = SetMoney(GokeiKingaku, false, true) %>" class="Spread4Rro" style="width:98px;border:none;" onFocus="this.blur();" readonly tabindex="-1" size="1"></td>
											<td align="center" width="48" rowspan="3">　</td>
										</tr>
										<tr height="24" class="tx1416"> 
											<td align="center" style="color:<% = SenColor %>">消費税額</td>
											<td align="right"><input type="text" name="SyohizeiKingaku" value="<% = SetMoney(Fix(SyohizeiKingaku), false, true) %>" class="Spread4Rro" style="width:98px;border:none;" onFocus="this.blur();" readonly tabindex="-1" size="1"></td>
										</tr>
										<tr height="24" class="tx1416"> 
											<td align="center" style="color:<% = SenColor %>">税込金額</td>
											<td align="right"><input type="text" name="ZeikomiKingaku" value="<% = SetMoney(ZeikomiKingaku, false, true) %>" class="Spread4Rro" style="width:98px;border:none;" onFocus="this.blur();" readonly tabindex="-1" size="1"></td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<tr> 
					<td height="10"> 
					</td>
				</tr>
<% End If %>
			</table>
		</td>
	</tr>
</table>

</div>
</form>
</body>
<SCRIPT LANGUAGE="JavaScript">
//↓ブラウザ不問の共通関数


	function ConvZairyoHanbaiTanka(SyohinCD) {
<%
	For Cnt = 1 To UBound(ZairyoCDAry)
		Response.Write("		if(SyohinCD == """ & ZairyoCDAry(Cnt) & """)return """ & ZairyoTankaAry(Cnt) & """;" & vbCrLf)
	Next
%>
		return "";
	}


	function ConvZairyoHanbaiTanka2(ZairyoMeisyo) {	//材料名称ベース
<%
	For Cnt = 1 To UBound(ZairyoAry)
		Response.Write("		if(ZairyoMeisyo == """ & ZairyoAry(Cnt) & """)return """ & ZairyoTankaAry(Cnt) & """;" & vbCrLf)
	Next
%>
		return "";
	}


	function ConvZairyoSyohizeiritsu(SyohinCD) {
<%
	For Cnt = 1 To UBound(ZairyoCDAry)
		If "" & ZairyoCDAry(Cnt) <> "" Then
			Response.Write("		if(SyohinCD == """ & ZairyoCDAry(Cnt) & """)return """ & ZairyoZeiritsuAry(Cnt) & """;" & vbCrLf)
		Else
			Response.Write("		if(SyohinCD == """ & ZairyoCDAry(Cnt) & """)return """ & StdTaxRate & """;" & vbCrLf)
		End If
	Next
%>
		return "";
	}


	function ConvZairyoSyohizeiritsu2(ZairyoMeisyo) {	//材料名称ベース
<%
	For Cnt = 1 To UBound(ZairyoAry)
		If "" & ZairyoAry(Cnt) <> "" Then
			Response.Write("		if(ZairyoMeisyo == """ & ZairyoAry(Cnt) & """)return """ & ZairyoZeiritsuAry(Cnt) & """;" & vbCrLf)
		Else
			Response.Write("		if(ZairyoMeisyo == """ & ZairyoAry(Cnt) & """)return """ & StdTaxRate & """;" & vbCrLf)
		End If
	Next
%>
		return "";
	}


//↑ブラウザ不問の共通関数
</SCRIPT>



<% If GB_IEmode <> "1" Then %>
<SCRIPT LANGUAGE="JavaScript">


	SpMinRow = 1;
	SpMaxRow = <% = SpMaxRow %>;
<%
	'最大セル番号を取得
	SpMaxCol = 0
	For Cnt = 1 To UBound(SpCellType)
		If "" & SpCellType(Cnt) <> "" Then
			SpMaxCol = Cnt
		End If
	Next
%>
	SpMaxCol = <% = SpMaxCol %>;


	function SpChangeZairyo() {
		Target = "SpCell" + SpSelRow + "_" //現在選択行のセル番号を除くフォーム名
		Zairyo = form1[Target + 1].value;
		if (Zairyo != "") {
			form1[Target + 2].value = NumComma(ConvZairyoHanbaiTanka2(Zairyo), false); //NumCommaはマイナスを許容＆文字列引数で動作する
			form1[Target + 6].value = NumComma(ConvZairyoSyohizeiritsu2(Zairyo), false); //NumCommaはマイナスを許容＆文字列引数で動作する
		}
	}


	function SpSetKingaku() {
		Target = "SpCell" + SpSelRow + "_" //現在選択行のセル番号を除くフォーム名
		Suryo = ConvMoneyToInt(form1[Target + 3].value);
		Tanka = ConvMoneyToInt(form1[Target + 4].value);
		if (Suryo != "" && Tanka != "") {
			form1[Target + 5].value = NumComma(eval(Suryo * Tanka), false); //NumCommaはマイナスを許容＆文字列引数で動作する
		}
		SpSetGokei();
	}


	function SpSetGokei() {
		var TmpGokei = 0;
		var TmpShohizei = 0;
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //現在選択行のセル番号を除くフォーム名
			var Text1, Text2, Text3;
			Text1 = form1[Target + 5].value;
			//通貨のカンマ区切りを外す
			Text1 = ReplaceStr(Text1, ",", "");
			if (Text1 != "") {
				Text2 = eval(Text1);
			} else {
				Text2 = 0;
			}
			TmpGokei = TmpGokei + Text2;
			Text1 = form1[Target + 6].value;
			if (Text1 != "") {
				Text3 = parseFloat(Text1);
			} else {
				Text3 = 0;
			}
			TmpShohizei = TmpShohizei + ((Text2 * Text3) / 100);
//			alert((Text2 * Text3) / 100);
//			alert(Text1);
		}
//alert(TmpShohizei);
		form1.GokeiKingaku.value = NumComma(TmpGokei, false); //NumCommaはマイナスを許容＆文字列引数で動作する
		form1.SyohizeiKingaku.value = NumComma(Math.floor(TmpShohizei), false); //NumCommaはマイナスを許容＆文字列引数で動作する
		form1.ZeikomiKingaku.value = NumComma(TmpGokei + Math.floor(TmpShohizei), false); //NumCommaはマイナスを許容＆文字列引数で動作する
	}


	function SubmitCheck() {
//alert("SubmitCheck");
<% If JidoBangoDenpyo <> "1" Then %>
		if (form1.DenpyoNo.value == "") {
			alert("伝票番号を入力してください");
			form1.DenpyoNo.focus();
			return false;
		}
<% End If %>
		if (form1.Torihikibi.value == "") {
			alert("取引日を入力してください");
			form1.Torihikibi.focus();
			return false;
		}
		if (form1.TorihikisakiCD.value == "") {
			alert("取引先を選択してください");
			form1.TorihikisakiCD.focus();
			return false;
		}
		form1.SendValue.value = ""
		for (jj = SpMinRow; jj <= SpMaxRow; jj++) {
			Target = "SpCell" + jj + "_" //セル番号を除くフォーム名
			var RowText;
			RowText = "";
			var bCheck;
			bCheck = Array();
			var Tanka, Suryo, Kingaku;
			for (ii = 1; ii <= SpMaxCol; ii++) {
				if (ii != 2) {
					bCheck[ii] = 0;
					//金額の0入力はクリア（onBlurで処理しているが念のため）
					if ((ii == 3 || ii == 4) && form1[Target + ii].value == "0") {
						form1[Target + ii].value = "";
					}
					var Text1;
					Text1 = form1[Target + ii].value;
//alert("SubmitCheck");
					//通貨のカンマ区切りを外す
					if (ii == 3 || ii == 4) {
						Text1 = ReplaceStr(Text1, ",", "");
					}
					//テンポラリに代入
					if (ii == 1) SyohinMeisyo = '' + Text1;
					if (ii == 3) Suryo = Math.floor(Text1);
					if (ii == 4) Tanka = Math.floor(Text1);
					if (ii == 6) TaxRate = Text1;
					if (ii == 3 && Suryo > 1000000000) {
						alert("数量は 1,000,000,000以下で入力してください　");
						form1[Target + 3].focus();
						return;
					}
					//数量×単価を代入
					if (ii == 5 && bCheck[3] != 1 && bCheck[4] != 1) {
						Text1 = Math.floor(Tanka * Suryo);
						form1[Target + ii].value = Text1;
						Kingaku = Text1;
					}
					RowText = RowText + Text1;
					RowText = RowText + ",";
					if (Text1 == "") {
						bCheck[ii] = 1;
					}
				}
			}
			//消費税率の有無でセル数が変動するため1セル増やす
			RowText = RowText + ",";
			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[1] == 1) {
					alert("商品を選択してください　");
					form1[Target + 1].focus();
					return;
				}
				if (bCheck[3] == 1) {
					alert("数量を入力してください　");
					form1[Target + 3].focus();
					return;
				}
				if (bCheck[4] == 1) {
					alert("単価を入力してください　");
					form1[Target + 4].focus();
					return;
				}
				if (bCheck[6] == 1) {
					alert("消費税率を選択してください　");
					form1[Target + 6].focus();
					return;
				}
				if (Kingaku > 9999999999) {
					alert("合計金額が 9,999,999,999円以下になるようにデータを修正してください　");
					form1[Target + 3].focus();
					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
		if (form1.SendValue.value == '') {
			alert("明細を入力してください");
			return false;
		}
//alert(form1.SendValue.value);
		SubmitReal(form1);
		return true;
	}



window.onload = function() {

	form1.SpCell<% = (SpRowCnt + 1) %>_1.focus();

}

</SCRIPT>



<% Else 'IEモード %>
<SCRIPT LANGUAGE="JavaScript">

//################################################
//	名称：SubmitCheck
//	目的：更新前に入力値をチェックする。
//################################################
	function SubmitCheck() {

		//摘要スプレッドの内容を適用フォームにコピー
		document.vaSpread3.Row = 1;
		document.vaSpread3.Col = 1;
		form1.DenpyoTekiyo.value = document.vaSpread3.Text;

<% If JidoBangoDenpyo <> "1" Then %>
		if (form1.DenpyoNo.value == "") {
			alert("伝票番号を入力してください。");
			form1.DenpyoNo.focus();
			return false;
		}
<% End If %>

		//** １．取引日のチェック
		if (form1.Torihikibi.value == "") {
			alert("取引日を入力して下さい");
			return false;
		}

		//** ２．取引先のチェック
		if (form1.TorihikisakiCD.value == "") {
			alert("取引先を入力して下さい");
			return false;
		}

		//** ３．明細部のチェック
		for (jj = 1; jj <= document.vaSpread1.MaxRows; jj++) {
			document.vaSpread1.Row = jj;
			var RowText;
			RowText = "";
			var TmpRowText;
			TmpRowText = "";
			var bCheck;
			bCheck = Array();
			var Tanka, Suryo, Kingaku;
			for (ii = 1; ii <= document.vaSpread1.MaxCols; ii++) {
				if (ii != 2) {
					document.vaSpread1.Col = ii;
					bCheck[ii] = 0;
					//セルを取得
					var Text1;
					Text1 = document.vaSpread1.Text;
					//通貨のカンマを除く
					if(document.vaSpread1.ColID == 12) {
						Text1 = ReplaceStr(Text1, ",", "")
					}
					//テンポラリに代入
					if (ii == 1) SyohinMeisyo = '' + Text1;
					if (ii == 3) Suryo = Math.floor(Text1);
					if (ii == 4) Tanka = Math.floor(Text1);
					if (ii == 6) TaxRate = Text1;
					if (ii == 3 && Suryo > 1000000000) {
						alert("数量は 1,000,000,000以下で入力してください　");
						document.vaSpread1.SetActiveCell(3, jj); //数量セルに移動
						document.vaSpread1.focus();
						document.vaSpread1.EditMode = true;
						return;
					}
					//数量×単価を代入
					if (ii == 5 && bCheck[3] != 1 && bCheck[4] != 1) {
						Text1 = Math.floor(Tanka * Suryo);
						document.vaSpread1.Text = Text1;
						Kingaku = Text1;
					}
					//行テキストにセルをカンマ区切りで繋げる
					RowText = RowText + Text1;
					RowText = RowText + ",";
					//Nullならエラーフラグを立てる
					if(Text1 == "" || (ii == 3 || ii == 4) && Text1 == 0) {
						bCheck[ii] = 1;
					}
				}
			}
			//消費税率の有無でセル数が変動するため1セル増やす
			RowText = RowText + ",";
			//行テキストに要素が存在する場合
			if (ReplaceStr(RowText, ",", "") != "") {
				if (bCheck[1] == 1) {
					alert("商品を選択してください　");
					document.vaSpread1.SetActiveCell(1, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if (bCheck[3] == 1) {
					alert("数量を入力してください　");
					document.vaSpread1.SetActiveCell(3, jj);
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				if (bCheck[4] == 1) {
					alert("単価を入力してください　");
					document.vaSpread1.SetActiveCell(4, 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 (Kingaku > 9999999999) {
					alert("合計金額が 9,999,999,999円以下になるようにデータを修正してください　");
					document.vaSpread1.SetActiveCell(3, jj); //数量セルに移動
					document.vaSpread1.focus();
					document.vaSpread1.EditMode = true;
					return;
				}
				form1.SendValue.value = form1.SendValue.value + RowText + ";"
			}
		}
		if (form1.SendValue.value == '') {
			alert("明細を入力して下さい");
			return false;
		}

<% If DenpyoNo <> "" Then %>
	<% If JidoBangoDenpyo <> "1" Then %>
//		if (form1.OldDenpyoNo.value == form1.DenpyoNo.value) {
//			alert("伝票を修正する場合は、新しい伝票番号を付ける必要があります。");
//			return false;
//		}
	<% End If %>
//		if (!confirm("この伝票を削除し、新しい伝票を保存します。\r\n保存してもよろしいですか？")) {
//			return false;
//		}
<% End If %>

		//消費税額スプレッドの値を消費税額フォームにコピー
		document.vaSpread2.Row = 2;
		document.vaSpread2.Col = 5;
//alert(document.vaSpread2.Text);
//return
		form1.SyohizeiKingaku.value = ReplaceStr(document.vaSpread2.Text, ",", "");

		SubmitReal(form1);
		return true;
	}



	function SetGokei() {
		var TmpGokei = 0;
		var TmpShohizei = 0;
		for (ii = 1; ii <= document.vaSpread1.MaxRows; ii++) {
			document.vaSpread1.Row = ii;
			var Text1, Text2, Text3;
			document.vaSpread1.Col = 5;
			Text1 = document.vaSpread1.value;
			if (Text1 != "") {
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = Text1.replace(',', '');
				Text1 = Text2.replace(',', '');
				Text2 = eval(Text1);
			} else {
				Text2 = 0;
			}
			TmpGokei = TmpGokei + Text2;
			document.vaSpread1.Col = 6;
			Text1 = document.vaSpread1.Text;
			if (Text1 != "") {
				Text3 = parseFloat(Text1);
			} else {
				Text3 = 0;
			}
			TmpShohizei = TmpShohizei + ((Text2 * Text3) / 100)
//			alert((Text2 * Text3) / 100);
//			alert(Text1);
		}
//alert(TmpShohizei);
		document.vaSpread2.Row = 1;
		document.vaSpread2.Col = 5;
		document.vaSpread2.value = TmpGokei;
		document.vaSpread2.Row = 2;
		document.vaSpread2.Col = 5;
//		document.vaSpread2.value = Math.floor(TmpGokei * <% = GB_Shohizei %> / 100);
		document.vaSpread2.value = Math.floor(TmpShohizei);
		document.vaSpread2.Row = 3;
		document.vaSpread2.Col = 5;
//		document.vaSpread2.value = TmpGokei + Math.floor(TmpGokei * <% = GB_Shohizei %> / 100);
		document.vaSpread2.value = TmpGokei + Math.floor(TmpShohizei);
	}



	function SpreadInit(fpSpread) {

		fpSpread.MaxRows = 0;
<%
	ii = 0

	'選択行の色を変える動作を停止（090624小野）
	Response.Write("		SpreadRowColorMode = false;" & vbCrLf)

	'追加モードでリジェクトされた場合はクエリから展開（090528小野）
	If ErrorFlg <> "" Then

		Dim TmpValueRow
		Dim TmpValueCol
		TmpValueRow = Split(ReturnValue, ";")
		For TmpCnt = 0 To UBound(TmpValueRow) - 1
			TmpValueCol = Split(TmpValueRow(TmpCnt), ",")
			ii = ii + 1
			Response.Write("			SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("			fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("			fpSpread.Col = 1;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & TmpValueCol(0) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 2;" & vbCrLf)
			Response.Write("			fpSpread.Text = ConvZairyoHanbaiTanka(""" & ConvRevZairyoMeisyo(TmpValueCol(0)) & """);" & vbCrLf)
			Response.Write("			fpSpread.Col = 3;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(TmpValueCol(1), false ,false) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 4;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(TmpValueCol(2), false ,false) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 5;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(CLng(TmpValueCol(1)) * CLng(TmpValueCol(2)), false ,false) & """;" & vbCrLf)
			If GB_ShohizeiMode = 1 Then
				Response.Write("			fpSpread.Col = 6;" & vbCrLf)
				Response.Write("			fpSpread.Text = ConvZairyoSyohizeiritsu(""" & ConvRevZairyoMeisyo(TmpValueCol(0)) & """);" & vbCrLf)
			End If
			Response.Write("			fpSpread.Col = 0;" & vbCrLf)
			Response.Write("			fpSpread.Text = "" "";" & vbCrLf)
		Next

	'修正モード
	ElseIf DenpyoNo <> "" Then

		Query = "exec SPK伝票_材料仕入明細取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'"
		Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
'			Response.Write("			SyohinMeisyoArray[" & ii & "] = """ & ConvSyohinMeisyo(Content.Fields("商品CD")) & """;" & vbCrLf)
'			Response.Write("			MotoSuryoArray[" & ii & "] = " & ConvIntToMoney(Content.Fields("数量"), false ,false) & ";" & vbCrLf)
			ii = ii + 1
			Response.Write("			SpreadAddItem(fpSpread);" & vbCrLf)
			Response.Write("			fpSpread.Row = " & ii & ";" & vbCrLf)
			Response.Write("			fpSpread.Col = 1;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvZairyoMeisyo(Content.Fields("商品CD")) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 2;" & vbCrLf)
			Response.Write("			fpSpread.Text = ConvZairyoHanbaiTanka(""" & Content.Fields("商品CD") & """);" & vbCrLf)
			Response.Write("			fpSpread.Col = 3;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(Content.Fields("受注数量"), false ,false) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 4;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(Content.Fields("受注単価"), false ,false) & """;" & vbCrLf)
			Response.Write("			fpSpread.Col = 5;" & vbCrLf)
			Response.Write("			fpSpread.Text = """ & ConvIntToMoney(Content.Fields("受注数量") * Content.Fields("受注単価"), false ,false) & """;" & vbCrLf)
			If GB_ShohizeiMode = 1 Then
				Response.Write("			fpSpread.Col = 6;" & vbCrLf)
				Response.Write("			fpSpread.Text = ConvZairyoSyohizeiritsu(""" & Content.Fields("商品CD") & """);" & vbCrLf)
			End If
			Response.Write("			fpSpread.Col = 0;" & vbCrLf)
			Response.Write("			fpSpread.Text = "" "";" & vbCrLf)
			Content.MoveNext
		Loop

	End If

	Dim NyukoCnt
	NyukoCnt = ii

	If ii = 0 Then
		Response.Write("		SpreadAddItem(fpSpread);" & vbCrLf)
		NyukoCnt = 1
	End If

	'選択行の色を変える動作を再開（090624小野）
	Response.Write("		SpreadRowColorMode = true;" & vbCrLf)
	Response.Write("		SpreadRowColor(fpSpread);")	'選択行の色を変える（090624小野）

%>
	}

</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="KeyDown(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
//	SpreadKeyDown(this, KeyAsciiCode, KeyShift);
	if(KeyAsciiCode == 46 && this.EditMode == false)
	{
		SetGokei();
	}
</SCRIPT>
<SCRIPT FOR="vaSpread1" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>
<SCRIPT FOR="vaSpread3" EVENT="KeyUp(KeyAsciiCode, KeyShift)" LANGUAGE="JavaScript">
	SpreadKeyUp(this, KeyAsciiCode, KeyShift);
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	this.EditMode = true;
</SCRIPT>

<SCRIPT FOR="vaSpread3" EVENT="Click(ColNo, RowNo)" LANGUAGE="JavaScript">
//	SpreadClick(this, ColNo, RowNo);
	this.Col = this.ActiveCol;
	this.Row = this.ActiveRow;
	this.EditMode = true;
</SCRIPT>


<SCRIPT FOR="vaSpread2" EVENT="onfocus" LANGUAGE="JavaScript">
	document.vaSpread1.focus();
</SCRIPT>


<SCRIPT FOR="vaSpread1" EVENT="EditMode(Col, Row, Mode, ChangeMade)" LANGUAGE="JavaScript">
	this.Col = Col;
	this.Row = Row;
	if(this.CellType == 12) {
		if(!Mode) {
			this.TypeCurrencyLeadingZero = 2;
		}
	}
	SpreadRowColor(this);	//選択行の色を変える（090624小野）
	this.focus();
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ScriptLeaveCell(ColNo, RowNo, NewColNo, NewRowNo, Cancel)" LANGUAGE="VBScript">
	Dim tmp
	tmp = SpreadChange(Me, ColNo, RowNo)
	If tmp = "ERR" Then
		Cancel = true
		SpreadReFocus(Me)
	Else
		Call SetRenewCell(Me, ColNo, RowNo)
	End If
</SCRIPT>

<SCRIPT FOR="vaSpread1" EVENT="ComboCloseUp(ColNo, RowNo)" LANGUAGE="JavaScript">
	SetRenewCell(this, ColNo, RowNo)
	this.focus();
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">
	function SetRenewCell(obj, ColNo, RowNo) {
//alert("SetRenewCell");
		var tmp;
		var tmp2;
		if (ColNo == 1) {
			obj.Col = 1;
			obj.Row = RowNo;
			tmp = "" + obj.Text;
			tmp2 = "" + obj.Text;
			tmp = ConvZairyoHanbaiTanka2(tmp);
			obj.Col = 2;
			obj.Row = RowNo;
			obj.TypeComboBoxRemoveItem(2, RowNo, 0);
			obj.TypeComboBoxIndex = 0;
			obj.TypeComboBoxString = tmp;
			obj.Text = tmp;
			tmp = ConvZairyoSyohizeiritsu2(tmp2);
			obj.Col = 6;
			obj.Row = RowNo;
//			obj.TypeComboBoxRemoveItem(2, RowNo, 0);
//			obj.TypeComboBoxIndex = 0;
//			obj.TypeComboBoxString = tmp;
			obj.Text = tmp;
		}
		//数量×単価
		if (ColNo == 3 || ColNo == 4) {
			tmp = 0;
			obj.Row = RowNo;
			obj.Col = 3;
			if ('' + obj.Text != '') {
				tmp = ConvMoneyToInt(obj.Text);
				obj.Col = 4;
				if ('' + obj.Text != '') {
					tmp = tmp * ConvMoneyToInt(obj.Text);
					obj.Col = 5;
					obj.TypeComboBoxRemoveItem(2, RowNo, 0);
					obj.TypeComboBoxIndex = 0;
					obj.TypeComboBoxString = tmp;
					obj.Text = tmp;
				}
			}
		}
		SetGokei();
	}
</SCRIPT>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	if(typeof(form1.dummy) == "object")form1.dummy.focus();
	//	SpreadLoad 第 3n + 1 引数 (nは整数)
	//	0:日付型 1:文字型 8:コンボボックス型 10:チェックボックス型 12:通貨型 13:数値型 21:勘定科目 22:摘要
	document.vaSpread1.Redraw = false;
	document.vaSpread2.Redraw = false;
	document.vaSpread3.Redraw = false;
<% If GB_ShohizeiMode = 1 Then %>
	SpreadLoad(document.vaSpread1, "材料名称", 8, 24.5, "<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>", 12, 11.7, "数量", 12, 11.7, "仕入単価", 12, 11.7, "金額", 99, 11.7, "税率", 8, 6.6);
<% Else %>
	SpreadLoad(document.vaSpread1, "材料名称", 8, 24.5, "<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>", 12, 11.7, "数量", 12, 11.7, "仕入単価", 12, 11.7, "金額", 99, 11.7);
<% End If %>
	SpreadLoad(document.vaSpread2, "材料名称", 1, 24.5, "<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %>",  1, 11.7, "数量",  1, 11.7, "仕入単価",  1, 11.7, "金額", 99, 11.7);
	SpreadLoad(document.vaSpread3, "摘要", 22, 18);

	document.vaSpread1.ScriptEnhanced = true;
	document.vaSpread2.ScriptEnhanced = true;
	document.vaSpread3.ScriptEnhanced = true;

	document.vaSpread2.OperationMode = 1;

	document.vaSpread2.ColHeadersShow = false;
	document.vaSpread2.Col = -1;
	document.vaSpread2.Row = -1;
	document.vaSpread2.FontSize = 11;

	document.vaSpread2.BackColorStyle = 1;
	document.vaSpread2.Row = -1;
	document.vaSpread2.Col = -1;
	document.vaSpread2.BackColor = 0xE6E6E6;
	document.vaSpread2.Lock = true;
	document.vaSpread2.MaxRows = 0;
	SpreadAddItem(document.vaSpread2);
	SpreadAddItem(document.vaSpread2);
	SpreadAddItem(document.vaSpread2);
	document.vaSpread2.Col = 4;
	document.vaSpread2.Row = 1;
	document.vaSpread2.Text = "合計金額"
	document.vaSpread2.Row = 2;
	document.vaSpread2.Text = "消費税額"
	document.vaSpread2.Row = 3;
	document.vaSpread2.Text = "税込合計"

	document.vaSpread3.BackColor = 0xffffee;
	document.vaSpread3.RowHeadersShow = false;
	document.vaSpread3.ColHeadersShow = false;
	document.vaSpread3.MaxRows = 1;
	document.vaSpread3.MaxCols = 1;
	document.vaSpread3.Row = 0;
	document.vaSpread3.Col = 0;
	document.vaSpread3.FontSize = 9;

	document.vaSpread1.Col = -1;
	document.vaSpread1.Row = -1;
	document.vaSpread1.FontSize = 11;

	document.vaSpread1.Col = 1;
<%
	Dim SyohinCnt
	SyohinCnt = 0
	Dim ListText
	ListText = ""
	ListText = ListText & "\t"
	For Cnt = 1 To UBound(ZairyoAry)
		ListText = ListText & ZairyoAry(Cnt)
		If ListText <> "" Then
			ListText = ListText & "\t"
		End If
		SyohinCnt = SyohinCnt + 1
	Next
If 0=1 Then
	Query = "exec SPM材料一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("所有会社CD") = KaisyaCD Then
			ListText = ListText & Content.Fields("材料名称")
			If ListText <> "" Then
				ListText = ListText & "\t"
			End If
			SyohinCnt = SyohinCnt + 1
		End If
		Content.MoveNext
	Loop
End If
	Response.Write("document.vaSpread1.TypeComboBoxList = """ & ListText & """;")
%>

	document.vaSpread1.Col = 2;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;

	document.vaSpread1.Col = 5;
	document.vaSpread1.BackColorStyle = 1;
	document.vaSpread1.BackColor = 0xE6E6E6;
	document.vaSpread1.Lock = true;

<% If GB_ShohizeiMode = 1 Then %>
	document.vaSpread1.Col = 6;
<%
	ListText = ""
	ListText = ListText & "\t"
'	ListText = ListText & "99.99"
'	ListText = ListText & "\t"
	For TCnt = 1 To UBound(TaxRateAry)
		ListText = ListText & TaxRateAry(TCnt)
		If ListText <> "" Then
			ListText = ListText & "\t"
		End If
	Next
	Response.Write("document.vaSpread1.TypeComboBoxList = """ & ListText & """;")
%>
<% End If %>

	document.vaSpread1.RetainSelBlock = false;
	document.vaSpread3.RetainSelBlock = false;

	SpreadInit(document.vaSpread1);

	SetGokei();

	document.vaSpread3.Row = 1;
	document.vaSpread3.Col = 1;
	document.vaSpread3.TypeMaxEditLen = 50;
	document.vaSpread3.Text = "<% = DenpyoTekiyo %>";

	document.vaSpread1.Redraw = true;
	document.vaSpread2.ReDraw = true;
	document.vaSpread3.ReDraw = true;

<%
	'商品数分だけ行を発生させる（既に入庫されている数＋10をリミットとする）
	For ii = 1 To SyohinCnt - NyukoCnt
		If ii > 10 Then
			Exit For
		End If
		Response.Write("	SpreadAddItem(document.vaSpread1);" & vbCrLf)
	Next
%>

<% If ErrorFlg <> "" Then '伝票番号重複時の処理（090528小野）%>
	alert("<% = ErrorFlg %>");
	form1.DenpyoNo.focus();
	form1.DenpyoNo.select();
<% Else %>
	form1.Torihikibi.focus();
	form1.Torihikibi.select();
<% End If %>
	event.returnValue = false;
	return;

</SCRIPT>
<% End If %>



<% = HtmlFooter %>
</html>
<%
End Sub
%>