Типовая обработка по свертке ЕРП. Возможные проблемы и их решение

02.01.22

–

> > > > > >

Добрый день, коллеги. Хочу рассказать про опыт использования типовой обработки свертки ЕРП. А именно про ряд ошибок, которые могут встречаться в типовой обработке свертки ЕРП.

Скачать файлы

	Наименование	Файл	Версия	Размер
	Обработка по типовой свертке ЕРП с исправленными ошибками. .epf 130,77Kb 23	.epf		130,77Kb	23	Скачать

Добрый день, коллеги. Хочу рассказать про опыт использования типовой обработки свертки ерп. А именно про ряд ошибок, которые могут встречаться в типовой обработке свертки ЕРП. У меня обработка заработала после их исправления. Ошибки актуальны для версии ерп 2.4.12.83.

Вот пример ошибок.

1. Использование несуществующего метода табличной части документа - УдалитьСтроку();

Пример

Пример ошибки из процедуры СформироватьДокументыВводаОстатковЗаказыНаПроизводство()

Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
	ДокОст.ТрудозатратыГрафик.УдалитьСтроку(СтрокаГрафик);
КонецЦикла;	
// Заменил его таким образом 
Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
	ДокОст.ТрудозатратыГрафик.Удалить(СтрокаГрафик);
КонецЦикла;	
//Аналогичное надо сделать для всех таких случаев

2. Не всегда в метода НайтиСледующий() в параметр передается структура.

Пример ошибки из процедуры СформироватьДокументыВводаОстатковЗаказыНаПроизводство()

Для Каждого СтрокаТЧ Из МассивСтрокВыходныеИзделияКУдалению Цикл
            СтрокиГрафик = ДокОст.ВыходныеИзделияГрафик.НайтиСтроки("КлючСвязиВыходныеИзделия", СтрокаТЧ.КлючСвязи);
            Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
                ДокОст.ВыходныеИзделияГрафик.Удалить(СтрокаГрафик);
            КонецЦикла;
            ДокОст.ВыходныеИзделия.Удалить(СтрокаТЧ);
        КонецЦикла;
// Заменил его таким образом 
Для Каждого СтрокаТЧ Из МассивСтрокВыходныеИзделияКУдалению Цикл
            СтрокиГрафик = ДокОст.ВыходныеИзделияГрафик.НайтиСтроки(Новый Структура("КлючСвязиВыходныеИзделия", СтрокаТЧ.КлючСвязи));
            Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
                ДокОст.ВыходныеИзделияГрафик.Удалить(СтрокаГрафик);
            КонецЦикла;
            ДокОст.ВыходныеИзделия.Удалить(СтрокаТЧ);
КонецЦикла;
//Аналогичное надо сделать для всех таких случаев

3. После выполнения запросов для ввода остатков выбираются неверные элементы пакета.

