%
'
'
'
%>
<%
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")
%>
<% = AppTitle %>
<% = 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
%>