Универсальная история изменения документов и справочников

29.09.10

Разработка - Универсальные функции

Универсальная история изменения документов и справочников, позволяет сохранять изменения только тех реквизитов документов, справочников, а также их табличных частей, которые действительно изменились. Те реквизиты которые не изменились не попадают в историю. Это позволяет отслеживать кто, когда и что именно изменил в документе или справочнике.

Универсальная история изменения документов и справочников, позволяет сохранять изменения только тех реквизитов документов, справочников, а также их табличных частей, которые действительно изменились. Те реквизиты которые не изменились не попадают в историю. Это позволяет отслеживать кто, когда и что именно изменил в документе или справочнике. Не имеет ссылок на объекты метаданных, что позволяет удалять объекты метаданных, помеченных на удаление, через обработку удаление помеченных на удаление, без проверки на ссылание этого объекта в этом справочнике.

Чтобы эту историю внедрить в Вашу конфигурацию, необходимо:

  1. Создать Справочник ИзмененияДокументов со следующими параметрами:
  2. Длина наименования 150, Длина кода 20, Тип Кода Строка.
    Реквизиты Справочника:
               Пользователь - Тип:СправочникСсылка.Пользователи
               GUID_Объекта - Тип:Строка, Длина: 36
               ДатаИзменения - Дата, Состав даты: Дата и время
          Табличная часть "Изменения" справочника, содержит Реквизиты:
               Реквизит - Тип:Строка, Длина:200
               ЗначениеДо - Тип: Строка, неограниченная
               ЗначениеПосле - Тип: Строка, неограниченная

  3. Создать ФормуСписка и ФормуЭлемента Справочника, в форме элемента сделать её только для просмотра.

  4. В общем модуле, который выполняется на клиенте, либо создав новый, разместить экспортируемую процедуру:

	 Процедура ЗаписатьИзмененияДокументаВСправочникИзмененияДокументов(Объект) ЭКСПОРТ

    Если Объект.ЭтоНовый() Тогда
        ID = Новый УникальныйИдентификатор;
        Если Сред(Объект.Метаданные().ПолноеИмя(), 1, Найти(Объект.Метаданные().ПолноеИмя(), ".")-1) = "Документ" Тогда
            Объект.УстановитьСсылкуНового(Документы[Объект.Метаданные().Имя].ПолучитьСсылку(ID));
        ИначеЕсли Сред(Объект.Метаданные().ПолноеИмя(), 1, Найти(Объект.Метаданные().ПолноеИмя(), ".")-1) = "Справочник" Тогда
            Объект.УстановитьСсылкуНового(Справочники[Объект.Метаданные().Имя].ПолучитьСсылку(ID));
        КонецЕсли;
    КонецЕсли;

    Изменения = Истина;
    ДатаИзм = ТекущаяДата();

    //Изменения реквизитов
    ЗапросПроверкаРеквизитов = Новый Запрос;
    ЗапросПроверкаРеквизитов.Текст = "ВЫБРАТЬ
                                     |  *
                                     |ИЗ
                                     |  " + Сред(Объект.Метаданные().ПолноеИмя(), 1, Найти(Объект.Метаданные().ПолноеИмя(), ".")) + Объект.Метаданные().Имя + " КАК ОбъектМетаданных
                                     |ГДЕ
                                     |  ОбъектМетаданных.Ссылка = &Ссылка";

    ЗапросПроверкаРеквизитов.УстановитьПараметр("Ссылка", Объект.Ссылка);
    ВыборкаПроверкаРеквизитов = ЗапросПроверкаРеквизитов.Выполнить().Выбрать();
    Если ВыборкаПроверкаРеквизитов.Следующий() Тогда
        Для Каждого Рек Из Объект.Метаданные().Реквизиты Цикл
            Если Объект[Рек.Имя] <> ВыборкаПроверкаРеквизитов[Рек.Имя] Тогда
                Если Изменения Тогда
                    НовЭлемент = Справочники.ИзмененияДокументов.СоздатьЭлемент();
                    НовЭлемент.Наименование = Строка(Объект.Ссылка);
                    НовЭлемент.GUID_Объекта = Объект.Ссылка.УникальныйИдентификатор();
                    НовЭлемент.Пользователь = ПараметрыСеанса.ТекущийПользователь.Ссылка;
                    НовЭлемент.ДатаИзменения = ДатаИзм;
                    Изменения = Ложь;
                КонецЕсли;
                НовСтр = НовЭлемент.Изменения.Добавить();
                НовСтр.Реквизит = Рек.Имя;
                НовСтр.ЗначениеДо = Строка(ВыборкаПроверкаРеквизитов[Рек.Имя]);
                НовСтр.ЗначениеПосле = Строка(Объект[Рек.Имя]);
                Если НовЭлемент.Изменения.Количество() = 99999 Тогда
                    НовЭлемент.Записать();
                    Изменения = Истина;
                КонецЕсли;
            КонецЕсли;
        КонецЦикла;
        Если ВыборкаПроверкаРеквизитов.ПометкаУдаления <> Объект.ПометкаУдаления Тогда
            Если Изменения Тогда
                НовЭлемент = Справочники.ИзмененияДокументов.СоздатьЭлемент();
                НовЭлемент.Наименование = Строка(Объект.Ссылка);
                НовЭлемент.GUID_Объекта = Объект.Ссылка.УникальныйИдентификатор();
                НовЭлемент.Пользователь = ПараметрыСеанса.ТекущийПользователь.Ссылка;
                НовЭлемент.ДатаИзменения = ДатаИзм;
                Изменения = Ложь;
            КонецЕсли;
            НовСтр = НовЭлемент.Изменения.Добавить();
            НовСтр.Реквизит = "ПометкаУдаления";
            НовСтр.ЗначениеДо = Строка(ВыборкаПроверкаРеквизитов.ПометкаУдаления);
            НовСтр.ЗначениеПосле = Строка(Объект.ПометкаУдаления);
        КонецЕсли;
    Иначе
        Для Каждого Рек Из Объект.Метаданные().Реквизиты Цикл
            Если Изменения Тогда
                НовЭлемент = Справочники.ИзмененияДокументов.СоздатьЭлемент();
                НовЭлемент.Наименование = Строка(Объект.Ссылка);
                НовЭлемент.GUID_Объекта = Объект.Ссылка.УникальныйИдентификатор();
                НовЭлемент.Пользователь = ПараметрыСеанса.ТекущийПользователь.Ссылка;
                НовЭлемент.ДатаИзменения = ДатаИзм;
                Изменения = Ложь;
            КонецЕсли;
            НовСтр = НовЭлемент.Изменения.Добавить();
            НовСтр.Реквизит = Рек.Имя;
            НовСтр.ЗначениеДо = "";
            НовСтр.ЗначениеПосле = Строка(Объект[Рек.Имя]);
            Если НовЭлемент.Изменения.Количество() = 99999 Тогда
                НовЭлемент.Записать();
                Изменения = Истина;
            КонецЕсли;
        КонецЦикла;
    КонецЕсли;

    //Проверка на изменение табличных частей документа
    Для Каждого ТЧ из Объект.Метаданные().ТабличныеЧасти Цикл

        ЗапросПроверкаТЧ = Новый Запрос;

        ЗапросПроверкаТЧ.Текст = "ВЫБРАТЬ
                                     |  *
                                     |ИЗ
                                     |  " + Сред(Объект.Метаданные().ПолноеИмя(), 1, Найти(Объект.Метаданные().ПолноеИмя(), ".")) + Объект.Метаданные().Имя + "." + ТЧ.Имя + " КАК ОбъектМетаданных
                                     |ГДЕ
                                     |  ОбъектМетаданных.Ссылка = &Ссылка
                                     |УПОРЯДОЧИТЬ ПО
                                     |  НомерСтроки";

        ЗапросПроверкаТЧ.УстановитьПараметр("Ссылка", Объект.Ссылка);
        ВыборкаПроверкаТЧ = ЗапросПроверкаТЧ.Выполнить().Выбрать();
        Для Каждого СтрТЧ Из Объект[ТЧ.Имя] Цикл
            Если ВыборкаПроверкаТЧ.Следующий() Тогда
                Для Каждого Рек Из Объект.Метаданные().ТабличныеЧасти[ТЧ.Имя].Реквизиты Цикл
                    Если СтрТЧ[Рек.Имя] <> ВыборкаПроверкаТЧ[Рек.Имя] Тогда
                        Если Изменения Тогда
                            НовЭлемент = Справочники.ИзмененияДокументов.СоздатьЭлемент();
                            НовЭлемент.Наименование = Строка(Объект.Ссылка);
                            НовЭлемент.GUID_Объекта = Объект.Ссылка.УникальныйИдентификатор();
                            НовЭлемент.Пользователь = ПараметрыСеанса.ТекущийПользователь.Ссылка;
                            НовЭлемент.ДатаИзменения = ДатаИзм;
                            Изменения = Ложь;
                        КонецЕсли;
                        НовСтр = НовЭлемент.Изменения.Добавить();
                        НовСтр.Реквизит = ТЧ.Имя + ":" + Строка(СтрТЧ.НомерСтроки) + " - " + Рек.Имя;
                        НовСтр.ЗначениеДо = Строка(ВыборкаПроверкаТЧ[Рек.Имя]);
                        НовСтр.ЗначениеПосле = Строка(СтрТЧ[Рек.Имя]);
                        Если НовЭлемент.Изменения.Количество() = 99999 Тогда
                            НовЭлемент.Записать();
                            Изменения = Истина;
                        КонецЕсли;
                    КонецЕсли;
                КонецЦикла;
            Иначе
                Для Каждого Рек Из Объект.Метаданные().ТабличныеЧасти[ТЧ.Имя].Реквизиты Цикл
                    Если Изменения Тогда
                        НовЭлемент = Справочники.ИзмененияДокументов.СоздатьЭлемент();
                        НовЭлемент.Наименование = Строка(Объект.Ссылка);
                        НовЭлемент.GUID_Объекта = Объект.Ссылка.УникальныйИдентификатор();
                        НовЭлемент.Пользователь = ПараметрыСеанса.ТекущийПользователь.Ссылка;
                        НовЭлемент.ДатаИзменения = ДатаИзм;
                        Изменения = Ложь;
                    КонецЕсли;
                    НовСтр = НовЭлемент.Изменения.Добавить();
                    НовСтр.Реквизит = ТЧ.Имя + ":" + Строка(СтрТЧ.НомерСтроки) + " - " + Рек.Имя;
                    НовСтр.ЗначениеДо = "";
                    НовСтр.ЗначениеПосле = Строка(СтрТЧ[Рек.Имя]);
                    Если НовЭлемент.Изменения.Количество() = 99999 Тогда
                        НовЭлемент.Записать();
                        Изменения = Истина;
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;

    Если Не Изменения Тогда
        НовЭлемент.Записать();
    КонецЕсли;

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

