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

<%
'<!--
'################################################
'	名称	：演習CD変更
'	作成日	：2008/10/27
'	作成者	：小野
'	目的	：全テーブルの演習CDを変更する
'################################################
'-->
%>
<%
main()

Sub main()

	Dim Query
	Dim Content
	Dim Content1

	Dim MotoEnshuCD
	Dim EnshuCD


'	MotoEnshuCD = "000kyouzai"

'	EnshuCD     = "000kyoutst"


	If MotoEnshuCD = "" Or EnshuCD = "" Then
		Response.Write("演習CD未指定")
		Exit Sub
	End If

	Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & MotoEnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Content.BOF Or Content.EOF Then
		Response.Write("変更元演習CD未存在")
		Exit Sub
	End If

	Query = "exec SPM演習取得 '" & GB_SystemCD & "', '" & EnshuCD & "'"
	Set Content = OpenQuery(Query)
	If Not(Content.BOF Or Content.EOF) Then
		Response.Write("変更先演習CD重複")
		Exit Sub
	End If


	Query = "select * from dbo.sysobjects where xtype = 'U' and left(name,1)='T' ORDER BY name"
	Set Content = OpenQuery2(Query)
	Do While Not(Content.BOF Or Content.EOF)
		On Error Resume Next
			Query = ""
			Query = Query & " UPDATE " & Content.Fields("name").value & " "
			Query = Query & " SET 演習CD = '" & EnshuCD & "' "
			Query = Query & " WHERE 演習CD = '" & MotoEnshuCD & "' "
			Set Content1 = OpenQuery(Query)
		On Error Goto 0
		Response.Write(Content.Fields("name").value & "　処理完了<BR>" & vbCrLf)
		Content.MoveNext
	Loop


End Sub
%>