- Перем РезультатОбработки;
- Процедура ОбработкаПроведения(Отказ, Режим)
- Сообщение = 0;
- ЗапросНаличиеПриемаВРасписании = Новый Запрос;
- ЗапросНаличиеПриемаВРасписании.Текст="ВЫБРАТЬ
- | РасписаниеПриема.Врач КАК Врач,
- | РасписаниеПриема.ВремяПриема КАК ВремяПриема
- |ИЗ
- | РегистрСведений.РасписаниеПриема КАК РасписаниеПриема";
- РезультатЗапросаНаПрием = ЗапросНаличиеПриемаВРасписании.Выполнить();
- ВыборкаЗапросаНаПрием = РезультатЗапросаНаПрием.Выбрать();
- Пока ВыборкаЗапросаНаПрием.Следующий () Цикл
- Если Дата = ВыборкаЗапросаНаПрием.ВремяПриема и Специалист = ВыборкаЗапросаНаПрием.Врач Тогда
- ЗапросНаличиеСпециалистаВРегистреНакоплений=Новый Запрос; //проверка на то занято это время или нет.
- ЗапросНаличиеСпециалистаВРегистреНакоплений.Текст="ВЫБРАТЬ
- | ПромежуточныеЗаписи.Врач КАК Врач,
- | ПромежуточныеЗаписи.ВремяПриема КАК ВремяПриема
- |ИЗ
- | РегистрНакопления.ПромежуточныеЗаписи КАК ПромежуточныеЗаписи";
- РезультатЗапросаНаличияВРегистре = ЗапросНаличиеСпециалистаВРегистреНакоплений.Выполнить ();
- ВыборкаЗапросаНаНаличие=РезультатЗапросаНаличияВРегистре.Выбрать ();
- Пока ВыборкаЗапросаНаНаличие.Следующий() Цикл
- Если Специалист=ВыборкаЗапросаНаНаличие.Врач и Дата = ВыборкаЗапросаНаНаличие.ВремяПриема Тогда
- Сообщить ("Данное время приема занято.");
- Отказ = Истина;
- Сообщение = 1;
- РезультатОбработки=1;
- Иначе
- РезультатОбработки=0;
- //Прервать;
- КонецЕсли;
- КонецЦикла;
- ИначеЕсли
- РезультатОбработки = 0 тогда
- Иначе
- РезультатОбработки = 1;
- КонецЕсли;
- КонецЦикла;
- Если РезультатОбработки=1 Тогда
- Если Сообщение = 1 тогда
- Иначе
- Сообщить("На данное время нет приёма");
- Отказ=Истина;
- КонецЕсли;
- Иначе
- Движения.ПромежуточныеЗаписи.Записывать = Истина;
- Движение=Движения.ПромежуточныеЗаписи.Добавить();
- Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
- Движение.ВремяПриема = Дата;
- Движение.Врач = Специалист;
- // Движение.СтатусЗаписи=Перечисления.СтатусЗаписи.Записано;
- Движение.НомерЗаписи = 1;
- Движение.Период=Дата;
- КонецЕсли;
- КонецПроцедуры
Recent Pastes