Description
Method to check existence of a RevalGLSafCombined record. Create it if it doesn't exist yet. This method receives three variables with maximum 5 saf-id's and it returns the RevalGLSafCombinedID.
Parameters
icCostCentreSafIds | input | character | |
icGLSafIds | input | character | |
icProjectSafIds | input | character | |
iiCostCentreSafStructureID | input | integer | |
iiGLSafStructureID | input | integer | |
iiProjectSafStructureID | input | integer | |
oiRevalGLSafCombinedId | output | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/brevaluationsaf.p)
assign oiRevalGLSafCombinedId = 0.
<Q-1 run RevalGLSafCombinedByIds (all) (Read) (NoCache)
(input int(entry(1,icCostCentreSafIds)), (CostCentre1SafID)
input int(entry(2,icCostCentreSafIds)), (CostCentre2SafID)
input int(entry(3,icCostCentreSafIds)), (CostCentre3SafID)
input int(entry(4,icCostCentreSafIds)), (CostCentre4SafID)
input int(entry(5,icCostCentreSafIds)), (CostCentre5SafID)
input iiCostCentreSafStructureID, (CostCentreSafStructureID)
input int(entry(1,icGLSafIds)), (GL1SafID)
input int(entry(2,icGLSafIds)), (GL2SafID)
input int(entry(3,icGLSafIds)), (GL3SafID)
input int(entry(4,icGLSafIds)), (GL4SafID)
input int(entry(5,icGLSafIds)), (GL5SafID)
input iiGLSafStructureID, (GLSafStructureID)
input int(entry(1,icProjectSafIds)), (Project1SafID)
input int(entry(2,icProjectSafIds)), (Project2SafID)
input int(entry(3,icProjectSafIds)), (Project3SafID)
input int(entry(4,icProjectSafIds)), (Project4SafID)
input int(entry(5,icProjectSafIds)), (Project5SafID)
input iiProjectSafStructureID, (ProjectSafStructureID)
input ?, (RevalGLSafCombined_Id)
output dataset tqRevalGLSafCombinedByIds) in BRevaluationSaf >
find tqRevalGLSafCombinedByIds where
tqRevalGLSafCombinedByIds.tiProject1Saf_ID = integer(entry(1, icProjectSafIDs)) and
tqRevalGLSafCombinedByIds.tiProject2Saf_ID = integer(entry(2, icProjectSafIDs)) and
tqRevalGLSafCombinedByIds.tiProject3Saf_ID = integer(entry(3, icProjectSafIDs)) and
tqRevalGLSafCombinedByIds.tiProject4Saf_ID = integer(entry(4, icProjectSafIDs)) and
tqRevalGLSafCombinedByIds.tiProject5Saf_ID = integer(entry(5, icProjectSafIDs)) and
tqRevalGLSafCombinedByIds.tiCostCentre1Saf_ID = integer(entry(1, icCostCentreSafIDs)) and
tqRevalGLSafCombinedByIds.tiCostCentre2Saf_ID = integer(entry(2, icCostCentreSafIDs)) and
tqRevalGLSafCombinedByIds.tiCostCentre3Saf_ID = integer(entry(3, icCostCentreSafIDs)) and
tqRevalGLSafCombinedByIds.tiCostCentre4Saf_ID = integer(entry(4, icCostCentreSafIDs)) and
tqRevalGLSafCombinedByIds.tiCostCentre5Saf_ID = integer(entry(5, icCostCentreSafIDs)) and
tqRevalGLSafCombinedByIds.tiGL1Saf_ID = integer(entry(1, icGLSafIDs)) and
tqRevalGLSafCombinedByIds.tiGL2Saf_ID = integer(entry(2, icGLSafIDs)) and
tqRevalGLSafCombinedByIds.tiGL3Saf_ID = integer(entry(3, icGLSafIDs)) and
tqRevalGLSafCombinedByIds.tiGL4Saf_ID = integer(entry(4, icGLSafIDs)) and
tqRevalGLSafCombinedByIds.tiGL5Saf_ID = integer(entry(5, icGLSafIDs)) and
tqRevalGLSafCombinedByIds.tiProjectSafStructure_ID = iiProjectSafStructureID and
tqRevalGLSafCombinedByIds.tiCostCentreSafStructure_ID = iiCostCentreSafStructureID and
tqRevalGLSafCombinedByIds.tiGLSafStructure_ID = iiGLSafStructureID
no-error.
if not available tqRevalGLSafCombinedByIds
then do:
<M-2 run AddDetailLine (input 'RevalGLSafCombined':U (icTable),
input '':U (icParentRowid),
output viFcReturnSuper (oiReturnStatus)) in BRevaluationSaf>
if viFcReturnSuper <> 0
then return.
assign tRevalGLSafCombined.Project1Saf_ID = integer(entry(1, icProjectSafIDs))
tRevalGLSafCombined.Project2Saf_ID = integer(entry(2, icProjectSafIDs))
tRevalGLSafCombined.Project3Saf_ID = integer(entry(3, icProjectSafIDs))
tRevalGLSafCombined.Project4Saf_ID = integer(entry(4, icProjectSafIDs))
tRevalGLSafCombined.Project5Saf_ID = integer(entry(5, icProjectSafIDs))
tRevalGLSafCombined.CostCentre1Saf_ID = integer(entry(1, icCostCentreSafIDs))
tRevalGLSafCombined.CostCentre2Saf_ID = integer(entry(2, icCostCentreSafIDs))
tRevalGLSafCombined.CostCentre3Saf_ID = integer(entry(3, icCostCentreSafIDs))
tRevalGLSafCombined.CostCentre4Saf_ID = integer(entry(4, icCostCentreSafIDs))
tRevalGLSafCombined.CostCentre5Saf_ID = integer(entry(5, icCostCentreSafIDs))
tRevalGLSafCombined.GL1Saf_ID = integer(entry(1, icGLSafIDs))
tRevalGLSafCombined.GL2Saf_ID = integer(entry(2, icGLSafIDs))
tRevalGLSafCombined.GL3Saf_ID = integer(entry(3, icGLSafIDs))
tRevalGLSafCombined.GL4Saf_ID = integer(entry(4, icGLSafIDs))
tRevalGLSafCombined.GL5Saf_ID = integer(entry(5, icGLSafIDs))
tRevalGLSafCombined.ProjectSafStructure_ID = iiProjectSafStructureID
tRevalGLSafCombined.CostCentreSafStructure_ID = iiCostCentreSafStructureID
tRevalGLSafCombined.GLSafStructure_ID = iiGLSafStructureID
oiRevalGLSafCombinedId = tRevalGLSafCombined.RevalGLSafCombined_ID.
end.
else assign oiRevalGLSafCombinedId = tqRevalGLSafCombinedByIds.tiRevalGLSafCombined_ID.