И в нужном документе/справочнике в модуле объекта вконце процедуры ПередЗаписью() размещаем следующее:

	 #Если Клиент Тогда
Если Не Отказ Тогда
    НашиДороботки.ЗаписатьИзмененияДокументаВСправочникИзмененияДокументов(ЭтотОбъект);
КонецЕсли;
#КонецЕсли

4. На форме документа/Элемента объекта метаданных документа/справочника, для которого необходимо отслеживать историю изменений, можно разместить кнопку "История изменений", которая будет отбирать из справочника только те элементы которые по данному документу/справочнику. Для этого разместим кнопку на командной панели(ну или где Вам угодно) и в обработчике нажатия на кнопку  написать следующее:

	 Процедура ДействияФормыИсторияИзменений(Кнопка)

    ФормаИзменений = Справочники.ИзмененияДокументов.ПолучитьФормуСписка();
    ФормаИзменений.СправочникСписок.Отбор.GUID_Объекта.ВидСравнения = ВидСравнения.Равно;
    ФормаИзменений.СправочникСписок.Отбор.GUID_Объекта.Использование = Истина;
    ФормаИзменений.СправочникСписок.Отбор.GUID_Объекта.Значение = Строка(ЭтотОбъект.Ссылка.УникальныйИдентификатор());

    ФормаИзменений.Открыть();

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

