OILING — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 13: | Строка 13: | ||
local r71 | local r71 | ||
if [[Empty]]([[GetArea]]('r71')); r71:=[[OpenKlsf]]('[[R71]]'); endif | 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])) | + | r71->([[SetFilter]]([KODPROD=]+R11_kod+[ and VAR_NUM=]+N_recipe+[ and KOD=]+oil_kod+[ and ON_PAIN=0])) |
result:=r71->TON_AMNT | result:=r71->TON_AMNT | ||
r71->(SetFilter([])) | r71->(SetFilter([])) | ||
Версия 10:46, 18 апреля 2017
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([]))
