OILING

OILING - это программа из справочника R266

Возвращает количество масла на смазку в рецептуре на тонну готовой продукции

OILING( R11_kod - код изделия [,N_recipe - номер рецептуры] [,oil_kod - код масла] )

Текст

parameters R11_kod,N_recipe:=1,oil_kod:=7

// для oil_kod в будущем можно будет добавить параметр, если кто-то еще будет пользоваться функцией, кроме Ижевска

local r71
if Empty(GetArea('r71')); r71:=OpenKlsf('R71'); endif
r71->(SetFilter([KODPROD=]+R11_kod+[ and VAR_NUM=]+N_recipe+[ and KOD=]+oil_kod+[ and ON_PAIN=0]))
result:=r71->TON_AMNT
r71->(SetFilter([]))

Смотрите также

Полезные функции

Функции Delphi