<% Function SoukoryoSeikyuRyoushu(EnshuCD, KaisyaCD, Seq, AutoFlg, PrintFlg) Dim EnshuName Dim Bango Dim Shoribi Dim TorihikisakiCD Dim TorihikisakiMei Dim Basho Dim Nyukobi Dim Shukobi Dim KikanFrom Dim KikanTo Dim Hokanryo Dim Nyukoryo Dim Shukoryo Dim Shohizei Dim Gokei Dim Biko Dim Query Dim Content Query = "exec SPU倉庫料請求領収書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', " & Seq & " " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Bango = Content.Fields("番号") Shoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) TorihikisakiCD = Content.Fields("取引先CD") TorihikisakiMei = Content.Fields("取引先名称") Basho = Content.Fields("貯蔵倉庫場所") Nyukobi = SetTimeYYYYMMDD(Content.Fields("入庫日")) Shukobi = SetTimeYYYYMMDD(Content.Fields("出庫日")) KikanFrom = SetTimeYYYYMMDD(Content.Fields("期間始")) KikanTo = SetTimeYYYYMMDD(Content.Fields("期間終")) Hokanryo = Content.Fields("保管料") Nyukoryo = Content.Fields("入庫料") Shukoryo = Content.Fields("出庫料") Biko = Content.Fields("備考") 'Shohizei = Int((Hokanryo + Nyukoryo + Shukoryo) * GB_Shohizei / 100) Shohizei = Content.Fields("消費税") Gokei = Hokanryo + Nyukoryo + Shukoryo + Shohizei End If Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode Dim Adr1, Adr2, Tel, Fax, GyosyuCD, Set_ShijyoCD Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kaisyamei = Content.Fields("会社名称") KaisyaRyakumei = Content.Fields("会社略名称") kaisyaKanamei = Content.Fields("会社カナ名称") ZipCode = Content.Fields("郵便番号") Adr1 = Content.Fields("住所1") Adr2 = Content.Fields("住所2") Tel = Content.Fields("TEL") Fax = Content.Fields("FAX") GyosyuCD = Content.Fields("業種CD") Set_ShijyoCD = Content.Fields("市場CD") End If Dim Border Border = "0" %>

倉庫料請求書
<% = TorihikisakiMei %>　御中              ご請求額    \<% = SetMoney(Gokei, false, false) %>  入庫日 ： <% = SetDate(Nyukobi, 2) %>    出庫日 ： <% = SetDate(Shukobi, 2) %> 寄託期間 ： 自 <% = SetDate(KikanFrom, 2) %> 〜 至 <% = SetDate(KikanTo, 2) %> 但し 倉庫料金 として <% = Spacer(1,8) %> 下記の通りご請求申し上げます <% = Spacer(1,8) %>	<% If Adr2 <> "" Then %> <% End If %> 契約証番号 ： <% = Bango %> 発行日 ： <% = SetDate(Shoribi, 2) %> <% = Kaisyamei %> <% = Adr1 %> <% = Adr2 %> TEL：<% = Tel %> FAX：<% = Fax %> 責任者
<% If Shohizei > 0 Then %> <% End If %> No 項　目 単　価 金　額 1 保管料 \<% = SetMoney(Hokanryo, false, false) %> \<% = SetMoney(Hokanryo, false, false) %> 2 入庫料 \<% = SetMoney(Nyukoryo, false, false) %> \<% = SetMoney(Nyukoryo, false, false) %> 3 出庫料 \<% = SetMoney(Shukoryo, false, false) %> \<% = SetMoney(Shukoryo, false, false) %> 4 消費税 \<% = SetMoney(Shohizei, false, false) %> \<% = SetMoney(Shohizei, false, false) %> 小　計　\<% = SetMoney(Gokei, false, false) %>
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
倉庫料領収書
契約証番号 <% = Bango %> 金　額 \<% = SetMoney(Gokei, false, false) %> 寄託者 <% = TorihikisakiMei %> 貯蔵倉庫場所 <% = Basho %> 入庫日 <% = SetDate(Nyukobi, 2) %> 出庫日 <% = SetDate(Shukobi, 2) %> 寄託期間 自 <% = SetDate(KikanFrom, 2) %> 〜 至 <% = SetDate(KikanTo, 2) %>
収  入 印  紙 上記の倉庫料正に領収いたしました <% = SetDate(Shoribi, 2) %>	<% If Adr2 <> "" Then %> <% End If %> <% = Kaisyamei %> <% = Adr1 %> <% = Adr2 %> TEL：<% = Tel %> FAX：<% = Fax %>

<% End Function %>