project QadFinancials > class BDDocument > method GetDDocumentSubTypeTranslation

function returns character


Parameters


icSubTypeinputcharacter


Internal usage


QadFinancials
method BDDocument.AdditionalUpdatesDCollection
method BDDocument.CalcAllSelectDDocument
method BDDocument.AdditionalUpdatesDCollectionCopy


program code (program6/bddocument.p)

assign vcSubType = "":U.
assign vcDOCUMENTSUBTYPES ={&DOCUMENTSUBTYPES}.

do viA = num-entries(vcDOCUMENTSUBTYPES, chr(2)) to 1 by -2:
    if entry(viA, vcDOCUMENTSUBTYPES, chr(2)) = icSubType
    then do:
        assign vcSubType = entry(viA - 1, vcDOCUMENTSUBTYPES, chr(2)).
        leave.
    end.
end.

return vcSubType.