Subversion Repositories DevTools

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

' Currently used to specify non-vix licence when creating the first veersion of a new package

' Negative nLicence iis used to indicate that the user selected 100% vix. This is not stored. It is assumed

Sub UpdateLicenceInfo (nPvId, nLicence)

   Dim rsTemp, logMsg

   On Error Resume Next

   If (NOT IsNull(nLicence)) AND (nLicence <> "") AND (nLicence > 0) AND (NOT IsNull(nPvId)) AND (nPvId <> "") Then

      OraDatabase.Parameters.Add "PV_ID",    nPvId,     ORAPARM_INPUT, ORATYPE_NUMBER

      OraDatabase.Parameters.Add "LICENCE", nLicence,   ORAPARM_INPUT, ORATYPE_NUMBER

      objEH.TryORA ( OraSession )

      On Error Resume Next

      OraDatabase.ExecuteSQL "insert into licencing (pv_id,licence ) values (:PV_ID,:LICENCE)"

      objEH.CatchORA ( OraSession )

      OraDatabase.Parameters.Remove "PV_ID"

      OraDatabase.Parameters.Remove "LICENCE"

      If objEH.LastOraFailed = FALSE Then

        OraDatabase.Parameters.Add "LICENCE", nLicence,   ORAPARM_INPUT, ORATYPE_NUMBER

        Set rsTemp = OraDatabase.DbCreateDynaset("select name from licences where licence = :LICENCE", cint(0))

        If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then

            logMsg = "Set to " & rsTemp("name")

        Else

            logMsg = "Set to unknown(" & nPvId & ")"

        End If

        rsTemp.Close()

        Set rsTemp = nothing

        OraDatabase.Parameters.Remove "LICENCE"

        '/* Log Action */

        Call Log_Action ( nPvId, "software_licence", logMsg )

      End If

   End If

End Sub