
<!-- #include file="../../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：寄託在庫明細情報更新
'	 作成日：2006/12/21
'	 作成者：ジャワネット
'	 目的  ：寄託在庫明細情報の更新
'	 概要	：
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action
	Dim SakuseiKaisyaCD                   '作成会社CD
	Dim KitakuIraiKaisyaCD                '寄託依頼会社CD
	Dim KitakuNo                          '寄託受付番号
	Dim KitakuNoSEQ                       '寄託受付番号SEQ
	Dim KitakuFrom								        '寄託期間始
	Dim KitakuTo								          '寄託期間終
	Dim NyukoNengappi								      '入庫年月日
	Dim Basyo									            '倉庫場所
	Dim SokoBetsu								          '倉庫種別
	Dim Syoribi                           '処理日
	Dim DelFlag                           '削除フラグ
	Dim YukoFlag                          '有効フラグ
	Dim GakuseiNo                         '学生番号
	
	Dim SyohinCD												  '商品コード
	Dim KitakuSuryo                       '数量
	Dim Tanka                             '仕入単価
	Dim UnsoTanka                         '運送単価
	Dim TotalSyukosu                      '総出庫数
	Dim Tekiyo                            '摘要
	
	Dim KasaiHokenKin                     '火災保険料金
	Dim Ryoritsu                          '火災保険料率
	Dim Niekiryokin                       '荷役料金
	Dim Niyakuritsu                       '荷役料率
	Dim Jyoryoritsu                       '従量率
	Dim Jyokaritsu                        '従価率
	Dim Hokanryokin                       '保管料金
	Dim SyokenNum                         '倉荷証券番号
	Dim SyokenTesuryo                     '倉荷証券発行手数料
	Dim SyokenHakkoFlag                   '倉荷証券発行フラグ
	Dim SyokenSeikyuFlag                  '倉荷証券請求フラグ
	Dim SyokenKaisyuFlag                  '倉荷証券回収フラグ
	Dim SyokenKaisyubi                    '倉荷証券回収日
	

	Dim GokeiKingaku
	Dim Syohizeigaku
	Dim ZeikomiKingaku
	Dim SyukoZandaka

	Dim SyohinJyuryo
	Dim SyohinYoseki

	Dim Query
	Dim Content

	Action = Request("Action")

	SakuseiKaisyaCD = Request("SakuseiKaisyaCD")
	KitakuIraiKaisyaCD = Request("KitakuIraiKaisyaCD")
	KitakuNo = Request("KitakuNo")
	KitakuNoSEQ = Request("KitakuNoSEQ")
	
	Basyo = Request("Basyo")
	KitakuFrom = Request("KitakuFrom")
	KitakuTo = Request("KitakuTo")
	KitakuSuryo = ConvMoneyToInt(Request("KitakuSuryo"))
	NyukoNengappi = Request("NyukoNengappi")
	SokoBetsu = Request("SokoBetsu")
	Tekiyo = Request("Tekiyo")
	Jyokaritsu = ConvMoneyToInt(Request("Jyokaritsu"))
	Jyoryoritsu = ConvMoneyToInt(Request("Jyoryoritsu"))
	Niyakuritsu = ConvMoneyToInt(Request("Niyakuritsu"))
'	SyokenNum = ConvMoneyToInt(Request("SyokenNum"))
	SyokenNum = Request("SyokenNum")
	SyokenTesuryo = ConvMoneyToInt(Request("SyokenTesuryo"))
	Ryoritsu = ConvMoneyToInt(Request("Ryoritsu"))

	KasaiHokenKin = ConvMoneyToInt(Request("KasaiHokenKin"))
	
	Query = "exec SPD寄託商品明細更新 '" & GB_SystemCD & "'"
	Query = Query & ",'" & EnshuCD &	"'"
	Query = Query & ",'" & KaisyaCD &	"'"
	Query = Query & ",'" & SakuseiKaisyaCD &	"'"
	Query = Query & ",'" & KitakuIraiKaisyaCD &	"'"
	Query = Query & ",'" & KitakuNo &	"'"
	Query = Query & ",'" & KitakuNoSEQ &	"'"

	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 NyukoNengappi="" then
		Query = Query & ",null"
	Else
		Query = Query & ",'" & NyukoNengappi &	"'"
	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 KitakuSuryo="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & KitakuSuryo
	End If
	
	If KasaiHokenKin="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & KasaiHokenKin
	End If
	
	If Ryoritsu="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & Ryoritsu
	End If
	
	If Niyakuritsu="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & Niyakuritsu
	End If
	
	If Jyokaritsu="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & Jyokaritsu
	End If
	
	If Jyoryoritsu="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & Jyoryoritsu
	End If
	
'	If SyokenNum="" then
'		Query = Query & ",null"
'	Else
'		Query = Query & "," & SyokenNum
'	End If
	Query = Query & ", '" & SyokenNum & "'"
	
	If SyokenTesuryo="" then
		Query = Query & ",null"
	Else
		Query = Query & "," & SyokenTesuryo
	End If

	Query = Query & ",'" & Tekiyo &	"'"
	
	'Response.Write("Query:" & Query)
	'Exit Sub
	
	Set Content = OpenQuery(Query)
	
	Response.Redirect("fu_kitaku.asp?Action=2&SakuseiKaisyaCD=" & SakuseiKaisyaCD & "&KitakuIraiKaisyaCD=" & KitakuIraiKaisyaCD & "&KitakuNo=" & KitakuNo & "&KitakuNoSEQ=" & KitakuNoSEQ)

End Sub
%>