<% ' ' ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '運用管理演習状況記帳チェックの一覧表示フラグ Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Dim Kaishibi, Syuryobi Dim CheckType CheckType = Request("CheckType") If CheckType = "" Then CheckType = "1" End If Dim RouteType RouteType = Request("RouteType") Dim KichoCheck KichoCheck = Request("KichoCheck") Dim CheckLink Dim Query Dim Content Dim AdminCode Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then AdminCode = Content.Fields("管理者コード") End If Dim InputSokanjyoMototyo , InputHojyobo, GenbutsuCheck Dim GenkaKaikeiRiyo Dim KitakuRiyo Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputHojyobo = Content.Fields("手動補助簿表示") GenbutsuCheck = Content.Fields("現物チェック表示") GenkaKaikeiRiyo = Content.Fields("原価会計利用") KitakuRiyo = "" & Content.Fields("寄託倉庫利用") CheckLink = "" & Content.Fields("チェック画面リンク利用") End If If "" & CheckLink = "" Then CheckLink = "1" End If %> <% = HtmlHeader("") %> <% If InStr(RouteType, "KityoOnly") > 0 Then Response.Write(HtmlDesign(5)) Else Response.Write(HtmlDesign(1)) End If If GB_Admin >= 1 Then Response.Write(HttpL1(4)) Else Response.Write(HttpL1(3)) End If If GB_Admin >= 1 Then 'オートログインパラメータ取得(模擬実践の場合は最上位1名分) Dim AutoLoginGakuseiNo Dim AutoLoginPassword AutoLoginGakuseiNo = "" AutoLoginPassword = "" Query = "exec SPM演習会社履歴 '" & GB_SystemCD & "', '" & EnshuCD & "', 0" 'ソート区分指定 Set Content = OpenQuery(Query) Do While Not(Content.BOF Or Content.EOF) If Content.Fields("会社CD") = GB_KaisyaCD Then AutoLoginGakuseiNo = Content.Fields("学生番号") AutoLoginPassword = Content.Fields("パスワード") Exit Do End If Content.MoveNext Loop Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習状況チェック", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "')", "個別記帳チェック", "", "", "", "", "", "", "")) If AutoLoginGakuseiNo <> "" Then Response.Write(HttpL3_1("再表示", "PageReload();", "一覧表示", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "');", "印刷", "PrintoutReal()", " 演習会社ログイン ", "tblbtn('/" & HomeAlias & "/default_bin.asp?AutoLoginEnshuCD=" & EnshuCD & "&AutoLoginKaisyaCD=" & GB_KaisyaCD & "&GakuseiBango=" & AutoLoginGakuseiNo & "&Password=" & AutoLoginPassword & "&AutoLogin=1&AutoLoginReturn=Check');", "", "")) Else Response.Write(HttpL3_1("再表示", "PageReload();", "一覧表示", "tblbtn('/" & HomeAlias & "/admin/syokai/fm_kityochk_ichiran.asp?EnshuCD=" & EnshuCD & "&HyojiFlg=" & HyojiFlg & "');", "印刷", "PrintoutReal()", " 演習会社ログイン ", "alert('この会社を利用している生徒が存在しません ');", "", "")) End If ElseIf InStr(RouteType, "KityoOnly") > 0 Then Response.Write(HttpL2("チェックウィンドウ" ,"", "記帳チェック", "", "商品", "", "", "","", "", "", "")) ' Response.Write(HttpL3_1("再表示", "tblbtn( 'fm_kityo_check.asp?RouteType=KityoOnly')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) Response.Write(HttpL3_1("印刷", "PrintoutReal()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s4.asp')", "チェック", "", "", "", "", "")) Response.Write(HttpL3_1("再表示", "tblbtn( 'fm_syohin_check.asp')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If GenbutsuCheck = "1" Then If KichoCheck = "1" Then Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType &"&CheckType=2&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType &"&HyojiFlg=" & HyojiFlg & "&CheckType=2&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) End If Else If KichoCheck = "1" Then Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If End If If GB_Admin >= 1 Then Response.Write(HttpL4("個別商品チェック", "")) Else Response.Write(HttpL4("商品チェック", "")) End If %> <% If GB_Admin >= 1 Then '運用管理でのみ提示リロード処理 %> <% End If %> <% = HtmlFooter %> <% End Sub %>