Новичок новичку: как добавить программно кнопку на форму путем расширения

ЭтаФорма.

&НаКлиенте
Процедура ПРОФ_ПриОткрытииПосле(Отказ)
	ОбновитьКнопкиМеню();
	ПереключитьДоступностьКнопок(ЛОЖЬ);
КонецПроцедуры

&НаКлиенте
Процедура ПереключитьДоступностьКнопок(ИдетЗапись)
	ЭтаФорма.Элементы.ПРОФ_КнопкаОстановитьЗапись.Доступность = ИдетЗапись;
	ЭтаФорма.Элементы.ПРОФ_ВоспроизвестиЗапись.Доступность = НЕ ИдетЗапись;
	ЭтаФорма.Элементы.ПРОФ_УдалитьЗапись.Доступность = НЕ ИдетЗапись;
	ЭтаФорма.Элементы.ПРОФ_КнопкаНачатьЗапись.Доступность = НЕ ИдетЗапись;
КонецПроцедуры

&НаКлиенте
Процедура ОбновитьКнопкиМеню()
	ОбновитьКнопкиНаСервере();
	ПереключитьДоступностьКнопок(ЛОЖЬ);
КонецПроцедуры

&НаСервере
Процедура ОбновитьКнопкиНаСервере()
	ГУИД = Объект.Ссылка.УникальныйИдентификатор();
	ИмяКаталога = ПолучитьПутьХраненияЗаписей()+ГУИД;
	КаталогНаДиске = Новый Файл(ИмяКаталога);
	Если КаталогНаДиске.Существует() = ЛОЖЬ Тогда Возврат; КонецЕсли;

	Файлы = НайтиФайлы(ИмяКаталога, "*.mp3", ЛОЖЬ);
	// Удаляем все кнопки
	
	Для Каждого Тек ИЗ ЭтаФорма.Элементы.ПРОФ_ВоспроизвестиЗапись.ПодчиненныеЭлементы Цикл
		ЭтаФорма.Элементы.Удалить(Тек);			
	КонецЦикла;
	Для Каждого Тек ИЗ ЭтаФорма.Элементы.ПРОФ_УдалитьЗапись.ПодчиненныеЭлементы Цикл
		ЭтаФорма.Элементы.Удалить(Тек);			
	КонецЦикла;
	
	Для Каждого Тек ИЗ Файлы Цикл
		Струк = ПолучитьСведенияОФайле(Тек.ИмяБезРасширения);
		ИмяКнопки = СтрЗаменить(Тек.ИмяБезРасширения, "~", "_");
		ИмяКнопки = СтрЗаменить(ИмяКнопки, "-", "_");
		ИмяКнопки = Струк.ГУИД;
		
		ЗаголовокКнопки = "Запись от " + Струк.ДатаЗаписи+", время: "+Струк.Продолжительность+" "+Струк.Автор;
		
		НайденныйЭлементФормы = ЭтаФорма.Элементы.Найти("П_" + ИмяКнопки);
		Если НайденныйЭлементФормы <> Неопределено  Тогда
            ЭтаФорма.Элементы.Удалить(НайденныйЭлементФормы);
        КонецЕсли;		
		
		Если ЭтаФорма.Команды.Найти("П_" + ИмяКнопки) = Неопределено Тогда
			НоваяКоманда = ЭтаФорма.Команды.Добавить("П_" + ИмяКнопки);
	        НоваяКоманда.Действие = "ПроигратьЗапись";
			НоваяКоманда.Заголовок = ЗаголовокКнопки;
		КонецЕсли;		
			
		НоваяКнопка = Элементы.Добавить("П_" + ИмяКнопки, Тип("КнопкаФормы"), ЭтаФорма.Элементы.ПРОФ_ВоспроизвестиЗапись);
		НоваяКнопка.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
		НоваяКнопка.ИмяКоманды = "П_" + ИмяКнопки;
		НоваяКнопка.Заголовок = ЗаголовокКнопки;
		НоваяКнопка.ТолькоВоВсехДействиях = ЛОЖЬ;  
		НоваяКнопка.Пометка = ЛОЖЬ;
		
		
		ЗаголовокКнопки = "Удалить запись от " + Струк.ДатаЗаписи +", время: "+Струк.Продолжительность+" "+Струк.Автор;
		
		НайденныйЭлементФормы = ЭтаФорма.Элементы.Найти("У_" + ИмяКнопки);
		Если НайденныйЭлементФормы <> Неопределено  Тогда
            ЭтаФорма.Элементы.Удалить(НайденныйЭлементФормы);
        КонецЕсли;		
		
		Если ЭтаФорма.Команды.Найти("У_" + ИмяКнопки) = Неопределено Тогда
			НоваяКоманда = ЭтаФорма.Команды.Добавить("У_" + ИмяКнопки);
	        НоваяКоманда.Действие = "УдалитьЗапись";
			НоваяКоманда.Заголовок = ЗаголовокКнопки;
		КонецЕсли;
		
		НоваяКнопка = Элементы.Добавить("У_" + ИмяКнопки, Тип("КнопкаФормы"), ЭтаФорма.Элементы.ПРОФ_УдалитьЗапись);
		НоваяКнопка.Вид = ВидКнопкиФормы.КнопкаКоманднойПанели;
		НоваяКнопка.ИмяКоманды = "У_" + ИмяКнопки;
		НоваяКнопка.Заголовок = ЗаголовокКнопки;
		НоваяКнопка.ТолькоВоВсехДействиях = ЛОЖЬ;
		НоваяКнопка.Пометка = ЛОЖЬ;
	КонецЦикла;
	
