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

<%
'<!--
'################################################
'	名称	:出庫表示
'	作成日:2006/9/7
'	作成者:鈴木
'	目的 :出庫データを読込み表示する。
'	概要	:先方注文書からの出庫
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim BunsyoNaiyoCD, Syoribi, TorihikisakiCD, NonyuKijitsu
	Dim UnsoGaisyaCD, UntinSyogakariKubun, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoNaiyoCD , SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim BunsyoSyuruiCD
	Dim Kakaku(6)		'標準単価
	Dim SyohinCD(6)	'商品コード
	Dim SyohinName(6)							'商品名称
	Dim Suryo(6)		'数量
	Dim Tanka(6)		'単価
	Dim MotoTanka(6)		'元単価
	Dim UnsoTankaMaster(6)	'マスター運送単価
	Dim Zaiko(6)		'在庫数量

	Dim GakuseiShimei							'学生氏名(係印)
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Shimei
	Dim PageType
	Dim ZaikoTemp
	Dim SakuseiKaisyaCD
	Dim ShijyoCD(5)
	Dim TmpBunsyoSyuruiCD

	Dim SenpoShiireUriageSyuruiCD	'先方注文書の文書種類CD
	Dim SenpoShiireUriageNaiyoCD	'先方注文書の文書内容CD


	Dim UnsoTanka(5)							'運送単価
	Dim UnsohiSyohin(5)							'商品運送費
	Dim UnsohiGokei
	Dim OldSyoruiFlg
	UnsohiGokei = 0
	OldSyoruiFlg = 0

	Dim UnsoTankaGokei
	UnsoTankaGokei = 0
	Dim SoSuryo
	SoSuryo = 0

	
	Dim Jissenbi
	Dim SyohinNyusyukkoSeikousei
	Dim AiteShukkoHitsuyo
	Dim JishaZaikoHitsuyo
	Dim HyojunTankaHyoji
	Dim SoukoRiyo
	Dim HaraidashiTankaRiyo
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Jissenbi = SetTimeYYYYMMDD(Content.Fields("実践日"))
		AiteShukkoHitsuyo = "" & Content.Fields("入庫時相手出庫必要") 
		JishaZaikoHitsuyo = "" & Content.Fields("出庫時在庫必要") 
		SyohinNyusyukkoSeikousei = Content.Fields("商品入出庫整合性利用") 
		HyojunTankaHyoji = Content.Fields("標準販売単価表示") 
		SoukoRiyo = "" & Content.Fields("倉庫部利用")
		HaraidashiTankaRiyo = "" & Content.Fields("出庫時払出単価入力")
	End If

	'HaraidashiTankaRiyo = "1"

	PageType = Request("PageType")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")


'###Debug
'Response.Write("GB_SystemCD:" & GB_SystemCD & "<br>")
'Response.Write("EnshuCD:" & EnshuCD & "<br>")
'Response.Write("KaisyaCD:" & KaisyaCD & "<br>")
'Response.Write("BunsyoNaiyoCD:" & BunsyoNaiyoCD & "<br>")
'Response.Write("BunsyoSyuruiCD:" & BunsyoSyuruiCD & "<br>")
'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD & "<br>")
'Response.Write("SenpoBunsyoSyuruiCD:" & SenpoBunsyoSyuruiCD & "<br>")
'Response.Write("SenpoBunsyoNaiyoCD:" & SenpoBunsyoNaiyoCD & "<br>")

	'注文請書・管理部売渡受付書をトグルするフラグ
	Dim SenpoShoruiMode
	SenpoShoruiMode = Request("SenpoShoruiMode")

	If BunsyoSyuruiCD = "SU" Then
		If SenpoShoruiMode = "Uriwatashi" Then
			TmpBunsyoSyuruiCD = "KY" 
		Else
			TmpBunsyoSyuruiCD = "KU" 
		End If
	End If


	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If



	SyoruiMei = ConvKubunMeisyo("入出庫区分", BunsyoSyuruiCD)


	If BunsyoNaiyoCD <> "" Then
	
		Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & TmpBunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
	
	'Response.Write("Query:" & Query & "<br>")
	
		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then
			If SenpoFlg = 1 Then
				TorihikisakiCD = Content.Fields("作成会社CD")
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
				Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			Else
				TorihikisakiCD = Content.Fields("取引先CD")
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日"))
				Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			End If

			NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))

'			If 1 = 0 Then
				UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
				Unsohi = Content.Fields("運送費")
'			End If
'			GakuseiShimei = Content.Fields("氏名")
			SenpoShiireUriageSyuruiCD = Content.Fields("文書種類CD")
			SenpoShiireUriageNaiyoCD = Content.Fields("文書内容CD")

