project QadFinancials > class BCreditorReport > method GetCDocumentSubTypeTranslation

Parameters

Internal usage

program code (program1/bcreditorreport.p)

assign vcSubType = "":U.

if vcDocumentSubTypesTr = "":U or vcDocumentSubTypesTr = ? then
   vcDocumentSubTypesTr = {&DOCUMENTSUBTYPES}.
   
do viA = num-entries(vcDocumentSubTypesTr, chr(2)) to 1 by -2:
   if entry(viA, vcDocumentSubTypesTr, chr(2)) = icSubType then
   do:
      vcSubType = entry(viA - 1, vcDocumentSubTypesTr, chr(2)).
      leave.
   end.

end.

return vcSubType.