project QadFinancials > class BDDocument > method GetDDocumentTypeTranslation

function returns character


Parameters


icTypeinputcharacter


Internal usage


QadFinancials
method BDDocument.AdditionalUpdates
method BDDocument.AdditionalUpdatesDCollection
method BDDocument.AdditionalUpdatesGetStatusInfo
method BDDocument.AdditionalUpdatesPosting
method BDDocument.AdditionalUpdatesPostingDocCtrl
method BDDocument.ApiSetDDocumentStatusChange
method BDDocument.ApiStdMaintainTT
method BDDocument.CalcAllSelectDDocument
method BDDocument.ValDocumentStatus
method BDDocument.ValidateComponentPost
method BDPaymentSelection.AdditionalUpdatesDCollection
method BDDocument.AdditionalUpdatesDCollectionCopy


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.