
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	 名称	：市場情報更新処理
'	 作成日：2002/9/9
'	 作成者：徳田
'	 目的　：市場情報の更新（追加・修正・削除）処理を行う。
'	 概要	：
'		<<表示>>
'	・無し
'
'	修正:
'################################################
'-->

main()

Sub main()
	Dim Action							'処理区分
	Dim EnshuName														'演習CD、 演習名称
	Dim ShijyoMeisyo
	Dim Query
	Dim Content
	Dim RouteType
	Dim ShijyoCD, rsts, Ng, ErrMSG

	'数値文字変換チェック用
	Dim NumChrCheck
	NumChrCheck = ""

	RouteType = Request("RouteType")

	Action = Request("Action")
	ShijyoMeisyo = Request("ShijyoMeisyo")
	NumChrCheck = NumChrCheck & ShijyoMeisyo
	ShijyoCD = Request("ShijyoCD")

	'数値文字変換チェック
	If Not(NumChrReject(NumChrCheck)) Then
		Exit Sub
	End If

	rsts = true

	Query = "exec SPM市場一覧 '" & GB_SystemCD & "','" & EnshuCD & "'"
	Set Content = OpenQuery(Query)

	Do While Not(Content.BOF Or Content.EOF)
		If Content.Fields("市場CD") <> ShijyoCD And Content.Fields("市場名称") = ShijyoMeisyo Then
			ErrMSG = "この市場名称は登録済みです"
			rsts = False
		End If
		Content.MoveNext
	Loop



	If Action = "1" Then

		Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'"
		Set Content = OpenQuery(Query)
		If Not(Content.BOF Or Content.EOF) Then
			ErrMSG = "この市場コードはすでに登録済みです。"
			rsts =	False
		End If

	Else


		Query = "exec SPM市場取得 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'"
		Set Content = OpenQuery(Query)
		If Content.BOF Or Content.EOF Then
			ErrMSG = "対象市場は存在しません。"
			rsts =	False
		End If
	End If

	If rsts = False Then
		Ng = "fm_shijyo.asp?action=" & Action & "&nr=r"
		Ng = Ng & "&ShijyoCD=" & ShijyoCD
		Ng = Ng & "&ShijyoMeisyo=" & ShijyoMeisyo
		Ng = Ng & "&ErrMSG=" & ErrMSG
'		Response.Redirect(Ng)
		Response.Write(SubmitHystoryBack(Ng))
		Exit Sub
	End If

	If Action = "4" Then
		Query = "exec SPM市場削除 '" & GB_SystemCD & "','" & EnshuCD & "','" & ShijyoCD & "'"
		Set Content = OpenQuery(Query)
		Response.Redirect("fm_Shijyo_ichiran.asp")
	Else
		Query = "exec SPM市場更新 '" & GB_SystemCD & "'"
		Query = Query & ",'" & EnshuCD &	"'"
		Query = Query & ",'" & ShijyoCD & "'"
		Query = Query & ",'" & ShijyoMeisyo	& "'"
	End If

	Set Content = OpenQuery(Query)
	If Content.Fields.Count > 0 Then
		rsts = Content.Fields(0)
	End If


	Response.Redirect("fm_shijyo_view.asp?ShijyoCD=" & ShijyoCD)

End Sub
%>