project QadFinancials > class BSharedSetMerge > method MergeValidateLoadProfDataProject
Parameters
iiMasterSharedSetId | input | integer | |
iiRedundantSharedSetId | input | integer | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bsharedsetmerge.p)
/* =================================================================================================== */
/* Method : MergeValidateLoadProfDataProject */
/* Desc : This method reads referenced profile data from all elements of Project shared sets. */
/* --------------------------------------------------------------------------------------------------- */
/* Params: (I) MasterSharedSetId Id of the master shared set */
/* (I) RedundantSharedSetId If of the redundant shared set */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* ================================================================================== */
/* Project Profile */
/* ================================================================================== */
<Q-16 run ProjectForSSMProf (all) (Read) (NoCache)
(input ?, (CompanyId)
input iiMasterSharedSetId, (MasterSharedSetId)
input iiRedundantSharedSetId, (RedundantSharedSetId)
output dataset tqProjectForSSMProf) in BProject >
for each tqProjectForSSMProf:
create tProfileSharedSetData.
assign tProfileSharedSetData.tcKeyValue = tqProjectForSSMProf.tcRedundantProjectCode
tProfileSharedSetData.tcFieldName = "Profile.ProfileCode":U
tProfileSharedSetData.tcProfileCode = tqProjectForSSMProf.tcProfileCode
tProfileSharedSetData.tcMasterFieldValue = tqProjectForSSMProf.tcMasterProjectCode
tProfileSharedSetData.tcRedundantFieldValue = tqProjectForSSMProf.tcRedundantProjectCode.
end.
/* ================================================================================== */
/* Project - DivisionProfile */
/* ================================================================================== */
assign vcProfileFieldName = 'DivisionProfile_ID':U.
<Q-13 run ProjectForSSMProfDivision (all) (Read) (NoCache)
(input ?, (CompanyId)
input iiMasterSharedSetId, (SharedSetId)
output dataset tqProjectForSSMProfDivision) in BProject >
for each tqProjectForSSMProfDivision:
create tMasterProfileSharedSetData.
assign tMasterProfileSharedSetData.tcFieldName = vcProfileFieldName
tMasterProfileSharedSetData.tcKeyValue = tqProjectForSSMProfDivision.tcProjectCode
tMasterProfileSharedSetData.tcProfileCode = tqProjectForSSMProfDivision.tcProfileCode
tMasterProfileSharedSetData.tcProfileTargetKeyValue = tqProjectForSSMProfDivision.tcDivisionCode
tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqProjectForSSMProfDivision.tiDivisionSharedSet_ID.
end.
<Q-14 run ProjectForSSMProfDivision (all) (Read) (NoCache)
(input ?, (CompanyId)
input iiRedundantSharedSetId, (SharedSetId)
output dataset tqProjectForSSMProfDivision) in BProject >
for each tqProjectForSSMProfDivision:
create tRedundantProfileSharedSetData.
assign tRedundantProfileSharedSetData.tcFieldName = vcProfileFieldName
tRedundantProfileSharedSetData.tcKeyValue = tqProjectForSSMProfDivision.tcProjectCode
tRedundantProfileSharedSetData.tcProfileCode = tqProjectForSSMProfDivision.tcProfileCode
tRedundantProfileSharedSetData.tcProfileTargetKeyValue = tqProjectForSSMProfDivision.tcDivisionCode
tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqProjectForSSMProfDivision.tiDivisionSharedSet_ID.
end.
/* ================================================================================== */
/* Return */
/* ================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.