Subversion Repositories DevTools

Rev

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

Rev 151 Rev 153
Line 316... Line 316...
316 
      Call RaiseMsgInParent(enum_MSG_ERROR, "Attempt to add an unknown daemon instruction")
 316 
      Call RaiseMsgInParent(enum_MSG_ERROR, "Attempt to add an unknown daemon instruction")
317 
      ValidateDaemonInstruction = False
 317 
      ValidateDaemonInstruction = False
318 
   End Select
 318 
   End Select
319 
End Function
 319 
End Function
320 
'------------------------------------------------------------------------------------------------------------------------------------------
 320 
'------------------------------------------------------------------------------------------------------------------------------------------
- 
 
 321 
Function DaemonInstructionPreventsEditing(nRtag_id, nPv_id)
321 
 
 322 
 
- 
 
 323 
   Dim rsQry
- 
 
 324 
   Dim QryStr
- 
 
 325 
 
- 
 
 326 
   DaemonInstructionPreventsEditing = FALSE
- 
 
 327 
 
- 
 
 328 
   If (NOT IsNull(nRtag_id)) AND (nRtag_id <> "") AND (NOT IsNull(nPv_id)) AND (nPv_id <> "") Then
- 
 
 329 
 
- 
 
 330 
      QryStr = "SELECT COUNT(*) AS record_count"&_
- 
 
 331 
               "  FROM DAEMON_INSTRUCTIONS "&_
- 
 
 332 
               " WHERE (OP_CODE = "& OP_CODE_1_TEST_BUILD_PACKAGE &")"&_
- 
 
 333 
               "   AND RTAG_ID = "& nRtag_id&_
- 
 
 334 
               "   AND PV_ID = "& nPv_id
- 
 
 335 
 
- 
 
 336 
      Set rsQry = OraDatabase.DbCreateDynaset( QryStr, ORADYN_DEFAULT )
- 
 
 337 
 
- 
 
 338 
      If rsQry("record_count") <> 0 Then
- 
 
 339 
        DaemonInstructionPreventsEditing = TRUE
- 
 
 340 
      End If
- 
 
 341 
 
- 
 
 342 
      rsQry.Close
- 
 
 343 
      Set rsQry = nothing
- 
 
 344 
   End If
- 
 
 345 
 
- 
 
 346 
End Function
- 
 
 347 
'------------------------------------------------------------------------------------------------------------------------------------------
- 
 
 348 
Function DaemonInstructionPreventsReleaseDeletion(nRtag_id)
- 
 
 349 
 
- 
 
 350 
   Dim rsQry
- 
 
 351 
   Dim QryStr
- 
 
 352 
 
- 
 
 353 
   DaemonInstructionPreventsReleaseDeletion = FALSE
- 
 
 354 
 
- 
 
 355 
   If (NOT IsNull(nRtag_id)) AND (nRtag_id <> "") Then
- 
 
 356 
 
- 
 
 357 
      QryStr = "SELECT COUNT(*) AS record_count"&_
- 
 
 358 
               "  FROM DAEMON_INSTRUCTIONS "&_
- 
 
 359 
               " WHERE RTAG_ID = "& nRtag_id
- 
 
 360 
 
- 
 
 361 
      Set rsQry = OraDatabase.DbCreateDynaset( QryStr, ORADYN_DEFAULT )
- 
 
 362 
 
- 
 
 363 
      If rsQry("record_count") <> 0 Then
- 
 
 364 
        DaemonInstructionPreventsReleaseDeletion = TRUE
- 
 
 365 
      End If
- 
 
 366 
 
- 
 
 367 
      rsQry.Close
- 
 
 368 
      Set rsQry = nothing
- 
 
 369 
   End If
- 
 
 370 
 
- 
 
 371 
End Function
- 
 
 372 
'------------------------------------------------------------------------------------------------------------------------------------------
- 
 
 373 
Function UserCanAddOrEditThisDaemonInst(nProjId, nReleaseMode, nOpCode)
- 
 
 374 
 
- 
 
 375 
   UserCanAddOrEditThisDaemonInst = TRUE
- 
 
 376 
 
- 
 
 377 
   If objAccessControl.UserLogedIn Then
- 
 
 378 
      If NOT objAccessControl.IsDataActive ("PROJECTS", nProjId, "EditProjects") OR NOT objAccessControl.IsDataVisible ("PROJECTS", nProjId, "EditProjects")  Then
- 
 
 379 
         UserCanAddOrEditThisDaemonInst = False
- 
 
 380 
      ElseIf NOT objAccessControl.IsDataActive ("PROJECTS", nProjId, enumDB_PERMISSION_TYPE_ACTIVE) Then
- 
 
 381 
         UserCanAddOrEditThisDaemonInst = False
- 
 
 382 
      ElseIf (( ReleaseMode <> enumDB_RELEASE_IN_OPEN_MODE ) AND (nOpCode = OP_CODE_0_RIPPLE_BUILD_PACKAGE) ) Then
- 
 
 383 
         If NOT objAccessControl.IsActive("ApproveForAutoBuild") Then
- 
 
 384 
            UserCanAddOrEditThisDaemonInst = False
- 
 
 385 
         End If
- 
 
 386 
      End If
- 
 
 387 
   Else
- 
 
 388 
      UserCanAddOrEditThisDaemonInst = False
- 
 
 389 
   End If
- 
 
 390 
End Function
- 
 
 391 
 
- 
 
 392 
'------------------------------------------------------------------------------------------------------------------------------------------
322 
 
 393 
 
323 
 
 394 
 
324 
%>
 395 
%>