<%
'
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」を指定することは出来ません。
")
Response.Write("戻る")
Exit Sub
End If
If UCase(Left(GroupCD, 7)) = "USERGRP" Then 'ct21連動のためグループCDを制限する
Response.Write("システム制約によりグループコードの先頭に「USERGRP」を指定することは出来ません。
")
Response.Write("戻る")
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
%>