<% ' ' %> <% 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 DbTorihikisakiCD 'DB取引先CD Dim DbUnsoGaisyaCD '運送会社CD Dim DbKitakuGaisyaCD '寄託会社CD Dim DbSenpoKitakuGaisyaCD '先方寄託会社CD Dim SenpoTmpBunsyoSyuruiCD '先方一時文書種類CD Dim DbSenpoBunsyoNaiyoCD 'DB先方文書内容CD Dim Syoribi '処理日 Dim SenpoSyoribi '先方処理日 Dim NonyuBasyoKubun '納入場所区分 Dim NonyuKijitsu '納入期日 Dim UntinSyogakariKubun '運賃諸掛区分 Dim Unsohi '運送費 Dim UnsohiSeikyuFlg '運送費請求フラグ Dim Tekiyo '摘要 Dim ShiharaiHoho '支払方法 Dim HasshinFlg '発信フラグ Dim Tekiyo2 Dim UnsohiSyohizei 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 '納入場所名称 Dim UntinSyogakariMeisyo '運賃諸掛名称 Dim GokeiKingaku '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N Dim Checked_R Dim GakuseiShimei '学生氏名(係印) Dim GakuseiBango '学生番号 Dim NextBunsyoNaiyoCD '次の文書内容CD Dim PrevBunsyoNaiyoCD '前の文書内容CD Dim SyoruiMei '書類名 Dim Query Dim Content Dim Genkin '現金 Dim Toza '当座 Dim Shimei '氏名 Dim SakujyoFlg '削除フラグ Dim KaifuFlg '開封フラグ Dim SenpoFlg '先方フラグ Dim Kubun '区分 Dim Title 'タイトル Dim SyoriMongon '書類文言 Dim SyoriMei '書類名 Dim ShiireUriageKubun '仕入売上区分 Dim SenpoTmpSyoruiKubun '先方一時書類区分 If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = "1" Else SenpoFlg = "0" End If 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 "KS" SyoruiMei = "出庫依頼書" Title = SyoruiMei ShiireUriageKubun = "U" SyoriMongon = "下記の通り出庫依頼申し上げます。" 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 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then DbTorihikisakiCD = Content.Fields("取引先CD") DbKitakuGaisyaCD = Content.Fields("寄託会社CD") DbSenpoKitakuGaisyaCD = Content.Fields("先方寄託会社CD") '文書種類=KS(寄託出庫依頼)の場合、取引先として表示するのは、出庫先ではなく寄託会社CDとなる '納入場所は先方寄託会社CD(これは下で設定) 'また、発信クエリは SPD仕入売上書類発信4 では取引先CDに発信してしまうため '寄託会社CDに対して発信するよう新しく作成する必要あり If BunsyoSyuruiCD = "KS" Then 'BusyoSyuruiCD(文書種類CD)がKS(寄託出庫依頼)の場合 DbTorihikisakiCD = DbKitakuGaisyaCD '取引先CDに寄託会社CDを代入 End If DbUnsoGaisyaCD = Content.Fields("運送会社CD") BunsyoNaiyoCD = Content.Fields("文書内容CD") DbSenpoBunsyoNaiyoCD = Content.Fields("先方文書内容CD") Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) SenpoSyoribi = SetTimeYYYYMMDD(Content.Fields("先方処理日")) NonyuBasyoKubun = Content.Fields("納入場所区分") NonyuKijitsu = SetTimeYYYYMMDD(Content.Fields("納入期日")) UntinSyogakariKubun = Content.Fields("運賃諸掛区分") Unsohi = Content.Fields("運送費") UnsohiSeikyuFlg = Content.Fields("運送費請求フラグ") Tekiyo = Content.Fields("摘要") Tekiyo2 = Content.Fields("摘要2") ShiharaiHoho = Content.Fields("支払方法") GakuseiBango = Content.Fields("学生番号") HasshinFlg = 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小野) End If Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Suryo(DenpyoSEQ) = Content.Fields("数量") If BunsyoSyuruiCD <> "KS" Then '文書種類CD=KS(寄託出庫依頼書)以外で、表示する。 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 End If Content.MoveNext PreDenpyoSEQ = DenpyoSEQ Loop If BunsyoSyuruiCD <> "KS" Then '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 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 ShameiYusen ShameiYusen = "" Dim ShiireUriageJHB Dim Kitakuriyou Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShiireUriageJHB = "" & Content.Fields("仕入売上書類受発信利用") Kitakuriyou = Content.Fields("寄託倉庫利用") ShameiYusen = "" & Content.Fields("仕入売上書類社名優先") End If %>
<% If PrintFlg = 1 Then Response.Write(PrintHeader(AutoFlg, "")) End if %> <% If (SenpoFlg = "0" Or BunsyoSyuruiCD = "KU") And PrintFlg = 0 Then %> <% End If %>
<% If PrintFlg = 1 Then %> <% End If %>
<% If PrintFlg = 1 Then %> <% End If %>
書類番号:<% = BunsyoNaiyoCD %>
<% If Len(SyoruiMei) < 8 Then %> <% = SetStringInsertSpace(SyoruiMei) %> <% Else %> <% = SyoruiMei %> <% End If %>
処理日:<% = Syoribi %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% Else '運送会社がない分は空行にする %> <% End If %>
<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %> 御中
納入場所 :<% = ConvKubunMeisyo("納入場所区分", NonyuBasyoKubun) %> <% If Kitakuriyou = 1 Then ' Response.Write("寄託倉庫:") 'If SenpoFlg = 1 Then If BunsyoSyuruiCD = "KI" Or BunsyoSyuruiCD = "KC" Or BunsyoSyuruiCD = "KX" Then If SakuseiKaisyaCD = GB_KaisyaCD Then Response.Write(ConvKaisyaMeisyo(DbKitakuGaisyaCD)) Else Response.Write(ConvKaisyaMeisyo(DbSenpoKitakuGaisyaCD)) End If Else If SakuseiKaisyaCD = GB_KaisyaCD Then Response.Write(ConvKaisyaMeisyo(DbSenpoKitakuGaisyaCD)) Else Response.Write(ConvKaisyaMeisyo(DbKitakuGaisyaCD)) End If End If End If %>
運賃諸掛 :<% = ConvKubunMeisyo("運賃諸掛区分", UntinSyogakariKubun)%>
運送会社 :<% = ConvKaisyaMeisyoDx(EnshuCD, DbUnsoGaisyaCD) %>
       
支払方法 :<% 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) %> 
(上記金額には消費税が含まれています)
<% End If %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If TmpShohizeiMode = 1 Then %> <% End If %> <% If PrintFlg = 1 Then %> <% End If %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If PrintFlg = 1 Then %> <% End If %> <% If TmpShohizeiMode = 1 Then %> <% 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) %> 
  合計金額 <% = SetMoney(GokeiKingaku, false, false) %>  
運送費請求額 <% If BunsyoNaiyoCD <> "" Then %> <% = SetMoney(Unsohi * UnsohiSeikyuFlg, false, false) %> <% End If %>  
消費税額 <% = SetMoney(SyohizeiKingaku, false, false) %> 
税込金額 <% = SetMoney(ZeikomiKingaku, false, false) %> 
 
備考
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If DbSenpoBunsyoNaiyoCD <> "" Then %> <% End If %> <% End If %> <% If (SenpoFlg = "1" And BunsyoSyuruiCD = "KU") 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 %>