ну, поскольку ответов хоть отбавляй напишу сам:
Первая идея состоит в том, что я сохраняю рабочее расписание в виде таблицы с 3мя полями
WDate (DateTime) (для удобства взял даты от 1го января 2001г, т.к. 01.01.2001-пнд)
WDuration (integer) - длительность отрезка рабочего времени в минутах
WDOW (integer) - день недели, опционально (добавил потом, т.к. и DOW() прекрасно справляется)
В ней расписание, для примера, на понедельник, если рабочий распорядок 9:00-17:00 с перерывом с 12:00 до 12:30, выглядит так
01.01.2001 09:00:00 180 1
01.01.2001 12:30:00 270 1
Конец куска высчитывается как WDate+WDuration*60
Еще есть доп. таблица точно такой же структуры, в которую попадают даты с исключительным распорядком, например предпраздничные сокращенные дни и тп
Ну и таблица в которой есть только дата и признак выходной, для отсечения выходных при выборке.
Самое большое неудобство этого способа - это в полученной выборке искать вхождение отрезка времени в рабочий отрезок, т.к. данных типа время, наряду с типом дата нет (удивляюсь до сих пор, трудно что ли было реализовать?) приходится извращаться неподецки:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
* ищем сначала эксклюзивный распорядок дня на первую дату
SELECT (m.lsWorkDTsCursor)
LOCATE FOR TTOD(WDate)=EVALUATE(m.lsSchedule+".Date")
IF NOT FOUND()
* если нету эксклюзива - ищем по дню недели
LOCATE FOR DOW(WDate)=DOW(EVALUATE(m.lsSchedule+".Date"))
ENDIF
* собираем дату+время
ltDate = this.MixDateTime(EVALUATE(m.lsSchedule+".Date"),EVALUATE(m.lsWorkDTsCursor+".WDate"))
ENDIF
ENDIF
m.lsSchedule - курсор с расписанными заданиями от сегодня до последнего, m.lsWorkDTsCursor - курсор с распорядками работы, первых 10 записей с датой от 2001г соотв. обычному недельному распорядку и там же все кастомные распорядки от сегодня до последнего, которых ожидается еденицы в год.
Да, пришлось для удобства создавать функцию MixDateTime:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
LPARAMETERS tdDate,ttTime
************************************************************
* Mix Date and Time
* функция возвращает как результат DateTime полученный как
* Date из первого параметра, а Time - из второго
************************************************************
IF VARTYPE(ttDateTime)="T"
tdDate = TTOD(m.tdDate)
ENDIF
IF EMPTY(CTOT(TTOC(m.ttTime)))
RETURN CTOT(DTOC(tdDate)+" 00:00")
ELSE
RETURN CTOT(DTOC(tdDate)+SUBSTR(TTOC(m.ttTime),AT(" ",TTOC(m.ttTime))))
ENDIF
но это еще не менингит, вот поиск вхождения отрезка:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
* для этого ищем дату в распорядках, вдруг на этот день эксклюзивный распорядок?
* проверяем вхождение в рабочее время как предполагаемого начала
* так и его окончания. Для длительности 0 мин. можно назначать
* и на самую последнюю минуту рабочего дня, типа там на 17 - 15
SELECT (m.lsWorkDTsCursor)
LOCATE FOR TTOD(WDate)=TTOD(m.ltPrevEnd)
IF FOUND(m.lsWorkDTsCursor)
* будем проверять по эксклюзивному распорядку
LOCATE FOR BETWEEN(m.ltPrevEnd,WDate,WDate+WDuration* 60 );
AND BETWEEN(m.ltPrevEnd+m.tnAssignDuration,WDate,WDate+WDuration* 60 );
AND TTOD(WDate)=TTOD(m.ltPrevEnd)
ELSE
* будем проверять по обычному распорядку дня недели. распорядок задается датами 2001 года
LOCATE FOR BETWEEN(m.ltPrevEnd,this.MixDateTime(m.ltPrevEnd,WDate),this.MixDateTime(m.ltPrevEnd,WDate)+WDuration* 60 );
AND BETWEEN(m.ltPrevEnd+m.tnAssignDuration,this.MixDateTime(m.ltPrevEnd,WDate),this.MixDateTime(m.ltPrevEnd,WDate)+WDuration* 60 );
AND DOW=DOW(m.ltPrevEnd) &&AND YEAR(WDate)= 2001
ENDIF
После чего возникла вторая идея хранить немного иначе, а именно - начало каждого отрезка задавать в виде количества минут от полуночи, а дальше точно так же.
Пока размышляю над тем какой способ будет выгоднее в плане построения запросов и последующей обработке полученных данных...
