<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim RouteType RouteType = Request("RouteType") Dim EnshuCD Dim EnshuName Dim EnshuKubun Dim Jissenbi Dim AiteShukkoHitsuyo Dim Kitakuriyou Dim GinkoSyoriKubun Dim GinkoTegataToriWari Dim RiyoMailKubun Dim ShiireUriageKennin Dim SeizoRiyo EnshuCD = Request("EnshuCD") If EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then EnshuName = Content.Fields("演習名称") EnshuKubun = Content.Fields("演習区分") Jissenbi = "" & SetTimeYYYYMMDD(Content.Fields("実践日")) AiteShukkoHitsuyo = Content.Fields("入庫時相手出庫必要") Kitakuriyou = Content.Fields("寄託倉庫利用") GinkoSyoriKubun = "" & Content.Fields("銀行自動処理") GinkoTegataToriWari = "" & Content.Fields("銀行手形取立割引手動") RiyoMailKubun = "" & Content.Fields("メール利用") SeizoRiyo = "" & Content.Fields("原価会計利用") ShiireUriageKennin = Replace(Replace("" & Content.Fields("仕入売上書類検認利用"), ",", ""), ";", "") '旧仕様はカンマ End If End If If ShiireHanbaiKennin <> 1 Then ShiireUriageKennin = "" End If %> <% = HtmlHeader("") %>
<% Response.Write(HtmlDesign(1)) Response.Write(HttpL1(4)) If GB_Admin = 1 Then Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "演習管理", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu1_view.asp?EnshuCD=" & EnshuCD & "')", "演習コントロール", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL3_1("演習設定", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "');", " 演習会社ログイン ", "tblbtn('fm_enshu_ichiran_main_bin.asp?EnshuCD=" & EnshuCD & "&AutoLogin=AutoLogin');", "", "", "", "", "", "")) If GB_Admin = 1 Then Response.Write(HttpL3_2("演習一覧", "tblbtn( '/" & HomeAlias & "/admin/enshu/fm_enshu_ichiran.asp?RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "')", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_2("戻る", "JavaScript:history.go(-1)", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL4("演習コントロール", "操作選択")) Response.Write(HttpL5("" )) %> <% = HtmlFooter %> <% End Sub %>