Subversion Repositories DevTools

Rev

Rev 21 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 21 Rev 23
Line 82... Line 82...
82
  		isInterface = "T"
82
  		isInterface = "T"
83
  	End If	
83
  	End If	
84
 
84
 
85
	Query_String = _
85
	Query_String = _
86
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
86
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
87
	"	AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
87
	"	AND RUN_AS = '"& Replace(Request("cmdInterface"), "'", "''") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
88
	"	AND IS_INTERFACE = '"& isInterface &"'"
88
	"	AND IS_INTERFACE = '"& isInterface &"'"
89
	
89
	
90
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
90
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
91
	
91
	
92
	If rsTemp.RecordCount = 0 Then  	
92
	If rsTemp.RecordCount = 0 Then  	
Line 131... Line 131...
131
	If objEH.Finally Then
131
	If objEH.Finally Then
132
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
132
		Call OpenInParentWindow ("Os_Processes.asp?bom_id="& parBom_id &"&os_id="& parOs_id)
133
		Call CloseWindow()
133
		Call CloseWindow()
134
	End If
134
	End If
135
	Else
135
	Else
136
		Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("prod_id") )
136
		Call Messenger ("Cannot add process! The process already exists in the database. Select a product and search for the process by name.", 1, "100%")
137
	End If		
137
	End If		
138
End If
138
End If
139
 
139
 
140
'--------------------------------------------------------------------------------------------------------------------------
140
'--------------------------------------------------------------------------------------------------------------------------
141
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
141
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )