| Line 220... |
Line 220... |
| 220 |
' They created it or is its owner
|
220 |
' They created it or is its owner
|
| 221 |
' The version is not in use by any release (allow to be in pendinf or WIP)
|
221 |
' The version is not in use by any release (allow to be in pendinf or WIP)
|
| 222 |
' [Not at the moment] The package was created less than xxxx days ago
|
222 |
' [Not at the moment] The package was created less than xxxx days ago
|
| 223 |
' Is not locked or Approved for Autobuild
|
223 |
' Is not locked or Approved for Autobuild
|
| 224 |
If CanDestroyPackage = false Then
|
224 |
If CanDestroyPackage = false Then
|
| 225 |
If objAccessControl.UserId = aVersions( rsVB.FieldIndex("CREATOR_ID"), i ) OR objAccessControl.UserId = aVersions( rsVB.FieldIndex("OWNER_ID"), i )Then
|
225 |
If objAccessControl.UserId = aVersions( rsRep.FieldIndex("CREATOR_ID"), i ) OR objAccessControl.UserId = aVersions( rsRep.FieldIndex("OWNER_ID"), i )Then
|
| 226 |
If aVersions( rsRep.FieldIndex("inuse"), i ) = 0 Then
|
226 |
If aVersions( rsRep.FieldIndex("inuse"), i ) = 0 Then
|
| 227 |
'If aVersions( rsRep.FieldIndex("age") , i ) < 1000 Then
|
227 |
'If aVersions( rsRep.FieldIndex("age") , i ) < 1000 Then
|
| 228 |
If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "Y" Then
|
228 |
If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "Y" Then
|
| 229 |
If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "A" Then
|
229 |
If aVersions( rsRep.FieldIndex("dlocked"), i ) <> "A" Then
|
| 230 |
CanDestroyPackage = true
|
230 |
CanDestroyPackage = true
|