<% Function DenpyoShiireUriage(EnshuCD, KaisyaCD, SakuseiKaisyaCD, DenpyoKubun, DenpyoNo, AutoFlg, PrintFlg) 'ƒ}ƒXƒ^‚Ì•W€Á”ïÅ—¦‚ðŽæ“¾ Dim StdTaxRate Dim StdTaxRateUnso StdTaxRate = GB_Shohizei StdTaxRateUnso = GB_Shohizei If GB_ShohizeiMode = 1 Then Query = " SELECT * FROM TDAÁ”ïÅ—¦M WHERE ƒVƒXƒeƒ€CD = '" & GB_SystemCD & "' AND ‰‰KCD = '" & EnshuCD & "' AND (•W€ = '1' OR ‰^‘—”ï•W€ = '1') " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If "" & Content.Fields("•W€") = "1" Then StdTaxRate = Content.Fields("Á”ïÅ—¦") End If If "" & Content.Fields("‰^‘—”ï•W€") = "1" Then StdTaxRateUnso = Content.Fields("Á”ïÅ—¦") End If Content.MoveNext Loop End If Dim TmpCnt Dim Torihikibi, DenpyoTekiyo,TorihikisakiCD '“`•[”Ô†AŽæˆø“úA“`•[“E—vAŽæˆøæCD Dim DenpyoSyoriKubun,TujyoHenpinKubun,PageType '“`•[ˆ—‹æ•ªA’Êí•Ô•i‹æ•ªAƒy[ƒWƒ^ƒCƒv Dim SyohinCD(5) '¤•iƒR[ƒh Dim SyohinName(5) '¤•i–¼Ì Dim Kakaku(5) '•W€‰¿Ši Dim Suryo(5) '”—Ê Dim Tanka(5) '’P‰¿ Dim Kingaku(5) '‹àŠz Dim TaxRate(5) 'Á”ïÅ—¦ Dim GokeiKingaku '‡Œv Dim SyohizeiKingaku 'Á”ïÅ Dim ZeikomiKingaku 'Åž‚Ý‹àŠz Dim KarikataGokei, KashikataGokei 'ŽØ•û‡ŒvA‘Ý•û‡Œv 'For TmpCnt = 1 To 5 'TaxRate(TmpCnt) = StdTaxRate 'Next Dim Query Dim Content Dim Genkin, Toza Dim Amend Dim Shimei Dim GakuseiShimei Dim RouteType Dim SakujyoFlg Dim GakuseiBango SakujyoFlg = 0 RouteType = Request("RouteType") PageType = Request("PageType") Dim LabelSoumu Dim LabelTanto Dim LabelKakari LabelSoumu = "" LabelTanto = "" LabelKakari = "ŒW@ˆó" If MHMINRANLEFT <> "" Then LabelSoumu = MHMINRANLEFT End If If MHMINRANCENTER <> "" Then LabelTanto = MHMINRANCENTER End If If MHMINRANRIGHT <> "" Then LabelKakari = MHMINRANRIGHT End If Dim title If DenpyoKubun = "D3" Then title = "Žd“ü“`•[" Else title = "”„ã“`•[" End If Dim SenColor If PrintFlg > 0 Then SenColor = "#000000" Else SenColor = "#5500FF" End If SenColor = "#5500FF" If DenpyoNo <> "" Then '/////// ‚PDu“`•[vƒwƒbƒ_•”‚̃f[ƒ^‚ðŽæ“¾B If DenpyoKubun = "D3" Then Query = "exec SPK“`•[_Žd“ü“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Else Query = "exec SPK“`•[_”„ã“`•[Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Torihikibi = SetTimeYYYYMMDD(Content.Fields("Žæˆø“ú")) DenpyoTekiyo = Content.Fields("“`•[“E—v") DenpyoSyoriKubun = Content.Fields("“`•[ˆ—‹æ•ª") TujyoHenpinKubun = Content.Fields("’Êí•Ô•i‹æ•ª") TorihikisakiCD = Content.Fields("ŽæˆøæCD") GakuseiShimei = Content.Fields("Ž–¼") GakuseiBango = Content.Fields("Šw¶”Ô†") SakujyoFlg = Content.Fields("휃tƒ‰ƒO") End IF '/////// ‚QDuŽd“ü–¾×v–¾×•”‚̃f[ƒ^‚ðŽæ“¾B If DenpyoKubun = "D3" Then Query = "exec SPK“`•[_Žd“ü–¾×Žæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Else Query = "exec SPK“`•[_”„㖾׎擾 '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" End If Set Content = OpenQuery(Query) GokeiKingaku = 0 SyohizeiKingaku = 0 If Not(Content.BOF Or Content.EOF) Then Do While Not(Content.BOF Or Content.EOF) Dim DenpyoSEQ DenpyoSEQ = Content.Fields("Žd“ü”„ã–¾×SEQ") SyohinCD(DenpyoSEQ) = Content.Fields("¤•iCD") SyohinName(DenpyoSEQ) = Content.Fields("¤•i–¼Ì") Kakaku(DenpyoSEQ) = Content.Fields("•W€”Ì”„’P‰¿") If SyohinCD(DenpyoSEQ) = "ETCSHOHIN" Then Kakaku(DenpyoSEQ) = null 'u‚»‚Ì‘¼‚̤•iv‚Í•W€”Ì”„’P‰¿–³‚µ End If Suryo(DenpyoSEQ) = Content.Fields("Žó’”—Ê") Tanka(DenpyoSEQ) = Content.Fields("Žó’’P‰¿") Kingaku(DenpyoSEQ) = Content.Fields("Žó’’P‰¿") * Content.Fields("Žó’”—Ê") GokeiKingaku = GokeiKingaku + Kingaku(DenpyoSEQ) TaxRate(DenpyoSEQ) = Content.Fields("Á”ïÅ—¦") If "" & TaxRate(DenpyoSEQ) = "" Or GB_ShohizeiMode <> 1 Then TaxRate(DenpyoSEQ) = StdTaxRate End If 'SyohizeiKingaku = Int(GokeiKingaku * TaxRate(DenpyoSEQ) / 100) SyohizeiKingaku = SyohizeiKingaku + (Kingaku(DenpyoSEQ) * TaxRate(DenpyoSEQ) / 100) Content.MoveNext Loop End If End If SyohizeiKingaku = Fix(SyohizeiKingaku) ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku Dim ShiireUriageSyohizei Dim HyojunTankaHyoji Query = "exec SPM‰‰KŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ShiireUriageSyohizei = "" & Content.Fields("Žd“ü”„ã“`•[Á”ïÅŽè“®Žd–ó") HyojunTankaHyoji = "" & Content.Fields("•W€”Ì”„’P‰¿•\Ž¦") End If If ShiireUriageSyohizei = "1" Then SyohizeiKingaku = 0 ZeikomiKingaku = SyohizeiKingaku + GokeiKingaku End If %> <% 'GB_ShohizeiMode = 0 %> <% If PrintFlg > 0 Then '˜A‘±ˆóü—p’ljÁi070606¬–ìjPrintFlg = 2‚Ìꇂ͉üƒy[ƒW If PrintFlg = 2 Then Response.Write(PageBreakBefore) End if End if %>
<% If PrintFlg > 0 Then Response.Write(PrintHeader(AutoFlg, "")) End if %>
<% = Left(title,1) & space(1) & Mid(title, 2, 1) %> “` •[<% If "" & SakujyoFlg = "1" Then Response.Write("@¦íœÏ‚Ý") End If %>
“`•[”Ô†F <% = DenpyoNo %>
Žæˆø“úF <% = Torihikibi %>
“E—vF <% = DenpyoTekiyo %>
ŽæˆøæF <% = ConvKaisyaMeisyo(TorihikisakiCD) %>
“`•[‹æ•ªF <% If TujyoHenpinKubun = "N" Then %>’Êí<% ElseIf DenpyoNo <> "" Then %>•Ô•i<% End If %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
@ @ <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %>
¤•i–¼Ì<% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("•W€‰¿Ši") End If %>”@—Ê ’P@‰¿ ‹à@ŠzÅ—¦
<% If GB_ShohizeiMode = 1 Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% Else %> <% End If %> <% If HyojunTankaHyoji <> "0" Then '•W€”Ì”„’P‰¿•\Ž¦ %> <% End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %>
<% = AscLeft(SyohinName(1),20) %>@ <% = AscLeft(SyohinName(1),26) %>@ <% = SetMoney(Kakaku(1), false, true) %>@<% = SetMoney(Suryo(1), false, true) %>@ <% = SetMoney(Tanka(1), false, true) %>@ <% = SetMoney(Kingaku(1), false, true) %>@<% If "" & TaxRate(1) <> "" Then %><% = TaxRate(1) %>“@<% End If %>
<% = AscLeft(SyohinName(2),20) %>@ <% = AscLeft(SyohinName(2),26) %>@ <% = SetMoney(Kakaku(2), false, true) %>@<% = SetMoney(Suryo(2), false, true) %>@ <% = SetMoney(Tanka(2), false, true) %>@ <% = SetMoney(Kingaku(2), false, true) %>@<% If "" & TaxRate(2) <> "" Then %><% = TaxRate(2) %>“@<% End If %>
<% = AscLeft(SyohinName(3),20) %>@ <% = AscLeft(SyohinName(3),26) %>@ <% = SetMoney(Kakaku(3), false, true) %>@<% = SetMoney(Suryo(3), false, true) %>@ <% = SetMoney(Tanka(3), false, true) %>@ <% = SetMoney(Kingaku(3), false, true) %>@<% If "" & TaxRate(3) <> "" Then %><% = TaxRate(3) %>“@<% End If %>
<% = AscLeft(SyohinName(4),20) %>@ <% = AscLeft(SyohinName(4),26) %>@ <% = SetMoney(Kakaku(4), false, true) %>@<% = SetMoney(Suryo(4), false, true) %>@ <% = SetMoney(Tanka(4), false, true) %>@ <% = SetMoney(Kingaku(4), false, true) %>@<% If "" & TaxRate(4) <> "" Then %><% = TaxRate(4) %>“@<% End If %>
<% = AscLeft(SyohinName(5),20) %>@ <% = AscLeft(SyohinName(5),26) %>@ <% = SetMoney(Kakaku(5), false, true) %>@<% = SetMoney(Suryo(5), false, true) %>@ <% = SetMoney(Tanka(5), false, true) %>@ <% = SetMoney(Kingaku(5), false, true) %>@<% If "" & TaxRate(5) <> "" Then %><% = TaxRate(5) %>“@<% End If %>
<% If GB_ShohizeiMode = 1 Then %> <% End If %> <% 'ShiireUriageSyohizei = "1" %> <% If ShiireUriageSyohizei <> "1" Then %> <% End If %>
@ ‡Œv‹àŠz <% = SetMoney(GokeiKingaku, false, true) %>@@
Á”ïÅŠz <% = SetMoney(SyohizeiKingaku, false, true) %>@
Åž‹àŠz <% = SetMoney(ZeikomiKingaku, false, true) %>@
<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '˜A‘±ˆóü—p’ljÁi070606¬–ìj Response.Write("
" & vbCrLf) End if %>
<% End Function %>