<% = AppTitle %>

<% ' %> <% 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("" & Content.Fields("仕入売上書類検認利用"), ",", "") End If End If If ShiireHanbaiKennin <> 1 Then ShiireUriageKennin = "" End If %> <% = AppTitle %>

<% 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("" )) %>

<% = Spacer(1,50) %>

対象演習	<% = EnshuMeisyo %>

<% If PackageMode <> 1 Then %> <% 'EnshuKubun = "P" %> <% 'EnshuKubun = "G" %> <% 'AiteShukkoHitsuyo = "1" %> <% 'Kitakuriyou = "1" %> <% 'GinkoTegataToriWari = "1" %> <% 'RiyoMailKubun = "1" %> <% 'If AiteShukkoHitsuyo = "1" And Kitakuriyou <> "1" Then %> <% If ShiireUriageKennin <> "" Then %> <% End If %> <% If AiteShukkoHitsuyo = "1" Then %> <% End If %> <% If SeizoRiyo = "1" Then %> <% End If %> <% If GinkoTegataToriWari = "1" Then %> <% End If %> <% If GinkoRollBack = "1" Then %> <% End If %> <% End If %> <% If EnshuKubun = "P" Then %> <% End If %> <% If EnshuKubun = "G" And RiyoMailKubun = "1" Then %> <% End If %> <% If EnshuKubun = "G" And PackageMode <> 1 Then %> <% End If %>

仕入・販売
書類の確認

出入庫
組戻し

製造部
組戻し

受取小切手
・手形返却

手形取立
・割引の
満期処理

銀行処理
組戻し

受取領収書
返却

実践日設定

演習データ
コピー

メール送信
拒否設定

生徒の
選択会社
解除・設定

演習参加者
管理

<% = HtmlFooter %> <% End Sub %>