project QadFinancials > class BERSProcessor > method RestoreFromSystemErrors

Description

Restore messages from system errors


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BERSProcessor.GetERSLegalDocuments
method BERSProcessor.GetERSPendingVouchersPORec


program code (program5/bersprocessor.p)

/* =================================================================================================== */
/* Method      : RestoreFromSystemErrors                                                               */
/* Desc        : This method restores all general messages into tFCMessages table                      */
/* --------------------------------------------------------------------------------------------------- */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Backup all errors to system ones                                                                    */
/* =================================================================================================== */

for each tSystemFcMessages:
    create tFcMessages.
    buffer-copy tSystemFcMessages to tFcMessages.
end.
empty temp-table tSystemFcMessages.

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