project QadFinancials > class BBankImportLine > method ProcessBankImpLineConfirm

Parameters

Internal usage

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.