Версия 08:48, 20 апреля 2016

Справочник R170

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

UTH20011 Приход молока

DANAL2 код сырья

2050 Молоко сырое 1 сорт
2051 Молоко сырое 2 сорт 

AMNT Количество молока в кг

Выражение для расчета

if CONFIG = 'MILK' and ( DANAL2 = 2050 or DANAL2 = 2051 )
  if !Empty( U_WEIGHT )
    result := U_WEIGHT
  endif
  return
endif

U_WEIGHT Физический вес

U_FAT_WEI Зачетный вес по жиру

Выражение для расчета

Round( U_WEIGHT * U_FAT_PRC / 3.4, 0 )

PAC50001 Расход сырья

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

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