project QadFinancials > class BSharedSetMerge > method MergeValidateLoadProfDataGL


Parameters


iiMasterSharedSetIdinputinteger
iiRedundantSharedSetIdinputinteger
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSharedSetMerge.MergeValidateLoadProfData


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergeValidateLoadProfDataGL                                                           */
/* Desc        : This method reads referenced profile data from all elements of gl shared sets.        */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  MasterSharedSetId    Id of the master shared set                                      */
/*          (I)  RedundantSharedSetId If of the redundant shared set                                   */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* ================================================================================== */
/* GL Profile                                                                         */
/* ================================================================================== */
 <Q-24 run GLForSSMProf (all) (Read) (NoCache)
    (input ?, (CompanyId)
     input iiMasterSharedSetId, (MasterSharedSetId)
     input iiRedundantSharedSetId, (RedundantSharedSetId)
     output dataset tqGLForSSMProf) in BGL >
 
for each tqGLForSSMProf:
    create tProfileSharedSetData.
    assign tProfileSharedSetData.tcKeyValue            = tqGLForSSMProf.tcRedundantGLCode
           tProfileSharedSetData.tcFieldName           = "Profile.ProfileCode":U
           tProfileSharedSetData.tcProfileCode         = tqGLForSSMProf.tcProfileCode
           tProfileSharedSetData.tcMasterFieldValue    = tqGLForSSMProf.tcMasterGLCode
           tProfileSharedSetData.tcRedundantFieldValue = tqGLForSSMProf.tcRedundantGLCode.
end.

/* ================================================================================== */
/* GL - BankJournal                                                                   */
/* ================================================================================== */
assign vcProfileFieldName = 'BankJournalProfile_ID':U.

<Q-1 run GLForSSMProfProfBankJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfBankJournal) in BGL >

for each tqGLForSSMProfProfBankJournal:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfBankJournal.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfBankJournal.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfBankJournal.tcJournalCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfBankJournal.tiJournalSharedSet_ID.
end.

<Q-2 run GLForSSMProfProfBankJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfBankJournal) in BGL >

for each tqGLForSSMProfProfBankJournal:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfBankJournal.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfBankJournal.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfBankJournal.tcJournalCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfBankJournal.tiJournalSharedSet_ID.
end.

/* ================================================================================== */
/* GL - CashInJournal                                                                 */
/* ================================================================================== */
assign vcProfileFieldName = 'CashInJournalProfile_ID':U.

<Q-5 run GLForSSMProfProfCashInJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCashInJournal) in BGL >

for each tqGLForSSMProfProfCashInJournal:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCashInJournal.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCashInJournal.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCashInJournal.tcJournalCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCashInJournal.tiJournalSharedSet_ID.
end.

<Q-6 run GLForSSMProfProfCashInJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCashInJournal) in BGL >

for each tqGLForSSMProfProfCashInJournal:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCashInJournal.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCashInJournal.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCashInJournal.tcJournalCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCashInJournal.tiJournalSharedSet_ID.
end.


/* ================================================================================== */
/* GL - CashOutJournal                                                                */
/* ================================================================================== */
assign vcProfileFieldName = 'CashOutJournalProfile_ID':U.

<Q-9 run GLForSSMProfProfCashOutJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCashOutJournal) in BGL >

for each tqGLForSSMProfProfCashOutJournal:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCashOutJournal.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCashOutJournal.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCashOutJournal.tcJournalCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCashOutJournal.tiJournalSharedSet_ID.
end.

<Q-10 run GLForSSMProfProfCashOutJournal (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCashOutJournal) in BGL >

for each tqGLForSSMProfProfCashOutJournal:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCashOutJournal.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCashOutJournal.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCashOutJournal.tcJournalCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCashOutJournal.tiJournalSharedSet_ID.
end.

/* ================================================================================== */
/* GL - CostCentre                                                                    */
/* ================================================================================== */
assign vcProfileFieldName = 'CostCentreProfile_ID':U.

<Q-13 run GLForSSMProfProfCostCentre (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCostCentre) in BGL >

for each tqGLForSSMProfProfCostCentre:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCostCentre.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCostCentre.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCostCentre.tcCostCentreCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCostCentre.tiCostCentreSharedSet_ID.
end.

<Q-14 run GLForSSMProfProfCostCentre (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfCostCentre) in BGL >

for each tqGLForSSMProfProfCostCentre:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfCostCentre.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfCostCentre.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfCostCentre.tcCostCentreCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfCostCentre.tiCostCentreSharedSet_ID.
end.

/* ================================================================================== */
/* GL - Division                                                                      */
/* ================================================================================== */
assign vcProfileFieldName = 'DivisionProfile_ID':U.

<Q-17 run GLForSSMProfProfDivision (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfDivision) in BGL >

for each tqGLForSSMProfProfDivision:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfDivision.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfDivision.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfDivision.tcDivisionCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfDivision.tiDivisionSharedSet_ID.
end.

<Q-18 run GLForSSMProfProfDivision (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfDivision) in BGL >

for each tqGLForSSMProfProfDivision:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfDivision.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfDivision.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfDivision.tcDivisionCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfDivision.tiDivisionSharedSet_ID.
end.


/* ================================================================================== */
/* GL - Project                                                                       */
/* ================================================================================== */
assign vcProfileFieldName = 'ProjectProfile_ID':U.

<Q-21 run GLForSSMProfProfProject (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiMasterSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfProject) in BGL >

for each tqGLForSSMProfProfProject:
    create tMasterProfileSharedSetData.
    assign tMasterProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tMasterProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfProject.tcGLCode
           tMasterProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfProject.tcProfileCode   
           tMasterProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfProject.tcProjectCode
           tMasterProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfProject.tiProjectSharedSet_ID.
end.

<Q-22 run GLForSSMProfProfProject (all) (Read) (NoCache)
   (input ?, (CompanyId)
    input iiRedundantSharedSetId, (SharedSetId)
    output dataset tqGLForSSMProfProfProject) in BGL >

for each tqGLForSSMProfProfProject:
    create tRedundantProfileSharedSetData.
    assign tRedundantProfileSharedSetData.tcFieldName                = vcProfileFieldName
           tRedundantProfileSharedSetData.tcKeyValue                 = tqGLForSSMProfProfProject.tcGLCode
           tRedundantProfileSharedSetData.tcProfileCode              = tqGLForSSMProfProfProject.tcProfileCode
           tRedundantProfileSharedSetData.tcProfileTargetKeyValue    = tqGLForSSMProfProfProject.tcProjectCode   
           tRedundantProfileSharedSetData.tiProfileTargetSharedSetId = tqGLForSSMProfProfProject.tiProjectSharedSet_ID.
end.

/* ================================================================================== */
/* Return                                                                             */
/* ================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.