Регистрация изменений объектов для выгрузки (версионирование)

11.03.12

Интеграция - Внешние источники данных

Стояла задача разработать выгрузку в базу на Oracle, в общем, не между 1С базами.  Представляю, как реализовал регистрацию изменений с помощью подписок на события.  

 

 

Принцип работы по выгрузке изменений следующий. Первая выгрузка идет для всех объектов в базе, без фильтров. Далее cнекоторой периодичностью запускается выгрузка объектов из базы. При этом выгружаются только объекты, для которых есть строка в регистре мИзмененныеОбъекты. Данный регистр выступает здесь в качестве фильтра. По окончании выгрузки регистр очищается.

Просчитаем все варианты действий над объектами конфигурации, и  что мы будем записывать при этом в регистр.  Могут быть три вида операций над объектами в базе: 1.добавлен 2.изменен 3.удален.

Теперь считаем, что мы будем записывать в регистр:

 

Объект существовал перед очисткой регистра?

Действия над объектом за прошедший период

Пишем в регистр по итогам

1.Cуществовал

Изменен

Изменен

2.Существовал

Удален

Удален

3.Существовал

Изменен, Удален

Удален

4.Не существовал

Добавлен

Добавлен

5.Не существовал

Добавлен, Изменен

Добавлен

6.Не существовал

Добавлен, Удален

Удаляем запись «Добавлен»

7.Не существовал

Добавлен, Изменен,Удален

Удаляем запись «Изменен»

 

В двух последних случаях 6. и 7. необходимо очистить регистр, т.к. в базе, куда мы собираемся выгружать данные, нет данных объектов.  Соответственно, эта база и знать ничего о них не должна.

Создаем регистр, разреза «строкаУИД» нам достаточно,  сделаем его измерением. Все остальное добавим в ресурсы.  

Поле «Ссылка» в его 1с-овском представлении нам не нужно, я добавил его временно на этапе разработки.

  Как ясно из назначения регистра, нам необходима запись об удаленных объектах конфигурации .  Т. е. нам нужна ситуация, когда запись в регистре есть, хотя объекта уже нет.   Поэтому ссылочные типы данных для измерений и ресурсов нам не подходят.  Если сделать, например, поле «Ссылка» ссылочным(каламбур :) ), при удалении объекта пользователем система запретит это сделать.  Контроль ссылочной целостности никто не отменял.   Поэтому, поступаем здесь единственно возможным образом - делаем все поля строковыми. 

 

Далее добавляем подписки на события, у меня для справочников и документов получилось 4 подписки:

 

 

И пишем в глобальный модуль:

 
Процедура мСправочникиИзмененияПередЗаписью(Источник, Отказ) Экспорт
    Источник.ДополнительныеСвойства.Вставить("Новый", Источник.ЭтоНовый());
КонецПроцедуры

Процедура мДокументыИзмененияПередЗаписью(Источник, Отказ, РежимЗаписи, РежимПроведения) Экспорт
           Источник.ДополнительныеСвойства.Вставить("Новый", Источник.ЭтоНовый());
КонецПроцедуры

     
Процедура мПриЗаписи(Источник, Отказ) Экспорт
    НазваниеОбъекта = СокрЛП(Источник.Метаданные().ПолноеИмя());
            РегИзмененныеОбъекты=РегистрыСведений.мИзмененныеОбъекты.СоздатьМенеджерЗаписи();
            РегИзмененныеОбъекты.Название=НазваниеОбъекта;
            РегИзмененныеОбъекты.СтрокаУИД=Источник.Ссылка.УникальныйИдентификатор();
            РегИзмененныеОбъекты.Ссылка=Источник.Ссылка;

    Результат = ОбъектДобавлен(РегИзмененныеОбъекты.СтрокаУИД);
    Если Результат.Количество() > 0 Тогда  
    Возврат;
    КонецЕсли;
    Если Источник.ДополнительныеСвойства.Новый = Истина Тогда
           РегИзмененныеОбъекты.Статус = "Добавлен";
    ИначеЕсли Источник.ДополнительныеСвойства.Новый = Ложь Тогда
           РегИзмененныеОбъекты.Статус = "Изменен";
    КонецЕсли;    
    РегИзмененныеОбъекты.Записать();
