<% Function Uososyuko(EnshuCD, KaisyaCD, SyukkoNo, AutoFlg, PrintFlg) Dim TekiyoCD '摘要コード Dim MousikomiNum '申込番号 Dim KanrenKaisyaCD '会社コード、関連会社コード Dim TorihikisakiCD,HokenkikanFrom,HokenkikanTo Dim Tanka '単価 Dim Suryo '数量 Dim Kakaku '標準価格 Dim Kingaku '金額 Dim Ryoritsu '料率 Dim HokenRyokin '保険料金 Dim HSyubetsuCode '保険種別CD Dim Biko '備考 Dim Mosikomibi Dim KaisyaName Dim HokenName Dim HanbaiTanka '単価 Dim SyohinJyuryo '単量 Dim Nisugata '荷姿 Dim Saisu '才数 '出庫 ' Dim SyukkoNo '出庫番号 Dim KitakuNo '寄託者受付番号 Dim KitakuCD '寄託者CD Dim SyohinCD '商品コード Dim SyohinName '商品名称 Dim Basyo '倉庫場所 Dim SokoBetsu '倉庫種別 Dim KitakuFrom '寄託期間始 Dim KitakuTo '寄託期間終 Dim SyukoYMD '出庫年月日 Dim SyukoSuryo '出庫数量 Dim Tekiyo '摘要 Dim Kisu '期数 Dim SokoHokenRyo '倉庫保管料 Dim SokoNiyakukin '倉庫荷役料金 Dim Jyokaritsu '従価率 Dim Jyoryoritsu '従量率 Dim Niyakuritsu '荷役率 Dim SyohinYoseki '商品容積 Dim NyukoNengappi '入庫日 Dim KitakuSuryo '入庫数量 Dim SuryoTotal '総出庫数 Dim SyukoZentaka '出庫残高 Dim GokeiKingaku, Syohizeigaku, ZeikomiKingaku Dim Query Dim Content Dim NiyakuKin '荷役料金 Dim HokanSougaku Dim NyukoTekiyo MousikomiNum = Request("MousikomiNum") ' SyukkoNo = Request("SyukkoNo") '対象データＧＥＴ保険情報取得 Query = "exec SPC出庫取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', "& SyukkoNo &"" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then SyukkoNo = Content.Fields("出庫番号") KitakuCD = Content.Fields("寄託者CD") KitakuNo = Content.Fields("寄託受付番号") SyohinCD = Content.Fields("商品CD") SyukoYMD = SetTimeYYYYMMDD(Content.Fields("出庫年月日")) SyukoSuryo = Content.Fields("出庫数量") Tekiyo = Content.Fields("摘要") Kisu = Content.Fields("期数") SokoHokenRyo = Content.Fields("保管料金") SokoNiyakukin = Content.Fields("荷役料金") 'SyohinName = Content.Fields("会社CD") Basyo = Content.Fields("倉庫場所") SokoBetsu = Content.Fields("倉庫種別") KitakuFrom = SetTimeYYYYMMDD(Content.Fields("寄託開始年月日")) KitakuTo = SetTimeYYYYMMDD(Content.Fields("寄託保管期日")) Jyokaritsu = Content.Fields("従価率") Jyoryoritsu = Content.Fields("従量率") Niyakuritsu = Content.Fields("荷役料率") NyukoNengappi = SetTimeYYYYMMDD(Content.Fields("入庫年月日")) KitakuSuryo = Content.Fields("寄託数量") SuryoTotal = Content.Fields("総出庫数") SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高") End If If SokoHokenRyo = "" Then SokoHokenRyo = 0 End If If SokoNiyakukin = "" Then SokoNiyakukin = 0 End If GokeiKingaku = SokoHokenRyo + SokoNiyakukin Syohizeigaku = Int(GokeiKingaku * GB_Shohizei / 100) ZeikomiKingaku = GokeiKingaku + Syohizeigaku Query = "exec SPC寄託取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'," & KitakuNo Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuCD = Content.Fields("寄託者CD") KitakuSuryo = Content.Fields("寄託数量") SuryoTotal = Content.Fields("総出庫数") SyukoZentaka = KitakuSuryo - SuryoTotal ' Content.Fields("残高") Niyakukin = Content.Fields("荷役料金") HokanSougaku = Content.Fields("保管料金") HanbaiTanka = Content.Fields("単価") SyohinJyuryo = Content.Fields("単量") Nisugata = Content.Fields("荷姿") Saisu = Content.Fields("才数") NyukoTekiyo = Content.Fields("摘要") 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 SyohinJyuryo = Content.Fields("商品重量") SyohinYoseki = Content.Fields("商品容積") End If Content.MoveNext Loop Dim Soryo Soryo = 0 Dim Soka Soka = 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 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 %>

出庫番号  <%= SyukkoNo %>      寄託受付番号  <%= KitakuNo %> 寄託者 <%= ConvKaisyaMeisyo(KitakuCD) %> 商品名 <%= ConvSyohinRyakuMeisyo(SyohinCD) %> 寄託情報 貯蔵倉庫場所  <%= Basyo %> 寄託期間  <%= KitakuFrom %> 〜 <%= KitakuTo %>  寄託数量  <%= SetNumber(KitakuSuryo, false) %>    総出庫数  <%= SetNumber(SuryoTotal, false) %>  出庫残高  <%= SetMoney(SyukoZentaka, false, true) %>  出庫情報 出庫日  <%= SyukoYMD %>    期数  <%= SetNumber(Kisu, false) %> 出庫数量  <%= SetNumber(SyukoSuryo, false) %> 出庫料  <%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり） 荷役料率（1ｔ につき） <%= SetMoney(Niyakuritsu, false, true) %> 円 荷役料  <%= SetMoney(SokoNiyakukin, false, true) %> 円 保管料  <%= SetMoney(SokoHokenRyo, false, true) %> 円 合計金額   消費税額    請求倉庫料金 <%= SetMoney(GokeiKingaku, false, true) %> 円   <%= SetMoney(Syohizeigaku, false, true) %> 円    <%= SetMoney(ZeikomiKingaku, false, true) %> 円 摘要 <%= Tekiyo %>

商品情報 単価  <%= SetMoney(HanbaiTanka, false, true) %> 円    総価  <%= SetMoney(Soka, false, true) %> 円 単量  <%= SetNumber(SyohinJyuryo, false) %> kg    総量  <%= SetNumber(Soryo, false) %> ｔ  荷姿  <%= Nisugata %>    才数  <%= SetNumber(Saisu, false) %> 入庫情報 入庫日  <%= NyukoNengappi %>   倉庫種別  <% Dim DataSibetsu DataSibetsu="倉庫種別" Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "','" & DataSibetsu & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("区分CD") = SokoBetsu Then Response.Write(Content.Fields("区分名称")) Exit Do End If Content.MoveNext Loop %>  摘　 要  <%= NyukoTekiyo %> 入庫料  <%= SetMoney(NiyakuKin, false, true) %> 円（1個あたり） 荷役料率（1ｔ につき） <%= SetMoney(Niyakuritsu, false, true) %> 円 保管料  <%= SetMoney(HokanSougaku, false, true) %> 円（1個あたり） 従価率（1000円につき） <%= SetMoney(Jyokaritsu, false, true) %> 円 従量率（1ｔ につき） <%= SetMoney(Jyoryoritsu, false, true) %> 円 ※荷役料 ＝ （1個あたり入庫料 ＋ 1個あたり出庫料） × 出庫数 ※保管料 ＝ 1個あたり保管料 × 期数 × 出庫数

<% End Function %>