Обновляем информационную базу и все. При каждом изменении в справочник добавляются элементы (изменения которые внесли пользователи). Думаю данная история изменений будет кому-то интересна и удобна.

См. также

Вставляем картинку из буфера обмена (платформа 1С 8.3.24)

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Абонемент ($m)

Задача: вставить картинку из буфера обмена на форму средствами платформы 1С.

1 стартмани

18.03.2024    2670    0    John_d    8    

54

GUID в 1С 8.3 - как с ними быть

Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

Пришлось помучиться с GUID-ами немного, решил поделиться опытом, мало ли кому пригодится.

12.02.2024    4607    atdonya    22    

45

Переоткрытие внешних обработок

Универсальные функции Платформа 1С v8.3 Бесплатно (free)

На заключительных этапах, когда идет отладка или доработка интерфейса, необходимо много раз переоткрыть внешний объект. Вот один из способов автоматизации этого.

30.11.2023    3960    ke.92@mail.ru    16    

61

Валидация JSON через XDTO (включая массивы)

WEB-интеграция Универсальные функции Механизмы платформы 1С Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

При работе с интеграциями рано или поздно придется столкнуться с получением JSON файлов. И, конечно же, жизнь заставит проверять файлы перед тем, как записывать данные в БД.

28.08.2023    8820    YA_418728146    6    

