src/kernel/get_tfun.p - Применить функцию по столбцу таблицы документа

src/kernel/get_tfun.p

Применить функцию по столбцу таблицы документа
Поддерживается несколько функций: Найти сумму, среднее, максимум, минимум значений по столбцу таблицы документа.                        
define input parameter ff as character.
define input parameter rid-doc as integer.  
define input parameter func as integer.
define output parameter result as decimal.   
Где ff - поле документа,
rid-doc - внутренний номер документа,
func - код функции ( 1 - сумма, 2 - среднее, 3 - минимум, 4 - максимум )
result - результат операции по столбцу табличной части.

  IF fld = "2:5" THEN
  do:
    run src/kernel/get_tfun.p ( "2:5", rid-doc, 1, OUTPUT sum).
    run src/kernel/set_ffv.p ( "1:12", rid-doc, STRING ( sum ) ).
  end.