project QadFinancials > class BDPaymentSelection > method GetPaySelStatusTranslation

function returns character

Description

Translate the Payment Selection Status to readable string

Parameters


icstatusinputcharacter

Internal usage


QadFinancials
method BDPaymentSelection.CalcAllDPaySelByDInvoice

program code (program1/bdpaymentselection.p)

assign vcStatus = "":U.
                             
assign vcPAYSELSTATUS ={&DOCUMENTSTATUSDEBTORS}.
do viA = num-entries(vcPAYSELSTATUS, chr(2)) to 1 by -2:
    if entry(viA, vcPAYSELSTATUS, chr(2)) = icStatus
    then do:
        assign vcStatus = entry(viA - 1, vcPAYSELSTATUS, chr(2)).
        leave.
    end.
end.
                                  
return vcStatus.