Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
22 ноя 2024, 20:04

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

Автор Алексей Котышев, 31 окт 2018, 10:32

0 Пользователей и 1 гость просматривают эту тему.

Алексей Котышев

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

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

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

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

alexandr_ll


Алексей Котышев

Цитата: alexandr_ll от 31 окт 2018, 14:12
В чем вопрос-то?
Тоесть когда в документе НаКлиенте
Процедура АвтомобильПриИзменении(Элемент)  // Проверка автомобиля на день на бригаду
   АвтомобильПриИзмененииНаСервере();
Если Объект.Автомобиль.Пустая() = Истина Тогда
      Сообщить("На этот день на бригаду не определена Машина");
      Объект.Автомобиль = "";
      КонецЕсли;
КонецПроцедуры выбираю автомобиль  если на текущую дату есть документ за которым закреплен автомобиль,водитель,грузчик 1,2 то тогда должны подставляться водитель,грузчик1,2 из РС . А если на текущую дату нет документа за которым закреплен автомобиль то тогда не должны данные подставляться . Сейчас у меня при выборе автомомбиля не подставляется ничего .

alexandr_ll

А что есть &Дата в вашем запросе?

Алексей Котышев

Цитата: alexandr_ll от 01 ноя 2018, 09:23
А что есть &Дата в вашем запросе?
Отбор из РС по дате ) , может я не то сделал?

alexandr_ll

Цитата: Алексей Котышев от 01 ноя 2018, 10:31
Цитата: alexandr_ll от 01 ноя 2018, 09:23
А что есть &Дата в вашем запросе?
Отбор из РС по дате ) , может я не то сделал?
Может быть так:
    Запрос.УстановитьПараметр(
        "Дата",
        НужнаяДата
    );

Похожие темы (5)

Рейтинг@Mail.ru

Поиск