Description
This procedure read list of ID's of elements from redundant shared set.
Parameters
| icSharedSetTypeCode | input | character | |
| iiRedundantSharedSetId | input | integer | |
| iiMasterSharedSetId | input | integer | |
| tSharedSetMergeData | output | temp-table | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
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.