
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：仕入売上書類表示(寄託処理用)
'	作成日：2006/12/11
'	作成者：ジャワネット
'	目的  ：仕入売上書類画面を表示する。
'	概要	：<<表示>>
'################################################
'-->
'
%>

<%
main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	'マスタの標準消費税率を取得
	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 UnsohiButton
	UnsohiButton = 0

	Dim SakuseiKaisyaCD                            '作成会社CD
	Dim TorihikisakiCD                             '取引先CD
	Dim UnsoGaisyaCD                               '運送会社CD
	Dim KitakuGaisyaCD                             '寄託会社CD
	Dim SenpoKitakuGaisyaCD                        '先方寄託会社CD
	Dim BunsyoSyuruiCD                             '文書種類CD
	Dim BunsyoNaiyoCD                              '文書内容CD
	Dim SenpoBunsyoSyuruiCD                        '先方文書種類CD
	Dim SenpoBunsyoNaiyoCD                         '先方文書内容CD
	Dim Syoribi                                    '処理日
	Dim SenpoSyoribi                               '先方処理日
	Dim NonyuBasyoKubun                            '納入場所区分
	Dim NonyuKijitsu                               '納入期日
	Dim UntinSyogakariKubun                        '運賃諸掛区分
	Dim Unsohi                                     '運送費
	Dim UnsohiSeikyuFlg                            '運送費請求フラグ
	Dim Tekiyo                                     '摘要
	Dim ShiharaiHoho                               '支払方法
	Dim HasshinFlg                                 '発信フラグ
	Dim GakuseiBango                               '学生番号
	
	Dim SyohinCD(5)														     '商品CD
	Dim ShijyoCD(5)                                '市場CD
	Dim SyohinName(5)							                 '商品名称
	Dim Kakaku(5)								                   '標準価格
	Dim Suryo(5)															     '数量
	Dim Tanka(5)															     '単価
	Dim Kingaku(5)															   '金額
	Dim TaxRate(5)	'消費税率

	Dim GokeiKingaku									             '合計
	Dim SyohizeiKingaku							               '消費税
	Dim ZeikomiKingaku							               '税込み金額
	Dim Checked_N,Checked_R
	Dim GakuseiShimei							                 '学生氏名（係印）
	Dim SyoruiMei
	Dim Query
	Dim Content
	Dim Genkin
	Dim Toza
	Dim Shimei
	Dim BinType

	Dim UnsoTanka(5)							'運送単価
	Dim UnsohiSyohin(5)							'商品運送費
	Dim UnsohiGokei
	Dim OldSyoruiFlg
	UnsohiGokei = 0
	OldSyoruiFlg = 0

	BinType = Request("BinType")
	
	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	TorihikisakiCD = Request("TorihikisakiCD")
	BunsyoSyuruiCD = Request("BunsyoSyuruiCD")
	BunsyoNaiyoCD = Request("BunsyoNaiyoCD")
	SenpoBunsyoSyuruiCD = Request("SenpoBunsyoSyuruiCD")
	SenpoBunsyoNaiyoCD = Request("SenpoBunsyoNaiyoCD")

	Dim UnsohiSyohizei

	Dim Tekiyo2

	Dim SenpoFlg
	SenpoFlg = 0
	If SenpoBunsyoNaiyoCD <> "" Then
		SenpoFlg = 1
	End If

	Dim SenpoTmpBunsyoSyuruiCD
	Dim BunsyoKubun

	Select Case BunsyoSyuruiCD
	Case "KI"
		SyoruiMei =	"見積依頼書"
		BunsyoKubun = "S"
	Case "KM"
		SyoruiMei =	"見積書"
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KI"
	Case "KC"
		SyoruiMei =	"注文書"
		BunsyoKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KM"
	Case "KU"
		SyoruiMei =	"注文請書"
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KC"
'	Case "KK"
'		SyoruiMei = "相手注文請書確認"
'		BunsyoKubun = "S"
'		SenpoTmpBunsyoSyuruiCD = "KU"
	Case "KN"
		SyoruiMei =	"納品請求書"
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KK"
	Case "KB"
		SyoruiMei =	"物品受領書"
		BunsyoKubun = "S"
		SenpoTmpBunsyoSyuruiCD = "KN"
	Case "KQ"
		SyoruiMei = "領収書"
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KB"
	Case "KX"
		SyoruiMei =	"管理部買入申込書"
		BunsyoKubun = "X"
	Case "KY"
		SyoruiMei =	"管理部売渡申込書"
		BunsyoKubun = "1"
	Case "KV"
		SyoruiMei =	"管理部納品請求書"
		BunsyoKubun = "V"
		SenpoTmpBunsyoSyuruiCD = "KX"
	Case "KW"
		SyoruiMei =	"管理部売渡受付書"
		BunsyoKubun = "W"
		SenpoTmpBunsyoSyuruiCD = "KY"
	Case "KO"
		SyoruiMei =	"管理部宛物品受領書"
		BunsyoKubun = "X"
		SenpoTmpBunsyoSyuruiCD = "KV"
	Case "KP"
		SyoruiMei =	"管理部宛納品請求書"
		BunsyoKubun = "1"
		SenpoTmpBunsyoSyuruiCD = "KW"
	Case "KS"
		SyoruiMei =	"出庫依頼書"
		BunsyoKubun = "U"
		SenpoTmpBunsyoSyuruiCD = "KS"
	Case Else
	End Select


	'見積依頼書・管理部買入申込書・管理部売渡申込書は税率・合計がないので此処でレイアウトトグル
	Dim TmpShohizeiMode
	Dim TmpGokeiMode
	TmpShohizeiMode = GB_ShohizeiMode
	TmpGokeiMode = 1
	If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then
		TmpShohizeiMode = 0
		TmpGokeiMode = 0
	End If
'Response.Write(TmpShohizeiMode)
'Exit Sub


	'修正または先方書類モード
	If BunsyoNaiyoCD <> "" Or SenpoBunsyoNaiyoCD <> "" Then
		If SenpoBunsyoSyuruiCD = "KK" Then
		
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '', 'KU', '" & SenpoBunsyoNaiyoCD & "'"
			
		ElseIf SenpoFlg = 1 Then
		
			If GB_JisyaFlag <> "" Then	'運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野）
				Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
				Set Content = OpenQuery(Query)
			End If
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & SenpoBunsyoSyuruiCD & "', '" & SenpoBunsyoNaiyoCD & "'"
			
		Else
		
			Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'"

		End If

'Response.Write(Query)
'Exit Sub

		Set Content = OpenQuery(Query)

		If Not(Content.BOF Or Content.EOF) Then

'			BunsyoNaiyoCD = Content.Fields("文書内容CD")
			If SenpoBunsyoSyuruiCD = "KK" OR SenpoBunsyoSyuruiCD = "KU"  Then
				SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("処理日"))
				TorihikisakiCD = Content.Fields("取引先CD")
				HasshinFlg = Content.Fields("発行フラグ")
			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")
				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("摘要")
			If SenpoFlg <> 1 Then
				Tekiyo2 = Content.Fields("摘要2")
			End If
			ShiharaiHoho = Content.Fields("支払方法")
			
			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			SenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD")
			
			GakuseiBango = Content.Fields("学生番号")

			Do While Not(Content.BOF Or Content.EOF)
				Dim DenpyoSEQ,PreDenpyoSEQ
				DenpyoSEQ = Content.Fields("文書内容SEQ")
				SyohinCD(DenpyoSEQ) = Content.Fields("商品CD")
				
				ShijyoCD(DenpyoSEQ) = Content.Fields("市場CD")
				
				SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD"))
				Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD"))
				Suryo(DenpyoSEQ) = Content.Fields("数量")
				Tanka(DenpyoSEQ) = Content.Fields("単価")
				Kingaku(DenpyoSEQ) = Content.Fields("単価")	* Content.Fields("数量")
				TaxRate(DenpyoSEQ) = Content.Fields("消費税率")
				If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then
					TaxRate(DenpyoSEQ) = StdTaxRate
				End If
				UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価")
				UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量")
				If PreDenpyoSEQ <> DenpyoSEQ then
					If TaxRate(DenpyoSEQ) <> "" Then
						SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * CCur(TaxRate(DenpyoSEQ)) / 100)
					Else
						SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * StdTaxRate / 100)
					End If
					GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ)
					If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then
						UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ)
					End If
				End If

				Content.MoveNext
				PreDenpyoSEQ=DenpyoSEQ
			Loop
			SyohizeiKingaku = Int((GokeiKingaku + Unsohi * UnsohiSeikyuFlg) * GB_Shohizei / 100)
			UnsohiSyohizei = Int(Unsohi * GB_Shohizei / 100)
			ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku + Unsohi * UnsohiSeikyuFlg
			If UnsohiGokei <> Unsohi Then	'運送単価から計算された値が運送費と異なっていれば旧仕様にする
				OldSyoruiFlg = 1
			End If
		End If
	End If

	If BinType = "Saisakusei" Then
		BunsyoNaiyoCD = ""
	End If

	Dim jj,tmps

	Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode
	Dim Adr1, Adr2, Tel, Fax, GyosyuCD, Set_ShijyoCD

	Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kaisyamei = Content.Fields("会社名称")
		KaisyaRyakumei = Content.Fields("会社略名称")
		kaisyaKanamei = Content.Fields("会社カナ名称")
		ZipCode = Content.Fields("郵便番号")
		Adr1 = Content.Fields("住所1")
		Adr2 = Content.Fields("住所2")
		Tel = Content.Fields("TEL")
		Fax = Content.Fields("FAX")
		GyosyuCD = Content.Fields("業種CD")
		Set_ShijyoCD = Content.Fields("市場CD")
		KitakuGaisyaCD = Content.Fields("寄託会社CD")
	End If


	'何らかの理由で仕入売上書類Fの寄託会社・先方寄託会社にNULLがセットされてしまうことがあるので保険（091225）
	If "" & KitakuGaisyaCD = "" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			KitakuGaisyaCD = Content.Fields("寄託会社CD")
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TSA仕入売上書類F "
			Query = Query & " SET 寄託会社CD = '" & KitakuGaisyaCD & "' "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & KaisyaCD & "' "
			Query = Query & " 	AND (寄託会社CD = '' OR 寄託会社CD IS NULL) "
