<% ' ' ' %> <% 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 KinkoHyoji Dim YTegataHyoji Dim KTegataHyoji Dim TegataHyoji TegataHyoji = "1" Dim GinkoKozaToza Dim GinkoKozaFutu Dim GinkoKozaBetsudan Dim GinkoKozaTsumitate Dim GinkoKozaTeiki Dim SokanjyomototyoHyojyunshiki Dim CheckLink Dim Query Dim Content Dim InputSokanjyoMototyo , InputHojyobo, RiyoDenpyoSu, SyohinCheck, GenbutsuCheck Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Dim YobiB InputSokanjyoMototyo = Content.Fields("手動総勘定元帳表示") InputHojyobo = Content.Fields("手動補助簿表示") RiyoDenpyoSu = Content.Fields("利用伝票数区分") SyohinCheck = Content.Fields("商品チェック表示") GenbutsuCheck = Content.Fields("現物チェック表示") KinkoHyoji = "" & Content.Fields("金庫表示") YTegataHyoji = "" & Content.Fields("約束手形表示") KTegataHyoji = "" & Content.Fields("為替手形表示") YobiB = Content.Fields("利用銀行口座種類") GinkoKozaToza = Mid(YobiB , 1, 1) GinkoKozaFutu = Mid(YobiB , 2, 1) GinkoKozaBetsudan = Mid(YobiB , 3, 1) GinkoKozaTsumitate = Mid(YobiB , 4, 1) GinkoKozaTeiki = Mid(YobiB , 5, 1) SokanjyomototyoHyojyunshiki = Content.Fields("総勘定元帳標準式利用") CheckLink = "" & Content.Fields("チェック画面リンク利用") End If If YTegataHyoji <> "1" And KTegataHyoji <> "1" Then TegataHyoji = "0" End If If GinkoKozaFutu = "F" Then GinkoKozaFutu = 1 Else GinkoKozaFutu = 0 End If If GinkoKozaBetsudan = "B" Then GinkoKozaBetsudan = 1 Else GinkoKozaBetsudan = 0 End If If GinkoKozaTsumitate = "M" Then GinkoKozaTsumitate = 1 Else GinkoKozaTsumitate = 0 End If If GinkoKozaTeiki = "L" Then GinkoKozaTeiki = 1 Else GinkoKozaTeiki = 0 End If If "" & CheckLink = "" Then CheckLink = "1" End If 'ロック Call Application.Lock() If KinkoHyoji = "1" Then Query = "exec SPM記帳チェック挿入現物現金" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = OpenQuery(Query) End If Query = "exec SPM記帳チェック挿入現物預金2 '" & GB_SystemCD & "'" Query = Query & ", '" & EnshuCD & "'" Query = Query & ", '" & KaisyaCD & "'" Query = Query & ", " & GinkoKozaFutu Query = Query & ", " & GinkoKozaTeiki Query = Query & ", " & GinkoKozaTsumitate Query = Query & ", " & GinkoKozaBetsudan Set Content = OpenQuery(Query) ' Query = "exec SPM記帳チェック挿入現物預金" ' Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" ' Query = Query & ",'" & KaisyaCD & "'" ' Set Content = OpenQuery(Query) If TegataHyoji = "1" Then Query = "exec SPM記帳チェック挿入現物受取手形" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = OpenQuery(Query) Query = "exec SPM記帳チェック挿入現物支払手形" Query = Query & " '" & GB_SystemCD & "', '" & EnshuCD & "'" Query = Query & ",'" & KaisyaCD & "'" Set Content = OpenQuery(Query) End If 'ロック解除 Call Application.Unlock() '未処理の受取・支払小切手存在チェック Dim ExistSKogitte ExistSKogitte = 0 Dim ExistRKogitte ExistRKogitte = 0 Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TGA手形F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 作成会社CD = '" & KaisyaCD & "' " '自社が作成 Query = Query & " AND 文書種類CD = 'TG' " Query = Query & " AND 送受信区分 = 'R' " '他社が受取 Query = Query & " AND 発行フラグ < 2 " '未処理 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExistSKogitte = 1 '未処理の支払小切手が存在する End If Query = "" Query = Query & " " Query = Query & " SELECT * " Query = Query & " FROM TGA手形F " Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' " Query = Query & " AND 演習CD = '" & EnshuCD & "' " Query = Query & " AND 会社CD = '" & KaisyaCD & "' " '自社が受取 Query = Query & " AND 文書種類CD = 'TG' " Query = Query & " AND 送受信区分 = 'R' " '自社が受取 Query = Query & " AND 発行フラグ < 2 " '未処理 Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then ExistRKogitte = 1 '未処理の受取小切手が存在する End If Dim HyojiSKogitte HyojiSKogitte = 0 Dim HyojiRKogitte HyojiRKogitte = 0 ' ExistSKogitte = 0 ' ExistRKogitte = 0 Dim color1, color2 color1 = "#0000FF" color2 = "red" '元帳OFFの場合はレイアウトを調節する Dim CellWidth Dim ParentWidth Dim FintSize CellWidth = 87 ParentWidth = 930 CellWidth = 95 ParentWidth = 1002 FintSize = "tx1315" If InputSokanjyoMototyo <> "1" Then CellWidth = 120 ParentWidth = 930 FintSize = "tx1416" 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_genbutsu_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_genbutsu_check.asp')", "印刷", "PrintoutReal()", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If RiyoDenpyoSu <> 5 Then SyohinCheck = "0" End If If CheckType = "1" Then If GenbutsuCheck = "1" Then If SyohinCheck = "1" Then Response.Write(HttpL3_2("現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=2&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("現物チェック", "tblbtn('fm_genbutsu_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=2&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) End If Else If SyohinCheck = "1" Then Response.Write(HttpL3_2("商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If End If Else If SyohinCheck = "1" Then If KichoCheck = "1" Then Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=1&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("商品チェック", "tblbtn('fm_syohin_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) End If Else If KichoCheck = "1" Then Response.Write(HttpL3_2("記帳チェック", "tblbtn('fm_kityo_check.asp?EnshuCD=" & EnshuCD & "&KaisyaCD=" & KaisyaCD & "&RouteType=" & RouteType & "&CheckType=1&HyojiFlg=" & HyojiFlg & "&KichoCheck=" & KichoCheck & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) End If End If End If If GB_Admin >= 1 Then Response.Write(HttpL4("個別現物チェック", "")) ElseIf CheckType = "1" Then Response.Write(HttpL4("記帳チェック", "")) Else Response.Write(HttpL4("現物チェック", "")) End If %> <% If GB_Admin >= 1 Then '運用管理でのみ提示リロード処理 %> <% End If %> <% = HtmlFooter %> <% End Sub %>