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

Материал из Фабиус wiki
Перейти к: навигация, поиск
м (Полный текст функции)
м
 
(не показано 8 промежуточных версий этого же участника)
Строка 1: Строка 1:
LastProdShift - это функция из справочника [[R266]]
+
[[LASTPRODSHIFT]] - это функция из справочника [[R266]]
 
+
Поиск предыдущей смены производства
LASTPRODSHIFT( prod,  shift )
+
[[LASTPRODSHIFT]]( prod,  shift )
 
+
Поиск предыдущей смены производства
+
  
 
( возвращает дату предыдущей смены в виде ггггддммс )
 
( возвращает дату предыдущей смены в виде ггггддммс )
Строка 10: Строка 8:
  
 
shift - текущая смена
 
shift - текущая смена
 
+
= Пример =
= Полный текст функции =
+
  '''lastprodshift'''( kanal1, kshift )
 
+
  Parameters prod, shift
+
+
local sql, aa
+
+
result := ""
+
+
// --- ТЕКУЩИЙ МЕСЯЦ ---
+
sql := [ Select [[MAX]]( DSHIFT ) last_shift ;
+
  From ] + [[RetDbName]]( 'PAC', StoD( shift ) ) + Ret_f_ext( StoD( shift ) ) + [ ;
+
  Where KINDDOC = 'PAC' and LVLNUM = '1' and DANAL1 = ] + prod + [ and ;
+
    DSHIFT < '] + shift + [' ]
+
aa := SelectSqlToArr( sql, { 'last_shift' }, OpdataPath, false )
+
if !Empty( aa )
+
  if !Empty( aa[1,1] )
+
    result := aa[1,1]
+
    return
+
  endif
+
endif
+
// *** ТЕКУЩИЙ МЕСЯЦ ***
+
+
// --- ПРОШЛЫЙ МЕСЯЦ ---
+
if Empty( result )
+
  sql := [ Select MAX( DSHIFT ) last_shift ;
+
    From ] + RetDbName( 'PAC', TimeBack( StoD( shift ), -1 ) ) + ;
+
      Ret_f_ext( TimeBack( StoD( shift ), -1 ) ) + [ ;
+
    Where KINDDOC = 'PAC' and LVLNUM = '1' and DANAL1 = ] + prod
+
  aa := SelectSqlToArr( sql, { 'last_shift' }, OpdataPath, false )
+
  if !Empty( aa )
+
    if !Empty( aa[1,1] )
+
      result := aa[1,1]
+
      return
+
    endif
+
  endif
+
endif
+
// *** ПРОШЛЫЙ МЕСЯЦ ***
+
 
+
 
= Смотрите также =
 
= Смотрите также =
 +
[[Полезные функции]]
  
 
[[Функции Delphi]]
 
[[Функции Delphi]]
 
[[Полезные функции]]
 

Текущая версия на 10:32, 2 июля 2019

LASTPRODSHIFT - это функция из справочника R266

Поиск предыдущей смены производства

LASTPRODSHIFT( prod, shift )

( возвращает дату предыдущей смены в виде ггггддммс )

prod - код аналитики производства

shift - текущая смена

Пример

lastprodshift( kanal1, kshift )

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

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

Функции Delphi