project QadFinancials > class BDPaymentSelection > method GetLineStatusTranslation

function returns character


Parameters


icLineStatusinputcharacter


Internal usage


QadFinancials
method BDPaymentSelection.GetDDocumentInfo
method BDPaymentSelection.GetToPayObjectsInitialLoad


program code (program1/bdpaymentselection.p)

if icLineStatus <> "":U
then do:    
    do viCounter = num-entries({&PAYSEL-LINE-STATUSES},chr(2)) to 1 by -2 :
        if entry(viCounter,{&PAYSEL-LINE-STATUSES},chr(2)) = icLineStatus
        then assign vcTranslatedLineStatus = entry(viCounter - 1,{&PAYSEL-LINE-STATUSES},chr(2)) no-error.       
    end. /* do */ 
end. /* if available */
else
    assign vcTranslatedLineStatus = icLineStatus.

return vcTranslatedLineStatus.