Процедура НаборДанныеОСПередНачаломДобавления ( Элемент , Отказ ,

Копирование )

Если ЭтоНовый () Тогда

// откажем в добавлении строки:

Отказ = Истина;

Предупреждение ( "Прежде чем добавлять запись необходимо

записать элемент справочника!" );

КонецЕсли;

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

 

 

Листинг ю_9.4

 

//НаборДанныеОСПриНачалеРедактирования - заполняет реквизит

// ОС ссылкой на текущий элемент справочника

Процедура НаборДанныеОСПриНачалеРедактирования ( Элемент , НоваяСтрока )

Если НоваяСтрока Тогда

ТекСтрока = ЭлементыФормы . НаборДанныеОС . ТекущаяСтрока ;

ТекСтрока . ОС = Ссылка ;

КонецЕсли;

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

 

Листинг ю_9.5.

 

//СписокДеталейПередОкончаниемРедактирования - проверяет

// правильность заполнения строки

Процедура СписокДеталейПередОкончаниемРедактирования ( Элемент ,

НоваяСтрока , ОтменаРедактирования , Отказ )

// Если пользователь отказался от ввода новой строки

Если НоваяСтрока И ОтменаРедактирования Тогда

// то нам все равно

Возврат;

КонецЕсли;

// Если пользователь подтерждает ввод строки

Если Не ОтменаРедактирования Тогда

ТекСтрока = ЭлементыФормы . СписокДеталей . ТекущаяСтрока ;

Если ТекСтрока . Деталь . Ссылка . Пустая () Тогда

Предупреждение ( "Не выбрана деталь!" );

Отказ = Истина;

Возврат;

КонецЕсли;

КонецЕсли;

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

 

 

Листинг ю_9.6.

 

Процедура ПриОткрытии ()

Если ЭтоНовый () Тогда

// Заполним реквизиты нового объекта начальными значениями

Фирма = Константы . ОсновнаяФирма . Получить ();

УстановитьКод ();

КонецЕсли;

// Установим свойство видимость у элементов диалога перед его

открытием

ПриИзмененииГруппыОС (Неопределено);

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

 

 

Листинг ю_9.7.

 

//ЕстьОшибка() - возвращает имя реквизита с ошибкой

//Если ошибок нет, то: ""

Функция ЕстьОшибка () Экспорт

 

// Группу записываем всегда!

Если ЭтоГруппа Тогда

Возврат "" ;

КонецЕсли;

//Ошибкой будем считать пустые реквизиты

//"Фирма" и "ГруппаОС"

Если Фирма . Ссылка . Пустая () Тогда

Возврат "Фирма" ;

КонецЕсли;

Если ГруппаОС . Пустая () Тогда

Возврат "ГруппаОС" ;

КонецЕсли;

// ошибок нет

Возврат "" ;

КонецФункции

 

 

Листинг ю_9.8.

 

// Проверяет правильность заполнения элемента справочника

Процедура ПередЗаписью ( Отказ )

Имя = ЕстьОшибка ();

Если Имя = "" Тогда

Возврат; //ошибок нет

КонецЕсли;

Сообщить ( "Реквизит" + Имя + " не содержит данных!" ,

СтатусСообщения . Важное );

Сообщить ( "Запись " + ЭтотОбъект + " справочника не записана!" ,

СтатусСообщения . ОченьВажное );

Отказ = Истина;

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

 

 

Листинг ю_9.9.

 

//ПередЗаписью - проверяет правильность заполнения элемента

Справочника

Процедура ПередЗаписью ( Отказ )

Имя = ЕстьОшибка ();

Если Имя = "" Тогда

Возврат; // т.к. нет ошибок

КонецЕсли;

Предупреждение ( "Реквизит" + Имя + " не содержит данных!" );

// установим курсор в нужное поле;

ТекущийЭлемент = ЭлементыФормы [ Имя ];

Отказ = Истина;

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

 

 

Листинг ю_9.10.

 

//ПриЗаписи - записывает набор записей регистра сведений

Процедура ПриЗаписи ( Отказ )

Попытка

НаборДанныеОС . Обновить ();

Исключение

Предупреждение ( "Не удалось сохранить""Данные ОС""!" );

Отказ = Истина

КонецПопытки;

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

 

 

Листинг ю_9.11.

 

//ПослеЗаписи() - переустанавливает отбор после записи

Процедура ПослеЗаписи ()

НаборДанныеОС . Отбор . ОС . Установить ( Ссылка );

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

 

 

Листинг ю_9.12.

 

//ПолеКартинкиНажатие - читает картинку в поле картинки

Процедура ПолеКартинкиНажатие ( Элемент )

// Открем диалог выбора файла

Диалог = Новый

ДиалогВыбораФайла ( РежимДиалогаВыбораФайла . Открытие );

Диалог . Заголовок = "Выберите файл картинки" ;

Диалог . ПредварительныйПросмотр = Истина;

Диалог . Фильтр = "Точечный рисунок(*.jpg)|*.jpg" ;

// Если пользователь сделал выбор тогда

⇐ Предыдущая12345678910Следующая ⇒

Поделиться: