Корректировка регистров "Партии товаров" и "Продажи себестоимость"

05.05.16

Задачи пользователя - Корректировка данных

По наследству досталась база, в которой приходы осуществлялись как попало.
Валютные цены фиксировались в местной валюте, либо неправильный курс, либо приходовали по цене реализации.
Короче, бардак.
Предлагаемая обработка проходит по товарным документам и корректирует себестоимость списания.

Скачать исходный код

Наименование Файл Версия Размер
Корректировка себестоимости реализации
.epf 9,61Kb
5
.epf 0.0.1 9,61Kb 5 Скачать

Стандартными средствами сделать не представляется по двум причинам:

  1. Очень большой период, и если запускать обработку проведения, то даже при корректном количественном учете займет много времени
  2. Пересорт. Разумеется в базе не соблюдалась последовательность ввода.
В общих чертах, из базы за период выбираются поступления и реализации согласно списку
Функция ПолучитьСписокВидов()
	СписокВидов = Новый СписокЗначений;
	СписокВидов.Добавить("РеализацияТоваровУслуг");
	СписокВидов.Добавить("ПеремещениеТоваров");
	СписокВидов.Добавить("ПоступлениеТоваровУслуг");
	СписокВидов.Добавить("ВозвратТоваровОтПокупателя");
	СписокВидов.Добавить("ОприходованиеТоваров");
	СписокВидов.Добавить("СписаниеТоваров");
	СписокВидов.Добавить("КомплектацияНоменклатуры");
	СписокВидов.Добавить("ПриходныйОрдерНаТовары");
	СписокВидов.Добавить("ВозвратТоваровПоставщику");
	
	Возврат СписокВидов;
КонецФункции
 

из списка формируется запрос к документам

	Запрос = Новый Запрос;
	ФлагПервыйВход = Истина; 
	Запрос.Текст = "ВЫБРАТЬ ВложенныйЗапрос.Вид, ВложенныйЗапрос.Ссылка ИЗ (";
	Для каждого Док из Метаданные.Документы Цикл
		Если СписокВидов.НайтиПоЗначению(Док.Имя) = Неопределено
			Тогда Продолжить;
		КонецЕсли;
		Если НЕ ФлагПервыйВход Тогда
			Запрос.Текст = Запрос.Текст + СИМВОЛЫ.ПС + "	ОБЪЕДИНИТЬ ВСЕ"+ СИМВОЛЫ.ПС ;
		КонецЕСли;
		ФлагПервыйВход = Ложь;
		Запрос.Текст = Запрос.Текст + СИМВОЛЫ.ПС  + " ВЫБРАТЬ ВЫРАЗИТЬ("""+Док.Имя+""" КАК Строка) КАК Вид, Ссылка ИЗ Документ." + Док.Имя + " ГДЕ Дата МЕЖДУ &НачДата и &КонДата ";
	КонецЦикла;

Ну и для каждой строи выполняется код

Процедура ОбработкаДокумента(Ссылка);
	
	МДДок = Ссылка.Метаданные();
	Попытка
		Выполнить("Обработать"+МДДок.Имя+"(Ссылка)");
	Исключение
		СообщитьД(МДДок.Синоним+"
		|"""+Ссылка+"""
		|"+ОписаниеОшибки(),СтатусСообщения.Важное);
	КонецПопытки;
	
КонецПроцедуры

т.е. для каждого вида документов должна быть своя процедура. Например для приходных накладных

Процедура ОбработатьПоступлениеТоваровУслуг(Ссылка)
// Код процедуры
КонецПроцедуры

Информация по партиям сидит в таблице значений.

Более подробно можно посмотреть в коде обработки.

Ну и как всегда. Все делаем на копиях. если погубите свои рабочие базы, виноваты сами :)

P.S.

У меня на компе 16 гигов памяти, 10 из которых я пустил на RAM диск (вот этот вот). На этом диске обработка 5 лет шла 50 минут.

Тот же самый период на обычном жестком шла 20 часов.

Выводы делайте сами

Партии

См. также

Исправление в 1С:ЗУП/ЗКГУ ошибок по НДФЛ и взаиморасчетам с сотрудниками на начало расчетного года.

Корректировка данных Зарплата Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры бюджетного учреждения 1С:Зарплата и Управление Персоналом 3.x Россия Бухгалтерский учет НДФЛ Платные (руб)

Обработка исправляет технические ошибки по НДФЛ, взаиморасчетам с сотрудниками в 1С:ЗУП (1С:ЗКГУ) на начало года. Фактически все ошибки, которые проявляются в ведомостях на выплату, расчетных листках, при заполнении ведомостей на выплату и отчетах 6-НДФЛ и т.д. нужно начинать исправлять с начала расчетного года. Это позволит быть уверенными, что после завершения расчетов предыдущего года, начали работать с «чистого листа» без ошибочных остатков.

4800 руб.

06.10.2023    2584    29    15    

35

Тестирование и исправление ключей аналитики ERP, УТ11, КА

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

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

3600 руб.

10.02.2017    107208    636    173    

679

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27814    82    146    

60

Исправление ошибки закрытия месяца "Обнаружены ненулевые остатки по суммам при нулевом остатке по количеству в регистре себестоимости по организации". УТ 11.4,УТ 11.5, КА 2.4,КА 2.5, ERP 2.4, ERP 2.5, КА 2 Казахстан, Управление торговлей 3 для Казахстана

Закрытие периода Корректировка данных Платформа 1С v8.3 Оперативный учет 1С:Управление торговлей 11 Управленческий учет Платные (руб)

Закрытие месяца - важный процесс в современных конфигурациях, таких как УТ 11.4, УТ 11.5, КА 2.4, КА 2.5 ERP 2.4,ERP 2.5, КА 2 Казахстан, УТ 3 Казахстан регламентные операции влияют на расчет себестоимости, и ошибки в данном расчете не дают картины деятельности организации.

2400 руб.

27.10.2021    22523    301    35    

73

Заполнение документа "Корректировка регистров" произвольными данными

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

Внешняя обработка, позволяющая произвольным образом заполнять документ "Корректировка регистров" Предназначена для использования в конфигурациях "Управление торговлей 11", "Управление небольшой фирмой", "ERP Управление предприятием", а также в других конфигурациях, в состав которых входит библиотека стандартных подсистем (БСП) версии 2.2+ и указанный выше документ.

2400 руб.

13.07.2015    50294    171    29    

121
Оставьте свое сообщение