Представления форм документов

Материал из Фабиус wiki
Перейти к: навигация, поиск

Справочник R170

Описание справочника "Представления форм документов"

30-12-2015 9-21-21.png

PAC50001

Блок кода при открытии формы

// После высветки сырья выделяем муку (чтобы видеть ИТОГО по муке)
local muka:={}
// пробегаемся по всему сырью
while !eof()
  if 'МУ' $ CATTR1; Aadd(muka,Recno()) ; endif
  DbSkip()
end
DbGoTop()    
if Len(muka)>1; SetSelRows(muka,true); endif
// пересчитать суммы
CalcTotal()