Пример ошибки из процедуры СформироватьДокументыВводаОстатковЗаказыДавальцу()

     Запрос = Новый Запрос;
    Запрос.Текст = "ВЫБРАТЬ
    |ТабРег.ЗаказКлиента КАК Заказ,
    |ТабРег.Номенклатура КАК Номенклатура,
    |ТабРег.Характеристика КАК Характеристика,
    |ТабРег.КодСтроки КАК КодСтроки,
    |ТабРег.Склад КАК Склад,
    |ТабРег.Серия КАК Серия,
    |ВЫБОР КОГДА ЕстьNULL(ТабУслуги.ЗаказаноОстаток, 0) = 0 Или ЕстьNULL(ТабУслуги.СуммаОстаток, 0) = 0 Тогда
    |    0
    |ИНАЧЕ ВЫРАЗИТЬ(ТабУслуги.СуммаОстаток/ТабУслуги.ЗаказаноОстаток КАК Число(15,2)) КОНЕЦ КАК Цена,
    |ТабРег.ЗаказаноОстаток КАК Количество
    |ПОМЕСТИТЬ Продукция
    |ИЗ РегистрНакопления.ЗаказыКлиентов.Остатки(&ГраницаОст, ЗаказКлиента ССЫЛКА Документ.ЗаказДавальца
    |                                    И ЗаказКлиента.Статус <> ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовДавальцев.Закрыт)) КАК ТабРег
    |ЛЕВОЕ СОЕДИНЕНИЕ
    | РегистрНакопления.УслугиДавальцуКОформлению.Остатки(&ГраницаОст, ЗаказДавальца.Статус <> ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовДавальцев.Закрыт)) КАК ТабУслуги
    |ПО ТабРег.Номенклатура = ТабУслуги.Номенклатура
    |    И ТабРег.Характеристика = ТабУслуги.Характеристика
    |    И ТабРег.ЗаказКлиента = ТабУслуги.ЗаказДавальца
    |ГДЕ ТабРег.ЗаказаноОстаток>0  
    |;
    |////////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ
    |ТабРег.ЗаказПоставщику КАК Заказ,
    |ТабРег.Номенклатура КАК Номенклатура,
    |ТабРег.Характеристика КАК Характеристика,
    |ТабРег.КодСтроки КАК КодСтроки,
    |ТабРег.Склад КАК Склад,
    |ТабРег.ЗаказаноОстаток КАК Количество
    |ПОМЕСТИТЬ Материалы
    |ИЗ РегистрНакопления.ЗаказыПоставщикам.Остатки(&ГраницаОст, ЗаказПоставщику ССЫЛКА Документ.ЗаказДавальца
    |                                        И ЗаказПоставщику.Статус <> ЗНАЧЕНИЕ(Перечисление.СтатусыЗаказовДавальцев.Закрыт)) КАК ТабРег
    |ГДЕ ТабРег.ЗаказаноОстаток>0
    |;
    |////////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ РАЗЛИЧНЫЕ
    |    Заказ
    |ИЗ (
    |ВЫБРАТЬ Заказ ИЗ Продукция
    |ОБЪЕДИНИТЬ ВСЕ
    |ВЫБРАТЬ Заказ ИЗ Материалы
    |) КАК Свод
    |;
    |////////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ * ИЗ Продукция
    |;
    |////////////////////////////////////////////////////////////////////////////////////
    |ВЫБРАТЬ * ИЗ Материалы
    |";
    ЗаполнитьПараметрыЗапросаДатаСвертки(Запрос);
    Результат = Запрос.Выполнить();
    Если Результат.Пустой() Тогда
        Возврат;
    КонецЕсли;
    ТаблицаЗаказов = Результат[0].Выгрузить();
    Если ТаблицаЗаказов.Количество() = 0 Тогда
        Возврат;
    КонецЕсли;
    ТаблицаПродукция = Результат[1].Выгрузить();
    ТаблицаМатериалы = Результат[2].Выгрузить();

// Заменил его таким образом, написал, только кусочек после запроса.  


    ЗаполнитьПараметрыЗапросаДатаСвертки(Запрос);
    
    Результат = Запрос.ВыполнитьПакет();
    Если Результат[2].Пустой() Тогда
        Возврат;
    КонецЕсли;
    ТаблицаЗаказов = Результат[2].Выгрузить();
    ТаблицаПродукция = Результат[3].Выгрузить();
    ТаблицаМатериалы = Результат[4].Выгрузить();

//Нужно проанализировать запросы нескольких процедур, чтобы правильно поправить код

Подобная ошибка встречается в процедурах:
СформироватьДокументыВводаОстатковЗаказыНаПроизводство()
СформироватьДокументыВводаОстатковЗаказыДавальцу()
СформироватьДокументыВводаОстатковЗаказыНаРемонт()
СформироватьДокументыВводаОстатковЗаказыПереработчику()

4. Присвоение значения несуществующему реквизиту табличной части. Касается реквизита "Отменено" и "ПричинаОтмены".

Пример ошибки из процедуры СформироватьДокументыВводаОстатковЗаказыДавальцу()

