
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：運送契約情報更新処理
'	作成日：2003/02/04
'	作成者：重松
'	目的　：運送契約情報の更新（追加・修正・削除）処理を行う。
'	概要	：
'		<<表示>>
'	・無し
'
'	修正日：
'	修正者：
'	fu_keiyaku_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action							'処理区分
	Dim EnshuName				'演習CD、 演習名称
	Dim TekiyoCD				'摘要コード、摘要
	Dim	KanrenKaisyaCD	'会社コード、関連会社コード


	'運送契約
	Dim keiyakuNo								'契約申込番号
	Dim TorihikisakiCD							'取引先CD
	Dim TorihikisakiName						'取引先名称
	Dim Mosikomibi								'申込年月日
	Dim SyohinCD																'商品コード
	Dim Suryo										'数量
	Dim Tanka										'単価
	Dim NiukesakiCD								'荷受取引先CD
	Dim NiukesakiName							'荷受取引先名称
	Dim NiokusakiCD								'荷送取引先CD
	Dim NiokusakiName							'荷送取引先名称
	Dim Unchin									'運賃
	Dim chikuwariRyo							'地区割増料
	Dim HokenRyokin								'保険料金
	Dim Ryoritsu								'料率
	Dim NizouRyokin								'荷造料金
	Dim SekyuKingaku							'請求金額
	Dim Biko																		'備考
	Dim Biko2																		'備考

	Dim Syohinjyuryo							'商品重量
	Dim Syohinyouseki							'商品容積
	Dim Goukeijyuryo							'合計重量
	Dim Goukeiyouseki							'合計容積

	Dim TelTo									'TEL着
	Dim YubinTo									'郵便番号着
	Dim JyusyoTo1								'住所着１
	Dim JyusyoTo2								'住所着２
	Dim TelFrom									'TEL発
	Dim YubinFrom								'郵便番号発
	Dim JyusyoFrom1								'住所発１
	Dim JyusyoFrom2								'住所発２

	Dim SyoKingaku							'小計金額
	Dim Syouhizei							'消費税額
	Dim Goukeikinngaku						'合計金額



	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts

	Action = Request("Action")



	keiyakuNo = Request("keiyakuNo")
	TorihikisakiCD = Request("TorihikisakiCD")
	Mosikomibi = Request("Mosikomibi")
	SyohinCD = Request("SyohinCD")
	Suryo = Request("Suryo")
	Tanka = Request("Tanka")
	NiukesakiCD = Request("NiukesakiCD")
	NiokusakiCD = Request("NiokusakiCD")
	Unchin = Request("Unchin")
	chikuwariRyo = Request("chikuwariRyo")
	HokenRyokin = Request("HokenRyokin")
	Ryoritsu = Request("Ryoritsu")
	NizouRyokin = Request("NizouRyokin")
	Goukeikinngaku = Request("Goukeikinngaku")
	Biko = Request("Biko")
	ErrMsg = Request("ErrMsg")

	If keiyakuNo = "" Then
		keiyakuNo = "null"
	End if


	'計算用データ
	Dim Unchin0
	Unchin0 = Request("Unchin0")
	Dim Juryo1
	Juryo1 = Request("Juryo1")
	Dim Ryoritsu1
	Ryoritsu1 = Request("Ryoritsu1")
	Dim Tani1
	Tani1 = Request("Tani1")
	Dim Juryo4
	Juryo4 = Request("Juryo4")
	Dim Ryoritsu4
	Ryoritsu4 = Request("Ryoritsu4")
	Dim Tani4
	Tani4 = Request("Tani4")
	Dim Wariritsu
	Wariritsu = Request("Wariritsu")
	

	Query = "exec SPC運送契約取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& keiyakuNo &""
	Set Content = OpenQuery(Query)

	If Not(Content.BOF Or Content.EOF) Then
		If Action = "1" Then
			ErrMSG = "このコードはすでに登録済みです。"
			rsts =	False
		Else
			rsts =	True
		End If
	Else
		If Action = "1" Then
			rsts =	True
		Else
			ErrMSG = "対象摘要は存在しません。"
			rsts =	False
		End If
	End If

	If rsts = False Then
		Ng = "fu_keiyaku.asp?action=" & Action & "&nr=r" & "&EnshuCD=" & EnshuCD
		Ng = Ng & "&KaisyaCD=" & KaisyaCD & "&keiyakuNo=" & keiyakuNo & "&TorihikisakiCD=" & TorihikisakiCD
		Ng = Ng & "&Mosikomibi=" & Mosikomibi & "&SyohinCD=" & SyohinCD
		Ng = Ng & "&Suryo=" & Suryo & "&Tanka=" & Tanka & "&NiukesakiCD=" & NiukesakiCD
		Ng = Ng & "&NiokusakiCD=" & NiokusakiCD & "&Unchin=" & Unchin
		Ng = Ng & "&chikuwariRyo=" & chikuwariRyo & "&HokenRyokin=" & HokenRyokin & "&Ryoritsu=" & Ryoritsu
		Ng = Ng & "&NizouRyokin=" & NizouRyokin & "&Goukeikinngaku=" & Goukeikinngaku
		Ng = Ng & "&Biko=" & Biko
		Ng = Ng & "&ErrMSG=" & ErrMSG
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Action = 4 Then
		Query = "exec SPC運送契約削除 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& keiyakuNo &""
		Set Content = OpenQuery(Query)
		Response.Redirect("fu_keiyaku_ichiran.asp")
		Exit Sub
	Else
		Query = "exec SPC運送契約更新 '" & GB_SystemCD & "'," &	Action
		Query = Query & ",'" & EnshuCD &	"'"
		Query = Query & ",'" & KaisyaCD &	"'"
		Query = Query & "," & keiyakuNo
		if TorihikisakiCD="" then
			Query = Query & ",null"
		else
			Query = Query & ",'" & TorihikisakiCD &	"'"
		end if

		if Mosikomibi="" then
			Query = Query & ",null"
		else
			Query = Query & ",'" & Mosikomibi &	"'"
		end if

		if NiukesakiCD="" then
			Query = Query & ",null"
		else
			Query = Query & ",'" & NiukesakiCD &	"'"
		end if

		if NiokusakiCD="" then
			Query = Query & ",null"
		else
			Query = Query & ",'" & NiokusakiCD &	"'"
		end if

		Query = Query & ",'" & SyohinCD &	"'"

		if not isnumeric(Suryo) then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(Suryo)
		end if

		if not isnumeric(Tanka) then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(Tanka)
		end if

		if not isnumeric(Unchin) or Unchin="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(Unchin)
		end if

		if not isnumeric(chikuwariRyo)	or chikuwariRyo="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(chikuwariRyo)
		end if

		if not isnumeric(HokenRyokin)	or HokenRyokin="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(HokenRyokin)
		end if

		if not isnumeric(Ryoritsu)	or Ryoritsu="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(Ryoritsu)
		end if

		if not isnumeric(NizouRyokin)	or NizouRyokin="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(NizouRyokin)
		end if

		if not isnumeric(Goukeikinngaku)	or Goukeikinngaku="" then
			Query = Query & ",null"
		else
			Query = Query & "," & ConvMoneyToInt(Goukeikinngaku)
		end if

		if Biko="" then
			Query = Query & ",null"
		else
			Query = Query & ",'" & Biko &	"'"
		end if

		'計算用データ
		Query = Query & ", '" & Unchin0 & "'"
		Query = Query & ", '" & Juryo1 & "'"
		Query = Query & ", '" & Ryoritsu1 & "'"
		Query = Query & ", '" & Tani1 & "'"
		Query = Query & ", '" & Juryo4 & "'"
		Query = Query & ", '" & Ryoritsu4 & "'"
		Query = Query & ", '" & Tani4 & "'"
		Query = Query & ", '" & Wariritsu & "'"

	End If

	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	Response.Redirect("fu_keiyaku_view.asp?keiyakuNo=" & rsts)

End Sub
%>