ModulOnForm - master - spr_cross123/ContanerSharing

ModulOnForm
153 строки5 KB
spr_cross123
update ModulOnForm
17 апр 2024, 14:11
17 апр 2024, 14:1193550c5
#Область ПредопределенныеПроцедурыФормы

&НаКлиенте
Процедура ПриОткрытии(Отказ)

	ОбновитьОтображениеНаФорме();

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

 &НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
	
	Если Объект.МаксСмещениеДаты = 0 Тогда
		//Если максСмещениеДаты = константа (слабо верится, что такое будет)
		//Объект.МаксСмещениеДаты = Объект.МаксСмещениеДаты.Получить();
		 УкажитеСмещение();
		 Отказ = Истина;
	 КонецЕсли;
	
	////При условии, что реквизит=строка
	
	//Если НЕ ЗначениеЗаполнено(Объект.МаксСмещениеДаты) Тогда
	//	УкажитеСмещение();
	//Отказ = Истина;
	//КонецЕсли;

КонецПроцедуры
 
#КонецОбласти


#Область БазовыеФункцииПроцедурыФормы

&НаСервере
Функция ОбновитьОтображениеНаФорме ()
	
	
	
КонецФункции

#КонецОбласти


#Область Сообщения

&НаСервере
Процедура УкажитеСмещение()	
	
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Заполните смещение по дате";
		Сообщение.Поле = "Комментарий";
		Сообщение.Сообщить();	
	
КонецПроцедуры    

&НаСервере
Процедура НачинаюСборДанных()
	
	
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Начинаю сбор данных для отправки в алгоритм";
		Сообщение.Поле = "Комментарий";
		Сообщение.Сообщить();	
	
КонецПроцедуры 

&НаСервере
Процедура НеВсеДанныеЗаполненыВерно()	
	
		Сообщение = Новый СообщениеПользователю;
		Сообщение.Текст = "Не все данные заполнены корректно. Убедитесь в правильности заполнения реквизитов";
		Сообщение.Поле = "Комментарий";
		Сообщение.Сообщить();	
	
КонецПроцедуры 

#КонецОбласти


#Область Кнопки

&НаКлиенте
Процедура ОправитьДанные(Команда)
		 
	 НачинаюСборДанных();
	 
	 СобратьДанные();
	
КонецПроцедуры

#КонецОбласти


#Область СборДанных 

&НаКлиенте
Процедура СобратьДанные()

	//Сначала проеверяем проведен ли документ
	
 
	
    //Потом сообщаем, что все данные заполнены верно, предварительно это проверив 
	
	ПроверитьДанныеПередОтправкой();
	
	//Если РезультатФунцкции - неопределено Тогда
		
	
		//Если есть проблемы с данным,то говорим об этом
		НеВсеДанныеЗаполненыВерно();
	
	
	//Потом отправляем собранные данные
	
	ОтправитьДанные(); 
	
	//Сказать, что расчет запущен
	
КонецПроцедуры

&НаСервере
Процедура ОтправитьДанные()
	
	
	
КонецПроцедуры

#КонецОбласти 


#Область Проверки

&НаКлиенте
Процедура ПроверитьДанныеПередОтправкой();
	
	РезультатФункции = неопределено;
	
	Если Объект.МаксСмещениеДаты = 0 И
		 Объект.НаименованиеНоменклатуры
		
		
		Тогда
			
		НеВсеДанныеЗаполненыВерно();
		Отказ = Истина;
	//ИначеЕсли //описать проверку остальных реквизитов
		
	КонецЕсли;
	
КонецПроцедуры

#КонецОбласти