
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：表記名称マスタ更新処理
'	作成日	：2009/6/9
'	作成者	：小野
'	概要	：
'################################################
'-->

main()
Sub main()
	If Not(SessionCheck()) Then
		Exit Sub
	End If

	Dim Query
	Dim Content
	Dim Content2

	Dim ii

	Dim HyokiCnt
	HyokiCnt = CInt(Request("HyokiCnt"))


	For ii = 1 To HyokiCnt
		'数値文字変換チェック
		If Not(NumChrReject(Request("HyokiCD" & ii) & Request("HyokiMei" & ii))) Then
			Exit Sub
		End If
	Next

	For ii = 1 To HyokiCnt

		'全演習更新
		If Request("UpdateAll") = "1" Then
			Query = "exec SPM表記名称更新 '" & GB_SystemCD & "', '', '" & Request("HyokiCD" & ii) & "', '" & Request("HyokiMei" & ii) & "'"

		'当該演習のみ更新
		Else
			Query = "exec SPM表記名称更新 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & Request("HyokiCD" & ii) & "', '" & Request("HyokiMei" & ii) & "'"

		End If
		Set Content = OpenQuery(Query)

	Next

	Response.Redirect("fm_hyoki.asp?MSG=Update")

End Sub
%>