% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim ShowDel Dim RouteType RouteType = Request("RouteType") ShowDel = Request("ShowDel") Dim DenpyoNo DenpyoNo = Request("DenpyoNo") Dim PageType PageType = "決算整理仕訳" '決算振替仕訳にトグルするためのフラグ(081021小野) Dim Kimatsu Kimatsu = Request("Kimatsu") If Kimatsu = "Kurikoshi" Then PageType = "決算振替仕訳" End If '連続印刷用追加(070606小野) Dim DataCnt DataCnt = 0 Dim SonzaiFlg SonzaiFlg = 0 Dim Query Dim Content Query = "exec SPK伝票_振替伝票一覧 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "'" Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If (Kimatsu = "Kurikoshi" And Content.Fields("伝票処理区分") = 10) Or (Kimatsu <> "Kurikoshi" And Content.Fields("伝票処理区分") = 9) Then If ShowDel = "1" Or (ShowDel <> "1" And Content.Fields("削除フラグ") <> 1) Then SonzaiFlg = 1 Exit Do End If End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
<% = HtmlFooter %>