<% ' ' %> <% Function ShiireUriageSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg, HikaeFlg) 'マスタの標準消費税率を取得 Dim StdTaxRate Dim StdTaxRateUnso StdTaxRate = GB_Shohizei StdTaxRateUnso = GB_Shohizei If GB_ShohizeiMode = 1 Then Query = " SELECT * FROM TDA消費税率M WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND (標準 = '1' OR 運送費標準 = '1') " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("標準") = "1" Then StdTaxRate = Content.Fields("消費税率") End If If "" & Content.Fields("運送費標準") = "1" Then StdTaxRateUnso = Content.Fields("消費税率") End If Content.MoveNext Loop End If Dim TmpCnt Dim Syoribi, NonyuBasyoKubun, NonyuKijitsu Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim UnsohiSyohizei Dim SenpoSyoribi Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD Dim SenpoTmpBunsyoSyuruiCD Dim Tekiyo2 Dim Hikae If HikaeFlg = 1 Then Hikae = "（控）" Else Hikae = "" End If Dim LabelSoumu Dim LabelTanto Dim LabelKakari LabelSoumu = "" LabelTanto = "" LabelKakari = "係　印" If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim SyohinAlign(5) Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim TaxRate(5) '消費税率 Dim Kingaku(5) '金額 Dim UnsoTanka(5) '運送単価 Dim UnsohiSyohin(5) '商品運送費 Dim UnsohiGokei Dim OldSyoruiFlg UnsohiGokei = 0 OldSyoruiFlg = 0 Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N,Checked_R Dim GakuseiShimei '学生氏名（係印） Dim GakuseiBango SyohizeiKingaku = 0 For TmpCnt = 1 To 5 TaxRate(TmpCnt) = StdTaxRate Next Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD Dim SyoruiMei Dim Query Dim Content Dim Genkin, Toza Dim Shimei Dim SakujyoFlg Dim KaifuFlg Dim SenpoFlg If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = "1" Else SenpoFlg = "0" End If Dim Kubun, Title Dim SyoriMongon Dim SyoriMei Dim ShiireUriageKubun Dim SenpoTmpSyoruiKubun Select Case BunsyoSyuruiCD Case "K1" SyoruiMei = "仕入返品伝票" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り返品致します。" Case "K2" SyoruiMei = "売上返品伝票" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り返品受付致します。" Case "K3" SyoruiMei = "領収書" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り領収致しました。" Case "KI" SyoruiMei = "見積依頼書" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り御見積り依頼申し上げます。" Case "KM" SyoruiMei = "見積書" Title = SyoruiMei ShiireUriageKubun = "U" SenpoTmpSyoruiKubun = "KI" SyoriMei = "見積" SyoriMongon = "下記の通り御見積り申し上げます。" Case "KC" SyoruiMei = "注文書" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り注文致します。" Case "KU" SyoruiMei = "注文請書" Title = SyoruiMei ShiireUriageKubun = "U" SyoriMei = "請求" SyoriMongon = "下記の通り注文をお請け致します。" Case "KK" SyoruiMei = "注文請書" Title = "先方注文請書確認" ShiireUriageKubun = "S" SyoriMongon = "下記の通り注文をお請け致します。" Case "KN" SyoruiMei = "納品請求書" Title = SyoruiMei ShiireUriageKubun = "U" SyoriMei = "請求" SyoriMongon = "下記の通り納品請求申し上げます。" Case "KB" SyoruiMei = "物品受領書" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り受領致しました" Case "KQ" SyoruiMei = "領収書" Title = SyoruiMei ShiireUriageKubun = "S" SyoriMongon = "下記の通り領収致しました" Case "KX" SyoruiMei = "管理部買入申込書" Title = SyoruiMei ShiireUriageKubun = "X" Case "KY" SyoruiMei = "管理部売渡申込書" Title = SyoruiMei ShiireUriageKubun = "1" Case "KV" SyoruiMei = "管理部納品請求書" Title = SyoruiMei ShiireUriageKubun = "V" Case "KW" SyoruiMei = "管理部売渡受付書" Title = SyoruiMei ShiireUriageKubun = "W" Case "KO" SyoruiMei = "管理部宛物品受領書" Title = SyoruiMei ShiireUriageKubun = "X" Case "KP" SyoruiMei = "管理部宛納品請求書" Title = SyoruiMei ShiireUriageKubun = "1" SenpoTmpSyoruiKubun = "KW" Case Else End Select SyoruiMei = SyoruiMei & Hikae '見積依頼書・管理部買入申込書・管理部売渡申込書は税率・合計がないので此処でレイアウトトグル Dim TmpShohizeiMode Dim TmpGokeiMode TmpShohizeiMode = GB_ShohizeiMode TmpGokeiMode = 1 If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then TmpShohizeiMode = 0 TmpGokeiMode = 0 End If 'Response.Write(TmpShohizeiMode) 'Exit Sub If BunsyoNaiyoCD <> "" Then If SenpoFlg = "1" Then If BunsyoSyuruiCD <> "KK" Then '注文請書確認でない If KaisyaCD <> SakuseiKaisyaCD Then If GB_JisyaFlag <> "" Then '運用管理・演習管理（自社フラグ無し）では開封フラグを立てない（061213小野） Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) Query = "exec SPD仕入売上書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If End If End If End If If BunsyoSyuruiCD = "KK" Then Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', 'KU', '" & BunsyoNaiyoCD & "'" Else Query = "exec SPD仕入売上書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write("Query:" & Query & "
") Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then BunsyoNaiyoCD = Content.Fields("文書内容CD") DbTorihikisakiCD = Content.Fields("取引先CD") HasshinFlg = Content.Fields("発行フラグ") Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) DbSenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD") SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日")) NonyuBasyoKubun = Content.Fields("納入場所区分") NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日")) UntinSyogakariKubun = Content.Fields("運賃諸掛区分") UnsoGaisyaCD = Content.Fields("運送会社CD") Unsohi = Content.Fields("運送費") UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ") Tekiyo = Content.Fields("摘要") Tekiyo2 = Content.Fields("摘要2") ShiharaiHoho = Content.Fields("支払方法") GakuseiBango = Content.Fields("学生番号") SakujyoFlg = Content.Fields("削除フラグ") KaifuFlg = Content.Fields("開封フラグ") If Unsohi = "" Or IsNull(Unsohi) Then Unsohi = 0 End If Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ,PreDenpyoSEQ DenpyoSEQ = Content.Fields("文書内容SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("商品CD") If BunsyoSyuruiCD = "KI" OR BunsyoSyuruiCD = "KX" OR BunsyoSyuruiCD = "KY" Or PrintFlg = 1 Then SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD")) Else SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD")) End If If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then ' SyohinName(DenpyoSEQ) = AscLeft(SyohinName(DenpyoSEQ),28) '商品名称を28byteで切捨て（061031小野） SyohinName(DenpyoSEQ) = "" & SyohinName(DenpyoSEQ) & "" '商品名称表示領域を制限（070919小野） End If Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Suryo(DenpyoSEQ) = Content.Fields("数量") Tanka(DenpyoSEQ) = Content.Fields("単価") Kingaku(DenpyoSEQ) = Content.Fields("単価") * Content.Fields("数量") TaxRate(DenpyoSEQ) = Content.Fields("消費税率") If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then TaxRate(DenpyoSEQ) = StdTaxRate End If UnsoTanka(DenpyoSEQ) = Content.Fields("運送単価") UnsohiSyohin(DenpyoSEQ) = Content.Fields("運送単価") * Content.Fields("数量") If PreDenpyoSEQ <> DenpyoSEQ then GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ) If TaxRate(DenpyoSEQ) <> "" Then SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * CCur(TaxRate(DenpyoSEQ)) / 100) Else SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * StdTaxRate / 100) End If If Not(IsNull(UnsohiSyohin(DenpyoSEQ))) Then UnsohiGokei = UnsohiGokei + UnsohiSyohin(DenpyoSEQ) End If End If Content.MoveNext PreDenpyoSEQ = DenpyoSEQ Loop 'SyohizeiKingaku = Int((GokeiKingaku + Unsohi * UnsohiSeikyuFlg) * GB_Shohizei / 100) UnsohiSyohizei = (Unsohi * StdTaxRateUnso / 100) * UnsohiSeikyuFlg SyohizeiKingaku = Int(SyohizeiKingaku + UnsohiSyohizei) 'Response.Write(SyohizeiKingaku) 'Exit Function UnsohiSyohizei = Int(UnsohiSyohizei) ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku + Unsohi * UnsohiSeikyuFlg If UnsohiGokei <> Unsohi Then '運送単価から計算された値が運送費と異なっていれば旧仕様にする OldSyoruiFlg = 1 End If End If End If Dim jj,tmps Dim ii For ii = 1 To 5 SyohinAlign(ii) = "left" If SyohinName(ii) = "" Then SyohinName(ii) = "以下余白" SyohinAlign(ii) = "center" Exit For End If Next If SyohinName(1) = "以下余白" Then SyohinName(1) = "" End If Dim Kaisyamei, KaisyaRyakumei, kaisyaKanamei, ZipCode Dim Adr1, Adr2, Tel, Fax, GyosyuCD If BunsyoNaiyoCD <> "" Then Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & SakuseiKaisyaCD & "'" 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") End If End If Dim H1, H2, H3, W1, B1 If PrintFlg = 0 Then H1 = 25 H2 = 100 W1 = 606 If TmpShohizeiMode = 1 Then W1 = 646 End If B1 = 1 Else H1 = 30 H2 = 100 W1 = 667 B1 = 0 End If Dim Kitakuriyou,KitakuGaisyaCD '演習設定取得 Dim ShiireUriageJHB Dim HyojunTankaHyoji Dim ShameiYusen ShameiYusen = "" Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Kitakuriyou = Content.Fields("寄託倉庫利用") ShameiYusen = "" & Content.Fields("仕入売上書類社名優先") ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") End If Query = "exec SPM寄託会社取得2 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KitakuGaisyaCD = Content.Fields("寄託会社CD") End If %> 510<% Else %>400<% End If %>" border="0" cellpadding="0" cellspacing="0">
<% If PrintFlg = 1 And HikaeFlg < 2 Then 'HTML出力モードではヘッダを出さない Response.Write(PrintHeader(AutoFlg, "")) End if %> <% If (SenpoFlg = "0" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KW") And PrintFlg = 0 And BunsyoNaiyoCD <> "" Then %> <% End If %>
<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
<% End If %> <% If BunsyoSyuruiCD = "KM" Or BunsyoSyuruiCD = "KU" Or BunsyoSyuruiCD = "KN" Then %>780<% Else %>700<% End If %><% Else %>460<% End If %>" bgcolor="#FFFFFF" style="border:solid <% = B1 %>px #000000"> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %>
<% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %>
書類番号：<% = BunsyoNaiyoCD %>
<% If Len(SyoruiMei) < 8 Then %> <% = SetStringInsertSpace(SyoruiMei) %> <% Else %> <% = SyoruiMei %> <% End If %>
処理日：<% If "" & Syoribi = "" Then %>                  <% Else %><% = Syoribi %><% End If %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% Else '運送会社がない分は空行にする %> <% End If %>
<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %> 御中
納入場所 ：<% = ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun) %> <% If Kitakuriyou = "1" Then Response.Write("：") Response.Write(ConvKaisyaMeisyo(KitakuGaisyaCD)) End If %>
運賃諸掛 ：<% = ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun)%>
運送会社 ：<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoGaisyaCD) %>
　　　　　　　
支払方法 ：<% ShiharaiHoho = AscLeft(ShiharaiHoho,26) '支払方法を26byteで切捨て（061031小野） %> <% = ShiharaiHoho %>
<% If MHMNONYUKIJITSU <> "" Then Response.Write(MHMNONYUKIJITSU) Else Response.Write("納入期日") End If %> ：<% = NonyuKijitsu %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% End If %>
<% If ShameiYusen <> "1" Then %> <% End If %> <% If Trim(Adr2) <> "" Then %> <% End If %> <% If ShameiYusen = "1" Then %> <% End If %> <% If ShiireHanbaiKaishaTekiyo = 1 And Trim(Tekiyo2) <> "" Then %> <% End If %>
<% = Kaisyamei %> 
<% = Adr1 %> 
<% = Adr2 %> 
<% = Kaisyamei %> 
<% Tekiyo2 = AscLeft(Tekiyo2,32) '摘要を32byteで切捨て（061031小野） %> <% = Tekiyo2 %>
TEL：<% = Tel %> 
FAX：<% = Fax %> 
摘要：<% Tekiyo = AscLeft(Tekiyo,32) '摘要を32byteで切捨て（061031小野） %> <% = Tekiyo %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
    <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If ShiireUriageKubun = "U" Then %> <% End If %>
