
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：演習参加グループ更新
'	作成日	：2002/9/6
'	作成者	：徳田
'	目的	：演習参加グループを登録する。
'	概要	：
'	表示	：
'
'	修正	：(070415小野)グループ基準で参加演習を選択する動作モードを追加
'			：　(備考)グループ基準時は EnshuCD=グループCD・form1.GroupCD.value=演習CD配列 として動作
'################################################
'-->

main()

Sub main()

	Dim Group								'演習コード、参加グループコード
	Dim GroupCD

	Dim Query
	Dim Content
	Dim Content2
	Dim Ng , ErrMSG , rsts
	Dim TmaxCnt , ix
	Dim RouteType
	RouteType = Request("RouteType")

	'動作モード
	Dim Kijun
	Kijun = Request("Kijun")

	Group = Request("GroupCD")
	GroupCD = split(Group,",")
	TmaxCnt = Ubound(GroupCD)

	Dim db
	Set db = InitQuery()

	For ix = 0 to TmaxCnt
		If Kijun = "Group" Then	'グループ基準時はEnshuCDとGroupCD(ix)が入れ替わる
			Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & GroupCD(ix) & "', '" & EnshuCD & "'"
		Else
			Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & GroupCD(ix) & "'"
		End If
DebugQuery(Query)
		Set Content = ExecQuery(db, Query)
	Next


	'演習管理者の場合はここで当該演習管理者以外の者が登録したグループを再登録する
	If GB_Admin = "2" Then
		Query = "exec SPM演習_参加グループ一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
		Set Content = ExecQuery(db, Query)
		Do While Not(Content.BOF Or Content.EOF)
			If "" & Content.Fields("作成者ID") <> GB_GakuseiNo Then
				Query = "exec SPM演習参加グループ挿入 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Content.Fields("学生グループCD") & "'"
				Set Content2 = ExecQuery(db, Query)
			End If
			Content.MoveNext
		Loop
	End If


	If Kijun = "Group" Then	'グループ基準時はEnshuCD=グループCDなので第3引数になる
		Query = "exec SPMグループ参加演習更新 '" & GB_SystemCD & "', '', '" & EnshuCD & "'"
	Else
		Query = "exec SPM演習参加グループ更新 '" & GB_SystemCD & "', '" & EnshuCD & "', ''"
	End If
DebugQuery(Query)
	Set Content = ExecQuery(db, Query)



	Response.Redirect("fm_groupsanka_view.asp?Kijun=" & Kijun & "&RouteType=" & RouteType & "&EnshuCD=" & EnshuCD & "&ErrMSG=更新終了しました")

End Sub
%>