Dim Kingaku,GokeiKingaku

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				
				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
				
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				MotoTanka(DenpyoSEQ) = Content.Fields("単価")
				Zaiko(DenpyoSEQ) = ConvSyohinZaiko(Content.Fields("商品CD"))
				'Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				'GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
				UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
				UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量")
				If PreDenpyoSEQ <> DenpyoSEQ then
					If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then
						UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ)
					End If
				End If
				UnsoTankaMaster(DenpyoSEQ) = ConvSyohinSoryoTanka(Content.Fields("商品CD"))
				If PreDenpyoSEQ <> DenpyoSEQ then
					UnsoTankaGokei = UnsoTankaGokei + (UnsoTankaMaster(DenpyoSEQ) * Suryo(DenpyoSEQ))
					SoSuryo = SoSuryo + Suryo(DenpyoSEQ)
				End If

				Content.MoveNext
				PreDenpyoSEQ=DenpyoSEQ
			Loop
			If UnsohiGokei <> Unsohi Then	'運送単価から計算された値が運送費と異なっていれば旧仕様にする
				OldSyoruiFlg = 1
			End If
		End If
	End If

	If OldSyoruiFlg > 0 Then
		'運送費が商品Mの運送単価と異なっていたら運送単価に運送費÷総数量をセット
		If UnsoTankaGokei > 0 And SoSuryo > 0 Then
			If Unsohi <> UnsoTankaGokei Then
				For ii = 1 To 5
					If SyohinCD(ii) <> "" Then
						UnsoTanka(ii) = fix(Unsohi / SoSuryo)
					End If
				Next
			Else
				For ii = 1 To 5
					If SyohinCD(ii) <> "" Then
						UnsoTanka(ii) = UnsoTankaMaster(ii)
					End If
				Next
			End If
		End If
	End If


	Dim jj,tmps

	
	
	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
	
	SyohinMeisyo = "商品略名称"
	SyohinMeisyoListWidth = "width: 191;"
	ShijyoListWidth = "width:80"
	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
		SyohinMeisyo = "商品略名称"
		SyohinMeisyoListWidth = "width: 191;"
		ShijyoListWidth = "width:80"
	Else
		SyohinMeisyo = "商品名称"
	End If
	If HyojunTankaHyoji = "0" Then '標準販売単価非表示
		SyohinMeisyoListWidth = "width: 289;"
	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">
<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;


/////////////////////////////////////////
//市場を選択し商品を変更する
/////////////////////////////////////////
//商品CD及び商品名の配列を作成
Val = new Array();
Tex = new Array();

//debug
//alert(selindex);
//alert(selname);

<%
	Dim Query2,i,j,Content2
	i=0
	j=0
	'TDA市場Mから市場(市場CD)を取得
	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("Val[" & i & "] = new Array()" & vbCrLf)
			Response.Write("Tex[" & i & "] = new Array()" & vbCrLf)
			j = 0
			'先頭配列は必ず作成する
			Response.Write("Val[" & i & "][" & j & "] = ''" & vbCrLf )
			Response.Write("Tex[" & i & "][" & j & "] = '    '" & vbCrLf )
			j = j + 1
			'TDA商品Mから商品CDと商品名を取得し、JavaScript用の配列として書き出す
			if i = 0 then
'				Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','', '" & GB_GakuseiNo & "'"
				'最上列に全商品一覧(070512小野)
				Query2 = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
			else
				Query2 = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & Content.Fields("市場CD") & "', '" & GB_GakuseiNo & "'"
			end if
			Set Content2 = OpenQuery(Query2)
			If Not(Content2.BOF Or Content2.EOF) Then
				Do While Not(Content2.BOF Or Content2.EOF)
					Response.Write("Val[" & i & "][" & j & "] = '" & Content2.Fields("商品CD") & "'" & vbCrLf )
'Response.Write(SyohinMeisyo)
'Exit Sub
					Response.Write("Tex[" & i & "][" & j & "] = '" & Content2.Fields(SyohinMeisyo) & "'" & vbCrLf )
					j = j + 1
					Content2.MoveNext
				Loop
			End If
			if i <> 0 then
				Content.MoveNext
			end if
			i = i + 1
		Loop

		'最下列に市場非限定一覧(070512小野)
		Response.Write("Val[" & i & "] = new Array()" & vbCrLf)
		Response.Write("Tex[" & i & "] = new Array()" & vbCrLf)
		j = 0
		'先頭配列は必ず作成する
		Response.Write("Val[" & i & "][" & j & "] = ''" & vbCrLf )
		Response.Write("Tex[" & i & "][" & j & "] = '    '" & vbCrLf )
		j = j + 1
		Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','', '" & GB_GakuseiNo & "'"
		Set Content2 = OpenQuery(Query2)
		If Not(Content2.BOF Or Content2.EOF) Then
			Do While Not(Content2.BOF Or Content2.EOF)
				Response.Write("Val[" & i & "][" & j & "] = '" & Content2.Fields("商品CD") & "'" & vbCrLf )
				Response.Write("Tex[" & i & "][" & j & "] = '" & Content2.Fields(SyohinMeisyo) & "'" & vbCrLf )
				Content2.MoveNext
				j = j + 1
			Loop
		End If
	End If
