src/kernel/deltable.p - Удалить табличную часть в документе

src/kernel/deltable.p
Удалить табличную часть в документе.
define input parameter frm as integer.
define input parameter rid-doc as integer.       
Где frm - номер области документа в которой удаляется строка,
rid-doc - внутренний номер документа

  ModifyMode = no.
  i = 1.
  run src/kernel/deltable.p ( 2, rid-doc ).
  run src/kernel/deltable.p ( 3, rid-doc ).

  for each res by res.item:
    run src/kernel/set_ftv.p ("2:1", rid-doc,i ,res.item ).
    run src/kernel/set_ftv.p ("2:2", rid-doc,i ,string(round(res.sum-opr-beg / 1000, 1)) ).
    run src/kernel/set_ftv.p ("2:3", rid-doc,i ,string(round(res.sum-opr-end / 1000, 1)) ).
    i = i + 1.
  end.
  i = 1.
  for each resa:
    run src/kernel/set_ftv.p ("3:1", rid-doc,i ,resa.item ).
    run src/kernel/set_ftv.p ("3:2", rid-doc,i ,string(resa.count )).
    run src/kernel/set_ftv.p ("3:3", rid-doc,i ,string(resa.plus-minus )).
    run src/kernel/set_ftv.p ("3:4", rid-doc,i ,string(resa.formula )).
    run src/kernel/set_ftv.p ("3:5", rid-doc,i ,string(resa.sum-beg )).
    run src/kernel/set_ftv.p ("3:6", rid-doc,i ,string(resa.sum-end )).
    run src/kernel/set_ftv.p ("3:7", rid-doc,i ,string(resa.sum-val )).
    i = i + 1.
  end.
  ModifyMode = yes.