<!-- #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 %>