<%
'
'
'
%>
<%
Dim CSVOutput
CSVOutput = ""
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Kaishibi
Dim Syuryobi
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
Dim Query
Dim Content
Dim ii, jj, iiSyukeihyoSelect, ShiwakeData, iiMototyoSelect, MototyoData
Dim SokanjyoMototyoCD
Dim DbKanjyoCD, DbShiwakeData, DbDenpyoTekiyo, DbTekiyo1, DbTekiyo2
Dim DbKanjyoMeisyo, DbMototyo
Dim DbDenpyoKubun, DbDenpyoNo , DbDenpyoSEQ
Dim DbTekiyo, DbTorihikibi, DbShityo, DbZandaka, DbMototyoData
Dim DbKarikataKingaku, DbKashikataKingaku
Dim DbKarikataKingakuTotal, DbKashikataKingakuTotal
Dim DbSokanjyoMototyoCD
Dim KanjyoCD
Dim ViewTorihikibi
Dim DenpyoKubun, DenpyoNo, DenpyoSEQ
KanjyoCD = Request("KanjyoCD")
ViewTorihikibi = Request("ViewTorihikibi")
DenpyoKubun = Request("DenpyoKubun")
DenpyoNo = Request("DenpyoNo")
DenpyoSEQ = Request("DenpyoSEQ")
Dim PageType
PageType = Request("PageType")
Dim Label
If PageType = "AA" Then
Label = "現金出納帳"
ElseIf PageType = "AB" Then
Label = "当座預金出納帳"
ElseIf PageType = "AC" Then
Label = "売掛金元帳"
ElseIf PageType = "AD" Then
Label = "買掛金元帳"
ElseIf PageType = "AE" Then
Label = "受取手形記入帳"
ElseIf PageType = "AF" Then
Label = "支払手形記入帳"
ElseIf PageType = "AG" Then
Label = "売上帳"
ElseIf PageType = "AH" Then
Label = "仕入帳"
End If
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") %>
<% = HtmlFooter %>
<%
End Sub
%>