141

Печать непроведенных документов для УТ, КА, ERP. Настройка печати по пользователям, документам и печатным формам

Пакетная печать Печатные формы Адаптация типовых решений Универсальные функции Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Россия Абонемент ($m)

Расширение для программ 1С:Управление торговлей, 1С:Комплексная автоматизация, 1С:ERP, которое позволяет распечатывать печатные формы для непроведенных документов. Можно настроить, каким пользователям, какие конкретные формы документов разрешено печатать без проведения документа.

2 стартмани

22.08.2023    2071    21    progmaster    7    

3

Расширение: Быстрые отборы через буфер [Alt+C] Копировать список, [Alt+V] Вставить список, [Ctrl+C] Копировать из файлов

Инструментарий разработчика Универсальные функции Платформа 1С v8.3 Конфигурации 1cv8 1С:Розница 2 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x Абонемент ($m)

Копирует в буфер значения из списков, из ячеек отчетов, таблиц, настроек списков, других отборов и вставляет в выбранную настройку отбора. Работает с Объект не найден. Работает как в одной так и между разными базами 1С. Использует комбинации [Alt+C] Копировать список, [Alt+V] Вставить список. Также для копирования данных используется стандартная [Ctrl+C] (например из открытого xls, mxl, doc и т.п. файла скопировать список наименований)

1 стартмани

13.10.2022    16143    133    sapervodichka    112    

129

Система контроля ведения учета [БСП]

Универсальные функции Механизмы типовых конфигураций БСП (Библиотека стандартных подсистем) Платформа 1С v8.3 Конфигурации 1cv8 Бесплатно (free)

В данном материале рассмотрим типовой алгоритм подсистемы контроля учета БСП в конфигурациях на примерах.

18.07.2022    7243    quazare    8    

109
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. e.kogan 1892 29.09.10 16:50 Сейчас в теме
Почему не оформлено как подсистема? (О том, что баян - промолчу)
7. sazol 84 30.09.10 13:41 Сейчас в теме
(1) Извините новичек еще, первая публикация... Сам написал это еще ы 2009 году, решил щас поделиться, может кому пригодиться...

