project QadFinancials > class BDDocument > method GetDDocumentTypeTranslation
function returns character
Parameters
Internal usage
QadFinancials
program code (program6/bddocument.p)
/* Cache value of payment types */
if vcPaymentFormatPayInstruments = ? or
vcPaymentFormatPayInstruments = '':U
then assign vcPaymentFormatPayInstruments = {&PAYFORMATPAYINSTRUMENTS-AR}.
/* Get translation for document type */
assign vcType = "":U.
do viA = num-entries(vcPaymentFormatPayInstruments, chr(2)) to 1 by -2:
if entry(viA, vcPaymentFormatPayInstruments, chr(2)) = icType
then do:
assign vcType = entry(viA - 1, vcPaymentFormatPayInstruments, chr(2)).
leave.
end.
end.
return vcType.