OILING — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) (Новая страница: «OILING - это программа из справочника R266 Возвращает количество масла на смазку в рецеп…») |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 12: | Строка 12: | ||
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 | ||
Версия 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([]))
