project QadFinancials > class BSafStructure > method GetSafStructureIsReferenced

function returns logical

Description

Returns true if SafStructure is already used somewhere, otherwise false


Parameters


iiSafStructureIdinputinteger
oiReturnStatusoutputinteger


Internal usage


QadFinancials
method BSafStructure.ValidateComponent


program code (program1/bsafstructure.p)

if iiSafStructureId = ? or
   iiSafStructureId = 0
then return false.

/*BudgetWBS*/
 <Q-1 assign vlFcQueryRecordsAvailable = BudgetWBSByAll (NoCache)
          (input ?, (BudgetID)
           input ?, (BudgetWBSID)
           input ?, (BudgetWBSCode)
           input ?, (ParentBudgetWBSID)
           input ?, (BudgetFDSType)
           input iiSafStructureId, (SafStructureID)
           input ?, (SafConceptID)
           input ?, (BudgetFDSID)) in BBudget >
if vlFcQueryRecordsAvailable <> false
then return true. 
/*PostingSaf*/
<Q-2 assign vlFcQueryRecordsAvailable = PostingSafByIDs (NoCache)
          (input ?, (PostingSafId)
           input ?, (PostingLineId)
           input ?, (SafId)
           input iiSafStructureId, (SafStructureId)) in BPosting >
if vlFcQueryRecordsAvailable <> false
then return true. 
/*SafStructureLink*/
<Q-3 assign vlFcQueryRecordsAvailable = GetLinkForSafStucture (NoCache)  (input iiSafStructureId, (SafStructureId)) in BSafStructureLink >
    
if vlFcQueryRecordsAvailable <> false
then return true. 

/*in all other cases return false*/
return false.