%>

	function SetShohinMenu(selindex) {
		for (ii=1; ii<=5; ii++) {
			var plusLen = 0;
			//現在選択されているメニュー内容を取得
			var selVal = form1['SyohinCD' + ii].value;
			var selTex = form1['SyohinCD' + ii].options[form1['SyohinCD' + ii].selectedIndex].text;
			//メニューの配列長を変更(Valの2次元目の配列長)
			if (selVal != '') {
				plusLen = 1;
				//現在選択されているメニュー内容がnullで無ければ配列長+1&先頭メニュー配列にセット
				form1['SyohinCD' + ii].options.length = Val[selindex].length + plusLen;
				form1['SyohinCD' + ii].options[0].value = selVal;
				form1['SyohinCD' + ii].options[0].text = selTex;
			} else {
				form1['SyohinCD' + ii].options.length = Val[selindex].length;
			}
			for (jj=0; jj<Val[selindex].length; jj++) {
				//メニューの内容を変更
				form1['SyohinCD' + ii].options[jj + plusLen].value = Val[selindex][jj]
				form1['SyohinCD' + ii].options[jj + plusLen].text = Tex[selindex][jj]
			}
			form1['SyohinCD' + ii].selectedIndex = 0;
		}
	}

-->
</SCRIPT>

<body onkeydown="if(ExitFlg==2)ExitFlg=3;" onBeforeUnload="window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<% If AiteShukkoHitsuyo = "1" Then %>
<form OnKeyDown="FormKeyDown(this)"	 method="POST" action="fd_nyusyukko_bin2.asp" name="form1">
<% Else %>
<form OnKeyDown="FormKeyDown(this)"	 method="POST" action="fd_nyusyukko_bin.asp" name="form1">
<% End If %>
<input type="hidden" name="Action" value="">
<input type="hidden" name="UntinSyogakariKubun" value="<% = UntinSyogakariKubun %>">
<input type="hidden" name="Unsohi" value="<% = Unsohi %>">
<input type="hidden" name="SenpoShiireUriageSyuruiCD" value="<% = SenpoShiireUriageSyuruiCD %>">
<input type="hidden" name="SenpoShiireUriageNaiyoCD" value="<% = SenpoShiireUriageNaiyoCD %>">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	If BunsyoSyuruiCD = "SC" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", SyoruiMei, "", "", "", "", ""))
	ElseIf BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then
		If SoukoRiyo = "1" And GB_Gyosyu = "S" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", SyoruiMei, "", "", "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", SyoruiMei, "", "", "", "", ""))
		End If
	Else
		If SoukoRiyo = "1" And GB_Gyosyu = "S" Then
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "倉庫部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s7.asp')", "売上出庫", "", "", "", "", ""))
		Else
			Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", "売上出庫", "", "", "", "", ""))
		End If
	End If

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

	If AiteShukkoHitsuyo = "1" And SenpoBunsyoNaiyoCD <> "" Then
		Response.Write(HttpL3_1("受け付ける", "SubmitCheck()", "受け付けない", "form1.Action.value='Deny';SubmitReal(form1);", "", "", "", "", "", ""))
	Else 
		Response.Write(HttpL3_1("出庫", "SubmitCheck()", "", "", "", "", "", "", "", ""))
	End If

	If BunsyoNaiyoCD <> "" Then

		'Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
		
		'Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		
		'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		If BunsyoSyuruiCD = "SU" Then
			If SenpoShoruiMode = "Uriwatashi" Then
				Response.Write(HttpL3_2("注文請書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
			Else
				Response.Write(HttpL3_2("管理部売渡申込書から出庫", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoShoruiMode=Uriwatashi')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
			End If
		End If
		
	Else
	
		'Response.Write(HttpL3_2("追加", "tblbtn( 'fd_nyusyukko.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		
		'Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')","", "", "", "", "", "", "", ""))
		
		'Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_nyusyukko_ichiran2.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_nyusyukko_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
		
		
	End If

	If SenpoShoruiMode = "Uriwatashi" Then
		Response.Write(HttpL4("売上出庫",  "管理部売渡申込書から出庫"))
	Else
		Response.Write(HttpL4("売上出庫",  "注文請書から出庫"))
	End If


%>

<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="right">
			<table width="540" border="0" cellspacing="0" cellpadding="10" height="305" style="border:solid 1px #000000" bgcolor="#FFFFFF">
				<tr>
					<td height="305" align="CENTER" valign="BOTTOM">
						<table width="600" border="0" cellspacing="0" cellpadding="0" height="360">
							<tr>
								<td height="40" align="CENTER" valign="BOTTOM">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="30" width="580" class="tx1416">
										<tr>
											<td width="25%">
												<table width="190" border="0" cellpadding="0" cellspacing="0">
													<tr class="tx1214">
														<td width="190" align="left">
															<table class="tx2224b" border="0" cellpadding="0" cellspacing="0" >
																<tr>
																	<td align="center" nowrap><%
																		If Len(SyoruiMei) < 8 Then
																			Response.Write(SetStringInsertSpace(SyoruiMei))
																		Else
																			Response.Write(SyoruiMei)
																		End If
																	%></td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
											<td> </td>
										</tr>
									</table>
								</td>
							</tr>
							<tr>
								<td height="45" align="CENTER" valign="BOTTOM">
									<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse"  height="54" width="580" class="tx1618">
										<tr>
											<td width="12%" height="20">出庫番号</td>
											<td width="38%" height="20">
												<input type="text" name="BunsyoNaiyoCD" size="15" readonly class="tbox4_ro" value=""><!--注文請書の番号を代入してはいけない-->
											</td>
											<td width="20%" height="20">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;処理日</td>
											<td width="30%" height="20">
											<% If Jissenbi <> "" And BunsyoNaiyoCD <> "" Then '実践日固定モード且つ修正モード %>
												<input type="text" name="Syoribi" size="13" value="<% = Syoribi %>" onBlur="SetDate(this, 1, true)" class="tbox4_ro" readonly>
											<% ElseIf Jissenbi <> "" Then '実践日固定モード %>
												<input type="text" name="Syoribi" size="13" value="<% = Jissenbi %>" onBlur="SetDate(this, 1, true)" class="tbox4_ro" readonly>
											<% Else %>
												<input type="text" name="Syoribi" size="13" value="" onBlur="SetDate(this, 1, true)" class="tbox4">
											<% End If %>
											</td>
										</tr>
<% If BunsyoSyuruiCD <> "SC" Then %>
										<tr>
											<td height="20">取引先</td>
											<td colspan="3" height="20">
<% If SenpoBunsyoSyuruiCD <> "" Then %>
<% Response.Write(ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD)) %>
<% Else %>
												<input type="text" name="TorihikisakiMeisho" size="30" readonly class="tbox4_ro" value="<% = ConvKaisyaMeisyoDX(EnshuCD, TorihikisakiCD) %>">
												<input type="hidden" name="TorihikisakiCD" value="<% = TorihikisakiCD %>">
<!--
												<select size="1" name="TorihikisakiCD" class="tbox2">
													<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") = "S" OR Content.Fields("業種CD") = "K" Then
																	If (GB_Gyosyu = "K" And Content.Fields("市場CD") = GB_ShijyoCD) Or (GB_Gyosyu <> "K" And NOT(Content.Fields("業種CD") = "K" AND Content.Fields("市場CD") <> GB_ShijyoCD)) Then
																		Dim TmpKaisyaCD
																		TmpKaisyaCD = Content.Fields("会社CD")
																		If TmpkaisyaCD <> KaisyaCD 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
													%>

												</select>
-->
<% End If %>
											</td>
										</tr>
<% Else %>
<input type="hidden" name="TorihikisakiCD" value="<% =KaisyaCD %>">
<% End If %>
									</table>
								</td>
							</tr>
							<tr>
								<td align="CENTER">

									<table width="520" height="230" border="0" cellpadding="4" cellspacing="0" style="border-collapse: collapse; border:solid 2px #FFFFFF">
										<tr>
											<td width="100%" align="RIGHT">
												<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="580" bordercolor="#000000">
													<tr>
															<td height="30" valign="TOP">
																<table width="100%" height="30" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618" bgcolor="#CCCCCC">
																	<tr>
																		<td align="center">商品名称</td>
																	<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
																		<td align="center" width="17%"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準単価") End If %></td>
																	<% End If %>
																		<% If GB_Gyosyu <> "K" Then %>
																		<td align="center" width="16%">在庫数</td>
																		<% End If %>
																		<td align="center" width="16%">数 量</td>
																		<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
																		<td align="center" width="17%">単 価</td>
																		<% ElseIf HaraidashiTankaRiyo <> "1" Then %>
																		<td align="center" width="17%">払出単価</td>
																		<% End If %>
																		<% If 0=1 And OldSyoruiFlg > 0 And BunsyoSyuruiCD = "SU" And UntinSyogakariKubun = "K" Then %>
																		<td align="center" width="10%">運送単価</td>
																		<% End If %>
																		</tr>
																</table>
															</td>
													</tr>
													<tr>
														<td>
															
															<!-- ■市場選択機能追加060803suzuki //-->

															<table width="100%" height="210" border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1214">
															<%
																dim ii
																For ii = 1 to 5
																	Response.Write("<tr>")

																	If SenpoBunsyoSyuruiCD <> "" Then 

																		Response.Write("<td align='left'>" & ConvSyohinRyakuMeisyo(SyohinCD(ii)) & "<br></td>" & vbCrLf)
																		If HyojunTankaHyoji <> "0" Then '標準販売単価表示
																			Response.Write("<td align='right' width='17%'>" & SetMoney(Kakaku(ii), false, true) & "<br></td>" & vbCrLf)
																		End If
																		If GB_Gyosyu <> "K" AND BunsyoNaiyoCD = "" Then
																			Response.Write("<td align='right' width='16%'>" & SetMoney(Zaiko(ii), false, true) & "<br></td>" & vbCrLf)
																		End If
																		Response.Write("<td align='right' width='16%'>" & SetMoney(Suryo(ii), false, true) & "<br></td>" & vbCrLf)


																	Else
																		Response.Write("<td align='center'>")
																		
																		If BunsyoSyuruiCD <> "SC" Then
															%>
<!--
																			<select name="S<% =ii %>" size="1" style="<% = ShijyoListWidth %>" onChange="CngShohin(this.selectedIndex,this.name)" class="tbox2">
																			<option value="">    </option>
																			<% 
																				'If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" Then
																					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") = ShijyoCD(ii) Then 
																							Response.Write(" selected")
																						End If
																						Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																						Content.MoveNext
																					Loop
																				'End If
																			%>
																			</select>
-->
															<%
																		End If
																		
'																		Response.Write("<select name='SyohinCD" & ii & "' size='1' class='tbox2' style='" & SyohinMeisyoListWidth & "' onChange='SetSyohinHanbaiTanka(" & ii & ");SetSyohinZaiko(" & ii & ");'>")
'																		Response.Write("<option value=''>    </option>")
'																		Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(ii) & "', '" & GB_GakuseiNo & "'"
'																		Set Content = OpenQuery(Query)
'																		Do While Not(Content.BOF Or Content.EOF)
'																			If BunsyoSyuruiCD <> "SC" Or (BunsyoSyuruiCD = "SC" And Content.Fields("所有会社CD") = KaisyaCD ) Then 
'																				Response.Write("<option value='" & Content.Fields("商品CD") & "'")
'																				If Content.Fields("商品CD") = SyohinCD(ii) Then
'																					Response.Write(" selected")
'																				End If
'																				Response.Write(">" & Content.Fields("商品略名称") & "</option>" & vbCrLf)
'																			End If
'																			Content.MoveNext
'																		Loop
'																		Response.Write("</select></td>")
			
			Response.Write("<select name='SyohinCD" & ii & "' size='1' class='tbox4' style='" & SyohinMeisyoListWidth & "' onChange='SetSyohinHanbaiTanka(" & ii & ");SetSyohinZaiko(" & ii & ");'>")
			Response.Write("<option value=''>    </option>")
			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
			Set Content = OpenQuery(Query)
			Do While Not(Content.BOF Or Content.EOF)
				Response.Write("<option value='" & Content.Fields("商品CD") & "'")
				If Content.Fields("商品CD") = SyohinCD(ii) Then
					Response.Write(" selected")
				End If
				Response.Write(">" & Content.Fields("商品名称") & "</option>" & vbCrLf)
				Content.MoveNext
			Loop
			Response.Write("</select>")
																		'Response.Write("<input type=""text"" size=""29"" readonly class=""tbox4_ro"" value=""" & ConvSyohinMeisyo(SyohinCD(ii)) & """>" & vbCrLf)
																		'Response.Write("<input type=""hidden"" name=""SyohinCD" & ii & """ value=""" & SyohinCD(ii) & """>" & vbCrLf)
																		Response.Write("</td>")
																		If HyojunTankaHyoji <> "0" Then '標準販売単価表示
																			Response.Write("<td align='center' width='17%'><input type='text' name='Kakaku" & ii & "' size='13' value='" & SetMoney(Kakaku(ii), false, true) & "' class='tbox5_ro' readonly></td>" & vbCrLf)
																		Else
																			Response.Write("<input type='hidden' name='Kakaku" & ii & "' value='" & SetMoney(Kakaku(ii), false, true) & "'>" & vbCrLf)
																		End If
																		If GB_Gyosyu <> "K" Then
																		
																			'Response.Write("<td align='center' width='16%'><input type='text' name='Zaiko" & ii & "' size='12' value='" & SetMoney(Zaiko(ii) + Suryo(ii), false, true) & "' class='tbox3_ro' readonly></td>" & vbCrLf)
																			Response.Write("<td align='center' width='16%'><input type='text' name='Zaiko" & ii & "' size='12' value='" & SetMoney(Zaiko(ii), false, true) & "' class='tbox5_ro' readonly></td>" & vbCrLf)
																			
																		End If
																		Response.Write("<td align='center' width='16%'><input type='text' name='Suryo" & ii & "' size='12' value='" & SetMoney(Suryo(ii), false, true) & "' onKeyup=""FormStrFloat(this,9,0);"" onKeypress=""FormStrFloat(this,9,0);"" onBlur=""FormStrFloatCutoff(this,true);SetUntin();"" class='tbox5' ></td>" & vbCrLf)
																		'Response.Write("<td align='center' width='16%'><input type='text' name='Suryo" & ii & "' size='12' value='" & SetMoney(Suryo(ii), false, true) & "' onKeyup=""FormStrFloat(this,9,0);"" onKeypress=""FormStrFloat(this,9,0);"" onBlur=""FormStrFloatCutoff(this,true);SetUntin();"" class='tbox5_ro' readonly></td>" & vbCrLf)
																	End If
																	'If 1 = 1 Or BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then
																	If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or HaraidashiTankaRiyo <> "1" Then
																		Response.Write("<td align='center' width='17%'>")
																		Response.Write("<input type='text' name='Tanka" & ii & "' size='13' value='' onKeyup=""FormStrFloat(this,10,0);"" onKeypress=""FormStrFloat(this,10,0);"" onBlur=""FormStrFloatCutoff(this,true);SetUntin();"" class='tbox5'>")
'																		If OldSyoruiFlg > 0 Then
'																			Response.Write("<input type='text' name='Tanka" & ii & "' size='12' value='" & SetMoney(Tanka(ii), false, true) & "' onkeyup='ChangeMoney(this);' onBlur='SetMoney(this, false);SetUntin();'  onkeyup='ChangeMoney(this);' class='tbox3'>")
'																		Else	'新仕様では運送単価を組み入れリードオンリー
'																			Response.Write("<input type='text' name='Tanka" & ii & "' size='12' value='" & SetMoney(Tanka(ii) + UnsoTanka(ii), false, true) & "' class='tbox3_ro' readonly>")
'																			UnsoTanka(ii) = 0	'運送単価組み入れ後は運送単価を0にする
'																		End If
																		Response.Write("</td>" & vbCrLf)
																		
																		Response.Write("<input type='hidden' name='MotoTanka" & ii & "' size='10' value='" & SetMoney(MotoTanka(ii), false, true) & "' class='tbox3' >" & vbCrLf)
																	Else
																		Response.Write("<input type='hidden' name='Tanka" & ii & "' value='" & Tanka(ii) & "'>" & vbCrLf)
																		Response.Write("<input type='hidden' name='MotoTanka" & ii & "' size='10' value='" & SetMoney(MotoTanka(ii), false, true) & "' class='tbox3' >" & vbCrLf)
																	End If
'																	If OldSyoruiFlg > 0 And BunsyoSyuruiCD = "SU" And UntinSyogakariKubun = "K" Then
'																		Response.Write("<td align='center' width='10%'><input type='text' name='UnsoTanka" & ii & "' size='7' value='" & SetMoney(UnsoTanka(ii), false, true) & "' onkeyup='ChangeMoney(this);' onBlur='SetMoney(this, false);SetUntin();'  onkeyup='ChangeMoney(this);' class='tbox3' ></td>" & vbCrLf)
'																	Else	'新仕様では運送単価を非表示
'																		Response.Write("<input type='hidden' name='UnsoTanka" & ii & "' value='" & SetMoney(UnsoTanka(ii), false, true) & "'></td>" & vbCrLf)
'																	End If
																	Response.Write("</tr>" & vbCrLf)
																Next
															%>


															</table>
<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Or BunsyoSyuruiCD = "ZS" Or HaraidashiTankaRiyo = "1" Then %>
<% Else %>
<span class="tx1214">                                                         払出単価 = 仕入単価</span>
<% End If %>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
					</td>
				</tr>
				<% If 0=1 And BunsyoSyuruiCD = "SU" And UntinSyogakariKubun = "K" Then %>
				<tr>
					<td height="25" align="center" class="tx1618">
						<% If OldSyoruiFlg > 0 Then %>
						※ 運送費買主負担につき運送単価を指定してください。(総運送費 <% = ConvIntToMoney(Unsohi, false, false) %>)
						<% Else %>
						※ 運送費買主負担につき運送単価を組み入れています。
						<% End If %>
					</td>
				</tr>
				<% End If %>
			</table>
		</td>
		<td align="left" width="25%">
			<table width="170" border="0" cellspacing="0" cellpadding="10" height="1" style="border:solid 1px #000000" bgcolor="#eeeeff">
				<tr>
					<td height="380" align="left" valign="top" class="tx1416">
						<table border="0" cellpadding="0" cellspacing="0" width="100%" class="tx1416">
							<tr>
								<td height="28" valign="top" align="left">
									この注文に関する情報
								</td>
							</tr>
							<tr>
								<td height="23" valign="top" align="left">
						注文請日:<% = Syoribi %>
								</td>
							</tr>
							<tr>
								<td height="23" valign="top" align="left">
						納入期日:<% = NonyuKijitsu %>
								</td>
							</tr>
<!--
							<tr>
								<td height="23" valign="top" align="left">
						運賃諸掛:<% = ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun) %>
								</td>
							</tr>
						</table>
-->
						<table border="0" cellpadding="0" cellspacing="0" width="100%" class="tx1416">
						<%
							For ii = 1 To 5
								If SyohinCD(ii) <> "" Then
						%>
							<tr>
								<td colspan="2" height="23" valign="bottom" align="left">
									<% = ConvSyohinRyakuMeisyo(SyohinCD(ii)) %>
								</td>
							</tr>
<!--
							<tr>
								<td align="left" class="tx1214">
									注文単価
								</td>
								<td align="right">
									<% = SetMoney(Tanka(ii), false, true) %>
								</td>
							</tr>
							<tr>
								<td align="left" class="tx1214">
									運送単価
								</td>
								<td align="right">
									<% = SetMoney(UnsoTanka(ii), false, true) %>
								</td>
							</tr>
-->
							<tr>
								<td align="left" class="tx1214">
									受注数量
								</td>
								<td align="right">
									<% = SetMoney(Suryo(ii), false, true) %>
								</td>
							</tr>
						<%
								End If
							Next
						%>
						</table>
					</td>
				</tr>
			</table>
		</td>
	</tr>
</table>
</div>

<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
<input type="hidden" name="SenpoSyoribi" value="<% = SenpoSyoribi %>">
<input type="hidden" name="SenpoBunsyoNaiyoCD" value="<% = SenpoBunsyoNaiyoCD %>">
<input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>">
<% If SenpoBunsyoSyuruiCD <> "" Then %>
<input type="hidden" name="TorihikisakiCD" value="<% = TorihikisakiCD %>">
<input type="hidden" name="SyohinCD1" value="<% = SyohinCD(1) %>">
<input type="hidden" name="Suryo1" value="<% = Suryo(1) %>">
<input type="hidden" name="SyohinCD2" value="<% = SyohinCD(2) %>">
<input type="hidden" name="Suryo2" value="<% = Suryo(2) %>">
<input type="hidden" name="SyohinCD3" value="<% = SyohinCD(3) %>">
<input type="hidden" name="Suryo3" value="<% = Suryo(3) %>">
<input type="hidden" name="SyohinCD4" value="<% = SyohinCD(4) %>">
<input type="hidden" name="Suryo4" value="<% = Suryo(4) %>">
<input type="hidden" name="SyohinCD5" value="<% = SyohinCD(5) %>">
<input type="hidden" name="Suryo5" value="<% = Suryo(5) %>">
<% End If %>
<input type="hidden" name="TmpTanka1" value="<% = Tanka(1) %>">
<input type="hidden" name="TmpTanka2" value="<% = Tanka(2) %>">
<input type="hidden" name="TmpTanka3" value="<% = Tanka(3) %>">
<input type="hidden" name="TmpTanka4" value="<% = Tanka(4) %>">
<input type="hidden" name="TmpTanka5" value="<% = Tanka(5) %>">


</form>

</body>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">
	SetUntin();
</SCRIPT>

<SCRIPT LANGUAGE="JavaScript">

//################################################
//	名称:SetSyohinHanbaiTanka
//	目的:商品標準販売価格をセットする。
// 作成:2002/11/1 山崎
//################################################
	function SetSyohinHanbaiTanka(iiflag)
	{
		form1["Kakaku" + iiflag].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + iiflag].value));
	}

