
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：運送書類表示
'	作成日：2003/1/17
'	作成者：山崎　貴史
'	修正日：2003/1/17
'	修正者：重松
'	目的　：運送書類画面を表示する。
'	概要	：
'	 <<表示>>
'	・初期は"追加モード"：伝票番号はＮＵＬＬ
'	・伝票番号が指定してある場合は"修正モード"
'	<<入力チェック>>
'	１．取引日のチェック
'	２．取引先のチェック
'	３．明細部のチェック
'################################################
'-->
'
%>

<%
main()

Sub main()

	'マスタの標準消費税率を取得
	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 TmpCnt


	Dim BunsyoNaiyoCD, BunsyoSyuruiCD, Syoribi, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu
	Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg
	Dim SenpoBunsyoNaiyoCD, SenpoBunsyoSyuruiCD, SenpoSyoribi
	Dim GakuseiBango,UnsoCD

	Dim SyohinCD(5)								'商品コード
	
	Dim ShijyoCD(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 SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin, Toza
	Dim Shimei
	Dim ResendFlg
	Dim SakuseiKaisyaCD

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")

	ResendFlg = Request("ResendFlg")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	UnsoCD = Request("UnsoCD")

'Response.Write("SakuseiKaisyaCD:" & SakuseiKaisyaCD)


	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If

	Dim SenpoTmpBunsyoSyuruiCD

	Select Case BunsyoSyuruiCD
	Case "CC"
		SyoruiMei =	"運送費見積書"
		SenpoTmpBunsyoSyuruiCD = "CC"
	Case "CB"
		SyoruiMei =	"運送費見積依頼書"
		SenpoTmpBunsyoSyuruiCD = "CB"
	Case Else
	End Select





	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
		If SenpoFlg = 1 Then
			Query = "exec SPC運送書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD  &"', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
			Set Content = OpenQuery(Query)
			Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD  &"', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
		Else
			Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"
		End If

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then


'			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			If SenpoBunsyoSyuruiCD = "CB" Then
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
				UnsoCD = Content.Fields("運送先CD")
				HasshinFlg = Content.Fields("発行フラグ")
				TorihikisakiCD = Content.Fields("作成会社CD")

			ElseIf SenpoFlg = 1 Then
				TorihikisakiCD = Content.Fields("会社CD")
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
			Else
				SenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD")
				SenpoBunsyoSyuruiCD = Content.Fields("先方文書種類CD")
				SenpoSyoribi = SetTimeYYYYMMDD(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")
				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("数量")
				If JukaFlg = 1 Then
					Kingaku(DenpyoSEQ) = Tanka(DenpyoSEQ)	'重量指定では単価フィールドを金額として利用
				End If
				GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
				'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100)
				SyohizeiKingaku = Int(GokeiKingaku * StdTaxRateUnso / 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)
	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 ((BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KY") AND Content.Fields("業種CD") = "K") OR ((BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY") AND Content.Fields("業種CD") = "S") Or (BunsyoSyuruiCD = "CC" And (Content.Fields("業種CD") = "S" Or Content.Fields("業種CD") = "K")) Then 	
			Dim TmpuuKaisyaCD
			TmpuuKaisyaCD = Content.Fields("会社CD")
			If TmpuukaisyaCD <> 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
		End If
		Content.MoveNext
	Loop


	Dim HyojunTankaHyoji
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示")
	End If


	'↓商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野）
	Dim SyohinMeisyo, SyohinMeisyoListWidth, ShijyoListWidth
	SyohinMeisyo = "商品名称"
	SyohinMeisyoListWidth = ""
	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KO" AND BunsyoSyuruiCD <> "KY" Then
		SyohinMeisyo = "商品名称"
		SyohinMeisyoListWidth = "width:220;"
	ElseIf BunsyoSyuruiCD = "KX" Then
		SyohinMeisyo = "商品名称"
		SyohinMeisyoListWidth = "width:300;"
	Else
		SyohinMeisyo = "商品名称"
	End If
	'↑商品表示幅の指定及び商品名称・商品略名称の指定（修正061031小野）
%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	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)          'valueの配列
			Response.Write("Tex[" & i & "] = new Array()" & vbCrLf)          'textの配列
			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("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="fu_syorui_bin.asp" name="form1" autocomplete="off">

<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))

	If BunsyoSyuruiCD = "V" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "買入受付", "", "", "", "", ""))
	ElseIf BunsyoSyuruiCD = "W" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "売渡受付", "", "", "", "", ""))
	ElseIf BunsyoSyuruiCD = "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 BunsyoSyuruiCD = "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 BunsyoSyuruiCD = "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/')", "運輸・倉庫・保険" ,"tblbtn( '/" & HomeAlias & "/user/bk/menu_u.asp')", "運輸倉庫保険業務" , "tblbtn( '/" & HomeAlias & "/user/bk/menu_u2.asp')", SyoruiMei, "", "", "", "", ""))
	End If

	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))


	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then
		Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fu_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=CB')", "一覧表示", "tblbtn( 'fu_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fu_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", "", "", ""))
	End If

	Response.Write(HttpL4(SyoruiMei, ""))

	If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then '管理部買入の際に表示（070512小野）
		Response.Write(HttpL5("<font color=""#FF0000"">※ 他市場に限定された商品は取り扱い出来ません。</font>"))
	End If
