<% ' ' ' %> <% Dim CSVOutput CSVOutput = "" main() Sub main() Dim Kaishibi Dim Syuryobi Dim Query Dim Content Dim ii, jj Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim PageType PageType = Request("PageType") Dim RouteType RouteType = Request("RouteType") '補助簿種別パラメータ Dim GinkoCD, KozaKubun, KozaBango GinkoCD = Request("GinkoCD") KozaKubun = Request("KozaKubun") KozaBango = Request("KozaBango") Dim TorihikisakiCD TorihikisakiCD = Request("TorihikisakiCD") %> <% = HtmlHeader("sj3tyobored11") %> <% = PrintScriptX %> <% '現金出納帳 If PageType = "AA" Then Response.Write(HojyoboGenkinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MA", "", 2, 1)) '当座預金出納帳 ElseIf PageType = "AB" Then Response.Write(HojyoboTozaYokinSuitohyo(EnshuCD, KaisyaCD, KaisyaCD, "MB", GinkoCD, 2, 1, KozaKubun, KozaBango, RouteType)) '売掛金元帳 ElseIf PageType = "AC" Then Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "ME", TorihikisakiCD, RouteType, 2, 1)) '買掛金元帳 ElseIf PageType = "AD" Then Response.Write(HojyoboUrikaikakekintyo(EnshuCD, KaisyaCD, KaisyaCD, "MF", TorihikisakiCD, RouteType, 2, 1)) '受取手形記入帳 ElseIf PageType = "AE" Then Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MH", "", 2, 1)) '支払手形記入帳 ElseIf PageType = "AF" Then Response.Write(HojyoboUketoriShiharaiTegatatyo(EnshuCD, KaisyaCD, KaisyaCD, "MI", "", 2, 1)) '売上帳 ElseIf PageType = "AG" Then Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MD", "", 2, 1)) '仕入帳 ElseIf PageType = "AH" Then Response.Write(HojyoboShiireUriagetyo(EnshuCD, KaisyaCD, KaisyaCD, "MC", "", 2, 1)) End If %> <% End Sub %>