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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Текст)
м
 
(не показаны 3 промежуточные версии этого же участника)
Строка 3: Строка 3:
 
  Возвращает количество масла на смазку в рецептуре на тонну готовой продукции
 
  Возвращает количество масла на смазку в рецептуре на тонну готовой продукции
  
OILING( [[R11]]_kod - код изделия [,N_recipe - номер рецептуры] [,oil_kod - код масла] )
+
[[OILING]]( [[R11]]_kod - код изделия [,N_recipe - номер рецептуры] [,oil_kod - код масла] )
  
 
= Текст =
 
= Текст =
Строка 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
  r71->(SetFilter([]))
+
  r71->([[SetFilter]]([]))
  
 
= Смотрите также =
 
= Смотрите также =

Текущая версия на 14:22, 4 мая 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