Обновление нетиповых конфигураций, или как убрать надоевший //{{MRG

Заранее извеняюсь за то что получилось много буковок.  Для тех кто в курсе вкрадце скажу  обработк позволяет удалять //{{MRG Комментарии из текста.   Далее идет пособие по обновление нетиповой конфигурации 1C 8.

Начну пожалуй с того как я учился обновлять нетиповые конфигурации и к чему меня все это привело. 

Начал обновлять 1с еще со времен 1с 77. 

Механизм обновления в 7-ке был предельно прост. Создаем 3 базы :  1 -рабочая база, 2ая  — копия рабочей базы, 3я — пустая типовая база того же релиза.

1ую сравниваем новым релизом. 2ую с типовым релизом. 3ю с новым релизом.   

Итого в о 2ом окне сравнения мы видим все «доработки» в 3ем видим все  изменения релиза , а в основной решаем что оставляем, а что берем из нового релиза. 

После обновления проверка:  рабочая, обновленная база сравнивается с типовым релизом. Список изменений должен быть идентичен второй базе.  Если это так, то обновление сделано верно. 

 

 

---

 

 

 

В 8ке же все кардинально изменилось.

Начиная с того что в одной базе храниться 3 и более конфигураций. 

1 — Основная конфигурация  — Та с которой непосредственно работает программист.

2 — Конфигурация базы данных — Эта та конфигурация, на которой работает в данный момент база данных.  (т.е если вы написали пару строк в конфигураторе, то  это означает что во первых основная конфигурация и конфигурация базы данных стали не идентичны,  во вторых ) 

3 — Конфигурация поставщика — это по сути типовой релиз.

4..n конфигураций поставщика может быть много, но это тема уже совсем другой статьи. 

Этот факт позволил разработчикам в одной базе реализовать кучу вкусностей. О них конкретнее: 

п.1. — При обновлении в одной базе можно увидеть все 3 различия как в 3ех базах 77, о которых говорилось выше. (Отличие типовой базы от нового релиза, «Доработки программистов» — отличия основной конфигурации от конфигурации поставщика,  и отличие основной конфигурации от нового релиза ).

п.2. — Чисто теоретически  при обновлении может возникнуть 3 случая 

1 случай — объект изменен только в базе, а в релизе не было изменений данного объекта 

2 случай — объект изменен только в релизе, а в базе он не отличается от конфигурации поставщика 

3 случай — объект изменен и там и там.

 так вот в 8 ке 1ый и 2ой случай платформа обрабатывает автоматически. (Принимает решение из какой конфигурации взять код)

 

 

Рассмотрим 3ий случай подробнее.  По каждому объекту программисту надо читать код, и принимать решение, оставлять свой код, или взять код разработчика.  Для этих целей созданы 2 механизма: 

1 объединение с приоритетом основной конфигурации — (важнее то что сделано программистами)

2 объединение с приоритетом новой конфигурации поставщика — (важнее то что сделано в релизе) 

 После обновление в режиме объединение в коде остается куча записей взятых в тег //{{MRG ..Код с которым возникли коллизии..//}}MRG   Вот пример куска кода из Авансового отчета.

 Если ЗначениеЗаполнено(Подразделение) Тогда

//{{MRG[  ]
ПредставлениеПодразделения = СокрЛП(Подразделение.Наименование);
//}}MRG[  ]
//{{MRG[  ]
//   ПредставлениеПодразделения = Подразделение.Наименование;
//}}MRG[  ]
ОбластьМакета.Параметры.ПредставлениеПодразделения         = ПредставлениеПодразделения;
ОбластьМакета.Параметры.КодПодразделения                   = Подразделение.Код;
КонецЕсли;
ОбластьМакета.Параметры.ПредставлениеПодотчетногоЛица          = ПодотчетноеЛицо;
ОбластьМакета.Параметры.ПредставлениеПодотчетногоЛицаОт        = ПодотчетноеЛицоОт;
ОбластьМакета.Параметры.ТабельныйНомер                         = ТабельныйНомер;
//{{MRG[  ]
// //Изм АФМ
// ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Шапка.Должность;
// ОбластьМакета.Параметры.ПредставлениеПодразделения = Шапка.Подразделение;
// //Конец
//}}MRG[  ]
ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Должность;
ОбластьМакета.Параметры.НомерДокумента                         = ОбщегоНазначения.ПолучитьНомерНаПечать(ЭтотОбъект);
ОбластьМакета.Параметры.ПолученоИзКассы                        = ПолученоИзКассы;
ОбластьМакета.Параметры.ПолученоИзКассыПоКартам                = ПолученоИзКассыПоКартам;

 

Например в этом месте кода понятно что в релизе был добавлен метод СокрЛП();

//{{MRG[  ]
ПредставлениеПодразделения = СокрЛП(Подразделение.Наименование);
//}}MRG[  ]
//{{MRG[  ]
//   ПредставлениеПодразделения = Подразделение.Наименование;
//}}MRG[  ]

  А в этом месте кода  были доработки какого-то АФМ ( Андропова Федора Михалыча, или еще кого-то)

//{{MRG[  ]
// //Изм АФМ
// ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Шапка.Должность;
// ОбластьМакета.Параметры.ПредставлениеПодразделения = Шапка.Подразделение;
// //Конец
//}}MRG[  ]

 Подведем черту:

---

Итак задача сводиться к тому чтобы после объеденения вычистить код от ненужных коментариев, а доработки некого АФМ оставить.

Делаем глобальный поиск по конфигурации ищем АФМ - оставляем либо адаптируем весь его текс, а для того чтобы удалить остатки я придумаю обработку по очистке тегов MRG

Довели модуль до рабочего состояния Найдя все изменения программиста, который подписался как АФМ,

        //Изм АФМ
ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Шапка.Должность;
ОбластьМакета.Параметры.ПредставлениеПодразделения = Шапка.Подразделение;
//Конец

         

проверили синтаксис помошником, выделили весь модуль скопировали текст в буфер и вставили его в мою обработку - нажали 

"Убрать MRG" - все ненужные комментарии ушли. осталось только то что надо :

    Если ЗначениеЗаполнено(Подразделение) Тогда

ПредставлениеПодразделения = СокрЛП(Подразделение.Наименование);
ОбластьМакета.Параметры.ПредставлениеПодразделения         = ПредставлениеПодразделения;
ОбластьМакета.Параметры.КодПодразделения                   = Подразделение.Код;
КонецЕсли;

ОбластьМакета.Параметры.ПредставлениеПодотчетногоЛица          = ПодотчетноеЛицо;
ОбластьМакета.Параметры.ПредставлениеПодотчетногоЛицаОт        = ПодотчетноеЛицоОт;
ОбластьМакета.Параметры.ТабельныйНомер                         = ТабельныйНомер;
//Изм АФМ
ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Шапка.Должность;
ОбластьМакета.Параметры.ПредставлениеПодразделения = Шапка.Подразделение;
//Конец
ОбластьМакета.Параметры.ДолжностьПодотчетногоЛицаПредставление = Должность;
ОбластьМакета.Параметры.НомерДокумента                         = ОбщегоНазначения.ПолучитьНомерНаПечать(ЭтотОбъект);
ОбластьМакета.Параметры.ПолученоИзКассы                        = ПолученоИзКассы;
ОбластьМакета.Параметры.ПолученоИзКассыПоКартам                = ПолученоИзКассыПоКартам;

Все обновление нетиповых превратилось только в анализ кода и в Ctrl+С, Ctrl+V.

---

С вопросами милости прошу: www.1carhipov.ru