<% ' %> <% main() Sub main() Dim ErrMsg Dim Target ErrMsg = Request("ErrMsg") If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化（演習状況記帳チェック後の対処） 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") = "" '演習管理者IDを再取得(書類一覧後の対処)（221201小野美） If GB_Admin = "2" And EnshuCD <> "" Then Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Session(HomeAlias & "GakuseiNo") = "" & Content.Fields("演習管理者ID") GB_GakuseiNo = Session(HomeAlias & "GakuseiNo") GakuseiNo = GB_GakuseiNo End If End If Dim RouteType RouteType = Request("RouteType") Dim HyojiFlg HyojiFlg = Request("HyojiFlg") Target = Request("Target") If GB_Admin = 2 Then Target = EnshuCD End If Dim Query Dim Content Dim ii, jj ii = 0 Query = "exec SPM演習取得 '" & GB_SystemCD & "','" & Target & "'" Set Content = OpenQuery(Query) Dim EnshuKubun If Not(Content.BOF Or Content.EOF) Then EnshuKubun = Content.Fields("演習区分") 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')", "データクリア", "", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL2("運用管理メニュー" ,"tblbtn( '/" & HomeAlias & "/admin/admenu_w.asp')", "データクリア", "", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3("","" ,"", "", "", "", "", "", "", "", "", "", "", "", "", "")) If ErrMSG = "" Then Response.Write(HttpL3_1(" データクリアを実行する ", "SubmitCheck()", "", "", "", "", "", "", "", "")) Else Response.Write(HttpL3_1("終了確認", "tblbtn( 'fm_enshu_clear.asp?RouteType=" & RouteType & "&Target=" & Target & "')", "", "", "", "", "", "", "", "")) End If Response.Write(HttpL3_2("", "", "", "", "", "", "", "", "", "")) Response.Write(HttpL4("データクリア", "")) Response.Write(HttpL5(ErrMSG)) %>

【データクリア】

<% If EnshuKubun = "P" Then %> <% End If %>

対象演習	<% If GB_Admin = 2 Then %> <% = ConvEnshuMeisyo(Target) %> <% Else %> <% End If %>

対象ユーザー

<% If ErrMsg <> "" Then %> <% = ErrMsg %> <% ElseIf Target <> "" Then %>

指定された<% If EnshuKubun = "P" Then %>ユーザーの<% End If %>演習データのクリアを行います。

<% If EnshuKubun = "G" Then %>

※<% If PackageMode = "1" Then %>グループモード<% Else %>模擬実践演習<% End If %>では、会社間の取引データの整合のため
※ユーザー単位・会社単位でのデータクリアは出来ません。

<% End If %>

該当演習中のユーザーがいないことを確認の上で処理を実行してください。

<% Else %>

データをクリアしたい演習を選択してください。

（演習を選択しただけではデータはクリアされません）

<% End If %>

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