(4) Бывают такие большие документы, где производсится изменений более чем 99999, а ограничение табличной части есть 99999 строк, для этого и есть данная проверка, он записывает один элемент истории и создает другой элемент, где указываются оставшиеся изменения после 99999. Надеюсь внятно разъяснил)) (на практике встретил, пришлось добавить данное условие ибо не дает тогда записать такие большие документы...)

(5) Извиняюсь за орфографическую ошибку)))

(6) а затем чтобы быстро(по одному щелчку мыши) и любой компентентый юзер мог просмотреть историю изменения документов или справочников.

(6) А выполнение на клиенте это и есть гуд! Так как на сервер объект не передашь ибо мутабельное значение, и на сервере не сможешь проверить какие на данный момент времени перед записью значения в объекте, а какие еще пока хранятся в базе, чтобы выявить изменения вносимые текущим юзером.
Для этого предусматривается разграничение прав на данный справочник, всем абсолютно юзерам даются права на добавление, просмотр и ввод по строке. (ни каких изменений в истории никто не сможет сделать, а это уже хорошо).
Если ты имел ввиду про дополнительный обработчик, который на стороне клиента, ну это не 8.2 с тонким клиентом чтоб так беспокоится, на 8.1 он итак очень "толстый" и сильно не "напрягает" клиент.
9. w-divin 30.09.10 15:10 Сейчас в теме
(7) с такими объемами как вы описываете (и с какими я работал) база дохнет довольно быстро... По крайней мере у нас документы правлись по 5-10 раз на дню, и документы и документоооборот немаленькие. Держать эту информацию в базе ИМХО нецелесообразно, хотя бы потому что сам просмотр изменений вызывается крайне редко по отношению к вводу документов и получениям данных из базы...

по поводу сервера - например XML-сериализацию еще никто не отменял... поищи на просторах интернета примеры проведения документов на сервере в привелигированых модулях... у нас в разных базах реализовано 3 схемы хранения истории изменений: XML, отдельная sql-база, отдельная 1С-база, в зависимости от объема рабочей базы и частоты изменений используем одну из них... вся обработка истории проходит на сервере со всеми вытекающими плюсами (с использованием привилегированных модулей)...

опять же - "чтобы быстро(по одному щелчку мыши) и любой компентентый юзер мог просмотреть историю" это совершенно не зависит от расположения данных

плюс: "Бывают такие большие документы, где производсится изменений более чем 99999" 99999 раз получать размер тч, тем более на клиенте - ну не есть это гут... совсем не есть...

"на 8.1 он итак очень "толстый"" во-первых все зависит от конфы, а во-вторых зачем еще утолщать и так очень толстое???
11. sazol 84 30.09.10 15:34 Сейчас в теме
(9) Я тебя не заставляю пользоваться моим примером реализации, хочешь пиши свой :) . У нас данная история не используется для всех документов и справочников, а для основных, где как раз такая детальная история и необходима. Работает данная история уже довольно долго и база не сдохла... :) и не сдохнет!
Я не заметил сильного "заторможения" работы при записи документов от обычной записи.
Я конечно понял что Вы имели ввиду что это не идеал и далеко это не так, ну я не кого не принуждаю его использовать, просто поделился, меня данный вариант устраивает. При томуж очень просто в кончоле отчетов накидать отчет по изменениям для руководства :-Р
13. w-divin 30.09.10 16:27 Сейчас в теме
(11) Один из смыслов оставлять комменты тут - это как раз указать автору на негативные стороны выставленного решения... а вы как-то неадекватно на конструктивную критику реагируете... по поводу "хочешь - пиши свой" - смотри пост (9) - там сказано что у меня уже написано и работают 3 различных механизма хранения истории изменений.

Заметьте - я не написал что обработка плохая или никому не нужная - я указал на минусы, которые присутствуют в её реализации, потому как тема актуальная еще со времен клюшек... И как всегда в механизмах регистрации изменений хочется задать вопрос (хотя ответ очевиден :D ): берем документ с 5000 строк, удаляем первую строку и имеем 5000 записей об изменении.... верно? или я что-то упустил?

