Description
Copy current errors to Receipt Errors
Parameters
| icReceiptRowId | input | character | |
| ilDeleteSystemErrors | input | logical | |
| oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program5/bersprocessor.p)
/* =================================================================================================== */
/* Method : CopyToSystemErrors */
/* Desc : This method backups all system errors to temporary table */
/* --------------------------------------------------------------------------------------------------- */
/* Parameters : (I) ReceiptRowId Row Id of parent receipt record */
/* =================================================================================================== */
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Backup all errors to system ones */
/* =================================================================================================== */
for each tFcMessages:
create tERSProcessorLogRef.
buffer-copy tFcMessages to tERSProcessorLogRef.
assign tERSProcessorLogRef.tcFcRowid = icReceiptRowId.
end.
if ilDeleteSystemErrors
then empty temp-table tFcMessages.
/* =================================================================================================== */
/* Return */
/* =================================================================================================== */
if oiReturnStatus = -98 then assign oiReturnStatus = 0.