project QadFinancials > class BBankImportLine > method ProcessBankImpLineOther

Parameters

Internal usage

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.