<%
'
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content
Dim tmp
Dim Kaishibi
Dim Syuryobi
Dim TanaorosiFlg
Dim TanaorosiKubun
Dim PageType
PageType = "貸借対照表"
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
TanaorosiKubun = Request("TanaorosiKubun")
Dim KurikoshiKubun
KurikoshiKubun = Request("KurikoshiKubun")
Dim KurikoshiFlg
If KurikoshiKubun = "1" Then 'チェックあり
KurikoshiFlg = "checked"
'決算振替後の場合は集計日を会計終了日にする（決算関係仕訳は全て会計終了日で仕訳けられるため）
Syuryobi = GB_KaikeiSyuryobi
Else
KurikoshiFlg = ""
End If
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
Dim RouteType
RouteType = Request("RouteType")
Dim bExistSyuseiKinyu
bExistSyuseiKinyu = 0
Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
bExistSyuseiKinyu = 1
End If
%>
<% = HtmlHeader("sj3tyobored11") %>
<% = HtmlFooter %>
<%
End Sub
%>