Subversion Repositories DevTools

Rev

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

Rev 127 Rev 129
Line 127... Line 127...
127 
'  INPUTS
 127 
'  INPUTS
128 
'     NNpv_id    : The PV_ID of the package version to be used
 128 
'     NNpv_id    : The PV_ID of the package version to be used
129 
'     NNlicence  : The licence to be used
 129 
'     NNlicence  : The licence to be used
130 
'
 130 
'
131 
Sub AddLicencing(NNpv_id, NNlicence)
 131 
Sub AddLicencing(NNpv_id, NNlicence)
132 
   objEH.Try()
 - 
 
133 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 132 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
134 
   OraDatabase.Parameters.Add "LICENCE", NNlicence, ORAPARM_INPUT, ORATYPE_NUMBER
 133 
   OraDatabase.Parameters.Add "LICENCE", NNlicence, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 134 
 
135 
   OraSession.BeginTrans
 135 
   On Error Resume Next
- 
 
 136 
   objEH.TryORA( OraSession )
136 
   OraDatabase.ExecuteSQL ("begin INSERT INTO licencing (pv_id, licence) VALUES (:PV_ID, :LICENCE); end;")
 137 
   OraDatabase.ExecuteSQL ("begin INSERT INTO licencing (pv_id, licence) VALUES (:PV_ID, :LICENCE); end;")
137 
   OraSession.CommitTrans
 - 
 
138 
   objEH.Catch()
 138 
   objEH.CatchORA( OraSession )
- 
 
 139 
 
139 
   OraDatabase.Parameters.Remove "PV_ID"
 140 
   OraDatabase.Parameters.Remove "PV_ID"
140 
   OraDatabase.Parameters.Remove "LICENCE"
 141 
   OraDatabase.Parameters.Remove "LICENCE"
141 
End Sub
 142 
End Sub
142 
 
 143 
 
143 
'--------------------------------------------------------------------------------------------------------------------------
 144 
'--------------------------------------------------------------------------------------------------------------------------
Line 150... Line 151...
150 
'  INPUTS
 151 
'  INPUTS
151 
'     NNpv_id    : The PV_ID of the package version to be used
 152 
'     NNpv_id    : The PV_ID of the package version to be used
152 
'     NNlicence  : The licence to be used
 153 
'     NNlicence  : The licence to be used
153 
'
 154 
'
154 
Sub RemoveLicencing(NNpv_id, NNlicence)
 155 
Sub RemoveLicencing(NNpv_id, NNlicence)
155 
   objEH.Try()
 - 
 
156 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 156 
   OraDatabase.Parameters.Add "PV_ID",   NNpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
157 
   OraDatabase.Parameters.Add "LICENCE", NNlicence, ORAPARM_INPUT, ORATYPE_NUMBER
 157 
   OraDatabase.Parameters.Add "LICENCE", NNlicence, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 158 
 
158 
   OraSession.BeginTrans
 159 
   On Error Resume Next
- 
 
 160 
   objEH.TryORA( OraSession )
159 
   OraDatabase.ExecuteSQL ("begin DELETE FROM licencing WHERE pv_id=:PV_ID AND licence=:LICENCE; end;")
 161 
   OraDatabase.ExecuteSQL ("begin DELETE FROM licencing WHERE pv_id=:PV_ID AND licence=:LICENCE; end;")
160 
   OraSession.CommitTrans
 - 
 
161 
   objEH.Catch()
 162 
   objEH.CatchORA( OraSession )
- 
 
 163 
 
162 
   OraDatabase.Parameters.Remove "PV_ID"
 164 
   OraDatabase.Parameters.Remove "PV_ID"
163 
   OraDatabase.Parameters.Remove "LICENCE"
 165 
   OraDatabase.Parameters.Remove "LICENCE"
164 
End Sub
 166 
End Sub
165 
 
 167 
 
166 
'--------------------------------------------------------------------------------------------------------------------------
 168 
'--------------------------------------------------------------------------------------------------------------------------