LASTSHIFT

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

Поиск предыдущей смены в базе 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