<% 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, MaxCount Dim CSVOutput ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If 'GB_ShowPrintHeader = "1" Dim EnshuName, HyojiJyoken Dim Query Dim Content Dim ErrMsg Dim Addr, AutoFlg Dim tmp Dim KaisyaCD, GakuseiNo, BunsyoSyuruiCD, BunsyoNaiyoCD Dim SakuseiKaisyaCD Dim Param1, Param2 Dim KaisyaSelect BunsyoSyuruiCD = Request("BunsyoSyuruiCD") BunsyoNaiyoCD = Request("BunsyoNaiyoCD") Param1 = Request("Param1") Param2 = Request("Param2") Dim PageBreakFlg PageBreakFlg = "" '報告書で改ページするためのフラグ '出力範囲 Dim RengeCnt RengeCnt = 1 Dim RengeStart RengeStart = 1 Dim RengeEnd RengeEnd = 9999 Dim OutRenge OutRenge = 10 Dim Range Range = Request("Range") If Range <> "" And IsNumeric(Range) Then RengeStart = CInt(Range) RengeEnd = RengeStart + OutRenge - 1 End If %> <% If 0=1 Then %> <% ' 損益計算書販売管理費一覧現金入出金履歴預金入出金履歴入庫実績出庫実績 %> <% ElseIf AutoFlg = 1 And (BunsyoSyuruiCD = "LK" Or BunsyoSyuruiCD = "MA" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD") Then %> <% = HtmlHeader("sj3tyoboblack11") %> <% ' 商品在庫 (移動平均法) (総平均法) %> <% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MG" Or Left(BunsyoSyuruiCD, 2) = "MJ" Or Left(BunsyoSyuruiCD, 2) = "MK") Then %> <% = HtmlHeader("sj3tyoboblackPRT09") %> <% ' 受取手形履歴支払手形履歴 %> <% ElseIf AutoFlg = 1 And (Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI") Then %> <% = HtmlHeader("sj3tyoboblacks") %> <% ' 現金出納帳仕入帳売上帳当座預金出納帳売掛金元帳買掛金元帳 %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "MA" Or Left(BunsyoSyuruiCD, 2) = "MC" Or Left(BunsyoSyuruiCD, 2) = "MD" Or Left(BunsyoSyuruiCD, 2) = "MB" Or Left(BunsyoSyuruiCD, 2) = "ME" Or Left(BunsyoSyuruiCD, 2) = "MF" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' （自動）現金出納帳仕入帳売上帳商品有高帳当座預金出納帳売掛金元帳買掛金元帳受取手形記入帳支払手形記入帳 %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "AA" Or Left(BunsyoSyuruiCD, 2) = "AH" Or Left(BunsyoSyuruiCD, 2) = "AG" Or Left(BunsyoSyuruiCD, 2) = "AI" Or Left(BunsyoSyuruiCD, 2) = "AB" Or Left(BunsyoSyuruiCD, 2) = "AC" Or Left(BunsyoSyuruiCD, 2) = "AD" Or Left(BunsyoSyuruiCD, 2) = "AE" Or Left(BunsyoSyuruiCD, 2) = "AF" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' 合計残高試算表仕訳集計表損益計算書貸借対照表 %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "LC" Or Left(BunsyoSyuruiCD, 2) = "LB" Or Left(BunsyoSyuruiCD, 2) = "LF" Or Left(BunsyoSyuruiCD, 2) = "LE" Then %> <% = HtmlHeader("sj3tyobored11") %> <% ' 総勘定元帳（残高式） %> <% ElseIf SokanjyomototyoHyojyunshiki <> "1" And Left(BunsyoSyuruiCD, 2) = "LD" Then %> <% = HtmlHeader("sj3tyoboredPRT10") %> <% ' 受取手形記入帳支払手形履歴 8桁精算表総勘定元帳 %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "MH" Or Left(BunsyoSyuruiCD, 2) = "MI" Or Left(BunsyoSyuruiCD, 2) = "LG" Or Left(BunsyoSyuruiCD, 2) = "LD" Then %> <% = HtmlHeader("sj3tyoboredPRT09") %> <% ' BS/PL報告書 %> <% ElseIf Left(BunsyoSyuruiCD, 2) = "LI" Or Left(BunsyoSyuruiCD, 2) = "LJ" Then %> <% = HtmlHeader("sj3tyoboblack") %> <% ' %> <% Else %> <% = HtmlHeader("sj3tyoboreds") %> <% End If %> <% If PrintMarginControl > 0 And PrintManually = 0 Then %> <% = ScriptXObject() %> <% Else %> <% End If %> <% '演習パラメータ取得 Dim EnshuMeisho Dim EnshuKubun Dim KaikeiKaishibi Dim KaikeiSyuryobi Dim InputShiwaketyoKyuVersionRiyo Dim SokanjyomototyoHyojyunshiki Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuMeisho = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") KaikeiKaishibi = Content.Fields("会計開始日") KaikeiSyuryobi = Content.Fields("会計終了日") InputShiwaketyoKyuVersionRiyo = Content.Fields("手入力仕訳帳旧バージョン利用") SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") End If Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & EnshuCD & "', 2" Query = "" Query = Query & " " Query = Query & " SELECT TDA会社M.*, TC5学生M.氏名 " Query = Query & " FROM TDA会社M " Query = Query & " LEFT OUTER JOIN TC5学生M " Query = Query & " ON TDA会社M.システムCD = TC5学生M.システムCD " Query = Query & " AND TDA会社M.学生番号 = TC5学生M.学生番号 " Query = Query & " WHERE TDA会社M.システムCD = '" & GB_SystemCD & "' " Query = Query & " AND TDA会社M.演習CD = '" & EnshuCD & "' " Query = Query & " ORDER BY TDA会社M.学生番号, TDA会社M.会社CD " Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) ' 模擬実践は全て同時同業は自社のみ If EnshuKubun = "G" Or (Content.Fields("学生番号") <> "" And "" & Content.Fields("自社フラグ") = "1") Then If RengeCnt < RengeStart Then '印刷範囲まで飛ばす RengeCnt = RengeCnt + 1 Else '印刷ヘッダー強制上書き用セッション Session("AdminPrintEnshuMeisyo") = EnshuMeisho Session("AdminPrintKaisyaMeisyo") = Content.Fields("会社名称") Session("AdminPrintKaisyaRyakuMeisyo") = Content.Fields("会社略名称") Session("AdminPrintGakuseiNo") = Content.Fields("学生番号") Session("AdminPrintGakuseiShimei") = Content.Fields("氏名") 'response.Write("aaaaaaaaa") Select Case BunsyoSyuruiCD Case "LC" '自動合計残高試算表 Response.Write(TyoboGokeiZandakaShisanhyo(EnshuCD, Content.Fields("会社CD"), Content.Fields("会社CD"), BunsyoSyuruiCD, "", 1, 1, KaikeiSyuryobi, "", "")) Case "LG" '自動八桁精算表 Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, Content.Fields("会社CD"), Content.Fields("会社CD"), "LG", "", 1, 1, KaikeiSyuryobi, "0", "")) Case "LG1" '自動八桁精算表（決算振替後） Response.Write(TyoboHachiketaSeisanhyo(EnshuCD, Content.Fields("会社CD"), Content.Fields("会社CD"), "LG", "", 1, 1, KaikeiSyuryobi, "1", "")) Case "LI" '貸借対照表（報告書形式） Response.Write(TyoboTaisyakuTaisyohyoHokokusyo(EnshuCD, Content.Fields("会社CD"), Content.Fields("会社CD"), "LI", "", 0, 1, KaikeiKaishibi, KaikeiSyuryobi, PageBreakFlg)) Case "LJ" '損益計算書（報告書形式） Response.Write(TyoboSonekiKeisansyoHokokusyo(EnshuCD, Content.Fields("会社CD"), Content.Fields("会社CD"), "LJ", "", 0, 1, KaikeiKaishibi, KaikeiSyuryobi, "0-0-" & PageBreakFlg)) Case Else End Select PageBreakFlg = "PageBreak" '報告書で改ページするためのフラグ '印刷範囲で抜ける RengeCnt = RengeCnt + 1 If RengeCnt > RengeEnd Then Exit Do End If End If End If Content.MoveNext Loop '印刷ヘッダー強制上書き用セッションをクリアする Session("AdminPrintEnshuMeisyo") = "" Session("AdminPrintKaisyaMeisyo") = "" Session("AdminPrintKaisyaRyakuMeisyo") = "" Session("AdminPrintGakuseiNo") = "" Session("AdminPrintGakuseiShimei") = "" %> <% End Sub %>