OILING — различия между версиями

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м (Текст)
Строка 15: Строка 15:
 
  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([]))

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

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

Функции Delphi