% 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 VXeCD = '" & 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`[EvAζψζCD Dim DenpyoSyoriKubun,TujyoHenpinKubun,PageType '`[ζͺAΚνΤiζͺAy[W^Cv Dim SyohinCD(5) '€iR[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 'ΨϋvAέϋ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 '/////// PDu`[vwb_Μ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("`[Ev") DenpyoSyoriKubun = Content.Fields("`[ζͺ") TujyoHenpinKubun = Content.Fields("ΚνΤiζͺ") TorihikisakiCD = Content.Fields("ζψζCD") GakuseiShimei = Content.Fields("Ό") GakuseiBango = Content.Fields("wΆΤ") SakujyoFlg = Content.Fields("νtO") End If End If %>
<%
If PrintFlg > 0 Then
'A±σόpΗΑi070606¬μjPrintFlg = 2ΜκΝόy[W
If PrintFlg = 2 Then
%> <%
End if
Response.Write(PrintHeader(AutoFlg, ""))
End if
%>
") End if %> |