Subversion Repositories DevTools

Rev

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

Rev 5142 Rev 5143
Line 1891... Line 1891...
1891
       NiceInt = CInt(val)
1891
       NiceInt = CInt(val)
1892
   Else
1892
   Else
1893
       NiceInt = def
1893
       NiceInt = def
1894
   End If
1894
   End If
1895
End Function
1895
End Function
-
 
1896
 
-
 
1897
'--------------------------------------------------------------------------------------------------------------------------
-
 
1898
'   Test if package can be added to a release
-
 
1899
'       Really tests if a a package of this packages alias can be
-
 
1900
'       manipulated in this release
-
 
1901
'   True: Package alias can be added/replaced in release
-
 
1902
Function canAddToRelease ( nRtagId, nPvId )
-
 
1903
	On Error Resume Next
-
 
1904
	OraDatabase.Parameters.Add "RTAG_ID", 			nRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER 
-
 
1905
	OraDatabase.Parameters.Add "PV_ID", 			nPvId, 	    ORAPARM_INPUT, ORATYPE_NUMBER 
-
 
1906
	OraDatabase.Parameters.Add "RETURN_CODE", 		null, 	    ORAPARM_OUTPUT, ORATYPE_NUMBER 
-
 
1907
		
-
 
1908
	objEH.TryORA ( OraSession )
-
 
1909
	
-
 
1910
	OraDatabase.ExecuteSQL _
-
 
1911
        "BEGIN :RETURN_CODE := PK_RELEASE.CAN_ADD_PKG_TO_RELEASE(:RTAG_ID,:PV_ID);   END;"
-
 
1912
 
-
 
1913
    If CInt(OraDatabase.Parameters("RETURN_CODE").Value) = 0 Then
-
 
1914
        canAddToRelease = FALSE
-
 
1915
    Else
-
 
1916
        canAddToRelease = TRUE
-
 
1917
    End If
-
 
1918
		
-
 
1919
	objEH.CatchORA ( OraSession )
-
 
1920
 
-
 
1921
	OraDatabase.Parameters.Remove "RETURN_CODE"
-
 
1922
	OraDatabase.Parameters.Remove "RTAG_ID"
-
 
1923
	OraDatabase.Parameters.Remove "PV_ID"	
-
 
1924
 
-
 
1925
End Function
1896
%>
1926
%>