<% Function UnsohiSeikyuRyoushu(EnshuCD, KaisyaCD, Seq, AutoFlg, PrintFlg) Dim EnshuName Dim Bango Dim TorihikisakiCD Dim TorihikisakiMei Dim Shoribi Dim Unsobi Dim Kingaku Dim Shohizei Dim Gokei 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("番号") TorihikisakiCD = Content.Fields("取引先CD") TorihikisakiMei = Content.Fields("取引先名称") Shoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) Unsobi = SetTimeYYYYMMDD(Content.Fields("運送日")) Kingaku = Content.Fields("金額") 'Shohizei = Int(Kingaku * GB_Shohizei / 100) Shohizei = Content.Fields("消費税") Gokei = Kingaku + 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(Unsobi, 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(Kingaku, false, false) %>	\<% = SetMoney(Kingaku, false, false) %>
2	消費税	\<% = SetMoney(Shohizei, false, false) %>	\<% = SetMoney(Shohizei, false, false) %>
			小　計　\<% = SetMoney(Gokei, false, false) %>

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

運送費領収書

契約証番号	<% = Bango %>	金　額	\<% = SetMoney(Gokei, false, false) %>
運送契約者	<% = TorihikisakiMei %>	運送日	<% = SetDate(Unsobi, 2) %>

収入

印紙