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

Дата проведения мероприятия не может быть меньше даты документа

Автор Space_minus, 30 авг 2016, 05:24

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

Space_minus

Подскажите пожалуйста, где проверяется это условие? Как его отключить


код модуля формы

&НаКлиенте
Перем АдресСтудентовВХранилище;

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

&НаСервере
Процедура ЗаполнитьДопустимыеПоляМероприятияПоПлану()
Документ = РеквизитФормыВЗначение("Объект");
Документ.Мероприятие = Документ.План.Мероприятие;
Документ.ПериодОбучения = Документ.План.ПериодОбучения;
Документ.ОтветственноеПодразделение = Документ.План.ОтветственноеПодразделение;
Документ.ОтветственныйСотрудник = Документ.План.ОтветственныйСотрудник;
Документ.ДатаПроведения = Документ.План.ПланируемаяДатаПроведения;
ЗначениеВРеквизитФормы(Документ, "Объект");
КонецПроцедуры

&НаКлиенте
Процедура ПланПриИзменении(Элемент)
Если ЗначениеЗаполнено(Объект.План) Тогда
ЗаполнитьДопустимыеПоляМероприятияПоПлану();
Иначе
КонецЕсли;
КонецПроцедуры

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

&НаКлиенте
Процедура СтудентыСтудентПриИзменении(Элемент)
Студент=Элементы.Студенты.ТекущиеДанные.Студент;
Элементы.Студенты.ТекущиеДанные.УчебнаяГруппа=УстановитьГруппупоСтуденту(Студент);
КонецПроцедуры

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

Запрос.УстановитьПараметр("ДатаДокумента", Объект.Дата);
Запрос.УстановитьПараметр("Статус", Перечисления.СтатусыСтудентов.Студент);
Запрос.УстановитьПараметр("Студент", Студент);
Результат = Запрос.Выполнить();
Если НЕ Результат.Пустой() Тогда
Возврат Результат.Выгрузить()[0].Группа;
КонецЕсли;
КонецФункции

&НаКлиенте
Процедура ПослеЗаписи(ПараметрыЗаписи)
НастройкиПользователейКлиент.ОбновитьСостояниеДокумента(Объект, СостояниеДокумента, КартинкаСостоянияДокумента, РазрешеноПроведение);
КонецПроцедуры

alex0402

Нужно смотреть не код формы, а код модуля.
ОбработкаПровекриЗаполнения
ОбработкаПроведения
Подписки на Документ.
Спасибо за Сказать спасибо

cska-fanat-kz

глобальным поиском ищите текст ошибки - найдете код проверки.
Получил помощь - скажи СПАСИБО.
Разобрался сам - расскажи другим.

Теги:

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

Рейтинг@Mail.ru

Поиск