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

<%
'<!--
'################################################
'	 名称	：寄託情報更新処理
'	 作成日：2002/12/20
'	 作成者：重松
'	 目的　：寄託情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正日：
'	修正者：
'	 fu_hoken_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action							'処理区分
	Dim EnshuName				'演習CD、 演習名称
	Dim TekiyoCD				'摘要コード、摘要
	Dim KanrenKaisyaCD	'会社コード、関連会社コード

	Dim MousikomiNum	'申込番号
	Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo
	Dim Tanka															'単価
	Dim Suryo															'数量
	Dim Kakaku																	'標準価格
	Dim Kingaku																 '金額
	Dim Ryoritsu																'料率
	Dim HSyubetsuCode													 '保険種別CD
	Dim Biko																		'備考
	Dim Mosikomibi


	'寄託
	Dim KitakuNo								'寄託者受付番号
	Dim KitakuCD								'寄託者CD
	Dim KitakuName								'寄託者名称
	Dim SyohinCD																'商品コード
	Dim KitakuFrom								'寄託期間始
	Dim KitakuTo								'寄託期間終
	Dim KitakuSuryo								'寄託数量
	Dim Basyo									'倉庫場所
	Dim SokoBetsu								'倉庫種別
	Dim TotalSyukosu							'総出庫数
	Dim SyukoZentaka							'出庫残高
	Dim NyukoNengappi								'入庫年月日
	Dim NyukoSuryo								'入庫数量
	Dim Tekiyo									'摘要
	Dim Jyokaritsu								'従価率
	Dim Jyoryoritsu								'従量率
	Dim Niyakuritsu								'荷役率
	Dim HanbaiTanka								'単価
	Dim SyohinJyuryo							'単量
	Dim Nisugata								'荷姿
	Dim Saisu								'才数
	Dim SyokenNum								'倉荷証券番号
	Dim SyokenTesuryo							'証券手数料
	Dim HokenTanka								'火災保険単価
	Dim HokenSougaku							'火災保険総額
	Dim KasaiHokenKin							'火災保険料金
	Dim KasaiRyoritsu							'火災保険料率
	Dim HokenRyokin														 '保険料金
	Dim NiyakuKin								'荷役料金
	Dim HokanSougaku								'保管料

	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts

	Action = Request("Action")




	KitakuNo = Request("KitakuNo")
	KitakuCD = Request("KitakuCD")
	KitakuName=ConvKaisyaMeisyoDx(EnshuCD, KitakuCD)
	KitakuName = Request("KitakuName")
	SyohinCD = Request("SyohinCD")
	KitakuFrom = Request("KitakuFrom")
	KitakuTo = Request("KitakuTo")
	KitakuSuryo = Request("KitakuSuryo")
	Basyo = Request("Basyo")
	TotalSyukosu = Request("TotalSyukosu")
	SyukoZentaka = Request("SyukoZentaka")
	NyukoNengappi = Request("NyukoNengappi")
	SokoBetsu = Request("SokoBetsu")
	Tekiyo = Request("Tekiyo")
	Jyokaritsu = Request("Jyokaritsu")
	Jyoryoritsu = Request("Jyoryoritsu")
	Niyakuritsu = Request("Niyakuritsu")
	SyokenNum = Request("SyokenNum")
	SyokenTesuryo = Request("SyokenTesuryo")
	HokenTanka = Request("HokenTanka")
	HokenSougaku = Request("HokenSougaku")
	KasaiHokenKin = Request("KasaiHokenKin")
	KasaiRyoritsu = Request("KasaiRyoritsu")
	HokenRyokin = Request("HokenRyokin")
	HokanSougaku = Request("HokanSougaku")
	NiyakuKin = Request("NiyakuKin")
	NyukoSuryo = Request("NyukoSuryo")
	HanbaiTanka = Request("HanbaiTanka")
	SyohinJyuryo = Request("SyohinJyuryo")
	Nisugata = Request("Nisugata")
	Saisu = Request("Saisu")

	If IsNull(KitakuCD) then
		KitakuCD=""
	Else
		KitakuName=ConvKaisyaMeisyoDx(EnshuCD, KitakuCD)
	End If

	If KitakuNo = "" Then
		KitakuNo = "null"
	End If

	ErrMsg = Request("ErrMsg")
	rsts =	True

	If rsts = False Then
		Ng = "fu_hoken.asp?action=" & Action & "&nr=r"
		Ng = Ng & "&KitakuNo=" & KitakuNo & "&KitakuCD=" & KitakuCD
		Ng = Ng & "&KitakuFrom=" & KitakuFrom & "&KitakuTo=" & KitakuTo
		Ng = Ng & "&KitakuSuryo=" & KitakuSuryo & "&Basyo=" & Basyo
		Ng = Ng & "&NyukoSuryo=" & NyukoSuryo & "&Tekiyo=" & Tekiyo
		Ng = Ng & "&TotalSyukosu=" & TotalSyukosu & "&SyukoZentaka=" & SyukoZentaka
		Ng = Ng & "&KasaiHokenKin=" & KasaiHokenKin & "&KasaiRyoritsu=" & KasaiRyoritsu
		Ng = Ng & "&HokenRyokin=" & HokenRyokin
		Ng = Ng & "&HokanSougaku=" & HokanSougaku
		Ng = Ng & "&NiyakuKin=" & NiyakuKin
		Ng = Ng & "&Jyoryoritsu=" & Jyoryoritsu
		Ng = Ng & "&Jyokaritsu=" & Jyokaritsu
		Ng = Ng & "&Niyakuritsu=" & Niyakuritsu
		Ng = Ng & "&SyokenNum=" & SyokenNum
		Ng = Ng & "&SyokenTesuryo=" & SyokenTesuryo
		Ng = Ng & "&HanbaiTanka=" & HanbaiTanka
		Ng = Ng & "&SyohinJyuryo=" & SyohinJyuryo
		Ng = Ng & "&Nisugata=" & Nisugata
		Ng = Ng & "&Saisu=" & Saisu
		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 & "', "& KitakuNo &""
		Set Content = OpenQuery(Query)
		Response.Redirect("fu_kitaku_ichiran.asp" )
	Else
		Query = "exec SPC寄託更新 '" & GB_SystemCD & "'," &	Action
		Query = Query & ",'" & EnshuCD &	"'"
		Query = Query & ",'" & KaisyaCD &	"'"

		Query = Query & "," & KitakuNo

		If KitakuCD="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & KitakuCD &	"'"
		End If

		If KitakuName="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & KitakuName &	"'"
		End If

		Query = Query & ",'" & SyohinCD &	"'"

		If KitakuFrom="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & KitakuFrom &	"'"
		End If

		If KitakuTo="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & KitakuTo &	"'"
		End If

		If not isnumeric(KitakuSuryo) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(KitakuSuryo)
		End If

		If Basyo="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & Basyo &	"'"
		End If

		If SokoBetsu="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & SokoBetsu &	"'"
		End If

		If NyukoNengappi="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & NyukoNengappi &	"'"
		End If

		If not isnumeric(NyukoSuryo) or NyukoSuryo="" then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(NyukoSuryo)
		End If

		If not isnumeric(HanbaiTanka) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(HanbaiTanka)
		End If

		If not isnumeric(SyohinJyuryo) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(SyohinJyuryo)
		End If

		Query = Query & ",'" & NiSugata &	"'"

		If not isnumeric(Saisu) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(Saisu)
		End If

		If Tekiyo="" then
			Query = Query & ",null"
		Else
			Query = Query & ",'" & Tekiyo &	"'"
		End If

		If not isnumeric(TotalSyukosu) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(TotalSyukosu)
		End If

		If not isnumeric(SyukoZentaka) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(SyukoZentaka)
		End If

		If not isnumeric(KasaiHokenKin)	or KasaiHokenKin="" then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(KasaiHokenKin)
		End If

		If not isnumeric(KasaiRyoritsu)	or KasaiRyoritsu="" then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(KasaiRyoritsu)
		End If

'		Query = Query & ",null"

		If not isnumeric(HokanSougaku) or HokanSougaku=""	then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(HokanSougaku)
		End If

		If not isnumeric(NiyakuKin) or NiyakuKin=""	then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(NiyakuKin)
		End If

		If not isnumeric(Jyoryoritsu) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(Jyoryoritsu)
		End If

		If not isnumeric(Jyokaritsu) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(Jyokaritsu)
		End If

		If not isnumeric(Niyakuritsu) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(Niyakuritsu)
		End If

'		If not isnumeric(SyokenNum) then
'			Query = Query & ",null"
'		Else
'			Query = Query & "," & ConvMoneyToInt(SyokenNum)
'		End If
		Query = Query & ", '" & SyokenNum & "'"

		If not isnumeric(SyokenTesuryo) then
			Query = Query & ",null"
		Else
			Query = Query & "," & ConvMoneyToInt(SyokenTesuryo)
		End If

	End If
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	Response.Redirect("fu_kitaku_view.asp?KitakuNo=" & rsts )

End Sub
%>