project QadFinancials > class BCreditorReport > method GetCDocumentStatusTranslation

function returns character


Parameters


icStatusinputcharacter


Internal usage


QadFinancials
method BCreditorReport.CalcAllGetWHTWithPayment
method BCreditorReport.CalcPaymentStatusCalc


program code (program1/bcreditorreport.p)

assign vcStatus = "":U.

if vcDocumentStatusTr = "":U or vcDocumentStatusTr = ? then
   assign vcDocumentStatusTr = {&DOCUMENTSTATUSCREDITORS}.

do viA = num-entries(vcDocumentStatusTr, chr(2)) to 1 by -2:
   if entry(viA, vcDocumentStatusTr, chr(2)) = icStatus then
   do:
      assign vcStatus = entry(viA - 1, vcDocumentStatusTr, chr(2)).
      leave.
   end.
end.   
   
return vcStatus.