Код

Процедура ПослеОткрытия()
	РасшФормы = СоздатьОбъект("РасширениеФормы");
	Атрибут = РасшФормы.ДобавитьАтрибут("НовыйЭдит",2,"Число");
	Атрибут.УстановитьКоординаты(10,10,40,20);
	Форма.НовыйЭдит.НазначитьТип("Число",5,2);
	Атрибут.Доступность = 1;
	Атрибут.ИмеетКнопкуВыбора = 0;
	Форма.Обновить(0);
КонецПроцедуры 

Код

Функция ДобавитьАтрибут(ИмяАтрибута, ТипАтрибута, Смещение, ТипВид  = "",гРасширениеФормы,Форма)
	//лАтрибут =	гРасширениеФормы.ДобавитьАтрибутНаФорму(ИмяАтрибута, Тип);
	Если ТипВид = "" Тогда
		лАтрибут =	гРасширениеФормы.ДобавитьАтрибут(ИмяАтрибута, ТипАтрибута);
	Иначе
		лАтрибут =	гРасширениеФормы.ДобавитьАтрибут(ИмяАтрибута, ТипАтрибута, ТипВид);
	КонецЕсли;

	Сообщить("лАтрибут.Идентификатор = <"+лАтрибут.Идентификатор+">"+" "+
		"лАтрибут.Видимость = <"+лАтрибут.Видимость+">"+" "+
		"Форма.НоваяКнопка.Видимость() = <"+Форма.ПолучитьАтрибут(ИмяАтрибута).Видимость()+">");

	//Форма.ПолучитьАтрибут(ИмяАтрибута).НазначитьТип();
	);
	//Форма.ПолучитьАтрибут(ИмяАтрибута).ОбъектЯчейка.Формула = "";

	лАтрибут.Заголовок = ИмяАтрибута;

	Лево = 0;
	Верх = 0;
	Ширина = 0;
	Высота = 0;
	лАтрибут.ПолучитьКоординаты(Лево, Верх, Ширина, Высота);

	Лево = 10 + Смещение;
	Верх = 10 + Смещение;
	Ширина = 80 + Смещение;
	//Высота = 10 + Смещение;
	Высота = 20;
	лАтрибут.УстановитьКоординаты(Лево, Верх, Ширина, Высота);

	Возврат лАтрибут;
КонецФункции            


Процедура ПослеОткрытия(Конт)
	ФормаРасш = СоздатьОбъект("РасширениеФормы");
	ФормаРасш.УстановитьФорму(Конт.Форма);

	Смещение = 10;
	лАтрибут =	ДобавитьАтрибут("НоваяКнопка1", 2, Смещение,"Справочник.Контрагенты",ФормаРасш,Конт.Форма);
	ФормаРасш.Обновить();

	СтрокаФормы=ФормаРасш.ПолныйТипОбъекта();

	Поз=Найти(СтрокаФормы,".");
	Если Поз>0 Тогда
		Объект=Лев(СтрокаФормы,Поз-1);
		Сообщить(Объект);
	КонецЕсли;

	//Сообщить("Открыта форма: "+ФормаРасш.ПолныйТипОбъекта()+" ["+ФормаРасш.ПолныйПуть()+"]");
КонецПроцедуры