project QadFinancials > class BDebtor > method GetDDocumentStatusTranslation

function returns character


Parameters


icStatusinputcharacter


Internal usage


QadFinancials
method BDebtor.Calculate


program code (program1/bdebtor.p)

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

return vcStatus.