src/kernel/get_tr.p Возвратить число строк в таблице документа

src/kernel/get_tr.p
Возвратить число строк в таблице документа.     
define input parameter frm as integer.
define input parameter rid-doc as integer.  
define output parameter rows as integer.    
Где frm - номер области документа в которой считается число строк.
rid-doc - внутренний номер документа,
rows - результат операции.

Зачемание. Можно использовать также сокращенную форму rows = get_tr ( 2, rid-doc ).

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

  run src/kernel/get_tr.p ( 2, rid-doc, OUTPUT rows ).
  if rows > 1
  then doc-descr = STRING (rows) + " товаров -> " + doc-descr.
  else do:
   run src/kernel/get_fts.p ( "2:2", rid-doc, 1 ).
   doc-descr = RETURN-VALUE + " -> " + doc-descr.
  end.
  do i = 1 to rows :
    run src/kernel/get_ftv.p ( "2:2", rid-doc, i ).
    tovar = RETURN-VALUE.
 
    run src/kernel/get_ftp.p ( "2:2", "Название", rid-doc, i ).
    tovar-name = RETURN-VALUE.
    run src/kernel/wr_toobj.p ( tovar, OUTPUT tovar-obj ).
    ...

  end.