
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
' 	名称	：運送書類表示		 
' 	作成日：2003/1/17
' 	作成者：山崎　貴史
' 	修正日：2003/1/17
' 	修正者：重松
' 	目的　：運送書類画面を表示する。
' 	概要	：
' 	 <<表示>>
'	・初期は"追加モード"：伝票番号はＮＵＬＬ
'	・伝票番号が指定してある場合は"修正モード"
'	<<入力チェック>>
'	１．取引日のチェック
'	２．取引先のチェック
'	３．明細部のチェック
'################################################
'-->
'
%>

<%
main()

Sub main()

	Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, TorihikisakiCD1,NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim GakuseiBango,UnsoCD
	
	Dim SyohinCD(5) 							'商品コード
	Dim SyohinName(5)							'商品名称
	Dim Kakaku(5)								'標準価格
	Dim Suryo(5)								'数量
	Dim Tanka(5)								'単価
	Dim Kingaku(5)								'金額

Dim ShijyoCD(5)

	Dim GokeiKingaku							'合計
	Dim SyohizeiKingaku							'消費税
	Dim ZeikomiKingaku							'税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							'学生氏名（係印）
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim ResendFlg

	Dim SakuseiKaisyaCD

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")

	If SakuseiKaisyaCD = "" Then
		SakuseiKaisyaCD = KaisyaCD
	End If


	ResendFlg = Request("ResendFlg")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	UnsoCD = Request("UnsoCD")


	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If
	
	Dim SenpoTmpBunsyoSyuruiCD
	
	Dim SyoruiKubun
	
	Select Case BunsyoSyuruiCD
	Case "KI"
		SyoruiMei =  "見積依頼書"
		SyoruiKubun = "S"
	Case "KM"
		SyoruiMei =  "見積書"
		SyoruiKubun = "U"		
		SenpoTmpBunsyoSyuruiCD = "KI"
	Case "KC"
		SyoruiMei =  "注文書"
		SyoruiKubun = "S"		
		SenpoTmpBunsyoSyuruiCD = "KM"
	Case "KU"
		SyoruiMei =  "注文請書"
		SyoruiKubun = "U"		
		SenpoTmpBunsyoSyuruiCD = "KC"
'	Case "KK"
'		SyoruiMei = "相手注文請書確認"
'		SyoruiKubun = "S"
'		SenpoTmpBunsyoSyuruiCD = "KU"
	Case "KN"
		SyoruiMei =  "納品請求書"
		SyoruiKubun = "U"		
		SenpoTmpBunsyoSyuruiCD = "KK"
	Case "KB"
		SyoruiMei =  "物品受領書"
		SyoruiKubun = "S"		
		SenpoTmpBunsyoSyuruiCD = "KN"
	Case "KX"
		SyoruiMei =  "管理部買入申込書"
		SyoruiKubun = "X"		
	Case "KY"
		SyoruiMei =  "管理部売渡申込書"
		SyoruiKubun = "1"		
	Case "KV"
		SyoruiMei =  "管理部納品請求書"
		SyoruiKubun = "V"		
		SenpoTmpBunsyoSyuruiCD = "KX"		
	Case "KW"
		SyoruiMei =  "管理部売渡受付書"
		SyoruiKubun = "W"	
		SenpoTmpBunsyoSyuruiCD = "KY"		
	Case "CB"
		SyoruiMei =  "運送費見積依頼書"
		SyoruiKubun = "B"	
		SenpoTmpBunsyoSyuruiCD = "CB"
	Case "CC"
		SyoruiMei =  "運送費見積書"
		SyoruiKubun = "C"	
		SenpoTmpBunsyoSyuruiCD = "CC"		
	Case Else
	End Select


	If Session("EnshuKubun") = "P" AND GB_JisyaFlag = "0" Then
	Else
		GakuseiBango =  GB_GakuseiNo
	End If	

	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
		If SenpoFlg = 1 Then
			Query = "exec SPC運送書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD  &"', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD  &"', '" & KaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
		Else
			Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		End If
		

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then


			If SenpoFlg = 1 Then
				TorihikisakiCD = Content.Fields("会社CD")
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			Else
				SenpoBunsyoNaiyoCD = Content.Fields("文書内容CD")
				SenpoBunsyoSyuruiCD = Content.Fields("文書種類CD")	
				SenpoSyoribi = ""
'				SenpoSyoribi = Content.Fields("処理日")			
				TorihikisakiCD = Content.Fields("取引先CD")
				UnsoCD = Content.Fields("運送先CD")
				HasshinFlg = Content.Fields("発行フラグ")			
				Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			End If

			NonyuBasyoKubun = Content.Fields("納入場所区分")
			NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日"))
			UntinSyogakariKubun = Content.Fields("運賃諸掛区分")
			UnsoGaisyaCD = Content.Fields("運送会社CD")
			Unsohi = Content.Fields("運送費")
			UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ")
			Tekiyo = Content.Fields("摘要")
			ShiharaiHoho = Content.Fields("支払方法")

			GakuseiBango = Content.Fields("学生番号")

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ
				'DenpyoSEQ = Content.Fields("文書内容SEQ")
				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("単価")	
				Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
				SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
				ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku 
				Content.MoveNext
			Loop
		End If
	End If
 
 	If ResendFlg = "1" Then
 		BunsyoNaiyoCD = ""
 	End If
 	
	Dim jj,tmps

	'会社配列作成
	Dim KaishaCDA
	Dim KaishaNameA
	Dim KaishaGyoshuA
	Dim KaishaShijoA
	ReDim KaishaCDA(0)
	ReDim KaishaNameA(0)
	ReDim KaishaShijoA(0)
	Dim UnsoCDA
	Dim UnsoNameA
	Dim UnsoShijoA
	ReDim UnsoCDA(0)
	ReDim UnsoNameA(0)
	ReDim UnsoShijoA(0)
	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" OR  BunsyoSyuruiCD = "KP" Then
		Query = "exec SPM会社市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "', '" & GB_ShijyoCD & "'"
	Else
		Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
	End If
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("業種CD") = "K" OR Content.Fields("業種CD") = "S" Then
			If Content.Fields("会社CD") <> KaisyaCD Then
				ReDim PreServe KaishaCDA(UBound(KaishaCDA) + 1)	'配列数+1
				ReDim PreServe KaishaNameA(UBound(KaishaCDA))
				ReDim PreServe KaishaShijoA(UBound(KaishaCDA))
				KaishaCDA(UBound(KaishaCDA)) = "" & Content.Fields("会社CD")
				KaishaNameA(UBound(KaishaCDA)) = "" & Content.Fields("会社名称")
				KaishaShijoA(UBound(KaishaCDA)) = "" & Content.Fields("市場CD")
			End If
		ElseIf Content.Fields("業種CD") = "U" Then
			If Content.Fields("会社CD") <> KaisyaCD Then
				ReDim PreServe UnsoCDA(UBound(UnsoCDA) + 1)	'配列数+1
				ReDim PreServe UnsoNameA(UBound(UnsoCDA))
				ReDim PreServe UnsoShijoA(UBound(UnsoCDA))
				UnsoCDA(UBound(UnsoCDA)) = "" & Content.Fields("会社CD")
				UnsoNameA(UBound(UnsoCDA)) = "" & Content.Fields("会社名称")
				UnsoShijoA(UBound(UnsoCDA)) = "" & Content.Fields("市場CD")
			End If
		End If
		Content.MoveNext
	Loop
	

	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth	
	SyohinMeisyo = "商品名称"
	SyohinMeisyoListWidth = "width: 120;"
	ShijyoListWidth = "width:80"
	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
		SyohinMeisyo = "商品名称"
		SyohinMeisyoListWidth = "width: 120;"
		ShijyoListWidth = "width:80"
	Else
		SyohinMeisyo = "商品名称"
	End If
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	ExitFlg = 2;
	
/////////////////////////////////////////
//function CngShohin
//市場を選択し商品を変更する
//060803suzuki
//配列をASPでJavaScript内で作成しResponse.Write。
/////////////////////////////////////////
//function CngShohin(selindex,selname){
//商品CD及び商品名の配列を作成
Val = new Array();
Tex = new Array();

//debug
//alert(selindex);
//alert(selname);

<%
	Dim Query2,Content2,i,j
	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 & "'"
			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("Tex[" & i & "][" & j & "] = '" & Content2.Fields(SyohinMeisyo) & "'" & vbCrLf )
					Content2.MoveNext					
					j = j + 1
				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="if(ExitFlg!=0)window.event.returnValue = ExitMsg(ExitFlg)" bgcolor="#5C70B6" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--<form OnKeyDown="FormKeyDown(this)"   method="POST" action="fd_syorui_bin.asp" name="form1">-->
<form OnKeyDown="FormKeyDown(this)"   method="POST" action="fc_syorui_bin.asp" name="form1" autocomplete="off">

<%	
	Response.Write(HtmlDesign(1))
	
	Response.Write(HttpL1(3))

	If SyoruiKubun = "V" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "買入受付", "", "", "", "", ""))
	ElseIf SyoruiKubun = "W" Then	
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "売渡受付", "", "", "", "", ""))		
	ElseIf SyoruiKubun = "X" Then	
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "仕入部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s3.asp')", "管理部買入", "", "", "", "", ""))		
	ElseIf SyoruiKubun = "1" Then	
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", "管理部売渡", "", "", "", "", ""))		
	ElseIf SyoruiKubun = "U" Then		
		 Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.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, "", "", "", "", ""))
		 'Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')",  "運送保険", "tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", SyoruiMei, "",  "", "", "", "", "", ""))
		 Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "販売部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s2.asp')", SyoruiMei, "", "", "", "", ""))

	End If		 

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))	
								
	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fc_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	
	Response.Write(HttpL4(SyoruiMei, ""))
