<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim ii, jj '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" If Request("EnshuCD") <> "" Then EnshuCD = Request("EnshuCD") End If Session(HomeAlias & "EnshuCD") = EnshuCD Dim EnshuKubun Dim GenkaKaikeiRiyo If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") GenkaKaikeiRiyo = "" & Content.Fields("原価会計利用") End If '表記名称マスタ取得 Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '" & EnshuCD & "', ''" '表記CD=NULLは一覧取得 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" & Content.Fields("表記名称") '表記CDの先頭に"MHM"を付加したセッション変数に格納 Content.MoveNext Loop Else '表記名称セッションクリア Query = "exec SPM表記名称取得 '" & GB_SystemCD & "', '', ''" '演習CD=NULLは全演習から取得し表記CDでグルーピング Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) Session(HomeAlias & "MHM" & Content.Fields("表記CD")) = "" Content.MoveNext Loop End If 'サイバー会計モードは原価会計非利用 If PackageMode = 1 Then GenkaKaikeiRiyo = "0" End If Dim TableWidthPlus TableWidthPlus = 0 ' If GenkaKaikeiRiyo = "1" Then ' TableWidthPlus = 120 ' End If '会社数を取得(fm_print_ikkatsu_print.asp と同じクエリ) Dim KaishaCnt KaishaCnt = 0 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 KaishaCnt = KaishaCnt + 1 End If Content.MoveNext Loop %> <% = HtmlHeader("") %>
" autocomplete="off"> <% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin >= 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "tblbtn('fm_tyohyo.asp');", "帳票一括印刷", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "書類一覧", "tblbtn('fm_tyohyo.asp');", "帳票一括印刷", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("帳票一括印刷", "")) Response.Write(HttpL5("")) %>
<% = HtmlFooter %> <% End Sub %>