Subversion Repositories DevTools

Rev

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

Rev 13 Rev 29
Line 83... Line 83...
83
		Case "pmiRejectBom"
83
		Case "pmiRejectBom"
84
			Call RejectBOM ()
84
			Call RejectBOM ()
85
			
85
			
86
		Case "pmiVersionTree"
86
		Case "pmiVersionTree"
87
			Call VersionTree()
87
			Call VersionTree()
-
 
88
		
-
 
89
		Case "pmiUnDeployView"
-
 
90
			Call ToUnDeployView()
88
			
91
			
89
	End Select
92
	End Select
90
End Sub
93
End Sub
91
'----------------------------------------------------------------------------------------------------------------------------------------------
94
'----------------------------------------------------------------------------------------------------------------------------------------------
92
Function PBSelector ( sName, nRowID, nParID, nLevel )
95
Function PBSelector ( sName, nRowID, nParID, nLevel )
Line 259... Line 262...
259
		
262
		
260
	objEH.Catch
263
	objEH.Catch
261
	
264
	
262
End Sub
265
End Sub
263
'-----------------------------------------------------------------------------------------------------------------
266
'-----------------------------------------------------------------------------------------------------------------
-
 
267
Sub ToUnDeployView ()
-
 
268
	On Error Resume Next
-
 
269
	
-
 
270
	objEH.Try
-
 
271
		
-
 
272
			Call OpenInWindow ( "wUnDeployView.asp?proj_id="&dbPARproj_id&"&branch_id="&dbPARbranch_id )
-
 
273
		
-
 
274
	objEH.Catch
-
 
275
	
-
 
276
End Sub
-
 
277
'-----------------------------------------------------------------------------------------------------------------
264
%>	
278
%>	
265
279