%>
					

																		
<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">

	<table width="680" height="300" border="0" cellpadding="0" cellspacing="5" align="center" valign="middle">
		<tr> 
			<td align="center"> 
				<% If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" OR  BunsyoSyuruiCD = "KP" Then %>
				<% ElseIf SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
					<input type="hidden" name="ShijoCD" value="">
				<% Else %>
				<TABLE BORDER="0" CELLSPACING="5" CELLPADDING="0" HEIGHT="1" STYLE="BORDER:1px solid #000000; border-collapse:collapse" bgcolor="#FFFFFF">
					<TR>
						<TD height="30" valign="bottom" BACKGROUND="/<% = HomeAlias %>/images/window_bk.gif">
							<table height="30" border="0" cellpadding="0" cellspacing="0">
								<tr>
									<td width="100%" align="CENTER" valign="MIDDLE">
										<table height="30" border="0" cellpadding="0" cellspacing="0" class="tx1416">
											<tr>
												<td align="left" nowrap>&nbsp;
													取引先市場
															<select size="1" name="ShijoCD" class="tbox4" onChange="SetTorihikisakiMenu(this.selectedIndex);">
																<option value="">全て表示</option>
																<%
																	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																			Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
															</select>
													&nbsp;&nbsp;&nbsp;
													運送先市場
													<select size="1" name="ShijoCD1" class="tbox4" onChange="SetTorihikisakiMenuU(this.selectedIndex);">
													<option value="">全て表示</option>
													<%
														Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
														Set Content = OpenQuery(Query)
														Do While Not(Content.BOF Or Content.EOF)
															Response.Write("<option value=""" & Content.Fields("市場CD") & """>" & Content.Fields("市場名称") & "</option>" & vbCrLf)
															Content.MoveNext
														Loop
													%>
													</select>      
													&nbsp;&nbsp;&nbsp;
													商品取扱市場
													<select size="1" name="SShijoCD" onChange="SetShohinMenu(this.selectedIndex)" class="tbox4">
													<option value="">全商品</option>
													<% 
													Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
													Set Content = OpenQuery(Query)
													Do While Not(Content.BOF Or Content.EOF)
													Response.Write("<option value=""" & Content.Fields("市場CD") & """")
													If Content.Fields("市場CD") = ShijyoCD(4) Then 
														Response.Write(" selected")
													End If
													Response.Write(">" & Content.Fields("市場名称") & "</option>" & vbCrLf)
													Content.MoveNext
													Loop
													'市場を限定しない商品
													Response.Write("<option value=""""")
													'修正モードで非限定の商品の場合のみselected
													If SyohinCD(4) <> "" And ShijyoCD(4) = "" Then 
														Response.Write(" selected")
													End If
													Response.Write(">市場非限定</option>" & vbCrLf)
													%>
													</select>&nbsp;&nbsp;
												</td>
											</tr>
										</table>
									</td>
								</tr>
							</table>
						</TD>
					</TR>
				</table>
				<div><% = Spacer(1,7) %></div>
			<% End If %>
			</td>
		</tr>
		<tr>
			<td align="center">
				<table width="100%" height="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
					<tr>
						<td align="center" valign="bottom">
							<table width="650" height="160" border="0" cellpadding="0" cellspacing="0">
								<tr>
									<td height="50" valign="top">
