Настройка формы 1с

Настройка формы 1с позволяет облегчить понимание работы с объектом 1с : Предприятие.

Настройка форм 1с в режиме Предприятие.

Для элементов управляемых форм существует возможность изменять видимость и некоторые другие свойства. Для этих целей в управляемой форме в меню Все действия служит пункт Изменить форму.

После нажатия данной команды появится окно «Настройка формы».

В данном окне можно изменить видимость, и свойства отображения элементов формы.

Как проверить существует ли объект 1с.

Проверка существует ли объект выполняется так:

если не Объект.Ссылка.Пустая() тогда
		ЗаполнаемТБНаКлиенте(Элемент);
конецесли

Если Объект.Ссылка.Пустая() то объекта нет.

Как Проверить заполнен ли реквизит формы 1с.

Проверить заполнение реквизита на форме 1с можно двумя способами.

ЗначениеЗаполнено()

Во-первых синтаксической конструкцией : ЗначениеЗаполнено(объект.ИмяРеквизита).

Пустая()

Во-вторых командой ИмяРеквизита.Пустая().

Рассмотрим пример использование конструкции ЗначениеЗаполнено():

Поставим задачу закрасить кнопку красным

&НаКлиенте
процедура Проверказаполнения()
	если ЗначениеЗаполнено(объект.Дата)и ЗначениеЗаполнено(объект.ВидЦены) и ЗначениеЗаполнено(объект.МОЛ) тогда 
	элементы.Команда1.ЦветФона=webцвета.Зеленый;
иначе
	элементы.Команда1.ЦветФона=webцвета.Красный;
конецесли
конецпроцедуры

Использование процедуры зададим в другой процедуре выполняемой при изменении.

&НаКлиенте
Процедура ВидЦеныПриИзменении(Элемент)
	Проверказаполнения()
КонецПроцедуры

В процедуру при открытии формы ПриОткрытии() также помещаем код : Проверказаполнения().

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

При заполнении всех реквизитов

Добавление реквизита Адрес.

В конфигурациях 1с : Предприятие 8 Адреса задаются с помощью Табличной части “Контактная информация”.

Ввод адреса в режиме Предприятие осуществляется с использованием справочника ФИАС.

Настройка формы 1с добавление адреса.

Настройку формы 1с выполним следующим образом:

Во-первых добавим два реквизита типа Строка.

Во-вторых настроим форму.

Для Реквизита формы зададим процедуру при Выборе:

Выставим кнопку выбора в состояние “Да”.

В третьих вставим следующий код. Данный код скопирован из реквизита “Адрес получателя” стандартного объекта конфигурации 1с.

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

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

1с ТекущаяСтрока строки элемента формы

Пример использования свойства Текущая строка для элементов формы. Она может применяться для инициализации строки.

МассивСотрудники=новый массив;
    МассивСотрудники=ДанныеССервера();
            
    для номер=0 по МассивСотрудники.Количество()-1 цикл
    Элементы.ДанныеСводно.ТекущаяСтрока =номер;
конеццикла;
с Уважением

1С 8.3 : Заполнение реквизитов формы программно

Процедура Команда2(Команда)
колво=объект.КоличествоСтрок;
для номер=0 по колво цикл
			 
Элементы.Элементы2.ТекущаяСтрока =номер;
Строка=Элементы.Элементы2.ТекущиеДанные;
Параметр=новый структура;
Параметр.Вставить("Ключ", НайтиЭлемент(Строка.код));

попытка
  Форма=ПолучитьФорму("Справочник.УчебныеГруппы.Форма.ФормаЭлемента",Параметр);	 

  Форма.Объект.Площадка=НайтиПлощадку(Строка.Площадка);
исключение 
 Сообщиние = Новый СообщениеПользователю;
 Сообщиние.Текст ="Не удалось прочитать " + ОписаниеОшибки();
 Сообщиние.Сообщить();

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

Форма.Записать();
Форма.Открыть();
конеццикла
КонецПроцедуры