% ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim RouteType Dim PageType Dim DenpyoNo RouteType = Request("RouteType") PageType = Request("PageType") DenpyoNo = Request("DenpyoNo") Dim ShowDel ShowDel = Request("ShowDel") Dim Mode Mode = Request("Mode") Dim Title If Mode = "Seizo" Then Title = "製造部" 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 Content.Fields("伝票処理区分") <> 9 And Content.Fields("伝票処理区分") <> 10 Then If ShowDel = "1" Or (ShowDel <> "1" And Content.Fields("削除フラグ") <> 1) Then SonzaiFlg = 1 Exit Do End If End If Content.MoveNext Loop %>