<% Function UnsoSeikyuSyorui(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 Query, Query2 Dim Content Dim Action Dim TorihikisakiCD Dim Syoribi, GakuseiBango Dim ShiharaiHoho , HasshinFlg, Tekiyo Dim SakujyoFlg Dim GokeiKingaku, SyohizeiKingaku, ZeikomiKingaku Dim ShiireUriageBunsyoNaiyoCD, tmps Dim DbTorihikisakiCD Dim DbSakuseiKaishaCD Dim BunsyoKubun Dim MeisaiUnsobi(5) Dim MeisaiUnsosakiCD(5) Dim MeisaiUnsohi(5) Dim MeisaiUnsosakiMeisyo(5) For ii = 1 To 5 MeisaiUnsobi(ii) = "" MeisaiUnsosakiCD(ii) = "" MeisaiUnsohi(ii) = "" MeisaiUnsosakiMeisyo(ii) = "" Next Dim RouteType RouteType = Request("RouteType") Dim SenpoFlg SenpoFlg = 0 If SakuseiKaisyaCD <> KaisyaCD Then SenpoFlg = 1 End IF TorihikisakiCD = Request("TorihikisakiCD") If SenpoFlg = 1 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 & "'" Else Query = "exec SPC運送費請求書取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & SakuseiKaisyaCD & "', '" & BunsyoSyuruiCD & "', '" & BunsyoNaiyoCD & "'" End If 'Response.Write(Query) 'Exit Function Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Syoribi = SetTimeYYYYMMDD(Content.Fields("処理日")) DbTorihikisakiCD = Content.Fields("取引先CD") DbSakuseiKaishaCD = Content.Fields("作成会社CD") ShiharaiHoho = Content.Fields("支払方法") Tekiyo = Content.Fields("摘要") HasshinFlg = Content.Fields("発行フラグ") SakujyoFlg = Content.Fields("削除フラグ") GakuseiBango = Content.Fields("学生番号") BunsyoKubun = Content.Fields("文書区分") If BunsyoKubun = "CA" Then ShiireUriageBunsyoNaiyoCD = Content.Fields("納品請求書番号群") Else ii = 0 Do While Not(Content.BOF Or Content.EOF) ii = ii + 1 MeisaiUnsobi(ii) = SetTimeYYYYMMDD(Content.Fields("運送日")) MeisaiUnsosakiCD(ii) = Content.Fields("運送先CD") MeisaiUnsohi(ii) = Content.Fields("運送費") MeisaiUnsosakiMeisyo(ii) = ConvKaisyaMeisyoDx(EnshuCD, MeisaiUnsosakiCD(ii)) Content.MoveNext Loop End If End If For ii = 1 To 5 If MeisaiUnsosakiMeisyo(ii) = "" Then MeisaiUnsosakiMeisyo(ii) = "以下余白" Exit For End If Next Dim SyoruiMei, Title SyoruiMei = "運送費請求書" Title = SyoruiMei '請求元情報取得（100917小野）※請求先を表示してしまっていたので修正（150511小野） Dim Adr1 Dim Adr2 Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & DbSakuseiKaishaCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Adr1 = Content.Fields("住所1") Adr2 = Content.Fields("住所2") End If %> <% If PrintFlg = 1 Then %>

<% Response.Write(PrintHeader(AutoFlg, "")) %> <% Else %>

<% End if %> <% If SenpoFlg = 0 And PrintFlg = 0 Then %> <% End If %>

<% Dim ii If Len(SyoruiMei) < 8 Then Response.Write(SetStringInsertSpace(SyoruiMei)) Else Response.Write(SyoruiMei) End If %>

書類番号	：<% = BunsyoNaiyoCD %>
処理日	：<% = Syoribi %>

		係　印
		<% = ConvShimeiRyakuMeisyo(GakuseiBango) %>

取引先	：<% = ConvKaisyaMeisyoDx(EnshuCD, DbTorihikisakiCD) %>	<% = ConvKaisyaMeisyoDx(EnshuCD, DbSakuseiKaishaCD) %>
支払方法	：<% = ShiharaiHoho %>	<% = Adr1 %>
摘　　要	：<% = Tekiyo %>	<% = Adr2 %>

<% If BunsyoKubun = "CA" Then %> <% End If %>

<% If BunsyoKubun <> "CA" Then GokeiKingaku = 0 For ii = 1 To 5 %> <% If MeisaiUnsohi(ii) <> "" Then GokeiKingaku = GokeiKingaku + MeisaiUnsohi(ii) End If Next 'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100) SyohizeiKingaku = Int(GokeiKingaku * StdTaxRateUnso / 100) ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku End If %>

処理日	運送先	金額
<% = MeisaiUnsobi(ii) %>	<% = MeisaiUnsosakiMeisyo(ii) %>	<% = ConvIntToMoney(MeisaiUnsohi(ii), false, false) %>

<% If PrintFlg = 0 Then %>

<% End If %> <% If SenpoFlg = 1 Then Query2 = "exec SPC運送費請求一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & SakuseiKaisyaCD & "', '" & DbTorihikisakiCD & "','" & GB_KaikeiSyuryobi & "'" Else Query2 = "exec SPC運送費請求一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '" & DbTorihikisakiCD & "','" & GB_KaikeiSyuryobi & "'" End If 'Response.Write(Query2) 'Exit Function TorihikisakiCD = DbTorihikisakiCD Dim SyoriYMD tmps = split(ShiireUriageBunsyoNaiyoCD, ",") GokeiKingaku = 0 Dim kk, bExist ii = 0 Set Content = OpenQuery(Query2) Do While Not(Content.BOF Or Content.EOF) bExist = 0 For kk = 0 To UBound(tmps) Dim tmpss tmpss = split(tmps(kk), ":") If UBound(tmpss) = 1 Then If Content.Fields("会社CD") = tmpss(0) And Content.Fields("文書種類CD") = "KN" And Int(Content.Fields("文書内容CD")) = Int(tmpss(1)) Then bExist = 1 End if ElseIf UBound(tmpss) = 2 Then If Content.Fields("会社CD") = tmpss(0) And Content.Fields("文書種類CD") = tmpss(1) And Content.Fields("文書内容CD") = tmpss(2) Then bExist = 1 End if End If Next If bExist = 1 Then GokeiKingaku = GokeiKingaku + Content.Fields("運送費") Response.Write("" & vbCrLf) ' Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) ii = ii + 1 Response.Write("") End If Content.MoveNext Loop Dim jj For jj = ii To 6 Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("" & vbCrLf) Response.Write("") Next 'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100) SyohizeiKingaku = Int(GokeiKingaku * StdTaxRateUnso / 100) ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku %>

" & Content.Fields("文書内容CD") & "	" & SetTimeYYYYMMDD(Content.Fields("処理日")) & "	" & ConvKaisyaMeisyoDx(EnshuCD, Content.Fields("取引先CD")) & "	" & ConvIntToMoney(Content.Fields("運送費"), false, false) & "
	") If jj = ii Then Response.Write("以下余白") End If Response.Write("

<% If PrintFlg = 0 Then %>

<% End If %>

	合計金額	<% = SetMoney(GokeiKingaku, false, false) %>
	消費税額	<% = SetMoney(SyohizeiKingaku, false, false) %>
	税込金額	<% = SetMoney(ZeikomiKingaku, false, false) %>

この書類に関する情報

　

発信： <% = ConvFlagMeisyo(HasshinFlg, 5) %>

<% If PrintFlg = 1 Then Response.Write(PrintFooter()) End if %>

<% End Function %>