project QadFinancials > class BJournalEntry > method GetPostingVerifyStatusCalc

Parameters

Internal usage

program code (program1/bjournalentry.p)

/* Default output value */
assign vcStatus = "":U.

/* Cache document statuses for better performance */
if vcPostingVerifyStatusAll = ? or
   vcPostingVerifyStatusAll = ""
then assign vcPostingVerifyStatusAll = {&APPROVESTATUSTRANSS}.

/* Get correct translation of document status */
do viA = num-entries(vcPostingVerifyStatusAll, chr(2)) to 1 by -2:
    if entry(viA, vcPostingVerifyStatusAll, chr(2)) = icStatus
    then do:
        assign vcStatus = entry(viA - 1, vcPostingVerifyStatusAll, chr(2)).
        leave.
    end.
end.

/* Return value */
return vcStatus.