project QadFinancials > class BCreditorReport > method GetCDocumentStatusTranslation

Parameters

Internal usage

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.