%>



<div id="L0" style="position: absolute; visibility: hidden; left: 0px; top: -2000px;">
	<table width="680" height="440" border="0" cellpadding="0" cellspacing="5">
		<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="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="660" height="140" border="0" cellpadding="0" cellspacing="0">
								<tr>
									<td height="50" valign="top">
										<table width="660" height="60" border="0" cellpadding="0" cellspacing="0">
											<tr>
												<td width="240" valign="top">
													<table width="165" border="0" cellpadding="0" cellspacing="0" style="border-bottom: 1px solid #000000" class="tx1820">
														<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">書類番号</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">処 理 日</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 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>
											</tr>
										</table>
									</td>
								</tr>
								<tr>
									<td height="80" align="center">
										<table width="640" height="50" border="0" cellpadding="3" cellspacing="0">
											<tr class="tx1416">
												<td width="50" height="25" >取引先</td>
												<td width="260" >：
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
														<input type="text" name="TorihikisakiCDHyoji" style="width:190" value="<%
														For ii = 1 To Ubound(KaishaCDA)
															If KaishaCDA(ii) = TorihikisakiCD Then
																Response.Write(KaishaNameA(ii))
																Exit For
															End If
														Next
													%>" readonly class="tbox4_ro">
														<input type="hidden" name="TorihikisakiCD" value="<% = TorihikisakiCD %>">
													<% Else %>
														<select size="1" name="TorihikisakiCD" class="tbox4" style="width:190">
														<option value="">　　　　</option>
													<%
														For ii = 1 To Ubound(KaishaCDA)
															Response.Write("<option value=""" & KaishaCDA(ii) & """")
															If KaishaCDA(ii) = TorihikisakiCD Then
																Response.Write(" selected")
															End If
															Response.Write(">" & KaishaNameA(ii) & "</option>" & vbCrLf)
														Next
													%>
														</select>
													<% End If %>
												</td>
												<td width="60">配 送 日</td>
												<td width="215">： <input type="text" name="NonyuKijitsu" size="16" value="<% = NonyuKijitsu %>" class="tbox4" onBlur="SetDate(this, 1, true)"></td>
											</tr>
											<tr class="tx1416">
												<td width="50" height="25" >運送先</td>
												<td width="240" >：
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
														<input type="text" name="UnsoCDHyoji" style="width:190" value="<%
														For ii = 1 To Ubound(KaishaCDA)
															If KaishaCDA(ii) = UnsoCD Then
																Response.Write(KaishaNameA(ii))
																Exit For
															End If
														Next
													%>" readonly class="tbox4_ro">
														<input type="hidden" name="UnsoCD" value="<% = UnsoCD %>">
													<% Else %>
														<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>
													<% End If %>
												</td>
												<td width="60" >支払方法</td>
												<td width="215" >： <input type="text" name="ShiharaiHoho" size="30" onBlur="FormStrLeftIME(this,26,true);" class="tbox4_ime" value="<% = ShiharaiHoho %>" maxlength="26"></td>
											</tr>
											<input type="hidden" name="UntinSyogakariKubun" value=" ">
										</table>
									</td>
								</tr>
							</table>
						</td>
					</tr>
					<tr>
						<td height="300" align="center" valign="top">
							<table width="660" height="300" border="0" cellpadding="0" cellspacing="0">
								<tr>
									<td width="100%" align="RIGHT">
										<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="660" bordercolor="#000000">
											<tr>
												<td height="190" valign="TOP">
													<table width="100%" height="190" border="1" frame="void" cellpadding="4" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416">
														<tr height="23" bgcolor="#DDDDDD">
															<!-- 061031変更bySF -->
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>商品名称</td>
															<!-- 061031変更bySF -->
														<% If JukaFlg <> 1 Then %>
														<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center" width="100">標準価格</td>
														<% End If %>
														<% End If %>
														<% If JukaFlg <> 1 Then %>
															<td align="center" width="95">数　量</td>
														<% Else %>
															<td align="center" width="195" colspan="2">重　量</td>
														<% End If %>
														<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center" width="100">単　価</td>
															<% End If %>
															<td align="center" width="100">金　額</td>
														<% End If %>
														</tr>
														<tr>
															<td align="center" height="25"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>															
															<% 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" style="width:250px" onChange="SetSyohinKakaku(1);" 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>
														<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center">
																<input type="text" name="Kakaku1" size="14" value="<% = SetMoney(Kakaku(1), false, true) %>" readonly class="tbox5_ro">
															</td>
														<% Else %>
															<input type="hidden" name="Kakaku1" value="<% = SetMoney(Kakaku(1), false, true) %>">
														<% End If %>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
																<input type="text" name="Suryo1" size="13" value="<% = SetNumber(Suryo(1), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);<% If JukaFlg <> 1 Then %>SetKingaku(1);SetGokei();<% End If %>" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center">
																<input type="text" name="Tanka1" size="13" value="<% = SetMoney(Tanka(1), false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,9,0,true);SetMoney2(this, false, true);SetKingaku(1);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% Else %>
																<input type="hidden" name="Tanka1" value="<% = SetMoney(Tanka(1), false, true) %>">
															<% End If %>
															<td align="center">
																<input type="text" name="Kingaku1" size="14" value="<% = SetMoney(Kingaku(1), false, true) %>"<% If JukaFlg <> 1 Then %> readonly class="tbox5_ro"<% Else %> class="tbox5" onBlur="SetMoney2(this, false, true);SetGokei();"<% End If %>>
															</td>
															<% End If %>
														</tr>
														<tr>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
															
															<% 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" style="width:250px" onChange="SetSyohinKakaku(2);" 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>
														<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center" height="25">
																<input type="text" name="Kakaku2" size="14" value="<% = SetMoney(Kakaku(2), false, true) %>" readonly class="tbox5_ro">
															</td>
														<% Else %>
															<input type="hidden" name="Kakaku2" value="<% = SetMoney(Kakaku(2), false, true) %>">
														<% End If %>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
																<input type="text" name="Suryo2" size="13" value="<% = SetNumber(Suryo(2), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);<% If JukaFlg <> 1 Then %>SetKingaku(2);SetGokei();<% End If %>" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center">
																<input type="text" name="Tanka2" size="13" value="<% = SetMoney(Tanka(2), false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,9,0,true);SetMoney2(this, false, true);SetKingaku(2);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% Else %>
																<input type="hidden" name="Tanka2" value="<% = SetMoney(Tanka(2), false, true) %>">
															<% End If %>
															<td align="center">
																<input type="text" name="Kingaku2" size="14" value="<% = SetMoney(Kingaku(2), false, true) %>"<% If JukaFlg <> 1 Then %> readonly class="tbox5_ro"<% Else %> class="tbox5" onBlur="SetMoney2(this, false, true);SetGokei();"<% End If %>>
															</td>
															<% End If %>
														</tr>
														<tr>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
															
															<% 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" style="width:250px" onChange="SetSyohinKakaku(3);" 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>
														<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center" height="25">
																<input type="text" name="Kakaku3" size="14" value="<% = SetMoney(Kakaku(3), false, true) %>" readonly class="tbox5_ro">
															</td>
														<% Else %>
															<input type="hidden" name="Kakaku3" value="<% = SetMoney(Kakaku(3), false, true) %>">
														<% End If %>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
																<input type="text" name="Suryo3" size="13" value="<% = SetNumber(Suryo(3), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);<% If JukaFlg <> 1 Then %>SetKingaku(3);SetGokei();<% End If %>" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center">
																<input type="text" name="Tanka3" size="13" value="<% = SetMoney(Tanka(3), false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,9,0,true);SetMoney2(this, false, true);SetKingaku(3);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% Else %>
																<input type="hidden" name="Tanka3" value="<% = SetMoney(Tanka(3), false, true) %>">
															<% End If %>
															<td align="center">
																<input type="text" name="Kingaku3" size="14" value="<% = SetMoney(Kingaku(3), false, true) %>"<% If JukaFlg <> 1 Then %> readonly class="tbox5_ro"<% Else %> class="tbox5" onBlur="SetMoney2(this, false, true);SetGokei();"<% End If %>>
															</td>
															<% End If %>
														</tr>
														<tr>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
															
															<% 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" style="width:250px" onChange="SetSyohinKakaku(4);" 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>
														<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center" height="25">
																<input type="text" name="Kakaku4" size="14" value="<% = SetMoney(Kakaku(4), false, true) %>" readonly class="tbox5_ro">
															</td>
														<% Else %>
															<input type="hidden" name="Kakaku4" value="<% = SetMoney(Kakaku(4), false, true) %>">
														<% End If %>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
																<input type="text" name="Suryo4" size="13" value="<% = SetNumber(Suryo(4), false) %>"	onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);<% If JukaFlg <> 1 Then %>SetKingaku(4);SetGokei();<% End If %>" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center">
																<input type="text" name="Tanka4" size="13" value="<% = SetMoney(Tanka(4), false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,9,0,true);SetMoney2(this, false, true);SetKingaku(4);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% Else %>
																<input type="hidden" name="Tanka4" value="<% = SetMoney(Tanka(4), false, true) %>">
															<% End If %>
															<td align="center">
																<input type="text" name="Kingaku4" size="14" value="<% = SetMoney(Kingaku(4), false, true) %>"<% If JukaFlg <> 1 Then %> readonly class="tbox5_ro"<% Else %> class="tbox5" onBlur="SetMoney2(this, false, true);SetGokei();"<% End If %>>
															</td>
															<% End If %>
														</tr>
														<tr>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
															
															<% 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" style="width:250px" onChange="SetSyohinKakaku(5);" 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>
														<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %>
															<td align="center" height="25">
																<input type="text" name="Kakaku5" size="14" value="<% = SetMoney(Kakaku(5), false, true) %>" readonly class="tbox5_ro">
															</td>
														<% Else %>
															<input type="hidden" name="Kakaku5" value="<% = SetMoney(Kakaku(5), false, true) %>">
														<% End If %>
															<td align="center"<% If JukaFlg = 1 Then %> colspan="2"<% End If %>>
																<input type="text" name="Suryo5" size="13" value="<% = SetNumber(Suryo(5), false) %>" onBlur="FormStrFloatEdge(this,9,0,true);SetNumber(this, false, 9);<% If JukaFlg <> 1 Then %>SetKingaku(5);SetGokei();<% End If %>" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
															<% If JukaFlg <> 1 Then %>
															<td align="center">
																<input type="text" name="Tanka5" size="13" value="<% = SetMoney(Tanka(5), false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,9,0,true);SetMoney2(this, false, true);SetKingaku(5);SetGokei();" onFocus="FormStrCommaReplace(this);" class="tbox5">
															</td>
															<% Else %>
																<input type="hidden" name="Tanka5" value="<% = SetMoney(Tanka(5), false, true) %>">
															<% End If %>
															<td align="center">
																<input type="text" name="Kingaku5" size="14" value="<% = SetMoney(Kingaku(5), false, true) %>"<% If JukaFlg <> 1 Then %> readonly class="tbox5_ro"<% Else %> class="tbox5" onBlur="SetMoney2(this, false, true);SetGokei();"<% End If %>>
															</td>
															<% End If %>
														</tr>
													</table>
												</td>
											</tr>
											<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
											<tr>
												<td>
													<table width="100%" height="100" border="1" cellpadding="2" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000" bgcolor="#DDDDDD"  class="tx1416">
														<tr>
															<td align="center" rowspan="4">　</td>
															<td align="center" width="<% If JukaFlg <> 1 Then %>203<% Else %>223<% End If %>">保険料・その他</td>
															<td align="center" bgcolor="#FFFFFF" width="<% If JukaFlg <> 1 Then %>103<% Else %>123<% End If %>">
																<input type="text" name="Unsohi" size="14" value="<% = SetMoney(Unsohi, false, false) %>" class="tbox5" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,10,0,true);SetMoney2(this, false, true);SetGokei();" onFocus="FormStrCommaReplace(this);"></td>
														</tr>
														<tr>
															<td align="center">合計金額</td>
															<td align="center" bgcolor="#FFFFFF">
																<input type="text" name="GokeiKingaku" size="14" value="<% = SetMoney(GokeiKingaku, false, false) %>" readonly class="tbox5_ro"></td>
														</tr>
														<tr>
															<td align="center">消費税額</td>
															<td align="center" bgcolor="#FFFFFF">
																<input type="text" name="SyohizeiKingaku" size="14" value="<% = SetMoney(SyohizeiKingaku, false, false) %>" readonly class="tbox5_ro"></td>
														</tr>
														<tr>
															<td align="center">税込金額</td>
															<td align="center" bgcolor="#FFFFFF">
																<input type="text" name="ZeikomiKingaku" size="14" value="<% = SetMoney(ZeikomiKingaku, false, false) %>" readonly class="tbox5_ro">
															</td>
														</tr>
													</table>
												</td>
											</tr>
											<% End If %>
										</table>
									</td>
								</tr>
							</table>

						</td>
					</tr>
				</table>
			</td>

		<td valign="top">
			<table id="Setsumei" width="100%" height="200" BORDERCOLOR="#000000" border="1" cellpadding="3" cellspacing="0" bgcolor="#eeeeff" STYLE="border-collapse: collapse">
				<tr>
					<td valign="top">


						<table BORDER="0" CELLSPACING="0" CELLPADDING="0" class="tx1618">
							<tr>
								<td>この書類に関する情報</td>
							</tr>
							<tr>
								<td>　</td>
							</tr>
							<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
							<tr>
								<td>先方書類：</td>
							</tr>
							<tr>
								<td><%
								Response.Write("" & SenpoSyoribi)
								If SenpoBunsyoNaiyoCD <> "" Then
									Response.Write("　番号 " & SenpoBunsyoNaiyoCD)
								End If %></td>
							</tr>
							<tr>
								<td height="10"></td>
							</tr>
							<% End If %>
							<tr>
								<td>発信：未発信</td>
							</tr>
							<tr>
								<td height="10"></td>
							</tr>
							<tr>
								<td>摘要：</td>
							</tr>
							<tr>
								<td>
								<input type="text" name="Tekiyo" size="25" class="tbox4_ime" value="<% = Tekiyo %>" onBlur="FormStrLeftIME(this,30,true);">
								</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 %>">
<input type="hidden" name="SenpoBunsyoNaiyoCD" value="<% = SenpoBunsyoNaiyoCD %>">
<input type="hidden" name="SenpoBunsyoSyuruiCD" value="<% = SenpoBunsyoSyuruiCD %>">

</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(KaishaCDA) > 0 Then
				jjj = 0
				Response.Write("ValS[" & iii & "][" & jjj & "] = ''" & vbCrLf )
				Response.Write("TexS[" & 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("ValS[" & iii & "][" & jjj & "] = '" & KaishaCDA(ii) & "'" & vbCrLf)
						Response.Write("TexS[" & 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 SetTorihikisakiMenu(selindex) {
		for (ii=1; ii<=2; ii++) {
			var FormName = "TorihikisakiCD";
			if (ii == 2) {
				FormName = "UnsoCD";
			}
			var plusLen = 0;
			//現在選択されているメニュー内容を取得
			var selVal = form1[FormName].value;
			var selTex = form1[FormName].options[form1[FormName].selectedIndex].text;
			//メニューの配列長を変更（Valの2次元目の配列長）
			if (selVal != '') {
				plusLen = 1;
				//現在選択されているメニュー内容がnullで無ければ配列長+1＆先頭メニュー配列にセット
				form1[FormName].options.length = ValS[selindex].length + plusLen;
				form1[FormName].options[0].value = selVal;
				form1[FormName].options[0].text = selTex;
			} else {
				form1[FormName].options.length = ValS[selindex].length;
			}
			for (jj=0; jj<ValS[selindex].length; jj++) {
				//メニューの内容を変更
				form1[FormName].options[jj + plusLen].value = ValS[selindex][jj]
				form1[FormName].options[jj + plusLen].text = TexS[selindex][jj]
			}
			form1[FormName].selectedIndex = 0;
		}
	}

now = 'menu0' ;
check = 0 ;
menuflag = 0 ;

SetGokei();

//################################################
//	名称：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("処理日を入力してください　");
			return false;
		}
		//** １．取引日のチェック
		if (form1.NonyuKijitsu.value == "") {
			alert("納入期日を入力してください　");
			return false;
		}
		//** １．取引日のチェック
		if (Date.parse(form1.Syoribi.value) > Date.parse(form1.NonyuKijitsu.value)) {
			alert("配送日が処理日より古い日付になっています　\r\n正しい日付を入力してください　");
			return false;
		}
		//** ２．取引先のチェック
		if (form1.TorihikisakiCD.value == "") {
			alert("取引先を入力してください　");
			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 (ConvSyohinMeisyo(SyohinCD) == "") {
					alert("商品を正しく選択してください　");
					return false;
				}
			<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
				else if (form1["Suryo" + ii].value == "") {
				<% If JukaFlg <> 1 Then %>
					alert("数量を入力してください　");
				<% Else %>
					alert("重量を入力してください　");
				<% End If %>
					return false;
				}
				<% If JukaFlg <> 1 Then %>
				else if (form1["Tanka" + ii].value == "") {
					alert("単価を入力してください　");
					return false;
				}
				<% End If %>
			<% End If %>
			}
		}
		if (bExist == 0) {
			alert("明細を入力してください　");
			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);
			if (Kingaku > 9999999999) {
				alert("金額が10桁を超えました　");
				form1["Tanka" + ii].value = "";
				form1["Suryo" + ii].value = "";
				form1["Kingaku" + ii].value = "";
				return;
			} else {
				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;
			if (gokei > 9999999999) {
				alert("合計金額が10桁を超えました　");
				form1["Tanka" + ii].value = "";
				form1["Suryo" + ii].value = "";
				form1["Kingaku" + ii].value = "";
				return;
			}
		}
		var UnsohiSeikyugaku;
		UnsohiSeikyugaku = ConvMoneyToInt(form1["Unsohi"].value);
		if (UnsohiSeikyugaku == "" || UnsohiSeikyugaku == "isNaN") {
			UnsohiSeikyugaku = 0;
		}
		gokei = gokei + UnsohiSeikyugaku;
		if (gokei > 9999999999) {
			alert("合計金額が10桁を超えました　");
			form1["Unsohi"].value = "";
			return;
		}
		form1["GokeiKingaku"].value = ConvIntToMoney(gokei, false, false);
		//zei = gokei * <% = GB_Shohizei %> / 100;
		zei = gokei * <% = StdTaxRateUnso %> / 100;
		zei = Math.floor(zei);
		form1["SyohizeiKingaku"].value = ConvIntToMoney(zei, false, false) ;
		form1["ZeikomiKingaku"].value = ConvIntToMoney(gokei + zei, false, false);
	<% End If %>
	}

	function SetTorihikisakiCD(F_TorihikisakiCD)
	{
		document.form1["TorihikisakiCD"].value = F_TorihikisakiCD;
		SetTorihikisaki();
		hideLAYER('m1');
	}

	function SetTorihikisaki()
	{
		form1["TmpTorihikisaki"].value = ConvKaisyaMeisyoDx(EnshuCD, document.form1["TorihikisakiCD"].value);
	}


	function SetTorihikisaki()
	{
		form1["TmpTorihikisaki"].value = ConvKaisyaMeisyoDx(EnshuCD, document.form1["TorihikisakiCD"].value);
	}

	function SetSyohinCD(F_SyohinCD)
	{
		document.form1["SyohinCD" + iiflag].value = F_SyohinCD;
		SetSyohin();
		hideLAYER('m2');
	}

//################################################
//	名称：SetSyohinKakaku
//	目的：商品標準価格をセットする。
//　作成：2002/9/12　山崎
//################################################
	function SetSyohinKakaku(ii)
	{
			form1["Kakaku" + ii].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + ii].value));
	}



//################################################
//	名称：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 "";
	}

//################################################
//	名称：ConvSyohinMeisyo
//	目的：商品名の表示
//　作成：2002/8/26　川崎
//　概要：TS商品Mの標準販売単価を返す。
//################################################
	function ConvSyohinMeisyo(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 "";
	}

//################################################
//	名称：ConvKaisyaMeisyo
//	目的：会社（取引先）名称の表示
//　作成：2002/8/28　川崎
//################################################
	function ConvKaisyaMeisyoDx(EnshuCD, KaisyaCD)
	{
<%
	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & GakuseiNo & "'"
	Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("if(KaisyaCD == """ & Content.Fields("会社CD") & """)return """ & Content.Fields("会社名称") & """;" & vbCrLf)
			Content.MoveNext
		Loop
%>
		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
%>