<% 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" %> <table width="640" border="<% = Border %>" cellspacing="0" cellpadding="0" height="1" bgcolor="#FFFFFF" class="tx1416"> <tr> <td colspan="2" height="50" align="CENTER" class="tx2224b"> 倉庫料請求書 </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <br> </td> </tr> <tr> <td width="420" height="1" align="LEFT" valign="top"> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="LEFT" class="tx1820" style="border-bottom: 1px solid #000000"> <% = TorihikisakiMei %> 御中 </td> </tr> </table> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="90" align="LEFT" class="tx1618"> ご請求額 </td> <td height="1" align="LEFT"> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="LEFT" class="tx2022" style="border-bottom: 1px solid #000000"> \<% = SetMoney(Gokei, false, false) %> </td> </tr> </table> </td> </tr> </table> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="LEFT"> 入庫日 : <% = SetDate(Nyukobi, 2) %> 出庫日 : <% = SetDate(Shukobi, 2) %> </td> </tr> <tr> <td height="1" align="LEFT"> <br> </td> </tr> <tr> <td height="1" align="LEFT"> 寄託期間 : 自 <% = SetDate(KikanFrom, 2) %> ~ 至 <% = SetDate(KikanTo, 2) %> </td> </tr> <tr> <td height="1" align="LEFT"> <br> </td> </tr> <tr> <td height="1" align="LEFT"> 但し 倉庫料金 として </td> </tr> <tr> <td height="1" align="LEFT"><% = Spacer(1,8) %></td> </tr> <tr> <td height="1" align="LEFT"> 下記の通りご請求申し上げます </td> </tr> <tr> <td height="1" align="LEFT"><% = Spacer(1,8) %></td> </tr> </table> </td> <td align="LEFT" valign="top"> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="LEFT" nowrap> 契約証番号 : <% = Bango %> </td> </tr> <tr> <td height="1" align="LEFT"> <br> </td> </tr> <tr> <td height="1" align="LEFT" nowrap> 発行日 : <% = SetDate(Shoribi, 2) %> </td> </tr> <tr> <td height="1" align="LEFT"> <br> </td> </tr> <tr> <td height="28" align="LEFT" class="tx1618" nowrap> <% = Kaisyamei %> </td> </tr> <tr> <td height="20" align="LEFT" nowrap> <% = Adr1 %> </td> </tr> <% If Adr2 <> "" Then %> <tr> <td height="20" align="LEFT" nowrap> <% = Adr2 %> </td> </tr> <% End If %> <tr> <td height="18" align="LEFT" nowrap> TEL:<% = Tel %> </td> </tr> <tr> <td height="18" align="LEFT" nowrap> FAX:<% = Fax %> </td> </tr> </table> <table border="<% = Border %>" width="100%" cellspacing="0" cellpadding="0" height="1"> <tr> <td align="RIGHT"> <table width="50" cellspacing="0" cellpadding="0" height="1" style="border-collapse:collapse;"> <tr> <td height="1" align="CENTER" style="border:1px solid #000000;"> 責任者 </td> </tr> <tr> <td height="50" width="50" align="CENTER" style="border:1px solid #000000;"> <br> </td> </tr> </table> </td> </tr> </table> </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <table border="0" width="100%" cellspacing="0" cellpadding="10" height="1" class="tx1618" style="border-collapse:collapse;"> <tr> <td align="CENTER" style="border:1px solid #000000;" width="10%"> No </td> <td align="CENTER" style="border:1px solid #000000;" width="30%"> 項 目 </td> <td align="CENTER" style="border:1px solid #000000;" width="30%"> 単 価 </td> <td align="CENTER" style="border:1px solid #000000;" width="30%"> 金 額 </td> </tr> <tr> <td align="CENTER" style="border:1px solid #000000;"> 1 </td> <td align="CENTER" style="border:1px solid #000000;"> 保管料 </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Hokanryo, false, false) %> </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Hokanryo, false, false) %> </td> </tr> <tr> <td align="CENTER" style="border:1px solid #000000;"> 2 </td> <td align="CENTER" style="border:1px solid #000000;"> 入庫料 </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Nyukoryo, false, false) %> </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Nyukoryo, false, false) %> </td> </tr> <tr> <td align="CENTER" style="border:1px solid #000000;"> 3 </td> <td align="CENTER" style="border:1px solid #000000;"> 出庫料 </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Shukoryo, false, false) %> </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Shukoryo, false, false) %> </td> </tr> <% If Shohizei > 0 Then %> <tr> <td align="CENTER" style="border:1px solid #000000;"> 4 </td> <td align="CENTER" style="border:1px solid #000000;"> 消費税 </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Shohizei, false, false) %> </td> <td align="RIGHT" style="border:1px solid #000000;"> \<% = SetMoney(Shohizei, false, false) %> </td> </tr> <% End If %> <tr> <td align="CENTER" style="border:none;"> <br> </td> <td align="CENTER" style="border:none;"> <br> </td> <td align="RIGHT" style="border:none;"> <br> </td> <td align="RIGHT" style="border:1px solid #000000;"> 小 計 \<% = SetMoney(Gokei, false, false) %> </td> </tr> </table> </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <br> </td> </tr> <tr> <td colspan="2" height="80" align="CENTER"> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - </td> </tr> <tr> <td colspan="2" height="50" align="CENTER" class="tx2224b"> 倉庫料領収書 </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <br> </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <table border="0" width="100%" cellspacing="0" cellpadding="8" height="1" class="tx1416" style="border-collapse:collapse;"> <tr height="50"> <td align="CENTER" style="border:1px solid #000000;" width="20%"> 契約証番号 </td> <td align="LEFT" style="border:1px solid #000000;" width="35%"> <% = Bango %> </td> <td align="CENTER" style="border:1px solid #000000;" width="20%"> 金 額 </td> <td align="RIGHT" style="border:1px solid #000000;" width="25%"> \<% = SetMoney(Gokei, false, false) %> </td> </tr> <tr height="50"> <td align="CENTER" style="border:1px solid #000000;"> 寄託者 </td> <td align="LEFT" style="border:1px solid #000000;"> <% = TorihikisakiMei %> </td> <td align="CENTER" style="border:1px solid #000000;"> 貯蔵倉庫場所 </td> <td align="LEFT" style="border:1px solid #000000;"> <% = Basho %> </td> <!-- <td align="CENTER" style="border:1px solid #000000;" width="20%"> <br> </td> <td align="RIGHT" style="border:1px solid #000000;" width="20%"> <br> </td> --> </tr> <tr height="50"> <td align="CENTER" style="border:1px solid #000000;"> 入庫日 </td> <td align="LEFT" style="border:1px solid #000000;"> <% = SetDate(Nyukobi, 2) %> </td> <td align="CENTER" style="border:1px solid #000000;"> 出庫日 </td> <td align="LEFT" style="border:1px solid #000000;"> <% = SetDate(Shukobi, 2) %> </td> </tr> <tr height="50"> <td align="CENTER" style="border:1px solid #000000;"> 寄託期間 </td> <td align="LEFT" style="border:1px solid #000000;" colspan="3"> 自 <% = SetDate(KikanFrom, 2) %> ~ 至 <% = SetDate(KikanTo, 2) %> </td> </tr> <!-- <tr height="50"> <td align="CENTER" style="border:1px solid #000000;"> 貯蔵倉庫場所 </td> <td align="LEFT" style="border:1px solid #000000;" colspan="3"> <% = Basho %> </td> </tr> --> <!-- <tr height="50"> <td align="CENTER" style="border:1px solid #000000;"> 備考 </td> <td align="LEFT" style="border:1px solid #000000;" colspan="3"> <% = Biko %> </td> </tr> --> </table> </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <br> </td> </tr> <tr> <td width="420" height="1" align="LEFT" valign="top"> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" width="120" align="CENTER" class="tx1618"> <table border="0" cellspacing="0" cellpadding="0" width="72" HEIGHT="86"> <tr> <td style="line-height:13px; font-family:MS 明朝,serif; font-size:12px; color:#888888; border: 1px solid #888888;" valign="middle" align="center"> 収 入<br><br> 印 紙</td> </tr> </table> </td> <td height="1" align="LEFT"> <table border="0" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="1" align="CENTER" class="tx1618"> 上記の倉庫料正に領収いたしました<br><br><% = SetDate(Shoribi, 2) %> </td> </tr> </table> </td> </tr> </table> </td> <td align="LEFT" valign="top"> <table border="<% = Border %>" cellspacing="0" cellpadding="0" height="1"> <tr> <td height="28" align="LEFT" class="tx1618" nowrap> <% = Kaisyamei %> </td> </tr> <tr> <td height="20" align="LEFT" nowrap> <% = Adr1 %> </td> </tr> <% If Adr2 <> "" Then %> <tr> <td height="20" align="LEFT" nowrap> <% = Adr2 %> </td> </tr> <% End If %> <tr> <td height="18" align="LEFT" nowrap> TEL:<% = Tel %> </td> </tr> <tr> <td height="18" align="LEFT" nowrap> FAX:<% = Fax %> </td> </tr> </table> </td> </tr> <tr> <td colspan="2" height="20" align="CENTER"> <br> </td> </tr> </table> <!-- <% If PrintFlg = 1 Then %> <TABLE BORDER="1" BORDERCOLOR="#000000" STYLE="border-collapse: collapse" cellspacing="5" cellpadding="5" height="360" width="500"> <% Else %> <TABLE border="0" cellspacing="3" cellpadding="15" width="500" height="360"> <% End If %> <TR> <TD align="center"> <TABLE border="0" width="500" class="tx1618" height="260" cellspacing="0" cellpadding="2"> <TR> <TD>契約証番号</TD> <TD><% = Bango %></TD> </TR> <TR> <TD>寄託者</TD> <TD><% = TorihikisakiMei %></TD> </TR> <TR> <TD>貯蔵倉庫場所</TD> <TD><% = Basho %></TD> </TR> <TR> <TD>入庫日</TD> <TD><% = Nyukobi %></TD> </TR> <TR> <TD>出庫日</TD> <TD><% = Shukobi %></TD> </TR> <TR> <TD>寄託期間</TD> <TD> <TABLE border="0" hieght="100%" cellspacing="0" cellpadding="0" class="tx1618"> <TBODY> <TR> <TD><% = KikanFrom %></TD> <TD> ~ </TD> <TD><% = KikanTo %></TD> </TR> </TBODY> </TABLE> </TD> </TR> <TR> <TD>倉庫料</TD> <TD><% = SetMoney(Hokanryo, false, false) %></TD> </TR> <% If GB_Shohizei > 0 Then %> <TR> <TD>消費税</TD> <TD><% = SetMoney(Shohizei, false, false) %></TD> </TR> <TR> <TD>合計</TD> <TD><% = SetMoney(Gokei, false, false) %></TD> </TR> <% End If %> <TR> <TD>備考</TD> <TD > <% = Biko %></TD> </TR> </TABLE> </TD> </TR> </TABLE> --> <% End Function %>