Subversion Repositories DevTools

      Call objBtnControl.Active ( NNbutton, "N" )

      Call objBtnControl.Active ( NNbutton, "N" )

   End If

   End If

End Sub

End Sub

'--Determine whether the release has an associated MASS_REF

'--Determine whether the release has an associated MASS_REF

Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed

Dim rsAssoc, AssocMASSREF, AssocMASSREFValue, StatesUsed

If Request("rtag_id") <> "" Then

If Request("rtag_id") <> "" Then

   Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))

   Set rsAssoc = OraDatabase.DbCreateDynaset( "SELECT ASSOC_MASS_REF, PRODUCT_STATE_USED FROM RELEASE_TAGS WHERE RTAG_ID="&Request("rtag_id"), cint(0))

   AssocMASSREFValue = rsAssoc("ASSOC_MASS_REF")

   AssocMASSREFValue = rsAssoc("ASSOC_MASS_REF")

            Call objBtnControl.Visible ( "btnLockPackage", "Y" )

            Call objBtnControl.Visible ( "btnLockPackage", "Y" )

            Call objBtnControl.Active ( "btnLockPackage", "Y" )

            Call objBtnControl.Active ( "btnLockPackage", "Y" )

          End If

          End If

        End if

        End if

'---------------------------------------------------------------------------

'---------------------------------------------------------------------------

' -- Render Buttons

' -- Render Buttons

Call objBtnControl.Render  ( aTabBtnsDef, objAccessControl )

Call objBtnControl.Render  ( aTabBtnsDef, objAccessControl )

%>

%>