<%
'
'
'
%>
<%
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
Dim PageType
PageType = "八桁精算表"
Dim RouteType
RouteType = Request("RouteType")
Dim KurikoshiKubun
KurikoshiKubun = Request("KurikoshiKubun")
Dim KurikoshiFlg
If KurikoshiKubun = "1" Then 'チェックあり
KurikoshiFlg = "checked"
'決算振替後の場合は集計日を会計終了日にする（決算関係仕訳は全て会計終了日で仕訳けられるため）
Syuryobi = GB_KaikeiSyuryobi
Else
KurikoshiFlg = ""
End If
%>
<% = HtmlHeader("sj3tyobored11") %>
<% = HtmlFooter %>
<%
End Sub
%>