<% ' ' %> <% Function UnsoSyorui(EnshuCD, KaisyaCD, SakuseiKaisyaCD, BunsyoSyuruiCD, BunsyoNaiyoCD, AutoFlg, PrintFlg) 'マスタの標準消費税率を取得 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, TorihikisakiCD, NonyuBasyoKubun, NonyuKijitsu Dim UntinSyogakariKubun, UnsoGaisyaCD, Unsohi, UnsohiSeikyuFlg, Tekiyo, ShiharaiHoho, HasshinFlg Dim SenpoBunsyoSyuruiCD, SenpoSyoribi Dim DbTorihikisakiCD, DbSenpoBunsyoNaiyoCD Dim SenpoTmpBunsyoSyuruiCD Dim UnsoCD Dim SyohinCD(5) '商品コード Dim SyohinName(5) '商品名称 Dim Kakaku(5) '標準価格 Dim Suryo(5) '数量 Dim Tanka(5) '単価 Dim Kingaku(5) '金額 Dim NonyuBasyoMeisyo, UntinSyogakariMeisyo Dim GokeiKingaku '合計 GokeiKingaku = 0 '合計 Dim SyohizeiKingaku '消費税 Dim ZeikomiKingaku '税込み金額 Dim Checked_N,Checked_R Dim GakuseiShimei '学生氏名(係印) Dim GakuseiBango Dim NextBunsyoNaiyoCD, PrevBunsyoNaiyoCD Dim SyoruiMei Dim Query Dim Content Dim Genkin, Toza Dim Shimei Dim RouteType Dim SakujyoFlg RouteType = Request("RouteType") Dim SenpoFlg TorihikisakiCD = Request("TorihikisakiCD") UnsoCD = Request("UnsoCD") Dim Kubun, SenpoSyoruiMei, Title Select Case BunsyoSyuruiCD Case "CB" SyoruiMei = "運送費見積依頼書" Title = SyoruiMei SenpoTmpBunsyoSyuruiCD = "CB" Case "CC" SyoruiMei = "運送費見積書" Title = SyoruiMei SenpoTmpBunsyoSyuruiCD = "CC" Case Else End Select If SyoruiMei = "" Then SyoruiMei = SenpoSyoruiMei End If If SakuseiKaisyaCD = "" Then SakuseiKaisyaCD = KaisyaCD End If SenpoFlg = 0 If KaisyaCD <> SakuseiKaisyaCD Then SenpoFlg = 1 End If If BunsyoNaiyoCD <> "" Then If GB_JisyaFlag <> "" Then '運用管理・演習管理(自社フラグ無し)では開封フラグを立てない(061213小野) Query = "exec SPC運送書類開封 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD &"', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPC運送書類取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then BunsyoNaiyoCD = Content.Fields("文書内容CD") DbTorihikisakiCD = Content.Fields("取引先CD") UnsoCD = 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("摘要") ShiharaiHoho = Content.Fields("支払方法") GakuseiBango = Content.Fields("学生番号") SakujyoFlg = Content.Fields("削除フラグ") Dim TempDenpyoSEQ TempDenpyoSEQ = 0 Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("文書内容SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("商品CD") SyohinName(DenpyoSEQ) = ConvSyohinMeisyo(Content.Fields("商品CD")) Kakaku(DenpyoSEQ) = ConvSyohinHanbaiTanka(Content.Fields("商品CD")) Suryo(DenpyoSEQ) = Content.Fields("数量") Tanka(DenpyoSEQ) = Content.Fields("単価") If "" & Tanka(DenpyoSEQ) = "" Then Tanka(DenpyoSEQ) = 0 End If Kingaku(DenpyoSEQ) = Tanka(DenpyoSEQ) * Suryo(DenpyoSEQ) If JukaFlg = 1 Then Kingaku(DenpyoSEQ) = Tanka(DenpyoSEQ) '重量指定では単価フィールドを金額として利用 End If If DenpyoSEQ <> TempDenpyoSEQ Then GokeiKingaku = GokeiKingaku + ConvMoneyToInt(Kingaku(DenpyoSEQ)) TempDenpyoSEQ = DenpyoSEQ End If Content.MoveNext Loop GokeiKingaku = GokeiKingaku + Unsohi 'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100) SyohizeiKingaku = Int(GokeiKingaku * StdTaxRateUnso / 100) ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku End If End If For ii = 1 To 5 If SyohinName(ii) = "" Then SyohinName(ii) = "以下余白" Exit For End If Next Dim HyojunTankaHyoji Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then HyojunTankaHyoji = "" & Content.Fields("標準販売単価表示") End If Dim jj,tmps %> <% If PrintFlg = 1 Then %>
<% Response.Write(PrintHeader(AutoFlg, "")) %> <% Else %> <% If SenpoFlg = 0 And PrintFlg = 0 Then %> <% End If %>
<% End If %>
<% if BunsyoSyuruiCD = "CB" Then %> <% Else %> <% End If %>
<% = Spacer(1, 17) %>
<% Dim ii If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>
書類番号 :<% = BunsyoNaiyoCD %>
処 理 日 :<% = Syoribi %>
    係 印
    <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If BunsyoSyuruiCD = "CB" Then %>
取 引 先 :<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %> <% If 1 = 0 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = 0 Then %> 先方書類 <% End If %> <% If 1 = 0 And BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" AND SenpoFlg = 0 Then Response.Write(":" & SenpoSyoribi) If DbSenpoBunsyoNaiyoCD <> "" Then Response.Write(" 番号 " & DbSenpoBunsyoNaiyoCD ) End If End If %>
運 送 先 :<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoCD) %> 配 送 日 :<% = NonyuKijitsu %>
支払方法 :<% = ShiharaiHoho %>    
摘  要 :<% = Tekiyo %>
<% Else %>
取 引 先 :<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %> 配 送 日 :<% = NonyuKijitsu %>
運 送 先 :<% = ConvKaisyaMeisyoDx(EnshuCD, UnsoCD) %> 支払方法 :<% = AscLeft(ShiharaiHoho,26) %>
<% End If %>
商品名称 数 量
<% = SyohinName(1) %> <% = SetMoney(Suryo(1), false, true) %> 
<% = SyohinName(2) %>  <% = SetMoney(Suryo(2), false, true) %> 
<% = SyohinName(3) %>  <% = SetMoney(Suryo(3), false, true) %> 
<% = SyohinName(4) %>  <% = SetMoney(Suryo(4), false, true) %> 
<% = SyohinName(5) %>  <% = SetMoney(Suryo(5), false, true) %> 
<% = Spacer(1, 17) %>
<% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% End If %>
<% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If JukaFlg <> 1 Then %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% End If %> <% Else %> <% End If %> <% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If JukaFlg <> 1 Then %> <% End If %> <% End If %> <% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If JukaFlg <> 1 Then %> <% End If %> <% End If %> <% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If JukaFlg <> 1 Then %> <% End If %> <% End If %> <% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If JukaFlg <> 1 Then %> <% End If %> <% End If %> <% If JukaFlg <> 1 And HyojunTankaHyoji <> "0" Then '標準販売単価表示 %> <% End If %> <% If BunsyoSyuruiCD <> "KI" AND BunsyoSyuruiCD <> "KX" AND BunsyoSyuruiCD <> "KY" Then %> <% If JukaFlg <> 1 Then %> <% End If %> <% End If %>
商品名称標準価格数 量単 価 金 額重 量 金 額
<% = HardWrap(SyohinName(1)) %><% = SetMoney(Kakaku(1), false, true) %> <% = SetMoney(Suryo(1), false, true) %> <% = SetMoney(Tanka(1), false, true) %> <% = SetMoney(Kingaku(1), false, true) %> 
<% = HardWrap(SyohinName(2)) %><% = SetMoney(Kakaku(2), false, true) %> <% = SetMoney(Suryo(2), false, true) %> <% = SetMoney(Tanka(2), false, true) %> <% = SetMoney(Kingaku(2), false, true) %> 
<% = HardWrap(SyohinName(3)) %><% = SetMoney(Kakaku(3), false, true) %> <% = SetMoney(Suryo(3), false, true) %> <% = SetMoney(Tanka(3), false, true) %> <% = SetMoney(Kingaku(3), false, true) %> 
<% = HardWrap(SyohinName(4)) %><% = SetMoney(Kakaku(4), false, true) %> <% = SetMoney(Suryo(4), false, true) %> <% = SetMoney(Tanka(4), false, true) %> <% = SetMoney(Kingaku(4), false, true) %> 
<% = HardWrap(SyohinName(5)) %><% = SetMoney(Kakaku(5), false, true) %> <% = SetMoney(Suryo(5), false, true) %> <% = SetMoney(Tanka(5), false, true) %> <% = SetMoney(Kingaku(5), false, true) %> 
保険料・その他 <% = SetMoney(Unsohi, false, false) %> 
合計金額 <% = SetMoney(GokeiKingaku, false, false) %> 
消費税額 <% = SetMoney(SyohizeiKingaku, false, false) %> 
税込金額 <% = SetMoney(ZeikomiKingaku, false, false) %> 
<% = Spacer(1, 17) %>
この書類に関する情報
 
発信: <% = ConvFlagMeisyo(HasshinFlg, 5) %>
<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>
<% End Function %>