project QadFinancials > class BDInvoice > method GetDeductionStatusTranslation

function returns character


Parameters


icStatusinputcharacter
oiReturnStatusoutputintegerReturn status of the method.


Internal usage


QadFinancials
method BDInvoice.UpdateDeductionForBouncedDDoc


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.