project QadFinancials > class BPaymentSelection > method AdditionalUpdatesCheckBankNumber

Description

Parameters

Internal usage

program code (program5/bpaymentselection.p)

for each tPaySel where
         tPaySel.tc_status <> "D":U ,
    each tPaySelLine where
         tPaySelLine.tc_ParentRowid = tPaySel.tc_Rowid and
         tPaySelLine.tc_Status     <> "D":U and
        (tPaySelLine.BankNumber_ID = 0 or
         tPaySelLine.BankNumber_ID = ?) :
    assign vcExtra        = if tPaySelLine.tcInternalNumber = ? then "":U else tPaySelLine.tcInternalNumber + ' - ':U +
                            if tPaySelLine.tcExternalNumber = ? then "":U else tPaySelLine.tcExternalNumber + ' - ':U +
                            if tPaySelLine.PaySelLineObjectType = ? then "":U else tPaySelLine.PaySelLineObjectType
           oiReturnStatus = -1.
    
    <M-1 run SetMessage
          (input  trim(#T-3'The specified bank account is invalid.':50(17683)t-3#) (icMessage), 
           input  vcExtra (icArguments), 
           input  '':U (icFieldName), 
           input  '':U (icFieldValue), 
           input  'E':U (icType), 
           input  3 (iiSeverity), 
           input  '':U (icRowid), 
           input  'QADFIN-4362':U (icFcMsgNumber), 
           input  '':U (icFcExplanation), 
           input  '':U (icFcIdentification), 
           input  '':U (icFcContext), 
           output viFcReturnSuper (oiReturnStatus)) in BPaymentSelection>
end.