КонецПроцедуры

&НаСервере
Процедура ПРОФ_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
	ОбновитьКнопкиНаСервере();
КонецПроцедуры

&НаСервере
Функция ПолучитьСведенияОФайле(Стр)
	Струк = Новый Структура;
	Струк.Вставить("ДатаЗаписи", Неопределено);
	Струк.Вставить("Автор", Неопределено);
	Струк.Вставить("ГУИД", Неопределено);
	Струк.Вставить("Продолжительность", Неопределено);
	
	// Формат имени файла: ДатаЗаписи_Продолжительность_Автор_ГУИД
	Струк.ДатаЗаписи = ПрочитатьДоСледПалки(0, 1, Стр);
	Струк.Продолжительность = ПрочитатьДоСледПалки(1, 2, Стр);
	Струк.Автор = ПрочитатьДоСледПалки(2, 3, Стр);
	Струк.ГУИД = ПрочитатьДоСледПалки(3, 4, Стр);
	
	Если Струк.ГУИД <> Неопределено Тогда
		Струк.ГУИД = СтрЗаменить(Струк.ГУИД, "-", "_");
	КонецЕсли;
	
	Возврат(Струк);
КонецФункции

&После("ПриСозданииНаСервере")
Процедура ДопЭлементыПрограммно_ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка)
	Если Форма.ИмяФормы = "Справочник.КлючиАналитикиУчетаНоменклатуры.Форма.ФормаЭлемента" Тогда
		
		ПолеНоменклатураКод77 			= Форма.Элементы.Вставить("НоменклатураКод77", Тип("ПолеФормы"));
		ПолеНоменклатураКод77.Заголовок	= "Код 7.7";
		ПолеНоменклатураКод77.Вид		= ВидПоляФормы.ПолеНадписи;
			
		НоменклатураКод77 = Форма.Объект.Номенклатура;
		ПолеНоменклатураКод77.ПутьКДанным	= "Объект.Номенклатура.КодИз77";
			
		//СсылкаНоменклатураКод77				= Форма.Элементы.Вставить("СсылкаКод77", Тип("ДекорацияФормы"));
		//СсылкаНоменклатураКод77.Заголовок 	= "Скопировать код";
		//СсылкаНоменклатураКод77.Гиперссылка	= Истина;
		//СсылкаНоменклатураКод77.УстановитьДействие("Нажатие", "ДопЭлементыПрограммно_ВыполнитьКопированиеКода77");
		
		
		КомандаНоменклатураКод77			= Форма.Команды.Добавить("СкописроватьКод");
		КомандаНоменклатураКод77.Заголовок	= "Скопировать код";
		КомандаНоменклатураКод77.Действие	= "ДопЭлементыПрограммно_ВыполнитьКопированиеКода77";  
		
		СсылкаНоменклатураКод77				= Форма.Элементы.Вставить("СсылкаКод77", Тип("КнопкаФормы"));
		СсылкаНоменклатураКод77.ИмяКоманды	= "СкописроватьКод";
		СсылкаНоменклатураКод77.Вид			= ВидКнопкиФормы.Гиперссылка;
		
	КонецЕсли;

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

&НаКлиенте
Процедура ДопЭлементыПрограммно_ВыполнитьКопированиеКода77()

	Сообщить("Должно произойти копирование кода");

КонецПроцедуры // ВыполнитьКопированиеКода77()

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

