Получение данных из РС на текущую дату

[alex01374]

Здравствуйте. Нужна помощь. Получить из РС основная таблица, данные на текущую дату(начало дня) . Затем сравнить , если на текущую дату(начало дня) есть Автомомбиль то тогда подставить значения водитель,грузчик1,2 , если же нет сообщить .

НаСервере
Процедура АвтомобильПриИзмененииНаС ервере() // Получаем из РС На Текущую Дату закрепление машины,водителя, грузчиков

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

Выборка = Запрос.Выполнить().Выбрать() ;
Объект.Автомобиль = Справочники.ТранспортныеС� �едства.ПустаяСсылка();
Объект.Водитель = Справочники.Водители.Пуста яСсылка();
Объект.Грузчик1 = Справочники.Грузчики.Пуста яСсылка();
Объект.Грузчик2 = Справочники.Грузчики.Пуста яСсылка();


Если Выборка.Следующий() Тогда
Объект.Автомобиль = Выборка.Автомобиль;
Объект.Водитель = Выборка.Водитель;
Объект.Грузчик1 = Выборка.Грузчик1;
Объект.Грузчик2 = Выборка.Грузчик2;

КонецЕсли;


КонецПроцедуры

&НаКлиенте
Процедура АвтомобильПриИзменении(Эл� �мент) // Проверка автомобиля на день на бригаду
АвтомобильПриИзмененииНаС ервере();
Если Объект.Автомобиль.Пустая() = Истина Тогда
Сообщить("На этот день на бригаду не определена Машина");
Объект.Автомобиль = "";
КонецЕсли;
КонецПроцедуры

[dr_eugeni]

установи параметр Дата и добавь условие на автомобиль
"ВЫБРАТЬ
| ФормированиеБригад.Автомо� �ль,
| ФормированиеБригад.Водите� �,
| ФормированиеБригад.Грузчи1 ,
| ФормированиеБригад.Грузчи2 ,
| ФормированиеБригад.Счетчи� �пидометра
|ИЗ
| РегистрСведений.Формирова� �еБригад КАК ФормированиеБригад
|ГДЕ
| ФормированиеБригад.Период = &Дата
| ФормированиеБригад.Автомо� �ль = &Автомоиль";

Запрос.УстановитьПараметр( "Дата", Дата);
Запрос.УстановитьПараметр( "Автомоиль", Объект.Автомобиль);