Для Каждого СтрокаТЧ Из ДокОст.Материалы Цикл
    Если СтрокаТЧ.Отменено Тогда
        Продолжить;
          ИначеЕсли СтрокиМатериалы = Неопределено Тогда
         СтрокаТЧ.Отменено = Истина;
         СтрокаТЧ.ПричинаОтмены = ПричинаОтменыЗаказа;
         Продолжить;
   КонецЕсли;
// Заменил его таким образом, просто закомментировал обращение к "отменено".
        Для Каждого СтрокаТЧ Из ДокОст.Материалы Цикл
    
            //Если СтрокаТЧ.Отменено Тогда
            //    Продолжить;
            //ИначеЕсли СтрокиМатериалы = Неопределено Тогда
            //    СтрокаТЧ.Отменено = Истина;
            //    СтрокаТЧ.ПричинаОтмены = ПричинаОтменыЗаказа;
            //    Продолжить;
            //КонецЕсли;

Подобную ошибку я нашел в процедурах:
СформироватьДокументыВводаОстатковЗаказыДавальцу()
СформироватьДокументыВводаОстатковЗаказыПереработчику()

5. Также, есть нюанс связанная с переполнение тч документа для процедуры СформироватьДокументыВводаОстатковМатериалыВПроизводстве()
Возможно, эта ошибка возникла только у меня, все равно здесь опишу её решение, я ограничил количество тч для документа.

Данная проблема у меня возникла только для СформироватьДокументыВводаОстатковМатериалыВПроизводстве()

Пока ВыборкаОрганизации.Следующий() Цикл
        ВыборкаНалогообложение = ВыборкаОрганизации.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        Пока ВыборкаНалогообложение.Следующий() Цикл
            ВыборкаПодразделение = ВыборкаНалогообложение.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
            Пока ВыборкаПодразделение.Следующий() Цикл
                ДокОст = Документы.ВводОстатков.СоздатьДокумент();
                ЗаполнитьШапкуДокументаВводаОстатков(ДокОст, КоличествоСформированныхДокументов, ВыборкаПодразделение);
                ДокОст.ТипОперации = Перечисления.ТипыОперацийВводаОстатков.ОстаткиМатериаловПереданныхВПроизводство;
                Выборка = ВыборкаПодразделение.Выбрать();
                Пока Выборка.Следующий() Цикл
                    Стр = ДокОст.Товары.Добавить();
                    ЗаполнитьЗначенияСвойств(Стр, Выборка);
                    Если Выборка.КоличествоПартии < Выборка.Количество
                        И Выборка.КоличествоПартии > 0 Тогда
                        Стр.Количество = Выборка.КоличествоПартии;
                    КонецЕсли;
                    Стр.КоличествоУпаковок = Стр.Количество;
                    Стр.СуммаБезНДС = ?(Выборка.ЦенаБезНДС > 0, Окр(Выборка.ЦенаБезНДС * Стр.Количество, 2), 0);
                    Стр.Сумма = ?(Выборка.Цена > 0 ,Окр(Выборка.Цена * Стр.Количество, 2),0);
                    Стр.СуммаРегл = ?(Выборка.ЦенаРегл > 0, Окр(Выборка.ЦенаРегл * Стр.Количество, 2), 0);
                    Стр.СуммаНДС = Стр.Сумма - Стр.СуммаБезНДС;
                    Стр.НДСРегл = ?(Стр.Сумма = 0, 0, Стр.СуммаНДС * (Стр.СуммаРегл / Стр.Сумма));
                КонецЦикла;
                ДокОст.Записать(РежимЗаписиДокумента.Запись);
                КоличествоСформированныхДокументов = КоличествоСформированныхДокументов + 1;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;