&НаКлиенте
Процедура ВыполнитьКоманду_UK(Команда)
	
    РучнаяКорректировка = Истина;
	//Модифицированность = Истина;
	ВыполнитьДействияПриИзмененииРучнойКорректировки();
	Кол = ХозрасчетныйНаборЗаписей.Количество();
	Стр = ХозрасчетныйНаборЗаписей[0];
	Нов = ХозрасчетныйНаборЗаписей.Добавить();
		
	Нов.Активность = Истина;
	Нов.ВалютаДт = Null;
	Нов.ВалютаКт = Null;
	Нов.ВалютнаяСуммаДт = Null;
	Нов.ВалютнаяСуммаКт = Null;
	Нов.ВалютныйДтДоступность = Ложь;
	Нов.ВалютныйКтДоступность = Ложь;
	Нов.КоличественныйДтДоступность = Ложь;
	Нов.КоличественныйКтДоступность = Ложь;
	Нов.КоличествоДт = Null;
	Нов.КоличествоКт = Null;
	Нов.НадписьВР = "ВР:";
	Нов.НадписьКоличествоДт = "";
	Нов.НадписьКоличествоКт = "";
	Нов.НадписьНУ = "НУ:";
	Нов.НадписьПР = "ПР:";
	Нов.НеКорректироватьСтоимостьАвтоматически = Ложь;
	Нов.Организация = Стр.Организация;
	Нов.Период = Стр.Период;
	Нов.ПодразделениеДт = Null;
	Нов.ПодразделениеДтДоступность = Ложь;
	Нов.ПодразделениеКт = Null;
	Нов.ПодразделениеКтДоступность = Ложь;
	Нов.Регистратор = Стр.Регистратор;
	Нов.Содержание = Стр.Содержание;
	Нов.СубконтоДт1 = Стр.СубконтоКт1;
	СубконтоДт1Доступность = Истина;
	Нов.СубконтоДт2 = Стр.СубконтоКт2;
	Нов.СубконтоДт2Доступность = Истина;
	Нов.СубконтоДт3 = Неопределено;
	Нов.СубконтоДт3Доступность = Ложь;
	Нов.СубконтоКт1 = Стр.СубконтоДт1;
	СубконтоКт1Доступность = Истина;
	Нов.СубконтоКт2 = Стр.СубконтоДт2;
	СубконтоКт2Доступность = Истина;
	Нов.СубконтоКт3 = Стр.Регистратор;
	СубконтоКт3Доступность = Истина;
	Нов.Сумма = ?(Кол > 1, Стр.СуммаНУКт, Стр.Сумма);
	Нов.СуммаВРДт = Стр.СуммаВРДт;
	Нов.СуммаВРКт = Стр.СуммаВРКт;
	Нов.СуммаНУДт = ?(Кол > 1, Стр.СуммаНУКт, Стр.СуммаНУДт);
	Нов.СуммаНУКт = Стр.СуммаНУКт;
	Нов.СуммаПРДт = Стр.СуммаПРДт;
	Нов.СуммаПРКт = Стр.СуммаПРКт;
	Нов.УточнениеПериода = Стр.УточнениеПериода;
	
	Нов.СчетДт = ПолучитьПланСчетов_UK("91.02");
	ОбработатьИзменениеСчета_UK("Дт", Нов);
	Нов.СчетКт = ПолучитьПланСчетов_UK("76.06");
	ОбработатьИзменениеСчета_UK("Кт", Нов);
		
КонецПроцедуры

Функция ПолучитьПланСчетов_UK (Стр)
	Возврат ПланыСчетов.Хозрасчетный.НайтиПоКоду(Стр);
КонецФункции

&НаКлиенте
Процедура ОбработатьИзменениеСчета_UK(ДтКт, ТекущиеДанные)

	//ТекущиеДанные = ДтКт;
	
	ПоляФормы = Новый Структура("Субконто1,Субконто2,Субконто3");
	ПоляФормы.Субконто1 = "ХозрасчетныйСубконто" + ДтКт + "1";
	ПоляФормы.Субконто2 = "ХозрасчетныйСубконто" + ДтКт + "2";
	ПоляФормы.Субконто3 = "ХозрасчетныйСубконто" + ДтКт + "3";
	БухгалтерскийУчетКлиентСервер.ПриВыбореСчета(ТекущиеДанные["Счет" + ДтКт], ЭтаФорма, ПоляФормы, Неопределено, Истина, Ложь);
	
	ПоляОбъекта = Новый Структура("Субконто1,Субконто2,Субконто3,Подразделение,Валютный,Количественный,Организация");
	ПоляОбъекта.Субконто1      = "Субконто" + ДтКт + "1";
	ПоляОбъекта.Субконто2      = "Субконто" + ДтКт + "2";
	ПоляОбъекта.Субконто3      = "Субконто" + ДтКт + "3";
	ПоляОбъекта.Подразделение  = "Подразделение" + ДтКт;
	ПоляОбъекта.Валютный       = "Валютный" + ДтКт;
	ПоляОбъекта.Количественный = "Количественный" + ДтКт;
	ПоляОбъекта.Организация    = Объект.Организация;
	БухгалтерскийУчетКлиентСервер.ПриИзмененииСчета(ТекущиеДанные["Счет" + ДтКт], ТекущиеДанные, ПоляОбъекта, Истина,, Ложь);
	
	ИзменитьПараметрыВыбораПолейСубконто(ЭтаФорма, ДтКт);
	
	ЗаполнитьНадписиВПроводке(ТекущиеДанные);
	
КонецПроцедуры