project QadFinancials > class BDDocumentStatus > method GetDDocumentStatusTranslation

Parameters

Internal usage

program code (program6/bddocumentstatus.p)

assign vcStatus = "":U.
/* Cache document statuses for better performance */
if VCDOCUMENTSTATUSDEBTOR = "":U or
   VCDOCUMENTSTATUSDEBTOR = ?
then assign VCDOCUMENTSTATUSDEBTOR = {&DOCUMENTSTATUSDEBTORS}.
do viA = num-entries(VCDOCUMENTSTATUSDEBTOR, chr(2)) to 1 by -2:
    if entry(viA, VCDOCUMENTSTATUSDEBTOR, chr(2)) = icStatus
    then do:
        assign vcStatus = entry(viA - 1, VCDOCUMENTSTATUSDEBTOR, chr(2)).
        leave.
    end.
end.

return vcStatus.