project QadFinancials > class BERSProcessor > method CopyToSystemErrors

Description

Backup all current errors to system errors. These errors are append to existing system ones


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BERSProcessor.ERSProcess
method BERSProcessor.GetERSLegalDocuments
method BERSProcessor.GetERSPendingVouchersPORec


program code (program5/bersprocessor.p)

/* =================================================================================================== */
/* Method      : CopyToSystemErrors                                                                    */
/* Desc        : This method backups all system errors to temporary table                              */
/* --------------------------------------------------------------------------------------------------- */
/* =================================================================================================== */

assign oiReturnStatus = -98.

/* =================================================================================================== */
/* Backup all errors to system ones                                                                    */
/* =================================================================================================== */
for each tFcMessages:
    create tSystemFcMessages.
    buffer-copy tFcMessages to tSystemFcMessages.
end.
empty temp-table tFcMessages.

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