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

Как реализовать проверку

Автор vidok, 05 апр 2010, 09:51

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

vidok

В диалоге формы есть Поле ввода, при его изменении идет запрос с данным условием:

Если РезультатЗапроса.Пустой()=Истина  Тогда
Ответ = Вопрос("На выбранную машину бригады нет. Выбрать другую машину?", РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да);
Если Ответ = КодВозвратаДиалога.Да Тогда
Транспорт=Справочники.ТранспортныеСредства;
ФормаСписка=Транспорт.ПолучитьФормуВыбора();
 Если Не ФормаСписка.Открыта() Тогда
 ФормаСписка.ОткрытьМодально();
 // ???
 КонецЕсли;
Иначе Закрыть();  
   КонецЕсли;
КонецЕсли;        


при открытии формы списка, проверка уже не осуществляется. Подскажите, как правильнее реализовать проверку? Можно конечно условие в условие раз 10 вставить, но это как-то не красиво

Slin

Форма списка это уже другая форма и другой код. Не так ли?

vidok

ЦитироватьФорма списка это уже другая форма и другой код. Не так ли?

получается что так

Slin

В форме списка нужно отбор сделать
какая проверка то должна быть?

vidok

в модуле формы:

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

Запрос.УстановитьПараметр("Транспорт", ЭлементыФормы.ТранспортноеСредство.Значение);
Запрос.УстановитьПараметр("РабочаяДата",РабочаяДата);
Запрос.Текст=ТекстЗапроса;
РезультатЗапроса=Запрос.Выполнить();

Если РезультатЗапроса.Пустой()=Истина  Тогда
Ответ = Вопрос("На выбранную машину бригады нет. Выбрать другую машину?", РежимДиалогаВопрос.ДаНет, 60, КодВозвратаДиалога.Да);
Если Ответ = КодВозвратаДиалога.Да Тогда
Транспорт=Справочники.ТранспортныеСредства;
ФормаСписка=Транспорт.ПолучитьФормуВыбора();
  Если Не ФормаСписка.Открыта() Тогда
  ФормаСписка.ОткрытьМодально();
  // ???
  КонецЕсли;
Иначе Закрыть();  
    КонецЕсли;
КонецЕсли;                                                 
КонецПроцедуры


проверка должна осуществляться по выбранному транспортному средству.

Myti

Лучше всего будет реализовать подписку на данное событие.....

Теги:

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

Рейтинг@Mail.ru

Поиск