ну и раз уже пошла такая тема, то оригинальностью данная разработка тоже не блещет (навскидку не говоря о платных вариантах):
http://infostart.ru/public/22167/
http://infostart.ru/public/19364/
http://infostart.ru/public/63420/
15. sazol 84 30.09.10 17:41 Сейчас в теме
(13) Конструктивная критика принята :)

берем документ с 5000 строк, удаляем первую строку и имеем 5000 записей об изменении.... верно? или я что-то упустил?


Почти угадал :)
Один элемент справочника "Изменение документов" и с табличной частью как минимум строк 4999, но и более, все зависит от количества реквизитов в ТЧ измененного документа и как они изменились по отношению к значениям которые хранились в записи на строку выше...)))
17. w-divin 30.09.10 18:36 Сейчас в теме
(15) хех...болезнь... у меня в механизме в xml реализован контроль удаления строк, но он тож далек от идеала и никак не помогает при изменении порядка строк ((( но хоть что-то... уже легше... ... а так хотелось....

в 13 я имел ввиду записи об изменениях - т.е. то что видит пользователь при анализе, а не количество записей в бд...
18. sazol 84 30.09.10 20:25 Сейчас в теме
(17) ну я же написал, пользователь видит одну строку с одним изменением документа пользователем. (Ну это является элементом справочника) Далее открывает этот элемент справочника и в шапке отображается кто, когда и какой документ/справочник изменил, а ниже табличная часть со строками изменения реквизитов. Вот в ней, табличной части справочника, уже много строк.(показывается в каждой строке реквизит далее значение до, значение после)
23. kasper076 101 15.10.10 08:50 Сейчас в теме
(17) Может стоит пренебречь изменением номера строки? Т.е. исключить этот реквизит из проверки ТЧ.
2. vit1c 29.09.10 17:07 Сейчас в теме
Zупер!!! Пользую. Нравится.
3. Чертеночек 29.09.10 17:37 Сейчас в теме
кому боян, а кому НРАВИТСЯ:)))):{}
yurazyuraz; Djekiss; +2 Ответить
4. PowerBoy 3350 30.09.10 09:20 Сейчас в теме
"Если НовЭлемент.Изменения.Количество() = 99999 Тогда"

я хренею от такого кода :o
6. w-divin 30.09.10 10:15 Сейчас в теме
ну йопт... ну зачем все в базу-то пихать???

и выполнение на клиенте - это не есть гуд... можно даже сказать есть бэд...

+(4) тоже понравилось... опять же на клиенте )))
5. Asdam 119 30.09.10 10:13 Сейчас в теме
НашиДороботки
Это от слова робот?
8. zzerro 277 30.09.10 15:08 Сейчас в теме
(7 )... Так как на сервер объект не передашь ...

Это вообще как понимать?
10. sazol 84 30.09.10 15:21 Сейчас в теме
(8) При попытки передачи объекта на сервер ругается на мутабельное значение!
12. cool.dkf 30.09.10 15:34 Сейчас в теме
(10) Все правильно - напрямую серверу передать такие значения нельзя. Где-то я уже видел что-то подобное, но все равно +
14. rumik007 30.09.10 17:17 Сейчас в теме
И в нужном документе/справочнике в модуле объекта вконце процедуры ПередЗаписью() размещаем следующее:




#Если Клиент Тогда

Если Не Отказ Тогда

НашиДороботки.ЗаписатьИзмененияДокументаВСправочникИзмененияДокументов(ЭтотОбъект);

КонецЕсли;

#КонецЕсли
Показать


