Запись клиентов на определенную дату-время: подскажите как реализовать?

[nst1]

Здравствуйте. Я полный новичок в 1С, прошу помощи, в гугле не смог найти решения.

Есть форма записи клиентов (Документ "Заказы"), содержащая фамилию, тип услуги и так далее.
Нужно добавить поля Дата и Время записи, но чтобы время выбиралось из заранее заданных промежутков и после записи клиента нельзя было добавить нового на это же время в этот день.

Я добавил новый документ "Временные промежутки" с реквизитом "Интервал" типа Строка (заполнил его 9:30-10:00, 10:00-10:30 и т.п). Для документа "Заказы" добавил реквизиты "Дата" (тип дата) и "Время" (тип СправочникСсылка.ВременныеПромежутки). Правильно? Теперь как понимаю нужно написать код, который будет сравнивать выбранную дату и отображать только незанятые элементы справочника "Временные промежутки"? Или есть волшебная кнопочка/галочка, которая сама будет исключать записи?

[oleg-x]

Здравствуйте. Я полный новичок в 1С, прошу помощи, в гугле не смог найти решения.

Есть форма записи клиентов (Документ "Заказы"), содержащая фамилию, тип услуги и так далее.
Нужно добавить поля Дата и Время записи, но чтобы время выбиралось из заранее заданных промежутков и после записи клиента нельзя было добавить нового на это же время в этот день.

Я добавил новый документ "Временные промежутки" с реквизитом "Интервал" типа Строка (заполнил его 9:30-10:00, 10:00-10:30 и т.п). Для документа "Заказы" добавил реквизиты "Дата" (тип дата) и "Время" (тип СправочникСсылка.ВременныеПромежутки). Правильно? Теперь как понимаю нужно написать код, который будет сравнивать выбранную дату и отображать только незанятые элементы справочника "Временные промежутки"? Или есть волшебная кнопочка/галочка, которая сама будет исключать записи?

Используй регистр сведений, он сам будет проверять уникальность записей. Периодичность день, измерения Интервал времени(справочник/перечисление).
При попытке записать в регистр два одинаковых интервала, выдаст ошибку об не уникальности записи. Перед записью можно проверять (через запрос) есть ли запись и выдавать отказ со своим сообщением.

[nst1]

Создал регистр сведений, режим записи=подчинение регистратору, Регистраторы-галочка на "Заказы" (правильно?), Данные-Измерения-Интервал времени, тип "СправочникСсылка.ВременныеИнтервалы".

Теперь как понимаю нужно организовать чтение и запись из регистра сведений, т.е как-то связать его с полем "Время" на основной форме "Заказы"?

[oleg-x]

Создал регистр сведений, режим записи=подчинение регистратору, Регистраторы-галочка на "Заказы" (правильно?), Данные-Измерения-Интервал времени, тип "СправочникСсылка.ВременныеИнтервалы".

Теперь как понимаю нужно организовать чтение и запись из регистра сведений, т.е как-то связать его с полем "Время" на основной форме "Заказы"?

Воспользуйся конструктором движений в самом документе. Он тебе сам пропишет код

[nst1]

Кажись работает) Надеюсь последний вопрос: как при выборе времени скрывать уже занятые другими клиентами интервалы для выбранного дня? Просто натолкните на мысль

[oleg-x]

Сделать отбор, по регистру выбрать записи (запросом) которые уже есть и указать не в списке.

[nst1]

Вы уж простите, за 2 дня не смог разобраться можете чуть пояснить?

Отбор вы имели в виду передать выбранную дату в форму выбора справочника "ВременныеИнтервалы"? То есть я пишу код для события "НачалоВыбора" поля "ВремяЗаписи", где отключаю стандартную обработку и открываю форму "НачалоВыбора" с параметром "ДатаЗаписи"?

Далее у меня открывается форма выбора справочника "ВременныеИнтервалы", а запрос на выборку записей из регистра нужно писать в модуле этой формы (процедура ПриОткрытии) или где-то в самом регистре?

[oleg-x]

Вы уж простите, за 2 дня не смог разобраться можете чуть пояснить?

Отбор вы имели в виду передать выбранную дату в форму выбора справочника "ВременныеИнтервалы"? То есть я пишу код для события "НачалоВыбора" поля "ВремяЗаписи", где отключаю стандартную обработку и открываю форму "НачалоВыбора" с параметром "ДатаЗаписи"?

Далее у меня открывается форма выбора справочника "ВременныеИнтервалы", а запрос на выборку записей из регистра нужно писать в модуле этой формы (процедура ПриОткрытии) или где-то в самом регистре?

1) Берем дату документа, будет как параметр в запросе.
2) Делаем запрос к регистру, срез последних. Получаем список интервалов (запрос выполняется в событие при начале выбора у данного реквизита, если не ошибаюсь).
3) При выборе делаем отбор интервалов "не в списке" и передаем туда полученный список в пункте 2.

[nst1]

Спасибо, oleg-x, спустя 6 часов родил это

Код Выделить Развернуть


&НаСервере
Функция ВыбратьЗанятыеДаты(ВыбраннаяДатаЗаписи)
Запрос = Новый Запрос;
//выбираем из регистра сведений интервалы времени (лежат в наименованиях) для выбранной даты
Запрос.Текст = "ВЫБРАТЬ
| РегистрСведений1СрезПоследних.Период,
| РегистрСведений1СрезПоследних.ИнтервалВремени.Наименование КАК Наименование
|ИЗ
| РегистрСведений.РегистрСведений1.СрезПоследних КАК РегистрСведений1СрезПоследних
|ГДЕ
     | РегистрСведений1СрезПоследних.Период = &Период";

Запрос.УстановитьПараметр("Период",ВыбраннаяДатаЗаписи); // в запросе &Период заменится на переданный функции параметр ВыбраннаяДатаЗаписи 
Список = Новый Массив;
Результат = Запрос.Выполнить();
Итог = Результат.Выбрать();
//заполняем массив элементами запроса
Пока Итог.Следующий() Цикл
Список.Добавить(Итог.Наименование);   
КонецЦикла;
Возврат  Список;  //функция вернет массив
КонецФункции


&НаКлиенте
Процедура ВремяЗаписиНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СтандартнаяОбработка = Ложь;
ЗанятыеДаты=ВыбратьЗанятыеДаты(Объект.ДатаЗаписи);  //вызываем функцию ВыбратьЗанятыеДаты, передаем ей дату (имя реквизита)
ПараметрыФормы = Новый Структура;
Настройки = Новый НастройкиКомпоновкиДанных;
ЭлементОтбора = Настройки.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
    ЭлементОтбора.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("Наименование"); //название поля (реквизита) в открываемом справочнике, по которому будет фильтрация
    ЭлементОтбора.ВидСравнения = ВидСравненияКомпоновкиДанных.НеВСписке; //тип фильтрации
    ЭлементОтбора.ПравоеЗначение = ЗанятыеДаты; //значение=массив ЗанятыеДаты
    ЭлементОтбора.Использование = Истина;
    ПараметрыФормы.Вставить("ФиксированныеНастройки", Настройки);
    ОткрытьФорму("Справочник.ВременныеИнтервалы.ФормаВыбора", ПараметрыФормы, Элемент);
КонецПроцедуры

Если есть грубые ошибки или можно оптимизировать код подскажите а если нет, то и так сойдет

[oleg-x]

Не за что, теперь знаешь немного больше