% ' ' ' %> <% 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 PageType PageType = "合計残高試算表" Dim RouteType RouteType = Request("RouteType") Dim KurikoshiKubun KurikoshiKubun = Request("KurikoshiKubun") '決算整理後・決算振替後の場合は集計期間を会計期間にする(決算関係仕訳は全て会計終了日で仕訳けられるため) If KurikoshiKubun = "1" Or KurikoshiKubun = "2" Then Kaishibi = GB_KaikeiKaishibi Syuryobi = GB_KaikeiSyuryobi End If Dim TmpGyoshu TmpGyoshu = "" If InStr(RouteType, "SeizoBu") > 0 Then TmpGyoshu = "G" End If %> <% = HtmlHeader("sj3tyobored11") %>
<% = HtmlFooter %> <% End Sub %>