Parameters
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bbankimportline.p)
assign viLocalReturn = 0
oiReturnStatus = -98.
/* =================================================================================================== */
/* Validate input parameters */
/* =================================================================================================== */
if not available tBankImpLine
then do:
assign vcMessage = trim(#T-43'Missing definition of imported bank line.':255(67965)T-43#).
<M-37 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-766743':U (icFcMsgNumber),
input '':U (icFcExplanation),
input '':U (icFcIdentification),
input '':U (icFcContext),
output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
assign oiReturnStatus = -1.
return.
end. /* if not available tBankImpLine */
if viBDPaymentSelection9ID = 0 or viBDPaymentSelection9ID = ?
then do:
<I-31 {bFcStartAndOpenInstance
&ADD-TO-TRANSACTION = "TRUE"
&CLASS = "BDPaymentSelection"}>
end.
else do:
<I-19 {bFcOpenInstance
&CLASS = "BDPaymentSelection"}>
end.
<M-52 run StoreBankReference
(input tBankImpLine.BankImpLineInvRefList (icInvoiceReference),
input tBankImpLine.BankImpLinePaymentRef (icBankReference),
output viFcReturnSuper (oiReturnStatus)) in BDPaymentSelection>
assign viLocalReturn = viFcReturnSuper.
/* Create processing info */
<M-46 run CreateBankImpLineProcessInfo
(input 'StoreBankReference':U (icProcessName),
input #T-82'Store bank reference in customer payment selection':255(246121091)T-82# (icProcessDesc),
input ? (icProcessResult),
input ? (icProcessParam),
input 'ProcessBankImpLineConfirm':U (icParentRowName),
input viLocalReturn (iiProcessStatus),
output viFcReturnSuper (oiReturnStatus)) in BBankImportLine>
if valid-handle(vhBDPaymentSelection9Inst)
then do:
<I-71 {bFcCloseInstance
&CLASS = "BDPaymentSelection"}>
end.
if viLocalReturn <> 0 then assign oiReturnStatus = viLocalReturn.
if oiReturnStatus = -98 then assign oiReturnStatus = 0.