Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program1/bbankimportline.p)
assign oiReturnStatus = -98.
/* =================================================================================================== */
/* Validate input parameters */
/* =================================================================================================== */
if not available tBankImpLine
then do:
assign vcMessage = trim(#T-64'Missing definition of imported bank line.':255(67965)T-64#).
<M-57 run SetMessage
(input vcMessage (icMessage),
input '':U (icArguments),
input '':U (icFieldName),
input '':U (icFieldValue),
input 'S':U (icType),
input 3 (iiSeverity),
input '':U (icRowid),
input 'qadfin-582673':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
assign oiReturnStatus = -1.
return.
end.
if viBDPaymentSelection9ID = 0 or viBDPaymentSelection9ID = ?
then do:
<I-52 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "TRUE"
&CLASS = "BDPaymentSelection"}>
end.
else do:
<I-2 {bFcOpenInstance
&CLASS = "BDPaymentSelection"}>
end.
<M-66 run DeleteDPaySelLine
(input tBankImpLine.BankImpLineInvRefList (icInvoiceReference),
output viFcReturnSuper (oiReturnStatus)) in BDPaymentSelection>
if valid-handle(vhBDPaymentSelection9Inst)
then do:
<I-4 {bFcCloseInstance
&CLASS = "BDPaymentSelection"}>
end.
assign viLocalReturn = viFcReturnSuper.
/* Create processing info */
<M-59 run CreateBankImpLineProcessInfo
(input 'DeleteDPaySelLine':U (icProcessName),
input #T-70'Delete customer payment selection line':255(996647388)T-70# (icProcessDesc),
input ? (icProcessResult),
input ? (icProcessParam),
input 'ProcessBankImpLineOther':U (icParentRowName),
input viLocalReturn (iiProcessStatus),
output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
if viLocalReturn <> 0 then assign oiReturnStatus = viLocalReturn.
if oiReturnStatus = -98 then assign oiReturnStatus = 0.