
<!-- #include file="../../../include.asp" -->

<%
'<!-- 
'################################################
'   名称  ：摘要情報更新処理    
'   作成日：2002/11/21
'   作成者：徳田
'   目的　：摘要情報の更新（追加・修正・削除）処理を行う。
'   概要  ：
'    <<表示>>
'	・無し
'	
'	修正日：2002/11/25
'	修正者：重松
'   fm_tekiyo_bin.asp
'################################################
'-->

main()

Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Action					    '処理区分	
	Dim EnshuName                            '演習CD、 演習名称
	Dim TekiyoCD , Tekiyo 	'摘要コード、摘要
	Dim KanrenKaisyaCD 	'会社コード、関連会社コード

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	Dim Query
	Dim Content
	Dim Ng , ErrMSG , rsts

	Action = Request("Action")
	TekiyoCD = Request("TekiyoCD") 
	Tekiyo = Request("Tekiyo")
	NumChrCheck = NumChrCheck & Tekiyo
	KanrenKaisyaCD = Request("KanrenKaisyaCD")
	
	ErrMsg = Request("ErrMsg") 

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If

    Query = "exec SPM摘要取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & TekiyoCD & "','" & KaisyaCD & "'"
   	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 And Action = "1" Then
		Query = "exec SPM会社取得 '" & GB_SystemCD & "','" & GB_EnshuCD & "', '" & TekiyoCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ErrMSG = "会社コードとの重複は許可されません。"
			rsts =  False
		End If
	End If

	If rsts = False Then
		Ng = "fm_tekiyo.asp?Action=" & Action & "&nr=r" & "&EnshuCD=" & EnshuCD
        Ng = Ng & "&TekiyoCD=" & TekiyoCD & "&KaisyaCD=" & KaisyaCD
		Ng = Ng & "&Tekiyo=" & Tekiyo & "&KanrenKaisyaCD=" & KanrenKaisyaCD
 		Ng = Ng & "&ErrMSG=" & ErrMSG	
		Response.Redirect(Ng)
	End If

	If Action = "4" Then
		Query = "exec SPM摘要削除 '" & GB_SystemCD & "'," & "'" & EnshuCD &  "','" & TekiyoCD & "','" & KaisyaCD & "'"
	Else	
		Query = "exec SPM摘要更新 '" & GB_SystemCD & "'," & Action
		Query = Query & ",'" & EnshuCD &  "'" 
		Query = Query & ",'" & TekiyoCD &  "'" 
		Query = Query & ",'" & KaisyaCD &  "'" 
		Query = Query & ",'" & Tekiyo &  "'" 
		Query = Query & ",'" & KanrenKaisyaCD &  "'" 
	End If

   	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If

	If Action = "4" Then
		Response.Redirect("fm_tekiyo_ichiran.asp")
	Else
		Response.Redirect("fm_tekiyo_view.asp?TekiyoCD=" & rsts )
	End If

End Sub
%>