src/kernel/doc2tp.p - Получить тип вида документа

src/kernel/doc2tp.p
Получить тип документа по его внутреннему номеру
Define input parameter rid-doc as integer.
Define output parameter tpdoc as integer.
Где rid-doc - внутренний номер документа,
tpdoc – Номер вида документов

Пример использования.

  run src/kernel/doc2tp.p ( rid-main, OUTPUT tpdoc ). 

  case (tpdoc):
 
    when 134 then
    do:
      run src/kernel/cp_fld.p ( rid-main, "1:1,1:7,1:9,1:29,2:1,2:2,2:8,2:3,2:4,2:5,2:6",  
                                             rid-doc,  "1:1,1:7,1:9,1:22,2:1,2:2,2:9,2:3,2:4,2:5,2:7" ).
    end.

     when 145 then
    do:
      run src/kernel/cp_fld.p ( rid-main,
        "1:1,1:3,1:5,1:8,1:14,1:20,1:47,2:1,2:2,2:3,2:4,2:4",  
                                rid-doc,  
        "1:1,1:3,1:7,1:12,1:6,1:22,1:47,2:1,2:2,2:3,2:4,2:10" ).
      run src/kernel/get_ffv.p ( "1:25", rid-main).  
      run src/kernel/set_ffv.p ( "1:9", rid-doc, RETURN-VALUE).
      run src/kernel/get_ffv.p ( "1:9", rid-main).
      doc-emp = integer(return-value) no-error.
      if doc-emp <> 0 then
        run src/kernel/set_ffv.p ( "1:24", rid-doc, doc-emp).
    end.
  end case.