Description
This method will dump all postings within the selected periods.
Parameters
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program4/bconsoliddump.p)
If oiReturnStatus = 0
Then Assign oiReturnStatus = -98.
For Each tConsolidDump Where
tConsolidDump.tc_Status = 'N':U Or
tConsolidDump.tc_Status = 'C':U:
Assign
vcGLIDList = '':U
vcJournalIDList = '':U
vcBusinessRelationIDList = '':U
vcDivisionIDList = '':U
vcCostCentreIDList = '':U
vcProjectIDList = '':U
vcSafStructureIDList = '':U
vcSafConceptIDList = '':U
vcSafIDList = '':U
vcSafStructureLinkIDList = '':U
vcCostCentreProfileList = '':U
vcDivisionProfileList = '':U
vcProjectProfileList = '':U
vcJournalProfileList = '':U
vcLayerIDList = '':U
vcCountryIDList = '':U
vcAddressTypeIDList = '':U
vcCurrencyIDList = '':U
vcProjectStatusIDList = '':U
vcProjectGroupIDList = '':U
vcBLWICountryIDList = '':U
viFileSeq = 0
vcDumpFile = '':U.
<Q-1 run CompanyPrim (all) (Read) (NoCache)
(input tConsolidDump.Company_ID, (LookupCompanyId)
input ?, (CompanyCode)
output dataset tqCompanyPrim) in BCompany >
Find First tqCompanyPrim No-error.
If Available tqCompanyPrim
Then Assign vcFilePrefix = '~\':U + tqCompanyPrim.tcCompanyCode + '-':U + string(tConsolidDump.tiToPeriodYear) + string(tConsolidDump.tiToPeriodPeriod, "99":U) + '-':U.
If tConsolidDump.ConsolidDumpIsOpeningBal = True
Then Do:
<Q-2 run PeriodPrevPeriodByYearPeriod (all) (Read) (NoCache)
(input tConsolidDump.Company_ID, (CompanyId)
input tConsolidDump.tiFromPeriodYear, (PeriodYear)
input tConsolidDump.tiFromPeriodPeriod, (PeriodPeriod)
output dataset tqPeriodPrevPeriodByYearPeriod) in BPeriod >
Find First tqPeriodPrevPeriodByYearPeriod No-error.
If Available tqPeriodPrevPeriodByYearPeriod
Then Do:
<I-23 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BJournalEntry"}>
<M-91 run DumpJESumForConsolid
(input viCompanyId (iiCompanyId),
input tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'OpenBal':U (icDumpDirectory),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input 0 (iiFromYear),
input 0 (iiFromPeriod),
input tqPeriodPrevPeriodByYearPeriod.tiPeriodYear (iiToYear),
input tqPeriodPrevPeriodByYearPeriod.tiPeriodPeriod (iiToPeriod),
input tConsolidDump.ConsolidDumpIsOpeningBal (ilIsOpeningBal),
input tConsolidDump.tiOpeningPeriodYear (iiOpeningYear),
input tConsolidDump.tiOpeningPeriodPeriod (iiOpeningPeriod),
input tConsolidDump.ConsolidDumpConsolRate (idCCExchangeRate),
input tConsolidDump.ConsolidDumpConsolRteScale (idCCExchangeRateScale),
input tConsolidDump.tcCurrencyCode (icCCCurrencyCode),
input-output vcGLIDList (bcGLIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcBusinessRelationIDList (bcBusinessRelationIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcProjectIDList (bcProjectIDList),
input-output vcSafStructureIDList (bcSafStructureIDList),
input-output vcSafIDList (bcSafIDList),
input-output vcSafStructureLinkIDList (bcSafStructureLinkIDList),
output viLocalReturnStatus (oiReturnStatus)) in BJournalEntry>
<I-24 {bFcCloseAndStopInstance
&CLASS = "BJournalEntry"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
End. /*If tConsolidDump.ConsolidDumpIsOpeningBal = True*/
If tConsolidDump.ConsolidDumpIsWithDetail = True
Then Do:
<I-25 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BJournalEntry"}>
<M-89 run DumpJEDetForConsolid
(input viCompanyId (iiCompanyId),
input tConsolidDump.ConsolidDumpDirectory + vcFilePrefix (icDumpDirectory),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input tConsolidDump.ConsolidDumpConsolRate (idCCExchangeRate),
input tConsolidDump.ConsolidDumpConsolRteScale (idCCExchangeRateScale),
input tConsolidDump.tcCurrencyCode (icCCCurrencyCode),
input tConsolidDump.ConsolidDumpChunkSize (iiDumpChunkSize),
input tConsolidDump.tiFromPeriodYear (iiFromYear),
input tConsolidDump.tiFromPeriodPeriod (iiFromPeriod),
input tConsolidDump.tiToPeriodYear (iiToYear),
input tConsolidDump.tiToPeriodPeriod (iiToPeriod),
input-output vcJournalIDList (bcJournalIDList),
input-output vcBusinessRelationIDList (bcBusinessRelationIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcProjectIDList (bcProjectIDList),
input-output vcSafStructureIDList (bcSafStructureIDList),
input-output vcSafIDList (bcSafIDList),
input-output vcSafStructureLinkIDList (bcSafStructureLinkIDList),
input-output vcGLIDList (bcGLIDList),
output viLocalReturnStatus (oiReturnStatus)) in BJournalEntry>
<I-26 {bFcCloseAndStopInstance
&CLASS = "BJournalEntry"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End. /*If tConsolidDump.ConsolidDumpIsWithDetail = True */
Else Do:
<I-27 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BJournalEntry"}>
<M-90 run DumpJESumForConsolid
(input viCompanyId (iiCompanyId),
input tConsolidDump.ConsolidDumpDirectory + vcFilePrefix (icDumpDirectory),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input tConsolidDump.tiFromPeriodYear (iiFromYear),
input tConsolidDump.tiFromPeriodPeriod (iiFromPeriod),
input tConsolidDump.tiToPeriodYear (iiToYear),
input tConsolidDump.tiToPeriodPeriod (iiToPeriod),
input tConsolidDump.ConsolidDumpIsOpeningBal (ilIsOpeningBal),
input tConsolidDump.tiOpeningPeriodYear (iiOpeningYear),
input tConsolidDump.tiOpeningPeriodPeriod (iiOpeningPeriod),
input tConsolidDump.ConsolidDumpConsolRate (idCCExchangeRate),
input tConsolidDump.ConsolidDumpConsolRteScale (idCCExchangeRateScale),
input tConsolidDump.tcCurrencyCode (icCCCurrencyCode),
input-output vcGLIDList (bcGLIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcBusinessRelationIDList (bcBusinessRelationIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcProjectIDList (bcProjectIDList),
input-output vcSafStructureIDList (bcSafStructureIDList),
input-output vcSafIDList (bcSafIDList),
input-output vcSafStructureLinkIDList (bcSafStructureLinkIDList),
output viLocalReturnStatus (oiReturnStatus)) in BJournalEntry>
<I-28 {bFcCloseAndStopInstance
&CLASS = "BJournalEntry"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End. /*NOT If tConsolidDump.ConsolidDumpIsWithDetail = True */
If vcGLIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'GL.xml':U.
<I-29 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BGL"}>
<M-6 run DumpGLForConsolid (input vcGLIDList (icGLIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCostCentreProfileList (bcCostCentreProfileList),
input-output vcDivisionProfileList (bcDivisionProfileList),
input-output vcProjectProfileList (bcProjectProfileList),
output viLocalReturnStatus (oiReturnStatus)) in BGL>
<I-30 {bFcCloseAndStopInstance
&CLASS = "BGL"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
if vcCostCentreProfileList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'CostCentreProfile.xml':U.
<I-82 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProfile"}>
<M-83 run DumpProfileForConsolid (input vcCostCentreProfileList (icProfileIDList),
input vcDumpFile (icDumpFile),
input 180 (iiDumpPriority),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcProjectIDList (bcProjectIDList),
output viLocalReturnStatus (oiReturnStatus)) in BProfile>
<I-84 {bFcCloseAndStopInstance
&CLASS = "BProfile"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If vcCostCentreIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'CostCentre.xml':U.
<I-37 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BCostCentre"}>
<M-10 run DumpCostCentreForConsolid (input vcCostCentreIDList (icCostCentreIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcDivisionProfileList (bcDivisionProfileIDList),
output viLocalReturnStatus (oiReturnStatus)) in BCostCentre>
<I-38 {bFcCloseAndStopInstance
&CLASS = "BCostCentre"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
if vcProjectProfileList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'ProjectProfile.xml':U.
<I-79 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProfile"}>
<M-80 run DumpProfileForConsolid (input vcProjectProfileList (icProfileIDList),
input vcDumpFile (icDumpFile),
input 160 (iiDumpPriority),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcProjectIDList (bcProjectIDList),
output viLocalReturnStatus (oiReturnStatus)) in BProfile>
<I-81 {bFcCloseAndStopInstance
&CLASS = "BProfile"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If vcProjectIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'Project.xml':U.
<I-39 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProject"}>
<M-11 run DumpProjectForConsolid (input vcProjectIDList (icProjectIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcDivisionProfileList (bcDivisionProfileIDList),
input-output vcCurrencyIDList (bcCurrencyIDList),
input-output vcBusinessRelationIDList (bcBusinessRelationIDList),
input-output vcProjectStatusIDList (bcProjectStatusIDList),
input-output vcProjectGroupIDList (bcProjectGroupIDList),
output viLocalReturnStatus (oiReturnStatus)) in BProject>
<I-40 {bFcCloseAndStopInstance
&CLASS = "BProject"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
if vcDivisionProfileList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'DivisionProfile.xml':U.
<I-76 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProfile"}>
<M-77 run DumpProfileForConsolid (input vcDivisionProfileList (icProfileIDList),
input vcDumpFile (icDumpFile),
input 140 (iiDumpPriority),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcProjectIDList (bcProjectIDList),
output viLocalReturnStatus (oiReturnStatus)) in BProfile>
<I-78 {bFcCloseAndStopInstance
&CLASS = "BProfile"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If vcDivisionIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'Division.xml':U.
<I-73 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BDivision"}>
<M-74 run DumpDivisionForConsolid (input vcDivisionIDList (icDivisionIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcJournalProfileList (bcJournalProfileIDList),
output viLocalReturnStatus (oiReturnStatus)) in BDivision>
<I-75 {bFcCloseAndStopInstance
&CLASS = "BDivision"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
if vcJournalProfileList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'JournalProfile.xml':U.
<I-70 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BProfile"}>
<M-71 run DumpProfileForConsolid (input vcJournalProfileList (icProfileIDList),
input vcDumpFile (icDumpFile),
input 120 (iiDumpPriority),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCostCentreIDList (bcCostCentreIDList),
input-output vcDivisionIDList (bcDivisionIDList),
input-output vcJournalIDList (bcJournalIDList),
input-output vcProjectIDList (bcProjectIDList),
output viLocalReturnStatus (oiReturnStatus)) in BProfile>
<I-72 {bFcCloseAndStopInstance
&CLASS = "BProfile"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If vcJournalIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'Journal.xml':U.
<I-67 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BJournal"}>
<M-68 run DumpJournalForConsolid (input vcJournalIDList (icJournalIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcLayerIDList (bcLayerIDList),
output viLocalReturnStatus (oiReturnStatus)) in BJournal>
<I-69 {bFcCloseAndStopInstance
&CLASS = "BJournal"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
If vcBusinessRelationIDList <> '':U
Then Do:
Assign vcDumpFile = tConsolidDump.ConsolidDumpDirectory + vcFilePrefix + 'BusinessRelation.xml':U.
<I-63 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "False"
&CLASS = "BBusinessRelation"}>
<M-64 run DumpBusinessRelationForConsolid (input vcBusinessRelationIDList (icBusinessRelationIDList),
input vcDumpFile (icDumpFile),
input tConsolidDump.ConsolidDumpConsolCompCode (icConsolCompany),
input-output vcCountryIDList (bcCountryIDList),
input-output vcAddressTypeIDList (bcAddressTypeIDList),
output viLocalReturnStatus (oiReturnStatus)) in BBusinessRelation>
<I-65 {bFcCloseAndStopInstance
&CLASS = "BBusinessRelation"}>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
If viLocalReturnStatus <> 0
Then Assign oiReturnStatus = viLocalReturnStatus.
If viLocalReturnStatus < 0
Then Return.
End.
<M-66 run AdditionalUpdatesPostingSub (input-output vcFilePrefix (bcFilePrefix),
input-output vcSafStructureLinkIDList (bcSafStructureLinkIDList),
input-output vcLayerIDList (bcLayerIDList),
input-output vcCurrencyIDList (bcCurrencyIDList),
input-output vcAddressTypeIDList (bcAddressTypeIDList),
input-output vcCountryIDList (bcCountryIDList),
input-output vcProjectStatusIDList (bcProjectStatusIDList),
input-output vcProjectGroupIDList (bcProjectGroupIDList),
input-output vcSafStructureIDList (bcSafStructureIDList),
input-output vcSafConceptIDList (bcSafConceptIDList),
input-output vcSafIDList (bcSafIDList),
input-output vcBLWICountryIDList (bcBLWICountryIDList),
output viFcReturnSuper (oiReturnStatus)) in BConsolidDump>
If viFcReturnSuper <> 0
Then Assign oiReturnStatus = viFcReturnSuper.
If viFcReturnSuper < 0
Then Return.
End. /*For Each tConsolidDump Where*/
If oiReturnStatus = -98
Then Assign oiReturnStatus = 0.