<% Function HokenSeikyuRyoushu(EnshuCD, KaisyaCD, Syubetsu, Seq, AutoFlg, PrintFlg) Dim EnshuName Dim Bango Dim TorihikisakiCD Dim TorihikisakiMei Dim Shoribi Dim TaishoKingaku Dim HokenRyokin Dim KikanFrom Dim KikanTo Dim Biko Dim Query Dim Content Query = "exec SPU保険請求領収書取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "', '" & Syubetsu & "', " & Seq & " " Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ' KaisyaCD = Content.Fields("会社CD") Bango = Content.Fields("番号") TorihikisakiCD = Content.Fields("取引先CD") TorihikisakiMei = Content.Fields("取引先名称") Shoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) TaishoKingaku = Content.Fields("保険対象金額") HokenRyokin = Content.Fields("保険料金") KikanFrom = SetTimeYYYYMMDD(Content.Fields("期間始")) KikanTo = SetTimeYYYYMMDD(Content.Fields("期間終")) Biko = Content.Fields("備考") End If Dim SyubetsuLabel If Syubetsu <> "" Then Query = "exec SPV区分情報一覧 '" & GB_SystemCD & "', '保険種別'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("区分CD") = Syubetsu Then SyubetsuLabel = Replace("" & Content.Fields("区分名称"), "保険", "") Exit Do End If Content.MoveNext Loop 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" %>

<% = SyubetsuLabel %>保険料請求書
<% = TorihikisakiMei %>　御中              ご請求額    \<% = SetMoney(HokenRyokin, false, false) %>  保険期間 ： 自 <% = SetDate(KikanFrom, 2) %> 〜 至 <% = SetDate(KikanTo, 2) %> 保険対象金額 ：   \<% = SetMoney(TaishoKingaku, false, false) %>  但し <% = SyubetsuLabel %>保険料金 として <% = Spacer(1,8) %> 下記の通りご請求申し上げます <% = Spacer(1,8) %>	<% If Adr2 <> "" Then %> <% End If %> 契約証番号 ： <% = Bango %> 発行日 ： <% = SetDate(Shoribi, 2) %> <% = Kaisyamei %> <% = Adr1 %> <% = Adr2 %> TEL：<% = Tel %> FAX：<% = Fax %> 責任者
No 項　目 保険対象金額 保険料金 1 <% = SyubetsuLabel %>保険料金 \<% = SetMoney(TaishoKingaku, false, false) %> \<% = SetMoney(HokenRyokin, false, false) %>
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
<% = SyubetsuLabel %>保険料領収書
契約証番号 <% = Bango %> 保険対象金額 \<% = SetMoney(TaishoKingaku, false, false) %> 保険契約者 <% = TorihikisakiMei %> 保険料金 \<% = SetMoney(HokenRyokin, false, false) %> 保険の目的の所在地 <% = ConvKaisyaJyusyo1(EnshuCD, TorihikisakiCD) & ConvKaisyaJyusyo2(EnshuCD, TorihikisakiCD) %> 保険期間 自 <% = SetDate(KikanFrom, 2) %> 〜 至 <% = SetDate(KikanTo, 2) %> 保険の目的 <% = Biko %>
収  入 印  紙 上記の保険料正に領収いたしました <% = SetDate(Shoribi, 2) %>	<% If Adr2 <> "" Then %> <% End If %> <% = Kaisyamei %> <% = Adr1 %> <% = Adr2 %> TEL：<% = Tel %> FAX：<% = Fax %>

<% End Function %>