<% Function Uosokitaku(EnshuCD, KaisyaCD, KitakuNo, AutoFlg, PrintFlg) Dim EnshuName Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim Tanka '単価 Dim Suryo '数量 Dim Kakaku '標準価格 Dim Kingaku '金額 Dim Ryoritsu '料率 Dim HSyubetsuCode '保険種別CD Dim Biko '備考 Dim Mosikomibi Dim KaisyaName Dim HokenName '寄託 ' Dim KitakuNo '寄託者受付番号 Dim KitakuCD '寄託者CD Dim KitakuName '寄託者名称 Dim SyohinCD '商品コード Dim SyohinName '商品名称 Dim KitakuFrom '寄託期間始 Dim KitakuTo '寄託期間終 Dim KitakuSuryo '寄託数量 Dim Basyo '倉庫場所 Dim TotalSyukosu '総出庫数 Dim SyukoZentaka '出庫残高 Dim NyukoNengappi '入庫年月日 Dim NyukoSuryo '入庫数量 Dim SokoBetsu '倉庫種別 Dim SokoBetsuName '倉庫種別名 Dim Tekiyo '摘要 Dim Jyokaritsu '従価率 Dim Jyoryoritsu '従量率 Dim Niyakuritsu '荷役率 Dim HanbaiTanka '単価 Dim SyohinJyuryo '単量 Dim Nisugata '荷姿 Dim Saisu '才数 Dim SyokenNum '倉荷証券番号 Dim SyokenTesuryo '証券手数料 Dim KasaiHokenKin '火災保険単価 Dim KasaiHokenKinSogaku '火災保険総額 Dim KasaiHokenRitsu '火災保険料率 Dim HokenRyokin '保険料金 Dim NiyakuKin '荷役料金 Dim HokanRyokin Dim Soka Dim SokaSen Dim Soryo Dim SoryoTon Dim HanbaiTankaMST '標準販売単価 Dim SyohinJyuryoMST '商品重量 Dim SyohinYosekiMST '商品容積 Dim Query Dim Content 'MousikomiNum = Request("MousikomiNum") ' KitakuNo = Request("KitakuNo") '対象データＧＥＴ保険情報取得 Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& KitakuNo &"" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuCD = Content.Fields("寄託者CD") KitakuName = ConvKaisyaMeisyoDx(EnshuCD, KitakuCD) SyohinCD = Content.Fields("商品CD") SyohinName = ConvSyohinRyakuMeisyo(SyohinCD) KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日")) KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日")) KitakuSuryo = Content.Fields("寄託数量") Basyo = Content.Fields("倉庫場所") TotalSyukosu = Content.Fields("総出庫数") SyukoZentaka = Content.Fields("残高") NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日")) SokoBetsu = Content.Fields("倉庫種別") SokoBetsuName = ConvKubunMeisyo("倉庫種別", Content.Fields("倉庫種別")) Tekiyo = Content.Fields("摘要") Jyokaritsu = Content.Fields("従価率") Jyoryoritsu = Content.Fields("従量率") Niyakuritsu = Content.Fields("荷役料率") SyokenNum = Content.Fields("倉荷証券番号") SyokenTesuryo = Content.Fields("倉荷証券発行手数料") NiyakuKin = Content.Fields("荷役料金") HokanRyokin = Content.Fields("保管料金") HanbaiTanka = Content.Fields("単価") SyohinJyuryo = Content.Fields("単量") Nisugata = Content.Fields("荷姿") Saisu = Content.Fields("才数") KasaiHokenKin = Content.Fields("火災保険料金") '火災保険単価 KasaiHokenRitsu = Content.Fields("火災保険料率") '火災保険料率 End If 'オーバーフロー対策（入力側で対策したが既に入力済みのオーバーフローデータが開けないので） If SyohinJyuryo * KitakuSuryo > 9999999999 Then SyohinJyuryo = 1 End If Soka = 0 Soryo = 0 If "" & KitakuSuryo <> "" And KitakuSuryo > 0 Then If "" & HanbaiTanka <> "" And HanbaiTanka > 0 Then Soka = HanbaiTanka * KitakuSuryo End If If "" & SyohinJyuryo <> "" And SyohinJyuryo > 0 Then '1トン未満を切り上げた総量 Soryo = Fix((SyohinJyuryo * KitakuSuryo) / 1000) If (SyohinJyuryo * KitakuSuryo) Mod 1000 > 0 Then Soryo = Soryo + 1 End If End If End If Query = "exec SPM商品一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & GB_GakuseiNo & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("商品CD") = SyohinCD Then HanbaiTankaMST = Content.Fields("標準販売単価") SyohinJyuryoMST = Content.Fields("商品重量") SyohinYosekiMST = Content.Fields("商品容積") End If Content.MoveNext Loop Dim HyojunTankaHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") End If %>

受付番号  <%= KitakuNo %> 寄託者  <%= ConvKaisyaMeisyoDx(EnshuCD, KitakuCD) %> 商品名  <%= ConvSyohinMeisyo(SyohinCD) %> 寄託情報 貯蔵倉庫場所 <%= Basyo %> 寄託期間  <%= KitakuFrom %> 〜 <%= KitakuTo %> 寄託数量  <%= SetNumber(KitakuSuryo, false) %>    総出庫数  <%= SetNumber(TotalSyukosu, false) %>    出庫残高  <%= SetMoney(SyukoZentaka, false, true) %> 入庫情報 入庫日  <%= NyukoNengappi %>    倉庫種別  <%= ConvKubunMeisyo("倉庫種別", SokoBetsu ) %>  摘　 要  <%= Tekiyo %>  入庫料  <%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり） 荷役料率（1ｔ につき） <% = SetMoney(Niyakuritsu, false, true) %> 円 保管料  <%= SetMoney(HokanRyokin, false, true) %> 円（1個あたり） 従価率（1000円につき） <% = SetMoney(Jyokaritsu, false, true) %> 円 従量率（1ｔ につき） <% = SetMoney(Jyoryoritsu, false, true) %> 円

商品情報 単価  <%= SetMoney(HanbaiTanka, false, true) %> 円    総価  <%= SetMoney(Soka, false, true) %> 円 単量  <%= SetNumber(Syohinjyuryo, false) %> kg    総量  <%= SetNumber(Soryo, false) %> ｔ 荷姿  <%= NiSugata %>     才数  <%= Saisu %>  倉荷証券情報 倉荷証券番号  <% = SyokenNum %> 証券手数料  <%= SetMoney(SyokenTesuryo, false, true) %> 円 保険情報 火災保険料金  <%= SetMoney(KasaiHokenKin, false, true) %> 円 料率（1000円につき）  <%= SetMoney(KasaiHokenRitsu, false, true) %> 円

<% End Function %>