// Возможно эта ошибка возникла только у меня, все равно здесь опишу её решение, я ограничил количество тч для документа  
Пока ВыборкаОрганизации.Следующий() Цикл
        ВыборкаНалогообложение = ВыборкаОрганизации.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
        Пока ВыборкаНалогообложение.Следующий() Цикл
            ВыборкаПодразделение = ВыборкаНалогообложение.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
            Пока ВыборкаПодразделение.Следующий() Цикл
                ДокОст = Документы.ВводОстатков.СоздатьДокумент();
                ЗаполнитьШапкуДокументаВводаОстатков(ДокОст, КоличествоСформированныхДокументов, ВыборкаПодразделение);
                ДокОст.ТипОперации = Перечисления.ТипыОперацийВводаОстатков.ОстаткиМатериаловПереданныхВПроизводство;
                Выборка = ВыборкаПодразделение.Выбрать();
                //Начало изменения NC - Иванов А.Ю. (05.01.21)
                Переменная = 0;
                ЗаписалиДокументТолькоЧто = Ложь;
                //Окончание изменений NC - Иванов А.Ю.  (05.01.21)                
                Пока Выборка.Следующий() Цикл
                    //Иванов
                    Если ЗаписалиДокументТолькоЧто Тогда
                        ЗаписалиДокументТолькоЧто = Ложь;
                    КонецЕсли;
                    
                    Переменная = Переменная + 1;
                    Стр = ДокОст.Товары.Добавить();
                    ЗаполнитьЗначенияСвойств(Стр, Выборка);
                    Если Выборка.КоличествоПартии < Выборка.Количество
                        И Выборка.КоличествоПартии > 0 Тогда
                        Стр.Количество = Выборка.КоличествоПартии;
                    КонецЕсли;
                    Стр.КоличествоУпаковок = Стр.Количество;
                    Стр.СуммаБезНДС = ?(Выборка.ЦенаБезНДС > 0, Окр(Выборка.ЦенаБезНДС * Стр.Количество, 2), 0);
                    Стр.Сумма = ?(Выборка.Цена > 0 ,Окр(Выборка.Цена * Стр.Количество, 2),0);
                    Стр.СуммаРегл = ?(Выборка.ЦенаРегл > 0, Окр(Выборка.ЦенаРегл * Стр.Количество, 2), 0);
                    Стр.СуммаНДС = Стр.Сумма - Стр.СуммаБезНДС;
                    Стр.НДСРегл = ?(Стр.Сумма = 0, 0, Стр.СуммаНДС * (Стр.СуммаРегл / Стр.Сумма));                
                    
                    //Начало изменения NC - Иванов А.Ю. (24.03.20)
                    Если Переменная = 10000 Тогда
                        ДокОст.Записать(РежимЗаписиДокумента.Запись);
                        ДокОст = Документы.ВводОстатков.СоздатьДокумент();
                        ЗаполнитьШапкуДокументаВводаОстатков(ДокОст, КоличествоСформированныхДокументов, ВыборкаПодразделение);
                        ДокОст.ТипОперации = Перечисления.ТипыОперацийВводаОстатков.ОстаткиМатериаловПереданныхВПроизводство;
                        Переменная = 0;
                        ЗаписалиДокументТолькоЧто = Истина;
                    КонецЕсли
                    
                КонецЦикла;
                Если не ЗаписалиДокументТолькоЧто тогда
                    ДокОст.Записать(РежимЗаписиДокумента.Запись);
                КонецЕсли;
                //Окончание изменений NC - Иванов А.Ю.  (24.03.20)
                КоличествоСформированныхДокументов = КоличествоСформированныхДокументов + 1;
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;

Прикладываю обработку, в которой я поправил все найденные мной ошибки.

Обработка актуальна для версии ЕРП 2.4.12.83.
Для базы, которую я сворачивал - обработка отработала без ошибок. Для другой базы возможно вылетят новые. Большую часть исправленного кода я пометил комментариями, но часть однотипных ошибок вроде - Новый Структура() я оставил без изменения.
В более актуальных релизах, например 2.4.13.103 я увидел, что часть ошибок уже поправили, поэтому, возможно, типовая свертка отработает без проблем на новых релизах.

Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
	ДокОст.ТрудозатратыГрафик.УдалитьСтроку(СтрокаГрафик);
КонецЦикла;	
// Заменил его таким образом 
Для Каждого СтрокаГрафик Из СтрокиГрафик Цикл
	ДокОст.ТрудозатратыГрафик.Удалить(СтрокаГрафик);