//################################################
//	名称:SetSyohinZaiko
//	目的:商品在庫数をセットする。
// 作成:2002/11/1 山崎
//################################################
	function SetSyohinZaiko(iiflag)
	{
		if(typeof(form1["Zaiko" + iiflag]) == "object")
		{
			form1["Zaiko" + iiflag].value = ConvIntToMoney(ConvSyohinZaiko(document.form1["SyohinCD" + iiflag].value));
		}
	}

//################################################
//	名称:SetUntin
//	目的:運賃請求額を更新する
// 概要:運賃諸掛をチェックし、UnsohiSeikyuFlgを更新し、運賃とUnsohiSeikyuFlgを掛け運賃請求額を求める
//################################################
	function SetUntin()
	{
				<% If 1 = 0 Then %>
		var GokeiSuryo, UnsoTanka;
		GokeiSuryo = 0;
		for(ii = 1; ii<= 5; ii++)
		{
			if(form1["SyohinCD" + ii].value != "")
			{
				GokeiSuryo = GokeiSuryo + ConvMoneyToInt(form1["Suryo" + ii].value);
				form1["UnsoTanka" + ii].value = 0;
			}
			else
			{
				form1["UnsoTanka" + ii].value = "";
			}
		}

		if(form1.UntinSyogakariKubun.value == "K")
		{
			if(GokeiSuryo != 0)
			{
				UnsoTanka = Math.floor(ConvMoneyToInt(form1.Unsohi.value) / GokeiSuryo);
				for(ii = 1; ii<= 5; ii++)
				{
					if(form1["SyohinCD" + ii].value != "")
					{
						form1["UnsoTanka" + ii].value = UnsoTanka ;
					}
				}
			}
		}
		<% End If %>
	}

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

		//** 1.取引日のチェック
		if(form1.Syoribi.value == "")
		{
			alert("処理日を入力して下さい");
			form1.Syoribi.focus();
			return false;
		}

		//** 2.取引先のチェック
		if(typeof(form1.TorihikisakiCD) == "object")
		{
			if(form1.TorihikisakiCD.value == "")
			{
				alert("取引先を入力して下さい");
				form1.TorihikisakiCD.focus();
				return false;
			}
		}

		//** 3.明細部のチェック
		var ii;
		var cnt;
		cnt=0;
		for(ii = 1;ii <= 5; ii++)
		{
			var SyohinCD;
			var Suryo;
			var Tanka;
			var Zaiko;
			var Kubun;
			SyohinCD = document.form1["SyohinCD" + ii].value;
			if(SyohinCD != "")
			{

				if(SyohinCD == "")
				{
					alert("商品を正しく選択して下さい");
					form1["SyohinCD" + ii].focus();
					return false;
				}

				Suryo = Math.floor(ConvMoneyToInt(document.form1["Suryo" + ii].value));
				if ((isNaN(Suryo)) || (Suryo == 0))
				{
					alert("数量を入力して下さい");
					form1["Suryo" + ii].focus();
					return false;
				}

				<% If GB_Gyosyu <> "K" AND JishaZaikoHitsuyo = "1" AND (BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SX") Then %>
				Zaiko = Math.floor(ConvMoneyToInt(document.form1["Zaiko" + ii].value, false, false));
				if (isNaN(Zaiko))
				{
					Zaiko = 0;
				}
				if (Suryo > Zaiko)
				{
					alert("在庫数量が不足しています。数量を正しく入力して下さい");
					return false;
				}
				<% End If %>

				<% If 1 = 0 Then %>
				Zaiko = Math.floor(ConvMoneyToInt(document.form1["Zaiko" + ii].value, false, false));
				if (isNaN(Zaiko))
				{
					Zaiko = 0;
				}
				if (Suryo > Zaiko)
				{
					if(!confirm("在庫数量が不足している可能性がありますが、出庫してもよろしいですか?"))
					{
						return false;
					}
				}
				<% End If %>

<% '受注数量との比較チェック(110120小野)
	Dim JuchuSyohin
	Dim JuchuSuryo
	ReDim JuchuSyohin(0)
	ReDim JuchuSuryo(0)
	For ii = 1 To 5
		If SyohinCD(ii) <> "" Then
			'同一商品が既に配列に存在すれば集計
			Dim SonzaiFlg
			SonzaiFlg = False
			For jj = 1 To UBound(JuchuSyohin)
				If JuchuSyohin(jj) = SyohinCD(ii) Then
					SonzaiFlg = True
					JuchuSuryo(jj) = JuchuSuryo(jj) + Suryo(ii)
					Exit For
				End If
			Next
			'同一商品が配列に存在しなければ配列作成
			If Not(SonzaiFlg) Then
				ReDim PreServe JuchuSyohin(UBound(JuchuSyohin) + 1) '配列+1
				ReDim PreServe JuchuSuryo(UBound(JuchuSyohin)) '配列+1
				JuchuSyohin(UBound(JuchuSyohin)) = SyohinCD(ii)
				JuchuSuryo(UBound(JuchuSyohin)) = Suryo(ii)
			End If
		End If
	Next
	'JavaScript配列作成
	Response.Write(vbCrLf)
	Response.Write("				var JuchuSyohin = new Array();" & vbCrLf)
	Response.Write("				var JuchuSuryo = new Array();" & vbCrLf)
	For jj = 1 To UBound(JuchuSyohin)
		Response.Write("				JuchuSyohin[" & jj & "] = '" & JuchuSyohin(jj) & "';" & vbCrLf)
		Response.Write("				JuchuSuryo[" & jj & "] = " & JuchuSuryo(jj) & ";" & vbCrLf)
	Next
	'JavaScript比較処理
%>
				for (kk = 1; kk <= 5; kk++) {
					if (form1["SyohinCD" + kk].value != "") {
						for (jj = 1; jj <= <% = UBound(JuchuSyohin) %>; jj++) {
							if (JuchuSyohin[jj] == form1["SyohinCD" + kk].value) {
								if (JuchuSuryo[jj] != "") {
									JuchuSuryo[jj] = JuchuSuryo[jj] - ConvMoneyToInt(form1["Suryo" + kk].value);
								}
							}
						}
					}
				}
				var JuchuSuryoFlg = true;
				for (jj = 1; jj <= <% = UBound(JuchuSyohin) %>; jj++) {
					if (JuchuSuryo[jj] != 0) {
						var JuchuSuryoFlg = false;
					}
				}
				if (!JuchuSuryoFlg) {
					if (!confirm("商品数量の合計と受注数量が合っていませんがよろしいですか? ")) {
						return false;
					}
				}


				<% If BunsyoSyuruiCD = "SC" Or BunsyoSyuruiCD = "SS" Or BunsyoSyuruiCD = "SX" Then %>
				Tanka = document.form1["Tanka" + ii].value;
				if(Tanka == "")
				{
					alert("仕入単価を入力して下さい");
					form1["Tanka" + ii].focus();
					return false;
				}
				<% End If %>
				cnt = 1
				
				<% If BunsyoSyuruiCD = "SU" Or BunsyoSyuruiCD = "SY" Then %>
				Tanka = document.form1["Tanka" + ii].value;
				if(Tanka == "")
				{
					alert("払出単価を入力してください ");
					form1["Tanka" + ii].focus();
					return false;
				}
				<% End If %>

				<% If 0=1 And OldSyoruiFlg > 0 And BunsyoSyuruiCD = "SU" And UntinSyogakariKubun = "K" Then %>
				if(form1["UnsoTanka" + ii].value == "") {
					alert("運送単価を入力してください ");
					form1["UnsoTanka" + ii].focus();
					return false;
				}
				<% End If %>

			}
		}

		//** 3.明細部に入力が有るかどうかのチェック
		if (cnt == 0)
		{
			alert("商品明細を入力して下さい");
			form1["SyohinCD1"].focus();
			return false;
		}

		if (!confirm("出庫してよろしいですか? ")) {
			return false;
		}

		SubmitReal(form1);
		return true;
	}



