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

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

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

LASTPRODSHIFT( prod, shift )

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

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

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

Пример

lastprodshift( kanal1, kshift )

@@ Строка 8: / Строка 8: @@
 shift - текущая смена
-= Текст =
+= Пример =
-  Parameters prod, shift
+  '''lastprodshift'''( kanal1, kshift )
- 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]]