|
|
| Строка 8: |
Строка 8: |
| | | | |
| | shift - текущая смена | | shift - текущая смена |
| − | = Текст =
| |
| − | 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]] |
Версия 14:06, 12 марта 2019
LASTPRODSHIFT - это функция из справочника R266
Поиск предыдущей смены производства
LASTPRODSHIFT( prod, shift )
( возвращает дату предыдущей смены в виде ггггддммс )
prod - код аналитики производства
shift - текущая смена
Смотрите также
Полезные функции
Функции Delphi
