<% ' ' ' %> <% Dim WK_Zandaka_KanjyoCD() Dim WK_Zandaka_KanjyoName() Dim WK_Zandaka_KariKingaku() Dim WK_Zandaka_KashiKingaku() Dim WK_Zandaka_KanjyoKubun() Dim WK_Zandaka_TaisyakuKubun() Dim WK_Zandaka_SyukeiCD() Dim ShowCount Dim MaxCount main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query, Content Dim tmp Dim Kaishibi Dim Syuryobi Dim TanaorosiFlg, HiNikubun, HiNikubunFlg Dim TanaorosiKubun Dim PageType PageType = "損益計算書(報告書形式)" 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 Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") TanaorosiKubun = Request("TanaorosiKubun") HiNikubun = Request("HiNikubun") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If If HiNikubun = "1" Then 'チェックあり HiNikubunFlg = "checked" Else HiNikubunFlg = "" End If Dim RouteType RouteType = Request("RouteType") %> <% = HtmlHeader("sj3tyoboblack") %> <% = PrintScriptX %> <% Response.Write(TyoboSonekiKeisansyoHokokusyo(EnshuCD, KaisyaCD, KaisyaCD, "LG", "", 0, 1, Kaishibi, Syuryobi, HiNikubun & "-" & TanaorosiKubun)) %> <% = HtmlFooter %> <% End Sub %>