//################################################
//	名称:ConvSyohinHanbaiTanka
//	目的:商品リストの表示
// 作成:2002/8/26 川崎
// 概要:TS商品Mの標準販売単価を返す。
//################################################
	function ConvSyohinHanbaiTanka(SyohinCD)
	{
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("標準販売単価") & """;" & vbCrLf)
			Content.MoveNext
		Loop
%>
		return "";
	}

//################################################
//	名称:ConvSyohinZaiko
//	目的:商品在庫数リストの表示
// 作成:2002/8/26 川崎
// 概要:指定日時の商品在庫数を返す。
//################################################
	function ConvSyohinZaiko(SyohinCD)
	{
<%
	Query = "exec SPR入出庫在庫 '" & GB_SystemCD & "','" & EnshuCD & "','" &	KaisyaCD & "','" & GB_KaikeiSyuryobi & "'"
	Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & Content.Fields("在庫数") & """;" & vbCrLf)
			Content.MoveNext
		Loop
%>
		if(SyohinCD != "")return "0";
		return "";
	}
</SCRIPT>

<% = HtmlFooter %>
<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

	form1.Syoribi.select;

	form1.Syoribi.focus();
	form1.Syoribi.select();
	event.returnValue = false;
	return;
</SCRIPT>

</html>
<%
End Sub
%>