<!-- #include file="../../include.asp" -->

<%
'<!--
'################################################
'	 名称	:演習データクリア処理
'	 作成日:2002/12/4
'	 作成者:徳田
'	 目的 :演習情報の初期クリア処理を行う。
'	 概要	:
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim UserID
	Dim Target
	Dim RouteType
	Dim rsts, Query
	Dim Content
	Dim Ng , ErrMSG

	Dim Content2

	Target = Request("Target")
	UserID = Request("UserID")

	If UserID = "" Then
		Query = "exec SPM演習データクリア '" & GB_SystemCD & "', '" & Target & "'"
	Else
		Query = "exec SPM演習データ学生クリア '" & GB_SystemCD & "', '" & Target & "', '" & UserID & "'"
	End If
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	'代表取締役・発起人の氏名変更
	Dim TmpHokkinin1
	Dim TmpHokkinin2
	Dim TmpHokkinin3
	Dim TmpHokkinin4
	Dim TmpHokkinin5
	Query = "exec SPM会社一覧 '" & GB_SystemCD & "','" & Target & "', 2"
	Set Content = OpenQuery(Query)
	Do While Not(Content.BOF OR Content.EOF)
		Query = " UPDATE TTA社員台帳M SET 氏名 = '" & Content.Fields("会社略名称") & "の代表' "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & Target & "' AND 会社CD = '" & Content.Fields("会社CD") & "' AND 代表取締役フラグ = '1' "
'Response.Write(Query)
'Exit Sub
		Set Content2 = OpenQuery(Query)
		TmpHokkinin1 = ""
		TmpHokkinin2 = ""
		TmpHokkinin3 = ""
		TmpHokkinin4 = ""
		TmpHokkinin5 = ""
		If "" & Content.Fields("代表取締役") <> "" Then
			TmpHokkinin1 = "発起人"
		End If
		If "" & Content.Fields("取締役1") <> "" Then
			TmpHokkinin2 = "発起人"
		End If
		If "" & Content.Fields("取締役2") <> "" Then
			TmpHokkinin3 = "発起人"
		End If
		If "" & Content.Fields("発起人4") <> "" Then
			TmpHokkinin4 = "発起人"
		End If
		If "" & Content.Fields("発起人5") <> "" Then
			TmpHokkinin5 = "発起人"
		End If
		Query = " UPDATE TDA会社M "
		Query = Query & " SET 代表取締役 = '" & TmpHokkinin1 & "' "
		Query = Query & " 	, 取締役1 = '" & TmpHokkinin2 & "' "
		Query = Query & " 	, 取締役2 = '" & TmpHokkinin3 & "' "
		Query = Query & " 	, 発起人4 = '" & TmpHokkinin4 & "' "
		Query = Query & " 	, 発起人5 = '" & TmpHokkinin5 & "' "
		Query = Query & " 	, 代表取締役住所 = '' "
		Query = Query & " 	, 取締役1住所 = '' "
		Query = Query & " 	, 取締役2住所 = '' "
		Query = Query & " 	, 発起人4住所 = '' "
		Query = Query & " 	, 発起人5住所 = '' "
		Query = Query & " 	, 事業目的 = '' "
		Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & Target & "' AND 会社CD = '" & Content.Fields("会社CD") & "' "
'Response.Write(Query)
'Exit Sub
		Set Content2 = OpenQuery(Query)
		Content.MoveNext
	Loop


	'生徒側トップ画像をクリア
	Query = " UPDATE TDA会社M "
	Query = Query & " SET トップ画像 = '' "
	Query = Query & " WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & Target & "' "
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)


	Response.Redirect("fm_enshu_clear_view.asp?UserID=" & UserID & "&Target=" & Target & "&ErrMsg=終了しました ご確認下さい")

End Sub
%>