Генерация кода управляемой формы (декомпиляция элементов)
Комментарии
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
Обработка очень хорошая и нужная, но есть одна недоработочка.
Когда генерируется код добавления двух и более элементов формы, то указывается элемент формы перед которым вставлять.
Т.е. добавляется первый элемент, и в коде прописано что его нужно вставлять перед вторым.
А второго то еще нет! И возникает ошибка.
Когда генерируется код добавления двух и более элементов формы, то указывается элемент формы перед которым вставлять.
Т.е. добавляется первый элемент, и в коде прописано что его нужно вставлять перед вторым.
А второго то еще нет! И возникает ошибка.
(109) Смысл в том, чтобы вставить элемент на нужное место.
Добавлять можно. Но добавление всегда добавляет элемент последним. Это удобно, если рисуем форму программно полностью с нуля. Но чаще мы не рисуем форму с нуля, а добавляем программно несколько элементов между имеющимися типовыми. В данном случае применима только вставка. А вставка требует указания места вставки.
Добавлять можно. Но добавление всегда добавляет элемент последним. Это удобно, если рисуем форму программно полностью с нуля. Но чаще мы не рисуем форму с нуля, а добавляем программно несколько элементов между имеющимися типовыми. В данном случае применима только вставка. А вставка требует указания места вставки.
Замечательная вещь, очень удобно, большое спасибо!
Надо было в Заказ добавить с десяток вкладок с каким-то немыслимым количеством элементов на них. В итоге, модификация формы - одна строчка, ну и дополнительный общий модуль (в т.ч. и для прочих нужд)! Знай себе копипасти - красота!
(на платформе 8.3.9.2170, в УНФ 1.6.7.43, при анализе ЗаказаПокупателя, в конце СформироватьДеревоСЭлементамиФормы(), споткнулось об ПутьБезТочек, когда она приняла значение "ОбъектПлатежныйКалендарь[0]" - поправил для себя, исключив недопустимые символы)
Надо было в Заказ добавить с десяток вкладок с каким-то немыслимым количеством элементов на них. В итоге, модификация формы - одна строчка, ну и дополнительный общий модуль (в т.ч. и для прочих нужд)! Знай себе копипасти - красота!
(на платформе 8.3.9.2170, в УНФ 1.6.7.43, при анализе ЗаказаПокупателя, в конце СформироватьДеревоСЭлементамиФормы(), споткнулось об ПутьБезТочек, когда она приняла значение "ОбъектПлатежныйКалендарь[0]" - поправил для себя, исключив недопустимые символы)
Добрый день. Решил попробовать обработку. Для 3.0 поправил процедуру ПриСозданииНаСервере() в глобальном модуле, как было сказано в тексте описания, но обработка ругается:
{Документ.РаспределительнаяСетка.Форма.ФормаДокумента.Форма(445)}: Значение не является значением объектного типа (Параметры)
Подскажите, что я забыл сделать. Тапками не кидайтесь - не шибко еще опытный
{Документ.РаспределительнаяСетка.Форма.ФормаДокумента.Форма(445)}: Значение не является значением объектного типа (Параметры)
Если Форма.Параметры.Свойство("ДекомпиляцияЭлементов") ТогдаПодскажите, что я забыл сделать. Тапками не кидайтесь - не шибко еще опытный
Добрый день! Только что опробовал на 8.3.13.1644. Очень помогло, большое спасибо)
Что заметил (создаю таблицу формы из дерева):
- НовыйЭлемент.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет; -автоматически не добавилось
- НовыйЭлемент.СохраняемыеДанные = Ложь; - зачем-то добавляется, этот флаг и так по-умолчанию Ложь
Что заметил (создаю таблицу формы из дерева):
- НовыйЭлемент.ПоложениеКоманднойПанели = ПоложениеКоманднойПанелиЭлементаФормы.Нет; -автоматически не добавилось
- НовыйЭлемент.СохраняемыеДанные = Ложь; - зачем-то добавляется, этот флаг и так по-умолчанию Ложь
В "Декомпиляция управляемых форм 3.0.1 (с 8.3.5) (3.0 + разбор командной панели + клиент-сервер)" ошибка... Модуль формы
&НаКлиенте
Процедура ДеревоФормВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
Если ВыбраннаяСтрока = Неопределено Тогда
Возврат;
КонецЕсли;
ТекСтрока = Объект.ДеревоФорм.НайтиПоИдентификатору(ВыбраннаяСтрока);
Если НЕ ПустаяСтрока(ТекСтрока.ПолныйПутьКФорме) Тогда
//Имя справочника, имя документа, ....
РодительФормы = ТекСтрока.ПолучитьРодителя();
//Справочник, документ,....
ТипОбъекта = РодительФормы.ПолучитьРодителя();
СтруктИнфыОМетаданном = Новый Структура;
СтруктИнфыОМетаданном.Вставить("ТипОбъекта",ТипОбъекта.Имя);
СтруктИнфыОМетаданном.Вставить("ИмяОбъекта",РодительФормы.Имя);
СтруктИнфыОМетаданном.Вставить("ИмяФормы",ТекСтрока.Имя);
//Объект.ПолноеИмяФормы = ТекСтрока.ПолныйПутьКФорме;
ДекомпиляцияЭлементов = Новый Структура("АдресВоВременномХранилище,ИмяПодключеннойОбработки,ИмяВременногоФайла",Объект.АдресВоВременномХранилище,Объект.ИмяПодключеннойОбработки,Объект.ИмяВременногоФайла);
ПараметрыФормы = Новый Структура("ДекомпиляцияЭлементов",ДекомпиляцияЭлементов);
Объект.ПолныйПутьКФорме = ТекСтрока.ПолныйПутьКФорме;
ПолучитьФорму(ТекСтрока.ПолныйПутьКФорме,ПараметрыФормы);
ЗаполнитьДанныеПоХранилищуНаСервере();
//Развернуть дерево
Для Каждого Строка Из Объект.ДеревоФорм.ПолучитьЭлементы() Цикл
Если Строка.Имя = СтруктИнфыОМетаданном.ТипОбъекта Тогда
//Ищем объект
Для Каждого СтрокаОбъект Из Строка.ПолучитьЭлементы() Цикл
Если СтрокаОбъект.Имя = СтруктИнфыОМетаданном.ИмяОбъекта Тогда
//Ищем форму
Для Каждого СтрокаФормы Из СтрокаОбъект.ПолучитьЭлементы() Цикл
Если СтрокаФормы.Имя = СтруктИнфыОМетаданном.ИмяФормы Тогда
ИдентификаторСтроки = СтрокаФормы.ПолучитьИдентификатор();
// Было
//Элементы.ДревоФорм.ТекущаяСтрока = ИдентификаторСтроки;
// Надо
Элементы.ДревоФорм.ТекущаяСтрока = Объект.ДеревоФорм.НайтиПоИдентификатору(ИдентификаторСтроки);
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецПроцедуры Показать
(125) Процедуру из общего модуля нельзя.
Однако во многих типовых есть как раз на такой случай отдельная процедура в форме "Подключаемый.....", которая из себя вызывает процедуру общего модуля. Можно попробовать подключить её и внести изменения в общий модуль.
Однако во многих типовых есть как раз на такой случай отдельная процедура в форме "Подключаемый.....", которая из себя вызывает процедуру общего модуля. Можно попробовать подключить её и внести изменения в общий модуль.
Необходимо исправить ошибку. Слетает параметр ИмяПодключеннойОбработки
Нужно закомментировать строчку:
Нужно закомментировать строчку:
Процедура ПоместитьПустыеДанныеВХранилище() Экспорт
СохраненноеДеревоЭлементов = ЭтотОбъект.ДеревоЭлементов.Скопировать();
СохраненноеДеревоЭлементов.Строки.Очистить();
СохраненноеДеревоРеквизитов = ЭтотОбъект.ДеревоРеквизитов.Скопировать();
СохраненноеДеревоРеквизитов.Строки.Очистить();
СохраненнаяТаблицаКоманд = ЭтотОбъект.ТаблицаКоманд.ВыгрузитьКолонки();
ЗаполнитьСоответствиеТекстовыхПредставлений();
ЗаполнитьСоответствиеПредставленийТипов();
ПараметрыДекомпиляции = Новый Структура("СоответствиеТекстовыхПредставлений,СоответствиеПредставленийТипов,ДеревоЭлементов,ДеревоРеквизитов,ТаблицаКоманд",
СоответствиеТекстовыхПредставлений,СоответствиеПредставленийТипов,СохраненноеДеревоЭлементов,СохраненноеДеревоРеквизитов,СохраненнаяТаблицаКоманд);
ЭтотОбъект.АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(ПараметрыДекомпиляции,ЭтотОбъект.АдресВоВременномХранилище);
//ЭтотОбъект.ИмяПодключеннойОбработки = ЭтотОбъект.ИспользуемоеИмяФайла; // - ЭТА строчка лишняя!!
ЭтотОбъект.ИмяВременногоФайла = ПолучитьИмяВременногоФайла();
Показать
Не взяла кнопки командной панели,заключенной в группу, табличной части Товары документа РеализацияТоваровУслуг.ФормаДокументаТовары БП3, при добавлении строк
начинает их видеть и корректно обрабатывать.
В БП3 для вызова без изменения модуля форм необходимых документов можно добавить блок в ОбщиеМодули.УправлениеСвойствами:
просуммировал тут все комментарии что были ранее, внес небольшие изменения, отправлю файл так же комментарием дальше
НоваяСтрока = ПараметрыДекомпиляции.ДеревоЭлементов.Строки.Добавить();
НоваяСтрока.Тип = Тип(Форма.Элементы.Товары.КоманднаяПанель.ПодчиненныеЭлементы.ТоварыДействия);
НоваяСтрока.Имя = "ТоварыКоманднаяПанель";
СформироватьДеревоСЭлементамиФормы(НоваяСтрока,Форма.Элементы.Товары.КоманднаяПанель.ПодчиненныеЭлементы.ТоварыДействия.ПодчиненныеЭлементы);
В БП3 для вызова без изменения модуля форм необходимых документов можно добавить блок в ОбщиеМодули.УправлениеСвойствами:
Процедура ПриСозданииНаСервере(Форма, ДополнительныеПараметры = Неопределено) Экспорт
Если Форма.Параметры.Свойство("ДекомпиляцияЭлементов") Тогда
ВнешниеОбработки.Создать(Форма.Параметры.ДекомпиляцияЭлементов.ИмяПодключеннойОбработки,Ложь).ОпределитьВнутренниеСвойстваЭлементов(Форма);
КонецЕсли;
просуммировал тут все комментарии что были ранее, внес небольшие изменения, отправлю файл так же комментарием дальше
(0)Добрый день!
Прошу разрешения на включение вашего инструмента в свободно распространяемый набор "Универсальные инструменты 1С" .
Обработка сейчас бесплатна для скачивания. По идее лицензия должна быть подходящей, но хотелось бы уточнить.
Поддержку и дальнейшее развитие готовы взять на себя.
Буду благодарен за любой ответ
Прошу разрешения на включение вашего инструмента в свободно распространяемый набор "Универсальные инструменты 1С" .
Обработка сейчас бесплатна для скачивания. По идее лицензия должна быть подходящей, но хотелось бы уточнить.
Поддержку и дальнейшее развитие готовы взять на себя.
Буду благодарен за любой ответ
Судя по тому, что обработка бесплатна для скачивания - файл можно здесь прикрепить.
Добавлен анализ некоторых новых свойств реквизитов для последних платформ.
И платформенные картинки разбираются.
Добавлен анализ некоторых новых свойств реквизитов для последних платформ.
И платформенные картинки разбираются.
Прикрепленные файлы:
ДекомпиляцияУправляемыхФорм_kao.epf
(132) Немного доработал и добавил добавление кнопок на командную панель табличной части (106)
Прикрепленные файлы:
ДекомпиляцияУправляемыхФорм_kao.epf
Вопросы с вознаграждением
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|