project QadFinancials > class BSharedSetMerge > method MergeInitLoadSharedSetData

Description

This procedure read list of ID's of elements from redundant shared set.


Parameters


icSharedSetTypeCodeinputcharacter
iiRedundantSharedSetIdinputinteger
iiMasterSharedSetIdinputinteger
tSharedSetMergeDataoutputtemp-table
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BSharedSetMerge.MergeInit


program code (program6/bsharedsetmerge.p)

/* =================================================================================================== */
/* Method      : MergeInitLoadSharedSetData                                                            */
/* Desc        : This prodecure loads list of IDs of passed shared set                                 */
/* --------------------------------------------------------------------------------------------------- */
/* Params:  (I)  SharedSetTypeCode    Type of shared set                                               */
/*          (I)  RedundantSharedSetId Id of redundant shared set                                       */
/*          (I)  MasterSharedSetId Id of master shared set                                             */
/*          (O)  SharedSetContentList Temporary table with content of shared set                       */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Default return value                                                                                */
/* =================================================================================================== */
empty temp-table tSharedSetMergeData.

/* Empty temp-table tSharedSetMergeMasterData */
empty temp-table tSharedSetMergeMasterData.

/* =================================================================================================== */
/* Load ID's of all elements from redundant shared set                                                 */
/* =================================================================================================== */
case icSharedSetTypeCode:
    when {&SHAREDSETTYPECODE-COSTCENTRE}
    then do:
         <Q-1 run CostCentreForSharedSetMerge (all) (Read) (NoCache)
            (input ?, (CompanyId)
             input iiRedundantSharedSetId, (RedundantSharedSetId)
             input iiMasterSharedSetId, (MasterSharedSetId)
             output dataset tqCostCentreForSharedSetMerge) in BCostCentre >

         for each tqCostCentreForSharedSetMerge:
             create tSharedSetMergeData.
             assign tSharedSetMergeData.tiRedundantObjectId = tqCostCentreForSharedSetMerge.tiRedundantCostCenter_ID
                    tSharedSetMergeData.tiMasterObjectId    = tqCostCentreForSharedSetMerge.tiMasterCostCenter_ID
                    tSharedSetMergeData.tcKeyValue          = tqCostCentreForSharedSetMerge.tcCostCentreCode
                    tSharedSetMergeData.tlIsProcess         = false.
         end.
    end.
    
    when {&SHAREDSETTYPECODE-CREDITOR}
    then do:
         <Q-2 run CreditorForSharedSetMerge (all) (Read) (NoCache)
            (input ?, (CompanyId)
             input iiRedundantSharedSetId, (RedundantSharedSetId)
             input iiMasterSharedSetId, (MasterSharedSetId)
             output dataset tqCreditorForSharedSetMerge) in BCreditor >

         for each tqCreditorForSharedSetMerge:
             create tSharedSetMergeData.
             assign tSharedSetMergeData.tiRedundantObjectId = tqCreditorForSharedSetMerge.tiRedundantCreditor_ID
                    tSharedSetMergeData.tiMasterObjectId    = tqCreditorForSharedSetMerge.tiMasterCreditor_ID
                    tSharedSetMergeData.tcKeyValue          = tqCreditorForSharedSetMerge.tcCreditorCode
                    tSharedSetMergeData.tlIsProcess         = false.
         end.
    end.
    
    when {&SHAREDSETTYPECODE-DEBTOR}
    then do:
        <Q-3 run DebtorForSharedSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqDebtorForSharedSetMerge) in BDebtor >

        for each tqDebtorForSharedSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqDebtorForSharedSetMerge.tiRedundantDebtor_ID
                   tSharedSetMergeData.tiMasterObjectId    = tqDebtorForSharedSetMerge.tiMasterDebtor_ID
                   tSharedSetMergeData.tcKeyValue          = tqDebtorForSharedSetMerge.tcDebtorCode
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
    end.

    
    when {&SHAREDSETTYPECODE-DIVISION}
    then do:
        <Q-4 run DivisionForSharedSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqDivisionForSharedSetMerge) in BDivision >

        for each tqDivisionForSharedSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqDivisionForSharedSetMerge.tiRedundantDivision_ID
                   tSharedSetMergeData.tiMasterObjectId    = tqDivisionForSharedSetMerge.tiMasterDivision_ID
                   tSharedSetMergeData.tcKeyValue          = tqDivisionForSharedSetMerge.tcDivisionCode
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
    end.

    
    when {&SHAREDSETTYPECODE-EXCHANGERATE}
    then do:
        <Q-5 run ExchangeRateForShSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqExchangeRateForShSetMerge) in BExchangeRate >

        for each tqExchangeRateForShSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqExchangeRateForShSetMerge.tiRedundantExchangeRate_ID
                   tSharedSetMergeData.tiMasterObjectId    = ?
                   tSharedSetMergeData.tcKeyValue          = ?
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
    end.


    when {&SHAREDSETTYPECODE-GL}
    then do:
        <Q-6 run GLForSharedSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqGLForSharedSetMerge) in BGL >

        for each tqGLForSharedSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqGLForSharedSetMerge.tiRedundantGL_ID
                   tSharedSetMergeData.tiMasterObjectId    = tqGLForSharedSetMerge.tiMasterGL_ID
                   tSharedSetMergeData.tcKeyValue          = tqGLForSharedSetMerge.tcGLCode
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
    end.

    
    when {&SHAREDSETTYPECODE-JOURNAL}
    then do:
        <Q-7 run JournalForSharedSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqJournalForSharedSetMerge) in BJournal >
        
        for each tqJournalForSharedSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqJournalForSharedSetMerge.tiRedundantJournal_ID
                   tSharedSetMergeData.tiMasterObjectId    = tqJournalForSharedSetMerge.tiMasterJournal_ID            
                   tSharedSetMergeData.tcKeyValue          = tqJournalForSharedSetMerge.tcJournalCode
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
 
        <Q-75 run JournalByCodeSharedSetID (all) (Read) (NoCache)
           (input ?, (JournalCode)
            input iiMasterSharedSetId, (SharedSetID)
            output dataset tqJournalByCodeSharedSetID) in BJournal >
 
        for each tqJournalByCodeSharedSetID:                                          
            create tSharedSetMergeMasterData.
            assign tSharedSetMergeMasterData.tiMasterObjectId    = tqJournalByCodeSharedSetID.tiJournal_ID
                   tSharedSetMergeMasterData.tcKeyValue          = tqJournalByCodeSharedSetID.tcJournalCode
                   tSharedSetMergeMasterData.tiMasterSharedSetId = tqJournalByCodeSharedSetID.tiSharedSet_ID.                           
        end. /* FOR EACH tqJournalByCodeSharedSetID */                                       
 
    end.


    when {&SHAREDSETTYPECODE-PROJECT}
    then do:
        <Q-8 run ProjectForSharedSetMerge (all) (Read) (NoCache)
           (input ?, (CompanyId)
            input iiRedundantSharedSetId, (RedundantSharedSetId)
            input iiMasterSharedSetId, (MasterSharedSetId)
            output dataset tqProjectForSharedSetMerge) in BProject >
        
        for each tqProjectForSharedSetMerge:
            create tSharedSetMergeData.
            assign tSharedSetMergeData.tiRedundantObjectId = tqProjectForSharedSetMerge.tiRedundantProject_ID
                   tSharedSetMergeData.tiMasterObjectId    = tqProjectForSharedSetMerge.tiMasterProject_ID
                   tSharedSetMergeData.tcKeyValue          = tqProjectForSharedSetMerge.tcProjectCode
                   tSharedSetMergeData.tlIsProcess         = false.
        end.
    end.
end case.

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