LASTSHIFT — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 4: | Строка 4: | ||
[[LASTSHIFT]]( codegrp, anal, shift, ReflAnal := '[[R10]]' ) | [[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]] | [[Функции Delphi]] | ||
Версия 09:47, 1 августа 2018
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