<div><% = Spacer(1, 15) %></div>
										<table width="650" height="60" border="0" cellpadding="0" cellspacing="0">
											<tr>
												<td width="10">
												</td>
												<td width="240" valign="top">
													<table width="165" border="0" cellpadding="0" cellspacing="0" style="border-bottom: 1px solid #000000" class="tx2022">
														<tr>
															<td align="center" nowrap><%
																Dim ii
																If Len(SyoruiMei) < 8 Then
																	Response.Write(SetStringInsertSpace(SyoruiMei))
																Else
																	Response.Write(SyoruiMei)
																End If
															%></td>
														</tr>
													</table>
												</td>
												<td width="240">
													<table width="240" height="50" border="0" cellpadding="0" cellspacing="0">
														<tr class="tx1416">
															<td width="60" height="23" align="right"><nobr>書類番号：</nobr></td>
															<td width="165" height="23">
																<input type="text" name="BunsyoNaiyoCD" size="15" readonly class="tbox4_ro" value="<% = BunsyoNaiyoCD %>">
															</td>
														</tr>
														<tr class="tx1416">
															<td width="60" height="23" align="right"><nobr>処 理 日：</nobr></td>
															<td width="165" height="23">
																<input type="text" name="Syoribi" size="15" value="<% = Syoribi %>" onBlur="SetDate(this, 1, true)" class="tbox4">
															</td>
														</tr>
													</table>
												</td>
												<td width="165" align="right" valign="bottom">
													<table width="150" height="50" border="1" cellpadding="0" cellspacing="0" bordercolor="#111111" STYLE="border-collapse: collapse">
														<tr class="tx1214" >
															<td width="50" height="15" align="center">&nbsp;</td>
															<td width="50" height="15" align="center">&nbsp;</td>
															<td width="50" height="15" align="center">係　印</td>
														</tr>
														<tr class="tx1416">
															<td width="50" height="35" align="center">&nbsp;</td>
															<td width="50" height="35" align="center">&nbsp;</td>
															<td width="50" height="35" align="center"><% = ConvShimeiRyakuMeisyo(GakuseiBango) %></td>
														</tr>
													</table>
												</td>
												<td width="10">
												</td>
											</tr>
										</table>
									</td>
								</tr>
								<tr>
									<td height="80" align="center">
										<table width="640" border="0" cellpadding="3" cellspacing="0">
											<tr class="tx1618"> 
												<td width="50" height="25" align="right"><nobr>取引先：</nobr></td>
												<td width="240">
													<select size="1" name="TorihikisakiCD" class="tbox4" style="width:190">
														<option value="">　　　　</option>
														<%
															For ii = 1 To Ubound(UnsoCDA)
																Response.Write("<option value=""" & UnsoCDA(ii) & """")
																If UnsoCDA(ii) = TorihikisakiCD Then
																	Response.Write(" selected = 'selected'")
																End If
																Response.Write(">" & UnsoNameA(ii) & "</option>" & vbCrLf)
															Next
														%>
													</select>
												</td>
												<td align="right"><nobr>配 送 日：</nobr></td>
												<td width="215"><input type="text" name="NonyuKijitsu" size="16" value="<% = NonyuKijitsu %>" class="tbox4" onBlur="SetDate(this, 1, true)"></td>
											</tr>
											<input type="hidden" name="UntinSyogakariKubun" value=" ">
											<tr class="tx1618"> 
												<td height="25" align="right"><nobr>運送先：</nobr></td>
												<td>
													<select size="1" name="UnsoCD" class="tbox4" style="width:190">
														<option value="">　　　　</option>
													<%
														For ii = 1 To Ubound(KaishaCDA)
															Response.Write("<option value=""" & KaishaCDA(ii) & """")
															If KaishaCDA(ii) = UnsoCD Then
																Response.Write(" selected")
															End If
															Response.Write(">" & KaishaNameA(ii) & "</option>" & vbCrLf)
															Next
													%>
													</select>
												</td>
												<td align="right"><nobr>支払方法：</nobr></td>
												<td>
													<input type="text" name="ShiharaiHoho" size="36" class="tbox4_ime" value="<% = ShiharaiHoho %>" onBlur="FormStrLeftIME(this,30,true);">
												</td>
											</tr>
											<tr class="tx1618">
												<td align="right"></nobr>発　信：<nobr></td>
												<td>
													<% = ConvFlagMeisyo(HasshinFlg, 2) %>
												</td>
												<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
												<input type="hidden" name="UnsoGaisyaCD" size="16" value="<% = SetMoney(Unsohi, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);SetUntin();SetGokei();" class="tbox5">
												<input type="hidden" name="Unsohi" size="16" value="<% = SetMoney(Unsohi, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="SetMoney2(this, false, true);SetUntin();SetGokei();" class="tbox5">
												<% End If %>
												<td align="right" nowrap>摘　要：</td>
												<td>
													<input type="text" name="Tekiyo" size="36" value="<% = Tekiyo %>" class="tbox4_ime" onBlur="FormStrLeftIME(this,30,true);">
												</td>
											</tr>
										</table>
									</td>
								</tr>
							</table>							
						</td>
					</tr>
					<tr> 
						<td height="195" align="center" valign="top">
							<table width="620" height="180" border="0" cellpadding="0" cellspacing="0">
								<tr> 
									<td align="RIGHT" valign="top" height="100%"> 
										<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="620" bordercolor="#000000">
											<tr> 
												<td height="180" valign="TOP"> 
													<table width="620" height="180" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1618">
														<tr height="23" bgcolor="#DDDDDD"> 
															<td width="480" align="center">商品名称</td>
															<td align="center"><% If JukaFlg <> 1 Then %>数<% Else %>重<% End If %>　量</td>
														</tr>
														<tr> 
															<td align="center" height="30">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
																<input type="text" name="SyohinCD1Hyoji" style="<% = SyohinMeisyoListWidth %>" value="<% = ConvSyohinMeisyo(SyohinCD(1)) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SyohinCD1" value="<% = SyohinCD(1) %>">
															<% Else %>
																<select name="SyohinCD1" class="tbox4">
																<option value="">　　　　</option>
																 <%
																	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" OR  BunsyoSyuruiCD = "KC" OR  BunsyoSyuruiCD = "KB" OR  BunsyoSyuruiCD = "KM" OR  BunsyoSyuruiCD = "KU" OR  BunsyoSyuruiCD = "KN" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KP" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" Then
																		'管理部買入は市場CDをセットし市場商品＋市場非限定商品の一覧を表示
																		If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
																			ShijyoCD(1) = Set_ShijyoCD
																			Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(1) & "', '" & GB_GakuseiNo & "'"
																			'修正モード(市場CD若しくは商品CDが存在する場合)は市場別一覧を表示(非限定を含む)
																		ElseIf ShijyoCD(1) <> "" Or SyohinCD(1) <> "" Then
																			Query = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(1) & "', '" & GB_GakuseiNo & "'"
																			'追加モードは全商品一覧を表示
																		Else
																			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																		End if
																	Else
																		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																	End if
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																		If Content.Fields("商品CD") = SyohinCD(1) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields(SyohinMeisyo) & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
																</select>
															<% End If %>
															</td>
															<td align="center"> 
																<input type="text" name="Suryo1" size="18" value="<% = SetNumber(Suryo(1), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>
												
														<tr> 
															<td align="center" height="30">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
																<input type="text" name="SyohinCD2Hyoji" style="<% = SyohinMeisyoListWidth %>" value="<% = ConvSyohinMeisyo(SyohinCD(2)) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SyohinCD2" value="<% = SyohinCD(2) %>">
															<% Else %>
															
																<select name="SyohinCD2" class="tbox4">       
																<option value="">　　　　</option>
																 <%
																	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" OR  BunsyoSyuruiCD = "KC" OR  BunsyoSyuruiCD = "KB" OR  BunsyoSyuruiCD = "KM" OR  BunsyoSyuruiCD = "KU" OR  BunsyoSyuruiCD = "KN" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KP" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" Then
																		'管理部買入は市場CDをセットし市場商品＋市場非限定商品の一覧を表示
																		If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
																			ShijyoCD(2) = Set_ShijyoCD
																			Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(2) & "', '" & GB_GakuseiNo & "'"
																			'修正モード(市場CD若しくは商品CDが存在する場合)は市場別一覧を表示(非限定を含む)
																		ElseIf ShijyoCD(2) <> "" Or SyohinCD(2) <> "" Then
																			Query = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(2) & "', '" & GB_GakuseiNo & "'"
																			'追加モードは全商品一覧を表示
																		Else
																			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																		End If
																	Else
																		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																	End If
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																		If Content.Fields("商品CD") = SyohinCD(2) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields(SyohinMeisyo) & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
																</select>
															<% End If %>
															</td>
															<td align="center"> 
                                                                <input type="text" name="Suryo2" size="18" value="<% = SetNumber(Suryo(2), false) %>"  onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>

														<tr> 
															<td align="center" height="30">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
																<input type="text" name="SyohinCD3Hyoji" style="<% = SyohinMeisyoListWidth %>" value="<% = ConvSyohinMeisyo(SyohinCD(3)) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SyohinCD3" value="<% = SyohinCD(3) %>">
															<% Else %>														
																<select name="SyohinCD3" class="tbox4">       
																<option value="">　　　　</option>
																 <%
																	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" OR  BunsyoSyuruiCD = "KC" OR  BunsyoSyuruiCD = "KB" OR  BunsyoSyuruiCD = "KM" OR  BunsyoSyuruiCD = "KU" OR  BunsyoSyuruiCD = "KN" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KP" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" Then
																		'管理部買入は市場CDをセットし市場商品＋市場非限定商品の一覧を表示
																		If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
																			ShijyoCD(3) = Set_ShijyoCD
																			Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(3) & "', '" & GB_GakuseiNo & "'"
																			'修正モード(市場CD若しくは商品CDが存在する場合)は市場別一覧を表示(非限定を含む)
																		ElseIf ShijyoCD(3) <> "" Or SyohinCD(3) <> "" Then
																			Query = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(3) & "', '" & GB_GakuseiNo & "'"
																			'追加モードは全商品一覧を表示
																		Else
																			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																		End If
																	Else
																		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																	End If
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																		If Content.Fields("商品CD") = SyohinCD(3) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields(SyohinMeisyo) & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
																</select>
															<% End If %>
															<td align="center"> 
																<input type="text" name="Suryo3" size="18" value="<% = SetNumber(Suryo(3), false) %>"  onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>

														<tr> 
															<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
																<input type="text" name="SyohinCD4Hyoji" style="<% = SyohinMeisyoListWidth %>" value="<% = ConvSyohinMeisyo(SyohinCD(4)) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SyohinCD4" value="<% = SyohinCD(4) %>">
															<% Else %>														
																<select name="SyohinCD4" class="tbox4">       
																<option value="">　　　　</option>
																 <%
																	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" OR  BunsyoSyuruiCD = "KC" OR  BunsyoSyuruiCD = "KB" OR  BunsyoSyuruiCD = "KM" OR  BunsyoSyuruiCD = "KU" OR  BunsyoSyuruiCD = "KN" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KP" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" Then
																		'管理部買入は市場CDをセットし市場商品＋市場非限定商品の一覧を表示
																		If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
																			ShijyoCD(4) = Set_ShijyoCD
																			Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(4) & "', '" & GB_GakuseiNo & "'"
																			'修正モード(市場CD若しくは商品CDが存在する場合)は市場別一覧を表示(非限定を含む)
																		ElseIf ShijyoCD(4) <> "" Or SyohinCD(4) <> "" Then
																			Query = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(4) & "', '" & GB_GakuseiNo & "'"
																			'追加モードは全商品一覧を表示
																		Else
																			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																		End If
																	Else
																		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																	End If
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																		If Content.Fields("商品CD") = SyohinCD(4) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields(SyohinMeisyo) & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
																</select>
															<% End If %>
															</td>
															<td align="center"> 
																<input type="text" name="Suryo4" size="18" value="<% = SetNumber(Suryo(4), false) %>"  onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>

														<tr> 
															<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
																<input type="text" name="SyohinCD5Hyoji" style="<% = SyohinMeisyoListWidth %>" value="<% = ConvSyohinMeisyo(SyohinCD(5)) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SyohinCD5" value="<% = SyohinCD(5) %>">
															<% Else %>														
																<select name="SyohinCD5" class="tbox4">       
																<option value="">　　　　</option>
																 <%
																	If BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" OR  BunsyoSyuruiCD = "KI" OR  BunsyoSyuruiCD = "KC" OR  BunsyoSyuruiCD = "KB" OR  BunsyoSyuruiCD = "KM" OR  BunsyoSyuruiCD = "KU" OR  BunsyoSyuruiCD = "KN" OR  BunsyoSyuruiCD = "KY" OR  BunsyoSyuruiCD = "KP" OR  BunsyoSyuruiCD = "KV" OR  BunsyoSyuruiCD = "KW" Then
																		'管理部買入は市場CDをセットし市場商品＋市場非限定商品の一覧を表示
																		If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
																			ShijyoCD(5) = Set_ShijyoCD
																			Query = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(5) & "', '" & GB_GakuseiNo & "'"
																			'修正モード(市場CD若しくは商品CDが存在する場合)は市場別一覧を表示(非限定を含む)
																		ElseIf ShijyoCD(5) <> "" Or SyohinCD(5) <> "" Then
																			Query = "exec SPM商品市場一覧2 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD(5) & "', '" & GB_GakuseiNo & "'"
																			'追加モードは全商品一覧を表示
																		Else
																			Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																		End If
																	Else
																		Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
																	End If
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		Response.Write("<option value=""" & Content.Fields("商品CD") & """")
																		If Content.Fields("商品CD") = SyohinCD(5) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & Content.Fields(SyohinMeisyo) & "</option>" & vbCrLf)
																		Content.MoveNext
																	Loop
																%>
																</select>
															<% End If %>
															</td>
															<td align="center"> 
																<input type="text" name="Suryo5" size="18" value="<% = SetNumber(Suryo(5), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
														</tr>
													</table>
												</td>
											</tr> 									 
										</table>
<div><% = Spacer(1, 15) %></div>
									</td>
								</tr>
							</table>
						</td>
					</tr>
				</table>
			</td>
		</tr>
	</table>
</div>

<input type="hidden" name="UnsohiSeikyuFlg" value="<% = UnsohiSeikyuFlg %>">
<input type="hidden" name="SenpoSyoribi" value="<% = SenpoSyoribi%>">

<input type="hidden" name="BunsyoSyuruiCD" value="<% = BunsyoSyuruiCD %>">
</form>

</body>

<SCRIPT LANGUAGE="JavaScript">

	//取引先CD及び取引先名称の配列を作成
	var ValS = new Array();	//配列番号＝市場メニューのselectedIndexで動作する
	var TexS = new Array();
<%
	Dim ContentTorihikisaki
	Dim iii
	Dim jjj
	iii = 0
	jjj = 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("ValS[" & iii & "] = new Array()" & vbCrLf)	'2次元配列
			Response.Write("TexS[" & iii & "] = new Array()" & vbCrLf)
			If UBound(UnsoCDA) > 0 Then
				jjj = 0
				Response.Write("ValS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("TexS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'摘要配列より
				For ii = 1 To UBound(UnsoCDA)
					'iii=0は全取引先取得	KaishaShijoA(ii)=NULLも取得（小売販売対応）
					If iii = 0 Or UNsoShijoA(ii) = "" Or UnsoShijoA(ii) = Content.Fields("市場CD") Then
						Response.Write("ValS[" & iii & "][" & jjj & "] = '" & UnsoCDA(ii) & "'" & vbCrLf)
						Response.Write("TexS[" & iii & "][" & jjj & "] = '" & UnsoNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
			'iii=0は全取引先取得なのでMoveNextしない
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
%>

	function SetTorihikisakiMenu(selindex) {
		var plusLen = 0;
		//現在選択されているメニュー内容を取得
		var selVal = form1.TorihikisakiCD.value;
		var selTex = form1.TorihikisakiCD.options[form1.TorihikisakiCD.selectedIndex].text;
		//メニューの配列長を変更（Valの2次元目の配列長）
		if (selVal != '') {
			plusLen = 1;
			//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
			form1.TorihikisakiCD.options.length = ValS[selindex].length + plusLen;
			form1.TorihikisakiCD.options[0].value = selVal;
			form1.TorihikisakiCD.options[0].text = selTex;
		} else {
			form1.TorihikisakiCD.options.length = ValS[selindex].length;
		}
		for (jj=0; jj<ValS[selindex].length; jj++) {
			//メニューの内容を変更
			form1.TorihikisakiCD.options[jj + plusLen].value = ValS[selindex][jj]
			form1.TorihikisakiCD.options[jj + plusLen].text = TexS[selindex][jj]
		}
		form1.TorihikisakiCD.selectedIndex = 0;
	}



	var ValSU = new Array();	//配列番号＝市場メニューのselectedIndexで動作する
	var TexSU = new Array();
<%
	iii = 0
	jjj = 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("ValSU[" & iii & "] = new Array()" & vbCrLf)	'2次元配列
			Response.Write("TexSU[" & iii & "] = new Array()" & vbCrLf)
			If UBound(kaishaCDA) > 0 Then
				jjj = 0
				Response.Write("ValSU[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("TexSU[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				jjj = jjj + 1
				'摘要配列より
				For ii = 1 To UBound(kaishaCDA)
					'iii=0は全取引先取得	KaishaShijoA(ii)=NULLも取得（小売販売対応）
					If iii = 0 Or kaishaShijoA(ii) = "" Or kaishaShijoA(ii) = Content.Fields("市場CD") Then
						Response.Write("ValSU[" & iii & "][" & jjj & "] = '" & kaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("TexSU[" & iii & "][" & jjj & "] = '" & kaishaNameA(ii) & "'" & vbCrLf)
						jjj = jjj + 1
					End If
				Next
			End If
			'iii=0は全取引先取得なのでMoveNextしない
			If iii <> 0 then
				Content.MoveNext
			End If
			iii = iii + 1
		Loop
	End If
%>

	function SetTorihikisakiMenuU(selindex) {
		var plusLen = 0;
		//現在選択されているメニュー内容を取得
		var selVal = form1.UnsoCD.value;
		var selTex = form1.UnsoCD.options[form1.UnsoCD.selectedIndex].text;
		//メニューの配列長を変更（Valの2次元目の配列長）
		if (selVal != '') {
			plusLen = 1;
			//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
			form1.UnsoCD.options.length = ValSU[selindex].length + plusLen;
			form1.UnsoCD.options[0].value = selVal;
			form1.UnsoCD.options[0].text = selTex;
		} else {
			form1.UnsoCD.options.length = ValSU[selindex].length;
		}
		for (jj=0; jj<ValSU[selindex].length; jj++) {
			//メニューの内容を変更
			form1.UnsoCD.options[jj + plusLen].value = ValSU[selindex][jj]
			form1.UnsoCD.options[jj + plusLen].text = TexSU[selindex][jj]
		}
		form1.UnsoCD.selectedIndex = 0;
	}

now = 'menu0' ;
check = 0 ;
menuflag = 0 ;

//################################################
//	名称：CalcKakeritsu
//	目的：掛け率を更新する
//　概要：掛け率をランダムに設定する
//################################################
	function CalcKakeritsu()
	{
		var Kakeritsu;
		var irand;
		irand = Math.random();
		Kakeritsu = 1;
			<% If BunsyoSyuruiCD = "KV" Then %>
			
		if(irand < 0.05){Kakeritsu = 80;}
		else if(irand < 0.15){Kakeritsu = 75;}
		else if(irand < 0.45){Kakeritsu = 70;}
		else if(irand < 0.7){Kakeritsu = 65;}
		else if(irand < 0.9){Kakeritsu = 60;}
		else if(irand < 0.95){Kakeritsu = 55;}
		else if(irand < 1){Kakeritsu = 50;}
		else{Kakeritsu = 70;}
			
			<% ElseIf BunsyoSyuruiCD = "KW" Then %>
			
		if(irand < 0.05){Kakeritsu = 75;}
		else if(irand < 0.15){Kakeritsu = 80;}
		else if(irand < 0.45){Kakeritsu = 85;}
		else if(irand < 0.7){Kakeritsu = 90;}
		else if(irand < 0.9){Kakeritsu = 95;}
		else if(irand < 0.95){Kakeritsu = 100;}
		else if(irand < 1){Kakeritsu = 105;}
		else{Kakeritsu = 85;}
		
		<% Else %>
		 	<% End If %>
		form1.Kakeritsu.value = Kakeritsu;
		
	}
	
//################################################
//	名称：SetKakeritsu
//	目的：掛け率から単価を計算する。
//################################################
	function SetKakeritsu()
	{		
		if(form1.Kakeritsu.value != "")
		{
			var ii;
			for(ii = 1;ii <= 5; ii++)
			{
				var SyohinCD;
				SyohinCD = document.form1["SyohinCD" + ii].value;
				
				if(SyohinCD != "")
				{			
					form1["Tanka" + ii].value = ConvIntToMoney(ConvMoneyToInt(form1["Kakaku" + ii].value) * form1.Kakeritsu.value / 100);
					SetKingaku(ii);
				}
			}
		}
		SetGokei();
		return true;
			
	}	
	
	
	
//################################################
//	名称：SetUntin
//	目的：運賃請求額を更新する
//　概要：運賃諸掛をチェックし、UnsohiSeikyuFlgを更新し、運賃とUnsohiSeikyuFlgを掛け運賃請求額を求める
//################################################
	function SetUntin()
	{
		if(form1.UntinSyogakariKubun.value == "K")
		{
			form1.UnsohiSeikyuFlg.value = 1;		
		}
		else
		{
			form1.UnsohiSeikyuFlg.value = 0;		
		}	
			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>		
		form1.UnsohiSeikyugaku.value = ConvIntToMoney(ConvMoneyToInt(form1.Unsohi.value) * ConvMoneyToInt(form1.UnsohiSeikyuFlg.value));
		<% End If %>
	}

//################################################
//	名称：SubmitCheck
//	目的：更新前に入力値をチェックする。
//################################################
	function SubmitCheck()
	{		

		//** １．取引日のチェック
		if(form1.Syoribi.value == "")
		{
			alert("処理日を入力してください　");
			form1.Syoribi.focus();
			return false;		
		}

		//** １．配送日のチェック
		if(form1.NonyuKijitsu.value == "")
		{
			alert("配送日を入力してください　");
			form1.NonyuKijitsu.focus();			
			return false;		
		}
		
		//** １．取引日のチェック
		if(Date.parse(form1.Syoribi.value) > Date.parse(form1.NonyuKijitsu.value))
		{
			alert("配送日が処理日より古い日付になっています　\r\n正しい日付を入力してください　");
			form1.Syoribi.focus();						
			return false;		
		}
				
		//** ２．取引先のチェック
		if(form1.TorihikisakiCD.value == "")
		{
			alert("取引先を入力してください　");
			form1.TorihikisakiCD.focus();								
			return false;		
		}

		//** ３．明細部のチェック
		var ii;
		var bExist;
		bExist = 0;
		for(ii = 1;ii <= 5; ii++)
		{
			var SyohinCD;
			SyohinCD = document.form1["SyohinCD" + ii].value;
			
			if(SyohinCD != "")
			{
				bExist = 1;
				if(SyohinCD == "")
				{
					alert("商品を正しく選択してください　");
					form1["SyohinCD" + ii].focus();								
					return false;
				}
				else if(form1["Suryo" + ii].value == "")
				{
					alert("数量を入力してください　");
					form1["Suryo" + ii].focus();								
					return false;				
				}

			}
		}
		if(bExist == 0)
		{
			alert("明細を入力してください　");
			form1.SyohinCD1.focus();					
			return false;
		}
		
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>	
		//if(ConvMoneyToInt(form1.GokeiKingaku.value) == 0)
		//{
		//	alert("明細を入力してください　");
		//	return false;
		//}
		<% End If %>		
		
		SubmitReal(form1);
		return true;
	}

//################################################
//	名称：SetKingaku
//	目的：行ごとの金額の値をセットする。
//################################################
	function SetKingaku(ii)
	{		
			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>		
		var Kingaku;
		
		
		if(form1["Tanka" + ii].value == "" || form1["Suryo" + ii].value == "" )
		{
			form1["Kingaku" + ii].value = "";
		}
		else
		{
			Kingaku = ConvMoneyToInt(form1["Tanka" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value);
			form1["Kingaku" + ii].value = ConvIntToMoney(Kingaku, false, false);
		}
		<% End If %>
	}

//################################################
//	名称：SetGokei
//	目的：合計金額、消費税額、税込金額　をセットする。
//################################################
	function SetGokei()
	{

			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>	
		var gokei;
		var zei;
		var ii;
		gokei = 0;
		for(ii = 1; ii<=5; ii=ii+1)
		{
			var Kingaku;
			Kingaku = ConvMoneyToInt(form1["Kingaku" + ii].value);
			if(Kingaku == "" || Kingaku == "isNaN")
			{
				Kingaku = 0;
			}
			gokei = gokei + Kingaku;
		}
		form1["GokeiKingaku"].value = ConvIntToMoney(gokei, false, false);
		var UnsohiSeikyugaku;
		UnsohiSeikyugaku = ConvMoneyToInt(form1["UnsohiSeikyugaku"].value);		
		if(UnsohiSeikyugaku == "" || UnsohiSeikyugaku == "isNaN")
		{
			UnsohiSeikyugaku = 0;
		}		
		gokei = gokei + UnsohiSeikyugaku;
		zei = gokei * <% = GB_Shohizei %> / 100;
		zei = Math.floor(zei);
		form1["SyohizeiKingaku"].value = ConvIntToMoney(zei, false, false) ;
		form1["ZeikomiKingaku"].value = ConvIntToMoney(gokei + zei, false, false);

		<% End If %>
	}



</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
%>