<% Function DenpyoZairyoShiire(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 Torihikibi, DenpyoTekiyo,TorihikisakiCD '“`•[”ԍ†AŽζˆψ“ϊA“`•[“E—vAŽζˆψζ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 GokeiKingaku '‡Œv Dim SyohizeiKingaku 'Α”οΕ Dim ZeikomiKingaku 'Εž‚έ‹ΰŠz Dim KarikataGokei, KashikataGokei 'ŽΨ•ϋ‡ŒvA‘έ•ϋ‡Œv 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 title = "ή—ΏŽd“ό“`•[" Dim SenColor If PrintFlg > 0 Then SenColor = "#000000" Else SenColor = "#5500FF" End If SenColor = "#5500FF" If DenpyoNo <> "" Then '/////// ‚PDu“`•[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 End If %> <% If PrintFlg > 0 Then '˜A‘±ˆσό—p’Η‰Α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 %>
ή —Ώ Žd “ό “` •[<% If "" & SakujyoFlg = "1" Then Response.Write("
¦νœΟ‚έ
") End If %>
“`•[”ԍ†F <% = DenpyoNo %>
Žζˆψ“ϊF <% = Torihikibi %>
“E—vF <% = DenpyoTekiyo %>
ŽζˆψζF <% = ConvKaisyaMeisyo(TorihikisakiCD) %>
“`•[‹ζ•ͺF <% If TujyoHenpinKubun = "N" Then %>’ʏν<% ElseIf DenpyoNo <> "" Then %>•Τ•i<% End If %>
<% = LabelSoumu %> <% = LabelTanto %> <% = LabelKakari %>
@ @ <% = ConvShimeiRyakuMeisyo(GakuseiBango) %>
<% If GB_ShohizeiMode = 1 Then %> <% End If %>
ή—Ώ–ΌΜ <% If MHMSTDSELLPRICE <> "" Then Response.Write(MHMSTDSELLPRICE) Else Response.Write("•W€’P‰Ώ") End If %> ”@—Κ ’P@‰Ώ ‹ΰ@ŠzΕ—¦
<% If PrintFlg = 0 Then %>
<% End If %> <% Dim RowCnt RowCnt = 0 '/////// ‚QDuŽd“ό–ΎΧv–ΎΧ•”‚Μƒf[ƒ^‚πŽζ“ΎB Query = "exec SPK“`•[_ή—ΏŽd“ό–ΎΧŽζ“Ύ '" & GB_SystemCD & "','" & EnshuCD & "','" & KaisyaCD & "', '" & DenpyoNo & "'" Set Content = OpenQuery(Query) GokeiKingaku = 0 SyohizeiKingaku = 0 Do While Not(Content.BOF Or Content.EOF) GokeiKingaku = GokeiKingaku + (Content.Fields("Žσ’’P‰Ώ") * Content.Fields("Žσ’”—Κ")) 'SyohizeiKingaku = Int(GokeiKingaku * GB_Shohizei / 100) 'ZeikomiKingaku = GokeiKingaku + SyohizeiKingaku If "" & Content.Fields("Α”οΕ—¦") = "" Or GB_ShohizeiMode <> 1 Then SyohizeiKingaku = SyohizeiKingaku + (((Content.Fields("Žσ’’P‰Ώ") * Content.Fields("Žσ’”—Κ")) * StdTaxRate) / 100) Else SyohizeiKingaku = SyohizeiKingaku + (((Content.Fields("Žσ’’P‰Ώ") * Content.Fields("Žσ’”—Κ")) * Content.Fields("Α”οΕ—¦")) / 100) End If %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% RowCnt = RowCnt + 1 Content.MoveNext Loop ZeikomiKingaku = GokeiKingaku + Fix(SyohizeiKingaku) Dim ii For ii = RowCnt To 9 - 1 %> <% If GB_ShohizeiMode = 1 Then %> <% End If %> <% Next %>
<% = AscLeft(Content.Fields("ή—Ώ–ΌΜ"),26) %>  <% = SetMoney(Content.Fields("•W€”Μ”„’P‰Ώ"), false, true) %>  <% = SetMoney(Content.Fields("Žσ’”—Κ"), false, true) %>  <% = SetMoney(Content.Fields("Žσ’’P‰Ώ"), false, true) %>  <% = SetMoney(Content.Fields("Žσ’’P‰Ώ") * Content.Fields("Žσ’”—Κ"), false, true) %> <% = Content.Fields("Α”οΕ—¦") %>“ 
          
<% If PrintFlg = 0 Then %>
<% End If %>
@ ‡Œv‹ΰŠz <% = SetMoney(GokeiKingaku, false, true) %>@ @
Α”οΕŠz <% = SetMoney(Fix(SyohizeiKingaku), false, true) %>@
Εž‹ΰŠz <% = SetMoney(ZeikomiKingaku, false, true) %>@
<% If PrintFlg > 0 Then Response.Write(PrintFooter()) '˜A‘±ˆσό—p’Η‰Αi070606¬–μj Response.Write("


") End if %>
<% End Function %>