project QadFinancials > class BDInvoice > method GetDeductionStatusTranslation
function returns character
Parameters
icStatus | input | character | |
oiReturnStatus | output | integer | Return status of the method. |
Internal usage
QadFinancials
program code (program6/bdinvoice.p)
assign vcDeductionStatus = "":U.
assign vcInvoiceDeductionStatus ={&INVOICEDEDUCTSTATUSS}.
do viA = num-entries(vcInvoiceDeductionStatus, chr(2)) to 1 by -2:
if entry(viA, vcInvoiceDeductionStatus, chr(2)) = icStatus
then do:
assign vcDeductionStatus = entry(viA - 1, vcInvoiceDeductionStatus, chr(2)).
leave.
end.
end.
return vcDeductionStatus.