:idea: Наверное лучше бы было оформить через подписку на событие.
s.w.a.t.; +1 Ответить
16. sazol 84 30.09.10 17:46 Сейчас в теме
(14) Идея хорошая... не подумал сразу, спасибо :)
19. Michael_Osipov 10 01.10.10 08:26 Сейчас в теме
Может быть и не идеал, но работает как надо. Для нескольких документов с небольшими изменениями как раз то, что нужно. Моя благодарность автору.
20. K_A_O 538 03.10.10 08:50 Сейчас в теме
Только за Найти(Объект.Метаданные().ПолноеИмя(), ".")-1) = "Документ" хочется минус поставить
21. Djekiss 10.10.10 12:07 Сейчас в теме
Клёво! Всё работает!! оргомное СПАСИБО АВТОРУ!!!!!!!!!!!! :{}
Давно не могла решить эту проблему: как же можно отслеживать кто, когда и что именно изменил в документе или справочнике!? Теперь буду знать кому именно по голове стучать :evil: !!!!) еще раз спасибо! :D
22. Djekiss 10.10.10 12:14 Сейчас в теме
Клёво! Всё работает!! ОГРОМНОЕ СПАСИБО АВТОРУ!!!!!
Давно не знала как решить эту проблему: как же отслеживать кто, когда и что именно изменил в документе или справочнике... Теперь буду знать кому надо по голове стучать!!!)))) Еще раз СПАСИБО! :{}
24. rhtr 90 16.10.10 07:41 Сейчас в теме
ПЛЮСУЮ, а на счет событий это уже каждый дадумает сам)
25. zhleonid8 18.10.11 17:03 Сейчас в теме
автору респекти призыв на 8,2
26. i132 122 06.03.12 12:44 Сейчас в теме
RTFM, инетерсно, почему вы используете запрос а не сравниваете реквизиты ссылки и объекта?

Если построили запрос "выбрать * из ссылка" то мне кажется было бы быстрее быстрее перебирать выборка.Колонки чем перебирать реквизиты метаданных, кроме того в такой запрос попадают и табличные части в виде таблицы значений. Еще в выборку попадут стандртные реквизиты, которые вы пропустили: дата, номер, код, наименование, проведен...

Сравнение табличных частей мне кажется быстрее сравнивать через ЗначениеВстркуВнутр( табЧасть.Выгрузить()) для каждой строки табчасти вызывать Объект.Метаданные() -должно заметно увеличивать время обработки записи.

Перед присвоением ГУИД-ссылки новому объекту стоит проверить была ли уже ему присвоена другая ссылка (ГУИД <> "00000000-0000-0000-0000-000000000000")

Для поиска справочника с изменениями может быть не достаточно одного ГУИД -надо еще искать и по виду - можно создать два справочника разных видов но с одним ГУИД (в вашем случае этого не будет вы каждый раз получаете новый ГУИД)
27. AlekseiLeit 9 09.04.12 09:50 Сейчас в теме
Спасибо автору. Пригодилось
28. WildDancer 3 22.06.12 06:48 Сейчас в теме
Просто и со вкусом, и главное отлично работает. Спасибо
29. WildDancer 3 22.06.12 07:23 Сейчас в теме
Немного поторопился. Конфликтует с моей доработкой)
30. kosb_64 22.06.12 16:42 Сейчас в теме
Уже ставил "+", только он пропал куда-то. Работает отлично. Ставлю ещё раз "+"!!
31. kudim 21.06.16 12:48 Сейчас в теме
А зачем записывать изменения в событии ПередЗаписью? а если в процессе проверки ПриЗаписи формы или Объекта получим отказ и не запишем? история то уже сохранится.
Логичнее тогда уж фиксировать записанные изменения после записи объекта.
32. Arkadag 28.11.17 15:32 Сейчас в теме
Понимаю, что запоздало. Установил данный код на Контрагентах и Договорах. После применения данного кода на РИБ, после обмена на филиальной базе все вновь созданные контрагенты остались без привязке к своим договорам. Т.е. договора то в базу перенеслись, но без владельца... В чем дело? почему так получилось?
33. dilmurod81 05.10.23 08:53 Сейчас в теме
Оставьте свое сообщение