method UpdateBankImpLineProcessResult

Parameters

icProcessName	input	character
iiProcessStatus	input	integer
icProcessResult	input	character
oiReturnStatus	output	integer	Return status of the method.

Internal usage

QadFinancials

program code (program1/bbankimportline.p)

/* Update process temp table */
assign icProcessName = if icProcessName = {&BANKIMPORTACTION-CREATEDDOCUMENT} then 'ProcessBankImpLineNewDDocument':U
                       else if icProcessName = {&BANKIMPORTACTION-PAIDDDOCUMENT} then 'ProcessBankImpLineDDocStatusChg':U
                       else if icProcessName = {&BANKIMPORTACTION-PAIDCDOCUMENT} then 'ProcessBankImpLineCDocStatusChg':U
                       else if icProcessName = {&BANKIMPORTACTION-BOUNCEDDDOCUMENT} then 'ProcessBankImpLineDDocStatusChg':U
                       else if icProcessName = {&BANKIMPORTACTION-BOUNCEDCDOCUMENT} then 'ProcessBankImpLineCDocStatusChg':U
                       else if icProcessName = {&BANKIMPORTACTION-CREATEBE} then 'ProcessBankImpLineNewBankEntry':U
                       else if icProcessName = {&BANKIMPORTACTION-CONFIRM} then 'ProcessBankImpLineConfirm':U
                       else if icProcessName = {&BANKIMPORTACTION-OTHER} then 'CompanyForAddressInfo':U
                       else icProcessName.

find first tBankImpLineProcessRef where
    tBankImpLineProcessRef.tcBankImpLineProcessName = icProcessNAME NO-ERROR.
/* If process status is 3, it means no invoice can be allocated successfully, so the status should be saved as failed */
if available tBankImpLineProcessRef
then assign tBankImpLineProcessRef.tcBankImpLineProcessStatus = if iiProcessStatus < 0 then {&BANKIMPLINEPROCSTATUS-FAILED}
                                                                else if iiProcessStatus = 3 then {&BANKIMPLINEPROCSTATUS-FAILED}
                                                                else {&BANKIMPLINEPROCSTATUS-PASS}
            tBankImpLineProcessRef.tcBankImpLineProcessResult = if icProcessResult = ? then '':U else icProcessResult.