'			Set Content = OpenQuery(Query)
'			Query = ""
'			Query = Query & "  "
			Query = Query & " UPDATE TSA仕入売上書類F "
			Query = Query & " SET 先方寄託会社CD = '" & KitakuGaisyaCD & "' "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 取引先CD = '" & KaisyaCD & "' "
			Query = Query & " 	AND (先方寄託会社CD = '' OR 先方寄託会社CD IS NULL) "
			Set Content = OpenQuery(Query)
		End If
	End If
	If "" & SenpoKitakuGaisyaCD = "" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
			Query = ""
			Query = Query & "  "
			Query = Query & " UPDATE TSA仕入売上書類F "
			Query = Query & " SET 先方寄託会社CD = '" & SenpoKitakuGaisyaCD & "' "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 取引先CD = '" & TorihikisakiCD & "' "
			Query = Query & " 	AND (先方寄託会社CD = '' OR 先方寄託会社CD IS NULL) "
'			Set Content = OpenQuery(Query)
'			Query = ""
'			Query = Query & "  "
			Query = Query & " UPDATE TSA仕入売上書類F "
			Query = Query & " SET 寄託会社CD = '" & SenpoKitakuGaisyaCD & "' "
			Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
			Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
			Query = Query & " 	AND 作成会社CD = '" & TorihikisakiCD & "' "
			Query = Query & " 	AND (寄託会社CD = '' OR 寄託会社CD IS NULL) "
			Set Content = OpenQuery(Query)
		End If
	End If


	Dim JidoBangoShiireUriageSyorui
	JidoBangoShiireUriageSyorui = GetEnshuParam(EnshuCD, "自動番号仕入売上書類")

	'演習設定取得
	Dim ShameiYusen
	ShameiYusen = ""
	Dim Kitakuriyou
	Dim Jissenbi
	Jissenbi = ""
	Dim SenpoRiyo
	Dim KanribuUnchinShogakari
	Dim ShiireUriageKennin
	Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Kitakuriyou = Content.Fields("寄託倉庫利用")
		Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日"))
		SenpoRiyo = "" & Content.Fields("仕入売上書類先方書類必要")
		KanribuUnchinShogakari = "" & Content.Fields("管理部買入売渡運賃諸掛")
		ShiireUriageKennin = ";" & Content.Fields("仕入売上書類検認利用") & ";"
		ShameiYusen = "" & Content.Fields("仕入売上書類社名優先")
	End If
	If ShiireHanbaiKennin <> 1 Then
		ShiireUriageKennin = ""
	End If

	If BunsyoSyuruiCD = "KW" Then	'管理部売渡受付書の場合デフォルトの先方寄託会社を取得
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TorihikisakiCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			SenpoKitakuGaisyaCD = Content.Fields("寄託会社CD")
		End If
	End If



	'会社配列作成
	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 ((BunsyoKubun = "X" OR BunsyoKubun = "1") AND Content.Fields("業種CD") = "K") OR ((BunsyoKubun <> "X" AND BunsyoKubun <> "1") AND 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
		End If
		Content.MoveNext
	Loop



	'↓商品表示幅の指定及び商品名称・商品略名称の指定（修正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小野）



	'消費税率配列作成（消費税率マスタ及び商品マスタ・現在書類からすべての設定税率を取得する）
	'まず仮配列に代入しその後本配列にソートする
	Dim TmpTaxRateAry
	ReDim TmpTaxRateAry(0)
	Dim TmpTaxRate
	Query = ""
	Query = Query & "  "
	Query = Query & " SELECT * "
	Query = Query & " FROM TDA消費税率M "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' "
	Query = Query & " 	AND 演習CD = '" & EnshuCD & "' "
	Query = Query & " ORDER BY 消費税率 DESC "
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
		TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("消費税率")
'Response.Write(TmpTaxRateAry(UBound(TmpTaxRateAry)) & "<br>")
		TmpTaxRate = TmpTaxRate & "'" & Content.Fields("消費税率") & "'" '存在チェック用羅列
		Content.MoveNext
	Loop
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("標準消費税率") <> "" Then
			If InStr(TmpTaxRate, "'" & Content.Fields("標準消費税率") & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = Content.Fields("標準消費税率")
				TmpTaxRate = TmpTaxRate & "'" & Content.Fields("標準消費税率") & "'" '存在チェック用羅列
			End If
		End If
		Content.MoveNext
	Loop
	For TmpCnt = 1 To 5
		If "" & TaxRate(TmpCnt) <> "" Then
			If InStr(TmpTaxRate, "'" & TaxRate(TmpCnt) & "'") < 1 Then
				ReDim PreServe TmpTaxRateAry(UBound(TmpTaxRateAry) + 1) '配列+1
				TmpTaxRateAry(UBound(TmpTaxRateAry)) = CCur(TaxRate(TmpCnt))
				TmpTaxRate = TmpTaxRate & "'" & TaxRate(TmpCnt) & "'" '存在チェック用羅列
			End If
		End If
	Next
	'本配列にソート
	Dim TCnt
	Dim TaxRateAry
	ReDim TaxRateAry(0)
	ReDim PreServe TaxRateAry(UBound(TmpTaxRateAry)) '仮配列と同じ長さ
	For TCnt = 1 To UBound(TaxRateAry)
		TaxRateAry(Tcnt) = 0 'すべてにゼロを代入
	Next
	TmpTaxRate = "" '存在チェック用羅列リセット
	For TCnt = 1 To UBound(TaxRateAry)
		For TmpCnt = 1 To UBound(TmpTaxRateAry)
			'その時点で有効な最大税率を取得する
			If InStr(TmpTaxRate, "'" & TmpTaxRateAry(TmpCnt) & "'") < 1 Then
				If TmpTaxRateAry(TmpCnt) > TaxRateAry(TCnt) Then
					TaxRateAry(TCnt) = TmpTaxRateAry(TmpCnt)
				End If
			End If
		Next
		TmpTaxRate = TmpTaxRate & "'" & TaxRateAry(TCnt) & "'" '存在チェック用羅列
	Next
For TmpCnt = 1 To UBound(TmpTaxRateAry)
'	Response.Write(TmpTaxRateAry(TmpCnt) & "<br>")
Next
For TCnt = 1 To UBound(TaxRateAry)
	'Response.Write(TaxRateAry(TCnt) & "<br>")
Next
'Response.Write(TmpTaxRate & "<br>")
'Exit Sub

%>
<html>
<% = HtmlHeader("") %>
<SCRIPT LANGUAGE="JavaScript">
<!--
	HomeAlias = "<% = HomeAlias %>";
	HomeAliasSL = "<% = HomeAliasSL %>";
	ExitFlg = 2;


////バーコードスキャン関係

	//初期フラグ（停止状態）
	ScanAct = 0;
	//ループカウンタ
	LoopCnt = 0;
	//ループ上限
	MaxLoop = 10;
	//明細番号
	Meisai = 1;

	//onkeypressイベントのスキャンを開始（イベントは1文字毎に発生する）
	document.onkeypress = BarcodeScanAct

	function BarcodeScanAct(e) {
		//1文字追加
		form1.Barcode.value = form1.Barcode.value + String.fromCharCode(event.keyCode);
		//停止状態でonkeypressされた場合はループ開始処理
		if (ScanAct == 0) {
			//実行フラグを立てる
			ScanAct = 1;
			//BarcodeScan()関数を30msで繰り返す
			ScanInterval = setInterval("BarcodeScan()", 30);
		}
	}

	function BarcodeScan() {
		//既定ループ数を超えた場合若しくは4文字を超えた場合
		if (LoopCnt > MaxLoop || form1.Barcode.value.length > 3) {
			//実行する処理
<%
	Dim iii
	iii = 1
	If BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KO" then
		'管理部買入・売渡
		Query2 = "exec SPM商品市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "','" & Set_ShijyoCD & "', '" & GB_GakuseiNo & "'"
	Else
		'扱える全商品
		Query2 = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	End If
	Set Content2 = OpenQuery(Query2)
	Do While Not(Content2.BOF Or Content2.EOF)
		Response.Write("			if (form1.Barcode.value.substring(0,4) == '" & Right("   " & Replace(UCase(Content2.Fields("商品CD")), "-" & UCase(GB_GakuseiNo), ""), 4) & "' || form1.Barcode.value.substring(0,4) == '" & Right("   " & Replace(LCase(Content2.Fields("商品CD")), "-" & LCase(GB_GakuseiNo), ""), 4) & "') {" & vbCrLf )
		If BunsyoSyuruiCD <> "KX" And BunsyoSyuruiCD <> "KO" then
											'商品リストボックスを全商品リストに変更
			Response.Write("				SetShohinMenu(0);" & vbCrLf )
											'市場リストボックスを「全商品」に変更
			Response.Write("				document.form1[""SShijoCD""].selectedIndex = 0;" & vbCrLf )
		End If
										'商品リストボックスから商品を選択
		Response.Write("				document.form1[""SyohinCD"" + Meisai].selectedIndex = " & iii & ";" & vbCrLf )
										'商品説明を変更
		Response.Write("				SetSyohinSetsumei(""" & Content2.Fields("商品CD") & """);" & vbCrLf )
										'商品価格を変更
		Response.Write("				SetSyohinKakaku(Meisai);" & vbCrLf )
										'フォーカス移動
		Response.Write("				document.form1[""SyohinCD"" + Meisai].focus();" & vbCrLf )
										'明細番号をシフト
		Response.Write("				Meisai = Meisai + 1;" & vbCrLf )
		Response.Write("				if (Meisai > 5) Meisai = 1;" & vbCrLf )
		Response.Write("			}" & vbCrLf )
		iii = iii + 1
		Content2.MoveNext
	Loop
%>
			//初期クリア
			clearInterval(ScanInterval);
			ScanAct = 0;
			LoopCnt = 0;
			form1.Barcode.value = "";
		}
		//ループカウントアップ
		LoopCnt = LoopCnt + 1;
	}


/////////////////////////////////////////
//市場を選択し商品を変更する
/////////////////////////////////////////
//商品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 & "'"
				'最上列に全商品一覧（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)" name="form1" method="POST" action="fd_kitaku_syorui_bin.asp" autocomplete="off">
<input type="hidden" name="OldBunsyoNaiyoCD" value="<% = BunsyoNaiyoCD %>">
<input type="hidden" name="Barcode" value="">


<%
	Response.Write(HtmlDesign(1))

	Response.Write(HttpL1(3))


	If BunsyoKubun = "V" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "買入受付", "", "", "", "", ""))
	ElseIf BunsyoKubun = "W" Then
		Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", "管理部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k.asp')", "受付業務", "tblbtn( '/" & HomeAlias & "/user/bk/menu_k2.asp')", "売渡受付", "", "", "", "", ""))
	ElseIf BunsyoKubun = "1" Or BunsyoKubun = "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, "", "", "", "", ""))
	End If


	Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))

	Response.Write(HttpL3_1("保存", "SubmitCheck()", "", "", "", "", "", "", "", ""))


	If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" And SenpoRiyo <> "2" Then
		Response.Write(HttpL3_2("先方書類一覧", "tblbtn( 'fd_kitaku_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "&SenpoBunsyoSyuruiCD=" & SenpoTmpBunsyoSyuruiCD & "')", "一覧表示", "tblbtn( 'fd_kitaku_syorui_ichiran.asp?BunsyoSyuruiCD=" & BunsyoSyuruiCD & "')", "", "", "", "", "", ""))
	Else
		Response.Write(HttpL3_2("一覧表示", "tblbtn( 'fd_kitaku_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="700" height="345" border="0" cellpadding="0" cellspacing="2">
	<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?<% = GB_STU %>">
						<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="10" cellspacing="0" bgcolor="#FFFFFF" style="border:solid 1px #111111">
				<tr>
					<td align="center" valign="top">
						<table width="100%" border="0" cellpadding="0" cellspacing="0">
							<tr>
								<td height="2" align="center" valign="top"></td>
							</tr>
							<tr>
								<td valign="top" align="center">
									<table width="100%" border="0" cellpadding="0" cellspacing="0">
										<tr>
											<td width="100%" valign="top" align="center">
												<table border="0" width="95%" cellpadding="0" cellspacing="0">
													<tr>
														<td width="190">
															<table width="190" border="0" cellpadding="0" cellspacing="0">
																<tr class="tx1416">
																	<td width="190" align="left">書類番号：
																	<% If JidoBangoShiireUriageSyorui = "1" Then %>
																		<input type="text" name="BunsyoNaiyoCD" size="10" readonly class="tbox4_ro" value="<% = BunsyoNaiyoCD %>">
																	<% Else %>
																		<input type="text" name="BunsyoNaiyoCD" size="10"  onBlur="FormStrLeftEdge(this,12,true,false);SetString(this, 12, false)" class="tbox4" value="<% = BunsyoNaiyoCD %>">
																	<% End If %>
																	</td>
																</tr>
															</table>
														</td>
														<td valign="top" align="center">

															<table class="tx2022b" border="0" cellpadding="0" cellspacing="0" >
																<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="190">
															<table width="190" border="0" cellpadding="0" cellspacing="0">
																<tr class="tx1416">
																	<td width="190" align="right">処理日：
																	<% If Jissenbi <> "" And BunsyoNaiyoCD <> "" Then '実践日固定モード且つ修正モード %>
																		<input type="text" name="Syoribi" size="12" value="<% = Syoribi %>" onBlur="SetDate(this, 1, true, '<% = Syoribi %>', '')" readonly class="tbox4_ro">
																	<% ElseIf Jissenbi <> "" Then '実践日固定モード %>
																		<input type="text" name="Syoribi" size="12" value="<% = Jissenbi %>" onBlur="SetDate(this, 1, true, '<% = Jissenbi %>', '')" readonly class="tbox4_ro">
																	<% Else %>
																		<input type="text" name="Syoribi" size="12" value="<% = Syoribi %>" onBlur="SetDate(this, 1, true, '<% = SenpoSyoribi %>', '')" class="tbox4">
																	<% End If %>
																	</td>
																</tr>
															</table>
														</td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
							<tr><td height="10" align="center" valign="top"></td></tr>
							<tr>
								<td height="95" align="center" valign="top">
									<table border="0" cellpadding="0" cellspacing="0" width="95%">
										<tr>
											<td width="290">
												<table class="tx1416" width="100%" border="0" cellpadding="0" cellspacing="0">
													<tr>
														<td width="70" height="26" style="border-bottom: 1px solid #000000">取引先：</td>
														<td style="border-bottom: 1px solid #000000">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="TorihikisakiCDHyoji" style="width:190px;" 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:190px;" OnChange="SetSenpoKitakuGaisya();">
																<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>
													</tr>
													<tr >
														<td height="26"	style="border-bottom: 1px solid #000000">納入場所：</td>
														<td	style="border-bottom: 1px solid #000000">
														<%
															If BunsyoSyuruiCD = "KW" Then
																Response.Write(ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun))
															Else
																Response.Write("寄託倉庫")
														%>
															<!--
															<select size="1" name="NonyuBasyoKubun" class="tbox2">
																<option value="S"<% If NonyuBasyoKubun = "S" Then %> selected<% End If %>>寄託倉庫</option>
															</select>
															-->
														<%	End If %>

															<% If BunsyoSyuruiCD ="KM" OR BunsyoSyuruiCD ="KU" OR BunsyoSyuruiCD ="KN" OR BunsyoSyuruiCD ="KS" OR BunsyoSyuruiCD = "KV" OR BunsyoSyuruiCD = "KW" Then %>
															
																<!-- 寄託処理に関連する文書種類CDがあれば、ここの条件文に記述 //-->
																<!-- KM:見積書,KU;注文請書 //-->
																<!-- 先方書類 取引先の寄託会社をセット //-->
																
																<input type="text" name="SenpoKitakuGaisyaMei" size="23" value="<% =ConvKaisyaMeisyo(SenpoKitakuGaisyaCD) %>" readonly class="tbox4_ro">
																<input type="hidden" name="SenpoKitakuGaisyaCD" value="<% =SenpoKitakuGaisyaCD %>">
																<input type="hidden" name="KitakuGaisyaCD" value="<% =KitakuGaisyaCD %>">
																
															<% Else %>
															
																<!-- 条件文以外の文書 KI:見積依頼書,KC:注文書など //-->
																<!-- 自社の寄託会社をセット //-->
																
																<input type="text" name="KitakuGaisyaMei" size="23" value="<% =ConvKaisyaMeisyo(KitakuGaisyaCD) %>" readonly class="tbox4_ro">
																<input type="hidden" name="KitakuGaisyaCD" value="<% =KitakuGaisyaCD %>">
																<input type="hidden" name="SenpoKitakuGaisyaCD" value="<% =SenpoKitakuGaisyaCD %>">
																<input type="hidden" name="SenpoKitakuGaisyaMei" size="16" value="<% =ConvKaisyaMeisyo(SenpoKitakuGaisyaCD) %>" readonly class="tbox4_ro">
															<% End If %>
															
														</td>
													</tr>
													<tr >
														<td height="26" style="border-bottom: 1px solid #000000" >運賃諸掛：</td>
														<td style="border-bottom: 1px solid #000000" >
															<% 'KanribuUnchinShogakari = "0" %>
															<% If KanribuUnchinShogakari = "1" And (BunsyoSyuruiCD = "KX" OR  BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KV") Then %>
															買主負担<input type="hidden" name="UntinSyogakariKubun" value="K">
															<% ElseIf KanribuUnchinShogakari = "1" And (BunsyoSyuruiCD = "KY" Or BunsyoSyuruiCD = "KW") Then %>
															売主負担<input type="hidden" name="UntinSyogakariKubun" value="U">
															<% Else %>
															<% 'ElseIf BunsyoSyuruiCD <> "KV" And BunsyoSyuruiCD <> "KW" AND	BunsyoSyuruiCD <> "KY" Then %>
																<% If SenpoFlg = 1 And UntinSyogakariKubun <> "" Then '先方書類前提モード（090925小野） %>
																	<input type="text" name="UntinSyogakariKubunHyoji" style="width:70px;" value="<% If UntinSyogakariKubun = "K" Then %>買主負担<% ElseIf UntinSyogakariKubun = "U" Then %>売主負担<% ElseIf UntinSyogakariKubun = "J" Then %>自社便<% End If %>" readonly class="tbox4_ro">
																	<input type="hidden" name="UntinSyogakariKubun" value="<% = UntinSyogakariKubun %>">
																<% Else %>
																	<select size="1" name="UntinSyogakariKubun" onChange="SetUntin();SetGokei();" class="tbox4">
																		<option value="">　　　　</option>
																		<option value="U"<% If UntinSyogakariKubun = "U" Then %> selected<% End If %>>売主負担</option>
																		<option value="K"<% If UntinSyogakariKubun = "K" Then %> selected<% End If %>>買主負担</option>
																		<option value="J"<% If UntinSyogakariKubun = "J" Then %> selected<% End If %>>自社便</option>
																	</select>
																<% End If %>
															<% End If %>
														</td>
													</tr>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
													<tr >
														<td height="26" style="border-bottom: 1px solid #000000" >運送会社：</td>
														<td style="border-bottom: 1px solid #000000" >
														<% If SenpoFlg = 1 And UnsoGaisyaCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="UnsoGaisyaCDHyoji" style="width:190px;" value="<%
																Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																Set Content = OpenQuery(Query)
																Do While Not(Content.BOF Or Content.EOF)
																	If Content.Fields("業種CD") = "U" Then
																		If Content.Fields("会社CD") = UnsoGaisyaCD Then
																			Response.Write(Content.Fields("会社名称"))
																			Exit Do
																		End If
																	End If
																	Content.MoveNext
																Loop
															 %>" readonly class="tbox4_ro">
															<input type="hidden" name="UnsoGaisyaCD" value="<% = UnsoGaisyaCD %>">
														<% Else %>
															<select size="1" name="UnsoGaisyaCD" class="tbox4" style="width:190">
																<option value="">　　　　</option>
																<%
																	Query = "exec SPM会社全部一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GakuseiNo & "'"
																	Set Content = OpenQuery(Query)
																	Do While Not(Content.BOF Or Content.EOF)
																		If Content.Fields("業種CD") = "U" Then
																			Response.Write("<option value=""" & Content.Fields("会社CD") & """")
																			If Content.Fields("会社CD") = UnsoGaisyaCD Then
																				Response.Write(" selected")
																			End If
																			Response.Write(">" & Content.Fields("会社名称") & "</option>" & vbCrLf)
																		End If
																		Content.MoveNext
																	Loop
																%>
															</select>
														<% End If %>
														</td>
													</tr>
													<% Else '運送会社がない分は空行にする %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000" colspan="2">　　　　　　　</td>
														</td>
													</tr>
													<% End If %>

													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">支払方法：</td>
														<td style="border-bottom: 1px solid #000000" >
														<% If SenpoFlg = 1 And ShiharaiHoho <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="ShiharaiHoho" size="33" value="<% = ShiharaiHoho %>" readonly class="tbox4_ro">
														<% Else %>
															<input type="text" name="ShiharaiHoho" size="33" class="tbox4_ime" value="<% = ShiharaiHoho %>" onBlur="FormStrLeftIME(this,52,true);" maxlength="26">
														<% End If %>
														</td>
													</tr>
													<tr >
														<td height="26" style="border-bottom: 1px solid #000000" ><% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %>：</td>
														<td style="border-bottom: 1px solid #000000" >
														<% If SenpoFlg = 1 And NonyuKijitsu <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="NonyuKijitsu" size="12" value="<% = NonyuKijitsu %>" readonly class="tbox4_ro">
														<% Else %>
															<input type="text" name="NonyuKijitsu" size="12" value="<% = NonyuKijitsu %>" class="tbox4" onBlur="SetDate(this, 1, true)">
														<% End If %>
														</td>
													</tr>
												</table>
											</td>
											<td>
												<table height="80" class="tx1416" border="0" cellpadding="0" cellspacing="0">
													<tr >
														<td width="5"></td>
													</tr>
												</table>
											</td>
											<td width="290" valign="bottom">
												<table width="100%" class="tx1416" border="0" cellpadding="0" cellspacing="0">
												<% If ShameiYusen <> "1" Then %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Kaisyamei %>　</td>
													</tr>
												<% End If %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Adr1 %>　</td>
													</tr>
												<% If Trim(Adr2) <> "" Then %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Adr2 %>　</td>
													</tr>
												<% End If %>
												<% If ShameiYusen = "1" Then %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000"><% = Kaisyamei %>　</td>
													</tr>
												<% End If %>
												<% If ShiireHanbaiKaishaTekiyo = 1 Then %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">
															<input type="text" name="Tekiyo2" size="45" class="tbox4_ime" value="<% = Tekiyo2 %>" onBlur="FormStrLeftIME(this,64,true);" maxlength="32"></td>
													</tr>
												<% Else %>
														<input type="hidden" name="Tekiyo2" value="<% = Tekiyo2 %>">
												<% End If %>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">TEL：<% = Tel %></td>
													</tr>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">FAX：<% = Fax %></td>
													</tr>
													<tr>
														<td height="26" style="border-bottom: 1px solid #000000">
															摘要：<input type="text" name="Tekiyo" size="39" class="tbox4_ime" value="<% = Tekiyo %>" onBlur="FormStrLeftIME(this,64,true);" maxlength="32"></td>
													</tr>
												</table>
											</td>
										</tr>
									</table>
								</td>
							</tr>
						</table>
						<table width="<% If TmpShohizeiMode = 1 Then %>680<% Else %>640<% End If %>" height="230" border="0" cellpadding="4" cellspacing="0">
							<tr>
								<td width="100%" align="RIGHT">
									<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<% If TmpShohizeiMode = 1 Then %>690<% Else %>640<% End If %>" bordercolor="#000000">
										<tr>
											<td height="150" valign="TOP">
												<table width="100%" height="<% If TmpGokeiMode = 1 Then %>250<% Else %>160<% End If %>" border="1" frame="void" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000"  class="tx1416">
													<tr bgcolor="#DDDDDD">
														<td align="center">商品名称</td>
														<td align="center" width="98"><% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %></td>
														<td align="center" width="98">数　量</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center" width="98">単　価</td>
														<td align="center" width="98">金　額</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center" width="64">税率</td>
														<% End If %>
													<% End If %>
													</tr>
													<tr>
														<td align="center">

													<% 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" size="1" style="<% = SyohinMeisyoListWidth %>" onChange="SetSyohinSetsumei(this.value);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>
														<td align="center">
															<input type="text" name="Kakaku1" size="13" value="<% = SetMoney(Kakaku(1), false, true) %>" readonly class="tbox5_ro">
														</td>
														<td align="center">
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Suryo1" size="13" value="<% = SetNumber(Suryo(1), false) %>" readonly class="tbox5_ro" tabindex="-1">
													<% Else %>
															<input type="text" name="Suryo1" size="13" value="<% = SetNumber(Suryo(1), false) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD1.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD1.value);SetKingaku(1);SetGokei();" class="tbox5">
													<% End If %>
														</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(1) = "" Or Tanka(1) > 0) Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Tanka1" size="13" value="<% = SetMoney(Tanka(1), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
														<% Else %>
															<input type="text" name="Tanka1" size="13" value="<% = SetMoney(Tanka(1), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD1.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD1.value);SetKingaku(1);SetGokei();" class="tbox5">
														<% End If %>
														</td>
														<td align="center">
															<input type="text" name="Kingaku1" size="13" value="<% = SetMoney(Kingaku(1), false, true) %>" readonly class="tbox5_ro">
														</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード %>
															<input type="text" name="TaxRate1" size="5" value="<% = TaxRate(1) %>" readonly class="tbox5_ro" tabindex="-1">％
															<% Else %>
															<select name="TaxRate1" size="1" class="tbox4" onChange="SetGokei();">
																<option value=""></option>
																 <%
																	'消費税率配列より
																	For TCnt = 1 To UBound(TaxRateAry)
																		Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
																		If "" & TaxRateAry(TCnt) = "" & TaxRate(1) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
																	Next
																%>
															</select>
															<% End If %>
														</td>
														<% Else %>
														<input type="hidden" name="TaxRate1" value="<% = TaxRate(1) %>">
														<% End If %>
													<% Else %>
														<input type="hidden" name="TaxRate1" value="<% = TaxRate(1) %>">
													<% End If %>
													</tr>
													<tr>
														<td align="center">

													<% 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" size="1" style="<% = SyohinMeisyoListWidth %>" onChange="SetSyohinSetsumei(this.value);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>
														<td align="center">
															<input type="text" name="Kakaku2" size="13" value="<% = SetMoney(Kakaku(2), false, true) %>" readonly class="tbox5_ro">
														</td>
														<td align="center">
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Suryo2" size="13" value="<% = SetNumber(Suryo(2), false) %>" readonly class="tbox5_ro" tabindex="-1">
													<% Else %>
															<input type="text" name="Suryo2" size="13" value="<% = SetNumber(Suryo(2), false) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD2.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD2.value);SetKingaku(2);SetGokei();" class="tbox5">
													<% End If %>
														</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(2) = "" Or Tanka(2) > 0) Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Tanka2" size="13" value="<% = SetMoney(Tanka(2), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
														<% Else %>
															<input type="text" name="Tanka2" size="13" value="<% = SetMoney(Tanka(2), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD2.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD2.value);SetKingaku(2);SetGokei();" class="tbox5">
														<% End If %>
														</td>
														<td align="center">
															<input type="text" name="Kingaku2" size="13" value="<% = SetMoney(Kingaku(2), false, true) %>" readonly class="tbox5_ro">
														</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード %>
															<input type="text" name="TaxRate2" size="5" value="<% = TaxRate(2) %>" readonly class="tbox5_ro" tabindex="-1">％
															<% Else %>
															<select name="TaxRate2" size="1" class="tbox4" onChange="SetGokei();">
																<option value=""></option>
																 <%
																	'消費税率配列より
																	For TCnt = 1 To UBound(TaxRateAry)
																		Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
																		If "" & TaxRateAry(TCnt) = "" & TaxRate(2) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
																	Next
																%>
															</select>
															<% End If %>
														</td>
														<% Else %>
														<input type="hidden" name="TaxRate2" value="<% = TaxRate(2) %>">
														<% End If %>
													<% Else %>
														<input type="hidden" name="TaxRate2" value="<% = TaxRate(2) %>">
													<% End If %>
													</tr>
													<tr>
														<td align="center">

													<% 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" size="1" style="<% = SyohinMeisyoListWidth %>" onChange="SetSyohinSetsumei(this.value);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>
														<td align="center">
															<input type="text" name="Kakaku3" size="13" value="<% = SetMoney(Kakaku(3), false, true) %>" readonly class="tbox5_ro">
														</td>
														<td align="center">
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Suryo3" size="13" value="<% = SetNumber(Suryo(3), false) %>" readonly class="tbox5_ro" tabindex="-1">
													<% Else %>
															<input type="text" name="Suryo3" size="13" value="<% = SetNumber(Suryo(3), false) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD3.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD3.value);SetKingaku(3);SetGokei();" class="tbox5">
													<% End If %>
														</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(3) = "" Or Tanka(3) > 0) Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Tanka3" size="13" value="<% = SetMoney(Tanka(3), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
														<% Else %>
															<input type="text" name="Tanka3" size="13" value="<% = SetMoney(Tanka(3), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD3.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD3.value);SetKingaku(3);SetGokei();" class="tbox5">
														<% End If %>
														</td>
														<td align="center">
															<input type="text" name="Kingaku3" size="13" value="<% = SetMoney(Kingaku(3), false, true) %>" readonly class="tbox5_ro">
														</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード %>
															<input type="text" name="TaxRate3" size="5" value="<% = TaxRate(3) %>" readonly class="tbox5_ro" tabindex="-1">％
															<% Else %>
															<select name="TaxRate3" size="1" class="tbox4" onChange="SetGokei();">
																<option value=""></option>
																 <%
																	'消費税率配列より
																	For TCnt = 1 To UBound(TaxRateAry)
																		Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
																		If "" & TaxRateAry(TCnt) = "" & TaxRate(3) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
																	Next
																%>
															</select>
															<% End If %>
														</td>
														<% Else %>
														<input type="hidden" name="TaxRate3" value="<% = TaxRate(3) %>">
														<% End If %>
													<% Else %>
														<input type="hidden" name="TaxRate3" value="<% = TaxRate(3) %>">
													<% End If %>
													</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" size="1" style="<% = SyohinMeisyoListWidth %>" onChange="SetSyohinSetsumei(this.value);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>
														<td align="center">
															<input type="text" name="Kakaku4" size="13" value="<% = SetMoney(Kakaku(4), false, true) %>" readonly class="tbox5_ro">
														</td>
														<td align="center">
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Suryo4" size="13" value="<% = SetNumber(Suryo(4), false) %>" readonly class="tbox5_ro" tabindex="-1">
													<% Else %>
															<input type="text" name="Suryo4" size="13" value="<% = SetNumber(Suryo(4), false) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD4.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD4.value);SetKingaku(4);SetGokei();" class="tbox5">
													<% End If %>
														</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(4) = "" Or Tanka(4) > 0) Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Tanka4" size="13" value="<% = SetMoney(Tanka(4), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
														<% Else %>
															<input type="text" name="Tanka4" size="13" value="<% = SetMoney(Tanka(4), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD4.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD4.value);SetKingaku(4);SetGokei();" class="tbox5">
														<% End If %>
														</td>
														<td align="center">
															<input type="text" name="Kingaku4" size="13" value="<% = SetMoney(Kingaku(4), false, true) %>" readonly class="tbox5_ro">
														</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード %>
															<input type="text" name="TaxRate4" size="5" value="<% = TaxRate(4) %>" readonly class="tbox5_ro" tabindex="-1">％
															<% Else %>
															<select name="TaxRate4" size="1" class="tbox4" onChange="SetGokei();">
																<option value=""></option>
																 <%
																	'消費税率配列より
																	For TCnt = 1 To UBound(TaxRateAry)
																		Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
																		If "" & TaxRateAry(TCnt) = "" & TaxRate(4) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
																	Next
																%>
															</select>
															<% End If %>
														</td>
														<% Else %>
														<input type="hidden" name="TaxRate4" value="<% = TaxRate(4) %>">
														<% End If %>
													<% Else %>
														<input type="hidden" name="TaxRate4" value="<% = TaxRate(4) %>">
													<% End If %>
													</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" size="1" style="<% = SyohinMeisyoListWidth %>" onChange="SetSyohinSetsumei(this.value);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>
														<td align="center">
															<input type="text" name="Kakaku5" size="13" value="<% = SetMoney(Kakaku(5), false, true) %>" readonly class="tbox5_ro">
														</td>
														<td align="center">
													<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Suryo5" size="13" value="<% = SetNumber(Suryo(5), false) %>" readonly class="tbox5_ro" tabindex="-1">
													<% Else %>
															<input type="text" name="Suryo5" size="13" value="<% = SetNumber(Suryo(5), false) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD5.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD5.value);SetKingaku(5);SetGokei();" class="tbox5">
													<% End If %>
														</td>
													<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
														<td align="center">
														<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(5) = "" Or Tanka(5) > 0) Then '先方書類前提モード（090925小野） %>
															<input type="text" name="Tanka5" size="13" value="<% = SetMoney(Tanka(5), false, true) %>" readonly class="tbox5_ro" tabindex="-1">
														<% Else %>
															<input type="text" name="Tanka5" size="13" value="<% = SetMoney(Tanka(5), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD5.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD5.value);SetKingaku(5);SetGokei();" class="tbox5">
														<% End If %>
														</td>
														<td align="center">
															<input type="text" name="Kingaku5" size="13" value="<% = SetMoney(Kingaku(5), false, true) %>" readonly class="tbox5_ro">
														</td>
														<% If TmpShohizeiMode = 1 Then %>
														<td align="center">
															<% If SenpoFlg = 1 And TorihikisakiCD <> "" Then '先方書類前提モード %>
															<input type="text" name="TaxRate5" size="5" value="<% = TaxRate(5) %>" readonly class="tbox5_ro" tabindex="-1">％
															<% Else %>
															<select name="TaxRate5" size="1" class="tbox4" onChange="SetGokei();">
																<option value=""></option>
																 <%
																	'消費税率配列より
																	For TCnt = 1 To UBound(TaxRateAry)
																		Response.Write("<option value=""" & TaxRateAry(TCnt) & """")
																		If "" & TaxRateAry(TCnt) = "" & TaxRate(5) Then
																			Response.Write(" selected")
																		End If
																		Response.Write(">" & TaxRateAry(TCnt) & "</option>" & vbCrLf)
																	Next
																%>
															</select>
															<% End If %>
														</td>
														<% Else %>
														<input type="hidden" name="TaxRate5" value="<% = TaxRate(5) %>">
														<% End If %>
													<% Else %>
														<input type="hidden" name="TaxRate5" value="<% = TaxRate(5) %>">
													<% End If %>
													</tr>
<!--
												</table>
											</td>
										</tr>
-->
										<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
<!--
										<tr>
											<td>
												<table width="100%" border="1" cellpadding="0" cellspacing="0" frame="void" style="border-collapse: collapse" bordercolor="#000000"	bgcolor="#DDDDDD"  class="tx1416">
-->
													<tr bgcolor="#DDDDDD">
														<td align="center" colspan="2" rowspan="4">

														</td>
														<td align="center" colspan="2">合計金額</td>
														<td align="center" bgcolor="#FFFFFF">
															<input type="text" name="GokeiKingaku" size="13" value="<% = SetMoney(GokeiKingaku, false, false) %>" readonly class="tbox5_ro"></td>
														<td align="center" colspan="2" rowspan="4">

														</td>
													</tr>
													<tr bgcolor="#DDDDDD">
														<td align="center" colspan="2">運送費請求額</td>
														<td align="center" bgcolor="#FFFFFF">
															<input type="text" name="UnsohiSeikyugaku" size="13" value="<% = SetMoney(Unsohi * UnsohiSeikyuFlg, false, false) %>" readonly class="tbox5_ro"></td>
													</tr>
													<tr bgcolor="#DDDDDD">
														<td align="center" colspan="2">消費税額</td>
														<td align="center" bgcolor="#FFFFFF">
															<input type="text" name="SyohizeiKingaku" size="13" value="<% = SetMoney(SyohizeiKingaku, false, false) %>" readonly class="tbox5_ro"></td>
													</tr>
													<tr bgcolor="#DDDDDD">
														<td align="center" colspan="2">税込金額</td>
														<td align="center" bgcolor="#FFFFFF">
															<input type="text" name="ZeikomiKingaku" size="13" 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="200" height="206" 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="tx1416" width="185">
							<tr><td><% = Spacer(5,5) %></td></tr>
							<tr>
								<td>この書類に関する情報</td>
							</tr>
							<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
							<tr><td><% = Spacer(5,5) %></td></tr>
							<tr>
								<td>先方書類番号：<% = SenpoBunsyoNaiyoCD %></td>
							</tr>
							<tr>
								<td><%
								Response.Write("先方処理日：")
								Response.Write("" & SenpoSyoribi)
								'If SenpoBunsyoNaiyoCD <> "" Then
								'	Response.Write("　番号 " & SenpoBunsyoNaiyoCD)
								'End If %></td>
							</tr>
							<% End If %>
							<tr><td><% = Spacer(5,5) %></td></tr>
						<% If OldSyoruiFlg > 0 Then %>
							<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
							<tr>
								<td>
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" class="tx1416">
										<TR>
											<TD WIDTH="60" valign="top">運送費：</TD>
											<TD>
												<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
												<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetUnsohi();SetUntin();SetGokei();" class="tx1416">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
														<TD WIDTH="60" CLASS="tbtn1" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>">自動計算</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
													</TR>
												</TABLE>
												<% End If %>
											</TD>
										</TR>
									</TABLE>
								</td>
							</tr>
							<tr>
								<td><input type="text" name="Unsohi" size="16" value="<% = SetMoney(Unsohi, false, true) %>" onkeyup="ChangeMoney(this);" onBlur="FormStrFloatEdge(this,10,0,true);SetMoney2(this, false, false);SetUntin();SetGokei();" class="tbox5">　</td>
							</tr>
							<tr>
								<td height="10"></td>
							</tr>
							<input type="hidden" name="UnsoTanka1" value="<% = SetMoney(UnsoTanka(1), false, true) %>">
							<input type="hidden" name="UnsoTanka2" value="<% = SetMoney(UnsoTanka(2), false, true) %>">
							<input type="hidden" name="UnsoTanka3" value="<% = SetMoney(UnsoTanka(3), false, true) %>">
							<input type="hidden" name="UnsoTanka4" value="<% = SetMoney(UnsoTanka(4), false, true) %>">
							<input type="hidden" name="UnsoTanka5" value="<% = SetMoney(UnsoTanka(5), false, true) %>">
							<input type="hidden" name="UnsohiSyohin1" value="<% = SetMoney(UnsohiSyohin(1), false, true) %>">
							<input type="hidden" name="UnsohiSyohin2" value="<% = SetMoney(UnsohiSyohin(2), false, true) %>">
							<input type="hidden" name="UnsohiSyohin3" value="<% = SetMoney(UnsohiSyohin(3), false, true) %>">
							<input type="hidden" name="UnsohiSyohin4" value="<% = SetMoney(UnsohiSyohin(4), false, true) %>">
							<input type="hidden" name="UnsohiSyohin5" value="<% = SetMoney(UnsohiSyohin(5), false, true) %>">
							<input type="hidden" name="UnsohiSyohizei" value="<% = SetMoney(UnsohiSyohizei, false, true) %>">
							<% End If %>
						<% End If %>
<!--
							<tr>
								<td>摘要：</td>
							</tr>
							<tr>
								<td>
								<input type="text" name="Tekiyo" size="30" class="tbox4_ime" value="<% = Tekiyo %>" onBlur="SetString(this, 60, true)" maxlength="30">
								</td>
							</tr>
-->
							<% If BunsyoSyuruiCD = "KV" OR BunsyoSyuruiCD = "KW" Then %>
							<tr>
								<td height="10"></td>
							</tr>
							<tr>
								<td align="left">
									<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" class="tx1416">
										<TR>
											<TD colspan="2">掛け率で単価を決定する</TD>
										</TR>
										<TR>
											<TD>
												<input type="text" name="Kakeritsu" size="3" value="" class="tbox5" onKeyup="FormStrFloat(this,3,0);" onKeypress="FormStrFloat(this,3,0);" onBlur="FormStrFloatEdge(this,3,0,true);FormStrFloatCutoff(this,true);SetKakeritsu();">％
											</TD>
											<TD>
												<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="CalcKakeritsu();SetKakeritsu();" CLASS="tbtn1" class="tx1416">
													<TR>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
														<TD WIDTH="80" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>">自動決定</TD>
														<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
													</TR>
												</TABLE>
											</TD>
										</TR>
									</TABLE>


								</td>
							</tr>
							<% End If %>
						</table>
					</td>
				</tr>
			</table>
	<% If OldSyoruiFlg < 1 Then %>
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
			<table width="100%" height="2" border="0" cellpadding="0" cellspacing="0">
				<tr height="2">
					<td height="2">
					</td>
				</tr>
			</table>
			<table id="Set" width="100%" height="204" BORDERCOLOR="#000000" border="1" cellpadding="0" cellspacing="0" bgcolor="#eeeeff" STYLE="border-collapse: collapse" class="tx1416">
				<tr bgcolor="#DDDDDD" height="19">
					<td align="center" width="50%">運送単価</td>
					<td align="center">運 送 費</td>
				</tr>
				<tr height="27">
					<td align="center">
					<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(1) = "" Or UnsoTanka(1) > 0) Then '先方書類前提モード（090925小野） %>
						<input type="text" name="UnsoTanka1" size="13" value="<% = SetMoney(UnsoTanka(1), false, true) %>" readonly class="tbox5_ro">
					<% Else %>
						<input type="text" name="UnsoTanka1" size="13" value="<% = SetMoney(UnsoTanka(1), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD1.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD1.value);SetKingaku(1);SetGokei();" class="tbox5">
						<% UnsohiButton = 1 %>
					<% End If %>
					</td>
					<td align="center">
						<input type="text" name="UnsohiSyohin1" size="13" value="<% = SetMoney(UnsohiSyohin(1), false, true) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center">
					<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(2) = "" Or UnsoTanka(2) > 0) Then '先方書類前提モード（090925小野） %>
						<input type="text" name="UnsoTanka2" size="13" value="<% = SetMoney(UnsoTanka(2), false, true) %>" readonly class="tbox5_ro">
					<% Else %>
						<input type="text" name="UnsoTanka2" size="13" value="<% = SetMoney(UnsoTanka(2), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD2.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD2.value);SetKingaku(2);SetGokei();" class="tbox5">
						<% UnsohiButton = 1 %>
					<% End If %>
					</td>
					<td align="center">
						<input type="text" name="UnsohiSyohin2" size="13" value="<% = SetMoney(UnsohiSyohin(2), false, true) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center">
					<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(3) = "" Or UnsoTanka(3) > 0) Then '先方書類前提モード（090925小野） %>
						<input type="text" name="UnsoTanka3" size="13" value="<% = SetMoney(UnsoTanka(3), false, true) %>" readonly class="tbox5_ro">
					<% Else %>
						<input type="text" name="UnsoTanka3" size="13" value="<% = SetMoney(UnsoTanka(3), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD3.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD3.value);SetKingaku(3);SetGokei();" class="tbox5">
						<% UnsohiButton = 1 %>
					<% End If %>
					</td>
					<td align="center">
						<input type="text" name="UnsohiSyohin3" size="13" value="<% = SetMoney(UnsohiSyohin(3), false, true) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center">
					<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(4) = "" Or UnsoTanka(4) > 0) Then '先方書類前提モード（090925小野） %>
						<input type="text" name="UnsoTanka4" size="13" value="<% = SetMoney(UnsoTanka(4), false, true) %>" readonly class="tbox5_ro">
					<% Else %>
						<input type="text" name="UnsoTanka4" size="13" value="<% = SetMoney(UnsoTanka(4), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD4.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD4.value);SetKingaku(4);SetGokei();" class="tbox5">
						<% UnsohiButton = 1 %>
					<% End If %>
					</td>
					<td align="center">
						<input type="text" name="UnsohiSyohin4" size="13" value="<% = SetMoney(UnsohiSyohin(4), false, true) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center">
					<% If SenpoFlg = 1 And TorihikisakiCD <> "" And (SyohinCD(5) = "" Or UnsoTanka(5) > 0) Then '先方書類前提モード（090925小野） %>
						<input type="text" name="UnsoTanka5" size="13" value="<% = SetMoney(UnsoTanka(5), false, true) %>" readonly class="tbox5_ro">
					<% Else %>
						<input type="text" name="UnsoTanka5" size="13" value="<% = SetMoney(UnsoTanka(5), false, true) %>" onFocus="SetSyohinSetsumei1(form1.SyohinCD5.value);FormStrCommaReplace(this);" onKeyup="FormStrFloat(this,10,0);" onKeypress="FormStrFloat(this,10,0);" onBlur="FormStrFloatEdge(this,10,0,true);FormStrFloatCutoff(this,true);SetSyohinSetsumei2(form1.SyohinCD5.value);SetKingaku(5);SetGokei();" class="tbox5">
						<% UnsohiButton = 1 %>
					<% End If %>
					</td>
					<td align="center">
						<input type="text" name="UnsohiSyohin5" size="13" value="<% = SetMoney(UnsohiSyohin(5), false, true) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center" bgcolor="#DDDDDD">運送費合計</td>
					<td align="center">
						<input type="text" name="Unsohi" size="13" value="<% = SetMoney(Unsohi, false, false) %>" readonly class="tbox5_ro">
					</td>
				</tr>
				<tr>
					<td align="center" bgcolor="#DDDDDD">運送費消費税</td>
					<td align="center">
						<input type="text" name="UnsohiSyohizei" size="13" value="<% = SetMoney(UnsohiSyohizei, false, false) %>" readonly class="tbox5_ro">
					</td>
				</tr>
			</table>
			<% If UnsohiButton = 1 Then %>
			<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" HEIGHT="30" onClick="SetUnsohi();SetUntin();SetGokei();" class="tx1416">
				<TR>
					<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2l.gif?<% = GB_STU %>">　</TD>
					<TD WIDTH="150" CLASS="tbtn1" ALIGN="CENTER" VALIGN="MIDDLE" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2c.gif?<% = GB_STU %>">運送費自動計算</TD>
					<TD WIDTH="10" BACKGROUND="/<% = HomeAlias %>/images/dlogbtn_b2r.gif?<% = GB_STU %>">　</TD>
				</TR>
			</TABLE>
			<% End If %>
		<% End If %>
	<% End If %>

		</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) {
		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;
	}



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") {
	<% If BunsyoSyuruiCD = "KW" Then '管理部売渡受付書では運送費請求先が逆になる（101210小野） %>
			form1.UnsohiSeikyuFlg.value = 0;
		} else {
			form1.UnsohiSeikyuFlg.value = 1;
	<% Else %>
			form1.UnsohiSeikyuFlg.value = 1;
		} else {
			form1.UnsohiSeikyuFlg.value = 0;
	<% End If %>
		}
	<% 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()
	{

		SetUntin();

//test
//alert(form1.SenpoKitakuGaisyaCD.value);

		//** １．取引日のチェック
		if(form1.Syoribi.value == "")
		{
			alert("処理日を入力してください　");
			form1.Syoribi.focus();
			return false;
		}

//		if(form1.NonyuBasyoKubun.value == "")
//		{
//			alert("納入場所を入力してください　");
//			form1.NonyuBasyoKubun.focus();
//			return false;
//		}
//
//		if(form1.UntinSyogakariKubun.value == "")
//		{
//			alert("運賃諸掛を入力してください　");
//			form1.UntinSyogakariKubun.focus();
//			return false;
//		}

		if(typeof(form1.UnsoGaisyaCD) == "object")
		{
			if(form1.UnsoGaisyaCD.value == "")
			{
				alert("運送会社を入力してください　");
				form1.UnsoGaisyaCD.focus();
				return false;
			}
		}


		<% If BunsyoSyuruiCD = "KM" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KC" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then %>
		//** １．取引日のチェック
		if(Date.parse(form1.Syoribi.value) > Date.parse(form1.NonyuKijitsu.value))
		{
			alert("<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %>が処理日より古い日付になっています。\r\n正しい日付を入力してください　");
			return false;
		}
		<% End If %>

		if(typeof(form1.ZeikomiKingaku) == "object")
		{
			if(ConvMoneyToInt(form1.ZeikomiKingaku.value) > 900000000000000)
			{
				alert("900,000,000,000,000円以下の金額になるようにデータを修正してください。");
				return false;
			}
		}

		//** ２．取引先のチェック
		if(form1.TorihikisakiCD.value == "")
		{
			alert("取引先を入力してください　");
			form1.TorihikisakiCD.focus();
			return false;
		}

		//061210追加 寄託会社CDのチェック
		<% If Kitakuriyou = 1 Then %>

			//管理部の納品請求書の場合は、寄託会社CDをチェックしない(管理部は寄託倉庫を持たないため)
			//現状ではKVのみとするが、他からアクセスすることがあれば、条件文に追加すること。
			<% If BunsyoSyuruiCD <> "KV" And BunsyoSyuruiCD <> "KW" Then %>
			if(typeof(form1.KitakuGaisyaCD) == "object")
			{
				if(form1.KitakuGaisyaCD.value == "")
				{
					alert("仕入の前に倉庫会社との間に寄託契約を締結してください。\r\n\r\n（寄託契約手続は「社長室・総務部」より行います。）");
					//readonlyなのでフォーカスは特にあてない
					//form1.SenpoKitakuGaisyaCD.focus(); 
					return false;
				}
			}
			<% End If %>
			
			//管理部への買入申込の場合は、先方寄託会社CDをチェックしない(管理部は寄託倉庫を持たないため)
			//現状ではKXのみとするが、他からアクセスすることがあれば、条件文に追加すること。
			<% If BunsyoSyuruiCD <> "KO" And BunsyoSyuruiCD <> "KX" And BunsyoSyuruiCD <> "KP" Then %>
			if(typeof(form1.SenpoKitakuGaisyaCD) == "object")
			{
				if(form1.SenpoKitakuGaisyaCD.value == "")
				{
					alert("取引先が倉庫会社との間で寄託契約を締結しておりません。");
					//readonlyなのでフォーカスは特にあてない
					//form1.SenpoKitakuGaisyaCD.focus(); 
					return false;
				}
			}
			<% End If %>
		
		<% End If %>


		//** １．<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %>のチェック
		if(form1.NonyuKijitsu.value == "")
		{
			alert("<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %>を入力してください　");
			form1.NonyuKijitsu.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(ConvSyohinMeisyo(SyohinCD) == "")
				{
					alert("商品を正しく選択してください　");
					form1["SyohinCD" + ii].focus();
					return false;
				}
				<% If BunsyoSyuruiCD = "KI" OR BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KY" Then %>
				if(form1["Suryo" + ii].value == "")
				{
					alert("数量を入力してください　");
					form1["Suryo" + ii].focus();
					return false;
				}
				if(form1["Suryo" + ii].value == 0)
				{
					alert("数量に0以外の数値を入力してください　");
					form1["Suryo" + ii].focus();
					return false;
				}
				<% ElseIf BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
				if(form1["Suryo" + ii].value == "")
				{
					alert("数量を入力してください　");
					form1["Suryo" + ii].focus();
					return false;
				}
				if(form1["Suryo" + ii].value == 0)
				{
					alert("数量に0以外の数値を入力してください　");
					form1["Suryo" + ii].focus();
					return false;
				}

				if(typeof(form1["Tanka" + ii]) == "object")
				{
					if(form1["Tanka" + ii].value == "")
					{
						alert("単価を入力してください　");
						form1["Tanka" + ii].focus();
						return false;
					}
				}
				
				if(typeof(form1["Tanka" + ii]) == "object")
				{
					if(form1["Tanka" + ii].value == 0)
					{
						alert("単価に0以外の数値を入力してください　");
						form1["Tanka" + ii].focus();
						return false;
					}
				}

				<% End If %>

			}
		}
		if(bExist == 0)
		{
			alert("明細を入力してください　");
			form1.SyohinCD1.focus();
			return false;
		}

		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
		if(typeof(form1.GokeiKingaku) == "object")
		{
			if(ConvMoneyToInt(form1.GokeiKingaku.value) == 0)
			{
				alert("明細を入力してください　");
				form1.SyohinCD1.focus();
				return false;
			}
		}
		<% End If %>


			if(typeof(form1.Unsohi) == "object")
			{
				if(form1.UntinSyogakariKubun.value != "J" && (form1.Unsohi.value == "" || form1.Unsohi.value == "0"))
				{
					if(!confirm("運送費が入力されていませんが、よろしいですか？"))
					{
						form1.Unsohi.focus();
						return false;
					}
				}
			}

		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 = "";
			form1["UnsohiSyohin" + ii].value = "";
		}
		else
		{
			Kingaku = ConvMoneyToInt(form1["Tanka" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value);
			if(!isNaN(Kingaku))form1["Kingaku" + ii].value = ConvIntToMoney(Kingaku, false, false);
			Kingaku = ConvMoneyToInt(form1["UnsoTanka" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value);
			if(!isNaN(Kingaku))form1["UnsohiSyohin" + ii].value = ConvIntToMoney(Kingaku, false, false);
		}
		<% End If %>
	}

	function SetUnsohi()
	{
		<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>

		var Unsohi;
		Unsohi = 0;
		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 (form1["SyohinCD" + ii].value != '') {
				form1["UnsoTanka" + ii].value = ConvIntToMoney(ConvUnsoryoTanka(form1["SyohinCD" + ii].value), false, false);
				form1["UnsohiSyohin" + ii].value = ConvIntToMoney(ConvUnsoryoTanka(form1["SyohinCD" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value), false, false);
			}
			Kingaku = ConvUnsoryoTanka(form1["SyohinCD" + ii].value) * ConvMoneyToInt(form1["Suryo" + ii].value)
			if(Kingaku == "" || Kingaku == "isNaN")Kingaku = 0;
			Unsohi = Unsohi + Kingaku;
		}

		form1["Unsohi"].value = ConvIntToMoney(Unsohi , false, false);
		form1["UnsohiSyohizei"].value = ConvIntToMoney(Math.floor(Unsohi * <% = StdTaxRateUnso %> / 100));
		<% End If %>
	}


//################################################
//	名称：SetGokei
//	目的：合計金額、消費税額、税込金額　をセットする。
//################################################
	function SetGokei() {
		//運送単価が指定された場合のみ運送費を更新する（グロス入力のため）（110628小野）
		var Unsohiflg = 0;

	<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %>
		var gokei;
		var TaxRate;
		var zei;
		var Unsohi;
		var ii;

		zei = 0;
		gokei = 0;
		Unsohi = 0;
		for (ii = 1; ii<=5; ii=ii+1) {
			var Kingaku;
			var UnsohiTmp;
			Kingaku = ConvMoneyToInt(form1["Kingaku" + ii].value);
			UnsohiTmp = ConvMoneyToInt(form1["UnsohiSyohin" + ii].value);
			if (Kingaku == "") Kingaku = 0;
			if (UnsohiTmp == "") UnsohiTmp = 0;
			if (isNaN(Kingaku)) {
				alert("10桁を超えた金額があります");
				Kingaku = 0;
				form1["Kingaku" + ii].value = "";
				form1["Tanka" + ii].value = "";
			}
			if (isNaN(UnsohiTmp)) {
				alert("10桁を超えた金額があります");
				UnsohiTmp = 0;
				form1["UnsohiSyohin" + ii].value = "";
				form1["UnsoTanka" + ii].value = "";
			}
			TaxRate = form1["TaxRate" + ii].value;
			if (TaxRate != "" && !isNaN(TaxRate)) {
				TaxRate = parseFloat(TaxRate); //小数あり注意！
			} else {
				TaxRate = 0;
			}
			zei = zei + ((Kingaku * TaxRate) / 100);
			gokei = gokei + Kingaku;
			Unsohi = Unsohi + UnsohiTmp;
			if (UnsohiTmp > 0) Unsohiflg = 1; //運送単価を利用するフラグ
		}

		form1["GokeiKingaku"].value = ConvIntToMoney(gokei, false, false);
		//運送単価が指定された場合のみ運送費を更新する（運送費グロス入力の場合は更新させないため）（110628小野）
		if (Unsohiflg == 1) {
			form1["Unsohi"].value = ConvIntToMoney(Unsohi, false, false);
		}
		form1["UnsohiSyohizei"].value = ConvIntToMoney(Math.floor(ConvMoneyToInt(form1["Unsohi"].value) * <% = StdTaxRateUnso %> / 100));
		SetUntin();
		var UnsohiSeikyugaku;
		UnsohiSeikyugaku = ConvMoneyToInt(form1["UnsohiSeikyugaku"].value);
		if (UnsohiSeikyugaku == "" || UnsohiSeikyugaku == "isNaN") {
			UnsohiSeikyugaku = 0;
		}
		gokei = gokei + UnsohiSeikyugaku;
		//zei = gokei * <% = GB_Shohizei %> / 100;
		zei = zei + (ConvMoneyToInt(form1["UnsohiSyohizei"].value) * ConvMoneyToInt(form1.UnsohiSeikyuFlg.value)); //買主負担の場合のみ運送費消費税を加算
		zei = Math.floor(zei);

		form1["UnsohiSeikyugaku"].value = ConvIntToMoney(UnsohiSeikyugaku, false, false) ;
		form1["SyohizeiKingaku"].value = ConvIntToMoney(zei, false, false) ;
		form1["ZeikomiKingaku"].value = ConvIntToMoney(gokei + zei, false, false);

		<% End If %>
	}


	function SetSyohinCD(F_SyohinCD)
	{
		document.form1["SyohinCD" + iiflag].value = F_SyohinCD;
	}

//################################################
//	名称：SetSyohinKakaku
//	目的：商品標準価格をセットする。
//　作成：2002/9/12　山崎
//################################################
	function SetSyohinKakaku(ii)
	{
		form1["Kakaku" + ii].value = ConvIntToMoney(ConvSyohinHanbaiTanka(document.form1["SyohinCD" + ii].value));
		form1["TaxRate" + ii].value = ConvSyohinTaxRate(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 "";
	}


//################################################
//	名称：ConvSyohinTaxRate
//################################################
	function ConvSyohinTaxRate(SyohinCD) {
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		If "" & Content.Fields("標準消費税率") <> "" And GB_ShohizeiMode = 1 Then
			Response.Write("		if (SyohinCD == """ & Content.Fields("商品CD") & """) return """ & Content.Fields("標準消費税率") & """;" & vbCrLf)
		Else
			Response.Write("		if (SyohinCD == """ & Content.Fields("商品CD") & """) return """ & StdTaxRate & """;" & vbCrLf)
		End If
		Content.MoveNext
	Loop
%>
		return "<% = StdTaxRate %>";
	}


//################################################
//	名称：ConvUnsoryoTanka
//	目的：運送料単価の表示
//　作成：2003/10/3　川崎
//　概要：TS商品Mの運送料単価を返す。
//################################################
	function ConvUnsoryoTanka(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 "";
	}


	function SetSyohinSetsumei1(SyohinCD)
	{
		SetSyohinSetsumei(SyohinCD)
	}

	function SetSyohinSetsumei2(SyohinCD)
	{

	}

	function SetSyohinSetsumei(SyohinCD)
	{

		var GazoFile, UnsoryoTanka, SyohinMeisyo, tmp;
		GazoFile = ConvSyohinGazoFile(SyohinCD);

		SyohinMeisyo = ConvSyohinMeisyo(SyohinCD);
		UnsoryoTanka = ConvUnsoryoTanka(SyohinCD);
		SyohinSetsumei = ConvSyohinSetsumei(SyohinCD);
		BikouWidth = "158";
		BikouHeight = "69";

		if(SyohinCD != "")
		{
			tmp =  "<TABLE BORDER='0' width='100%' CELLSPACING='0' CELLPADDING='1' class='tx1214'>\r\n";
//			tmp = tmp + "<tr><td>" + SyohinMeisyo + "</td></tr>\r\n";
//			tmp = tmp + "<tr><td colspan='2'><span style='width:156px; height:14px; overflow:hidden'>" + SyohinMeisyo + "</span></td></tr>\r\n";
//			tmp = tmp + "<tr><td colspan='2'>運送単価： " + ConvIntToMoney(UnsoryoTanka, false, false) + " 円</td></tr>\r\n";
			tmp = tmp + "<tr><td colspan='2'><div style='width:158px; height:14px; overflow:hidden'>" + SyohinMeisyo + "</div>\r\n";
			tmp = tmp + "運送単価： " + ConvIntToMoney(UnsoryoTanka, false, false) + " 円</td></tr>\r\n";
			tmp = tmp + "<tr>"; 
		<% If BunsyoSyuruiCD <> "KV" AND BunsyoSyuruiCD <> "KW" Then %>
			if(GazoFile != "") {
				tmp = tmp + "<td><img height='69' width='92' src='" + GazoFile + "'></td>\r\n"; 
				BikouWidth = "64";
			}
			tmp = tmp + "<td width='160'><span style='width:" + BikouWidth + "px; height:" + BikouHeight + "px; overflow:hidden'>" + SyohinSetsumei + "</span></td>\r\n";
		<% End If %>
			tmp = tmp + "</tr>\r\n";
			tmp = tmp + "</table>\r\n";

			if(document.all.Setsumei.rows.length != 2)
			{
				document.all.Setsumei.insertRow();
				document.all.Setsumei.rows[1].insertCell();
			}
			document.all.Setsumei.rows[1].cells[0].innerHTML = tmp;
		}
		else
		{
			if(document.all.Setsumei.rows.length == 2)
			{
				document.all.Setsumei.deleteRow(1);
			}
			tmp = "";
		}

	}

//################################################
//	名称：ConvSyohinGazoFile
//	目的：商品画像ファイルの表示
//　作成：2003/10/3　川崎
//　概要：TS商品Mの：商品画像ファイルを返す。
//################################################
	function ConvSyohinGazoFile(SyohinCD)
	{
<%
	Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF Or Content.EOF)
		Dim ImageFile
		ImageFile = ""
		If Content.Fields("画像ファイル") <> "" Then
			ImageFile = Fgoods & "/" & EnshuCD & "/" & Content.Fields("画像ファイル")
		End If

		Response.Write("if(SyohinCD == """ & Content.Fields("商品CD") & """)return """ & ImageFile & """;" & 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 "";
	}
//################################################
//	名称：ConvSyohinRyakuMeisyo
//	目的：商品名の表示
//　作成：2002/8/26　川崎
//　概要：TS商品Mの標準販売単価を返す。
//################################################
	function ConvSyohinRyakuMeisyo(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 "";
	}

//################################################
//	名称：ConvSyohinRyakuMeisyo
//	目的：商品名の表示
//　作成：2002/8/26　川崎
//　概要：TS商品Mの標準販売単価を返す。
//################################################
	function ConvSyohinSetsumei(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 "";
	}



//寄託倉庫を利用する設定で使用するスクリプトを作成
<% If Kitakuriyou = 1 Then %>
	
//################################################
//	名称：SetSenpoKitakuGaisya
//	目的：先方寄託倉庫会社をセットする。
//  作成：2006/12/10 鈴木
//################################################
	function SetSenpoKitakuGaisya()
	{
		form1.SenpoKitakuGaisyaCD.value = ConvKitakuGaisya(document.form1.TorihikisakiCD.value);
		form1.SenpoKitakuGaisyaMei.value = ConvKaisyaMei(ConvKitakuGaisya(document.form1.TorihikisakiCD.value));

	}
	
//################################################
//	名称：ConvKitakuGaisya
//	目的：寄託倉庫会社表示
//  作成：2006/12/10 鈴木
//  概要：TDA会社Mの寄託会社CDを返す
//################################################
	function ConvKitakuGaisya(KaisyaCD)
	{
	<%

	Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '1'"
	Set Content = OpenQuery(Query)

		Do While Not(Content.BOF Or Content.EOF)
			Response.Write("if(KaisyaCD == """ & Content.Fields("会社CD") & """)return """ & Content.Fields("寄託会社CD") & """;" & vbCrLf)
			Content.MoveNext
		Loop
	%>
		return "";
	}

//################################################
//	名称：ConvKaisyaMei
//	目的：会社名表示
//  作成：2006/12/10 鈴木
//  概要：TDA会社Mの会社名称を返す
//################################################
	function ConvKaisyaMei(KaisyaCD)
	{
	<%

	Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '1'"
	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 "";
	}

<% End If %>
//寄託利用スクリプトここまで

</SCRIPT>
<% = HtmlFooter %>

<SCRIPT FOR="window" EVENT="onload" LANGUAGE="JavaScript">

<%
	If BunsyoNaiyoCD = "" And InStr(ShiireUriageKennin, ";" & BunsyoSyuruiCD & ";") > 0 Then
		'既に作成されている検認済み書類の存在チェック（二重作成抑止のため）
		Query = "exec SPD仕入売上書類一覧 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & KaisyaCD & "', '" & BunsyoSyuruiCD & "'"
		Set Content = OpenQuery(Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("検認フラグ") = "1" And "" & Content.Fields("発行フラグ") <> "1" And "" & Content.Fields("削除フラグ") <> "1" Then
%>
	alert("まだ発信されていない発信許可済みの書類が存在しています。　\n発信許可済みの書類を発信する場合は、画面上部の　\n「一覧表示」から発信したい文書を開いて発信してください。　\n\nこの画面で同じ書類を作成すると二重作成になってしまうので注意！　");
<%
				Exit Do
			End If
			Content.MoveNext
		Loop
	End If
%>

//	form1.Syoribi.select;
//	form1.Syoribi.focus();
//	form1.Syoribi.select();
	event.returnValue = false;
	return;

</SCRIPT>

</html>
<%
End Sub
%>