КонецПроцедуры


Процедура мПередУдалением(Источник, Отказ) Экспорт
            НазваниеОбъекта = СокрЛП(Источник.Метаданные().ПолноеИмя());
            РегИзмененныеОбъекты=РегистрыСведений.мИзмененныеОбъекты.СоздатьМенеджерЗаписи();
            РегИзмененныеОбъекты.СтрокаУИД=Источник.Ссылка.УникальныйИдентификатор();
            Результат =  ОбъектДобавлен(РегИзмененныеОбъекты.СтрокаУИД);

    Если Результат.Количество() > 0 Тогда
            РегИзмененныеОбъекты.Прочитать();  
            РегИзмененныеОбъекты.Удалить();

    Иначе    
            РегИзмененныеОбъекты.Название=НазваниеОбъекта;
            РегИзмененныеОбъекты.СтрокаУИД=Источник.Ссылка.УникальныйИдентификатор();
            РегИзмененныеОбъекты.Статус =
"Удален";   
            РегИзмененныеОбъекты.Ссылка=Источник.Ссылка;
            РегИзмененныеОбъекты.Записать();

   КонецЕсли
   КонецПроцедуры
   
Функция ОбъектДобавлен(УИД)
 Запрос = Новый Запрос;        
        Запрос.Текст =
        "ВЫБРАТЬ
        |    ЕСТЬNULL(мИзмененныеОбъекты.СтрокаУИД, 0) КАК СтрокаУИД
        |ИЗ
        |    РегистрСведений.мИзмененныеОбъекты КАК мИзмененныеОбъекты
        |ГДЕ
        |    мИзмененныеОбъекты.СтрокаУИД = &СтрокаУИД
        |    И мИзмененныеОбъекты.Статус = ""Добавлен""";
        Запрос.УстановитьПараметр("СтрокаУИД", УИД);
        Результат = Запрос.Выполнить().Выбрать();
        Возврат Результат; 
   КонецФункции    

 

  Получаем в пользовательском режиме подобное:

 

 

См. также

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    22459    19    1    

22

Перенос данных из Парус 10 в ЗГУ ред.3

Внешние источники данных Кадровый учет Файловый обмен (TXT, XML, DBF), FTP Обмен между базами 1C Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 10 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

60000 руб.

05.10.2022    9217    9    8    

10

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    48712    96    163    

86

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Платные (руб)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически и наиболее полно ввести данные в программу для начала работы. 

15600 руб.

08.12.2011    81576    128    123    

147

Перенос данных из Парус 10 (Торнадо) в ЗГУ ред.3 через Excel

Внешние источники данных Загрузка и выгрузка в Excel Зарплата Бюджетный учет Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате из Парус 10(Торнадо) учреждений через файлы Excel в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ). В принципе, обработка может быть использована для загрузки из файлов Excel, полученных из любых информационных систем.

24000 руб.

16.11.2018    30005    20    31    

21

Загрузка спецификаций в УНФ из системы Базис-мебельщик

Производство готовой продукции (работ, услуг) Внешние источники данных Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Лесное и деревообрабатывающее хозяйство Россия Управленческий учет Платные (руб)

Обработка предназначена для загрузки файлов, выгруженных из системы Базис-мебельщик, в справочник "Спецификации" для последующих процессов учета и диспетчирования полуфабрикатов и изделий.

7200 руб.

24.06.2021    19133    52    50    

29
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
0. mailwood 21 19.10.11 11:39 Сейчас в теме
Стояла задача разработать выгрузку в базу на Oracle, в общем, не между 1С базами. Представляю, как реализовал регистрацию изменений с помощью подписок на события.

Перейти к публикации

1. Magister 134 19.10.11 11:39 Сейчас в теме
А почему бы просто не использовать план обмена? Зачем такие костыли?
2. fomix 33 20.10.11 10:09 Сейчас в теме
Просто использовать план обмена стремно! Там фиксируется модифицированность объекта, а все случаи, перечисленные автором в таблице, не учитываются.
Оставьте свое сообщение