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

<%
'<!--
'################################################
'	 名称	:学生グループ情報更新処理
'	 作成日:2002/8/22
'	 作成者:徳田
'	 目的 :学生グループ情報の修正処理する。
'	 概要	:
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()

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

	Dim Action
	Dim GroupCD, GroupName, Password, SakuseiID	 'グループCD、グループ名、パスワード、作成者ID
	Dim Hihyoji
	Dim RouteType

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	GroupCD = Request("GroupCD")
	GroupName = Request("GroupName")
	NumChrCheck = NumChrCheck & GroupName
	Password = Request("Password")
	SakuseiID = Request("SakuseiID")
	Hihyoji = Request("Hihyoji")
	Action = Request("Action")
	RouteType = Request("RouteType")

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If

	'新規作成モードは作成者ID=管理者ID
	If SakuseiID = "" Then
		SakuseiID = GB_GakuseiNo
	End If
	'指定された作成者IDが管理者コードならNULLにする
	Query = "exec SPMシステム情報取得 '" & GB_SystemCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If SakuseiID = Content.Fields("管理者コード") Then
			SakuseiID = ""
		End If
	End If

	If Action = "1" Then
		If GB_Admin <> "2" Then
			SakuseiID = ""	'運用管理者ならNULL
		End If
	End If


	If Action = "1" Then
		'サイバー会計ではグループCDを制限する(サイバートレード連動のため)
		If PackageMode = 1 Then
			If UCase(Left(GroupCD, 4)) = "CT21" Then	'ct21連動のためグループCDを制限する
				Response.Write("システム制約によりグループコードの先頭に「CT21」を指定することは出来ません。<br>")
				Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
				Exit Sub
			End If
			If UCase(Left(GroupCD, 7)) = "USERGRP" Then	'ct21連動のためグループCDを制限する
				Response.Write("システム制約によりグループコードの先頭に「USERGRP」を指定することは出来ません。<br>")
				Response.Write("<a href=""JavaScript:history.go(-1)"">戻る</a>")
				Exit Sub
			End If
		End If
	End If


	Dim rsts, Query
		Dim Content
	Dim Ng , ErrMSG
	Query = "exec SPMグループ取得 '" & GB_SystemCD & "','" & GroupCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		If Action = "1" Then
			ErrMSG = "このグループコードはすでに登録済みです。"
			rsts =	False
		Else
			rsts =	True
		End If
	Else
		If Action = "1" Then
			rsts =	True
		Else
			ErrMSG = "対象グループは存在しません。"
			rsts =	False
		End If
	End If

	If rsts = False Then
		Ng = "fm_group.asp?syori=" & Action & "&nr=r&GroupCD=" & GroupCD & "&GroupName=" & GroupName & "&Password=" & Password & "&ErrMSG=" & ErrMSG
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If
	Query = "exec SPMグループ更新 '" & GB_SystemCD & "'," & Action
	Query = Query & ", '" & GroupCD	& "'"
	Query = Query & ", '" & GroupName	& "'"
	Query = Query & ", '" & Password	& "'"
	Query = Query & ", '" & SakuseiID & "'"	'作成者ID(080415小野)
	Query = Query & ", '" & Hihyoji & "'"
'Response.Write(Query)
'Exit Sub
	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	If Action = 4 Then
		Response.Redirect("fm_group_ichiran.asp?GroupCD=" & GroupCD)
	Else
		Response.Redirect("fm_group_view.asp?GroupCD=" & GroupCD)
	End If

End Sub
%>