function returns character
Description
Return the translated value of supplier payment status
Parameters
| icStatus | input | character | Status |
Internal usage
QadFinancials
program code (program6/bcdocumentstatus.p)
/* Default output value */
assign vcStatus = "":U.
/* Cache document statuses for better performance */
if vcDocumentStatusCreditor = "":U or
vcDocumentStatusCreditor = ?
then assign vcDocumentStatusCreditor = {&DOCUMENTSTATUSCREDITORS}.
/* Get correct translation of document status */
do viA = num-entries(vcDocumentStatusCreditor, chr(2)) to 1 by -2:
if entry(viA, vcDocumentStatusCreditor, chr(2)) = icStatus
then do:
assign vcStatus = entry(viA - 1, vcDocumentStatusCreditor, chr(2)).
leave.
end.
end.
/* Return value */
return vcStatus.