<% = SyoriMongon %>
合計金額 <% = SetMoney(ZeikomiKingaku, false, false) %> 
（上記金額には消費税が含まれています）
<% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Or BunsyoNaiyoCD = "" Then %> <% End If %> <% If BunsyoNaiyoCD = "" Then %> <% Else %> <% End If %> <% End If %>
商品名称<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("標準価格") End If %>数　量単　価 金　額税率運送
単価
<% = SyohinName(1) %><% = SetMoney(Kakaku(1), false, true) %> <% = SetMoney(Suryo(1), false, true) %> <% = SetMoney(Tanka(1), false, true) %>  <% = SetMoney(Kingaku(1), false, true) %> <% If "" & Kingaku(1) <> "" Then %><% = TaxRate(1) %>％<% End If %><% = SetMoney(UnsoTanka(1), false, true) %> 
<% = SyohinName(2) %> <% = SetMoney(Kakaku(2), false, true) %> <% = SetMoney(Suryo(2), false, true) %> <% = SetMoney(Tanka(2), false, true) %>  <% = SetMoney(Kingaku(2), false, true) %> <% If "" & Kingaku(2) <> "" Then %><% = TaxRate(2) %>％<% End If %><% = SetMoney(UnsoTanka(2), false, true) %> 
<% = SyohinName(3) %> <% = SetMoney(Kakaku(3), false, true) %> <% = SetMoney(Suryo(3), false, true) %> <% = SetMoney(Tanka(3), false, true) %>  <% = SetMoney(Kingaku(3), false, true) %> <% If "" & Kingaku(3) <> "" Then %><% = TaxRate(3) %>％<% End If %><% = SetMoney(UnsoTanka(3), false, true) %> 
<% = SyohinName(4) %> <% = SetMoney(Kakaku(4), false, true) %> <% = SetMoney(Suryo(4), false, true) %> <% = SetMoney(Tanka(4), false, true) %>  <% = SetMoney(Kingaku(4), false, true) %> <% If "" & Kingaku(4) <> "" Then %><% = TaxRate(4) %>％<% End If %><% = SetMoney(UnsoTanka(4), false, true) %> 
<% = SyohinName(5) %> <% = SetMoney(Kakaku(5), false, true) %> <% = SetMoney(Suryo(5), false, true) %> <% = SetMoney(Tanka(5), false, true) %>  <% = SetMoney(Kingaku(5), false, true) %> <% If "" & Kingaku(5) <> "" Then %><% = TaxRate(5) %>％<% End If %><% = SetMoney(UnsoTanka(5), false, true) %> 
"0" Then '標準販売単価表示 %> colspan="2"<% End If %>>  合計金額 <% = SetMoney(GokeiKingaku, false, false) %>  bgcolor="#FFFFFF"<% End If %>> bgcolor="#FFFFFF"<% End If %> rowspan="4"> 
運送費請求額 <% If BunsyoNaiyoCD <> "" Then %><% = SetMoney(Unsohi * UnsohiSeikyuFlg, false, false) %><% End If %> 
消費税額<% = SetMoney(SyohizeiKingaku, False, True) %> <% = SetMoney(SyohizeiKingaku, False, False) %> 
税込金額 <% = SetMoney(ZeikomiKingaku, false, false) %> 
　
備考
<% If PrintFlg = 0 And BunsyoNaiyoCD = "" Then %>
<% End If %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If DbSenpoBunsyoNaiyoCD <> "" Then %> <% End If %> <% End If %> <% If (SenpoFlg = "1" And BunsyoSyuruiCD = "KU") Or (SenpoFlg = "1" And BunsyoSyuruiCD = "KW") Then %> <% ElseIf ShiireUriageJHB = "1" Or BunsyoSyuruiCD = "KO" Or BunsyoSyuruiCD = "KP" Or BunsyoSyuruiCD = "KX" Or BunsyoSyuruiCD = "KY" Then %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% End If %> <% If OldSyoruiFlg < 1 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% For DenpyoSEQ = 1 To 5 If SyohinCD(DenpyoSEQ) <> "" Then %> <% End If Next %> <% End If %>
この書類に関する情報
　
先方書類番号：<% = DbSenpoBunsyoNaiyoCD %>
先方処理日：<% = SenpoSyoribi %>
発信：<% = ConvFlagMeisyo(HasshinFlg, 5) %>
運送費：<% = SetMoney(Unsohi, false, true) %> 円
<% = SyohinName(DenpyoSEQ) %>
 運送単価：<% = UnsoTanka(DenpyoSEQ) %> 円
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>
<% End Function %>