Текущая версия на 14:00, 8 мая 2019

LASTSHIFT - это программа из справочника R266

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

LASTSHIFT( codegrp, anal, shift, ReflAnal := 'R10' )

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

@@ Строка 3: / Строка 3: @@
   Поиск предыдущей смены в базе REPS
 [[LASTSHIFT]]( codegrp, anal, shift, ReflAnal := '[[R10]]' )
-= Текст =
- Parameters codegrp, anal, shift, ReflAnal:='R10'  // 13.12.2013 М - отчёты формируются и по R20, R130, R13, ...
- Local  sql, aa, ii
- result := ''
- for  ii:=1  to  2  // 1=текущий, 2=предыдущий месяц
-   sql:="select MAX(SHIFT) last_shift from REPS"+Ret_f_ext(TimeBack(SToD(shift),1-ii))+" where REFL1='"+ReflAnal+;
-        "' and ANAL1="+anal+iif(ReflAnal='R13',""," and ANAL="+anal)+" and CODEGRP='"+codegrp+"' and SHIFT<'"+shift+"'"
-   aa:=selectSQLToArr(sql, {'last_shift'}, OpDataPath, .f.)
-   if  !Empty(aa) .and. !Empty(aa[1,1]);  result:=aa[1,1];  Return;  endif
- next
 = Смотрите также =
 [[Полезные функции]]
 [[Функции Delphi]]