КонецЦикла;	
//Аналогичное надо сделать для всех таких случаев

Обработка Свертка Ерп

–

См. также

Многофункциональная выгрузка из 1С: Управление торговлей (УТ11, УТ10) в Бухгалтерию предприятия (БП2, БП3) (соответствия товаров, контрагентов, складов, статей ДДС)+Свёртка по НДС

Обмен между базами 1C Оптовая торговля Свертка базы Платформа 1С v8.3 1С:Бухгалтерия 2.0 1С:Управление торговлей 10 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Россия Бухгалтерский учет Управленческий учет Платные (руб)

Хотите точно знать, что вы выгружаете? Хотите сворачивать товары по НДС или фильтровать товары по доп. реквизиту? Вы волшебник, которому необходимо превращать одних контрагентов в других? Хотите при выгрузке превратить группу товаров в один? Или просто нужен удобный OLE обмен между 1C Управление торговлей (ред. 11 или 10) и 1С Бухгалтерия предприятия (ред. 2 или 3). Тогда эта обработка для вас!

10900 руб.

19.04.2013 166197 343 395

324

Правильная свертка или свертка базы по правилам

Свертка базы Чистка данных Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Обработка "Свертка базы по правилам" предназначена для свертки информационных баз системы программ "1С:Предприятие" версии 8.2. Основой обработки являются специальные правила свертки, которые создаются индивидуально для каждой конфигурации информационной базы. Встроенный в обработку генератор правил позволяет быстро создать правила свертки для любой конфигурации. Например, для конфигурации "1С:Бухгалтерия 8, ред. 3.0" правила свертки были созданы за 15 минут!

2400 руб.

22.07.2013 161841 609 527

400

Свертка базы УНФ для 1.6

Свертка базы Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 Управленческий учет Платные (руб)

Обработка свертки базы УНФ 1.6 выполнена в виде расширения конфигурации, которое встраивается в вашу базу без снятия с поддержки, и адаптирована под релиз УНФ 1.6.

4800 руб.

20.04.2021 15058 48 34

Обрезание базы 1С

Свертка базы 8.3.8 Конфигурации 1cv8 Россия Управленческий учет Платные (руб)

Механизм обрезания базы 1С. Описан процесс переноса среза остатков в копию базы. Представлено прикладное решение - обработка по переносу данных. Реализован способ обмена между базами без длительного отключения рабочей базы.

7200 руб.

27.03.2023 3378 6 2

Свертка базы - или как свернуть базу УТ 10.3

Свертка базы Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 10 Россия Управленческий учет Абонемент ($m)

Как свернуть УТ 10.3. Цель свертки - свернуть остатки по товарам и по взаиморасчетам с контрагентами.

4 стартмани

04.04.2019 51458 236 RustIG 46

Быстрое получение информации по всем регистрам накопления

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

С помощью обработки можно быстро посмотреть информацию о всех регистрах накопления с фильтрацией и сортировкой.

1 стартмани

18.09.2023 426 3 sandr13 0

Свертка счетов

Свертка базы Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Абонемент ($m)

Обработка для свертки счетов. Писалась для организации, которая решила сделать свертку данных в Бухгалтерии 3.0, но перед этим нужно было подчистить всякий накопившийся хлам.

2 стартмани

15.05.2023 1857 1 kolia_oks 0

Свертка остатков по активным счетам для конфигурации 1С:Бухгалтерия 3.0, 1С:Бухгалтерия 3.0 КОРП

Свертка базы Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 3.0 Бухгалтерский учет Налоговый учет Абонемент ($m)

Универсальная обработка для свертки остатков по активным счетам для конфигурации "1С:Бухгалтерия 3.0", "1С:Бухгалтерия 3.0 КОРП". Обработка для случаев, когда на активных счетах (остатки по Дт) в оборотно-сальдовых ведомостях есть остатки с плюсом и минусом, которые в сумме дают 0, и которые нужно свернуть.

2 стартмани

21.04.2023 2553 7 Klinov 0