Корректировка минусов в регистре партии товаров на складах для УТ 10.3

27.01.14

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

+1 –
Вычетает из положительных партий регистра партии товаров на складах отрицательные партии. Минуса смотрятся только по количеству, сумму на отрицательность не проверяет.

Скачать файл

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование По подписке [?] Купить один файл
Обработка
.epf 7,35Kb
53
53 Скачать (1 SM) Купить за 1 850 руб.

Понадобилось убить отрицательные партионные остатки в УТ. Была написана данная обработка.
Обработка формирует запрос по партионным остаткам, смотрит минусовые партии и вычетает эти минуса из нормальных партий по регистру партии товаров на складах. Итоговый документ - корректировка регистров. Не меняет стоимость и количество номенклатуры по партиям. У номенклатуры не учитываются серии и характеристики - надо дописать.
Просьба не ругать по поводу кода - в 8 еще не ас, делал чтоб только работало.
Если много партий с минусовыми остатками - придется запускать обработку несколько раз, т.к. за один проход накопленные отрицательные партии вычетаются только из одной положительной партии. У себя делал 30 проходов.
Если есть партии без количества с отрицательной суммой - ее оставляет как есть.
Наверное не все понятно, но кому надо истребить минусовые партии, чтоб себестоимость и количественный остаток не пострадали, тот разберется.
Вроде все.

+1 –

См. также

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

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

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

60000 руб.

06.10.2023    4820    38    20    

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

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

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

14400 руб.

29.04.2020    34329    109    152    

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

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

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

3600 руб.

10.02.2017    111808    673    175    

712
Обнаружены отрицательные остатки товаров организации

Корректировка данных Закрытие периода Бизнес-аналитик Бухгалтер Пользователь 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Оптовая торговля, дистрибуция, логистика Беларусь Управленческий учет Платные (руб)

Внешняя обработка исправляет ошибку"Обнаружены отрицательные остатки товаров организации" для 1С:УТ, КА и ERP

5400 руб.

19.11.2023    2930    20    0    

21
QR - кодирование документов БЕЗ изменения печатных форм, с произв. алгоритмами создания QR -кода и обработки (в т.ч прикрепление сканов к документам) для УТ 11 (все), ERP 2, КА 2, Розница 2, УНФ 1.6/3.0, БП 3, ЗУП 3

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

Представьте, что есть система QR - кодирования, которая НЕ ТРЕБУЕТ изменения конфигурации, НЕ ТРЕБУЕТ изменения ни одной печатной формы для добавления QR-кода, включая внешние, НЕ ХРАНИТ данные штрихкодов и их связь, от чего база не "пухнет", ИМЕЕТ возможность закодировать в QR-коде произвольные данные параметров для последующей обработки полученных данных, УМЕЕТ прикреплять сканы, УМЕЕТ обработать считанный QR-код как ВЫ захотите. А также ХРАНИТ историю операций в обход базы для каждого пользователя в отдельности и УМЕЕТ работать с 2D - сканерами. А также автоматически распознавать отсканированные печатные формы (картинки или pdf-файлы) и выполнять заданные произвольные алгоритмы, в том числе прикрепление их к документам! Обновление 3.2 от 09.06.2024!

19200 руб.

26.08.2018    52771    16    61    

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

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

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

2400 руб.

13.07.2015    51506    175    29    

127
Выравнивание БУ и НУ для 1С:Бухгалтерии 3.0, БП КОРП. Закрытие остатков по счетам

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

Обработка служит для: выравнивания бухгалтерского и налогового учета на определенную дату по выбранным счетам; закрытия остатков по выбранным счетам; обнуления налогового учета (ПР, ВР также будут обнулены)

2880 руб.

05.05.2024    756    11    0    

7
Корректировка входящего НДС при переходе с УСН на ОСНО в 1С:БП 3.0

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

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

6000 руб.

22.01.2025    446    1    0    

3
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. sobeyko2008 17 01.02.14 08:58 Сейчас в теме
Заполняю дату, нажимаю выполнить... ни чего не происходит
+ – Ответить
2. Andruykha 179 06.02.17 19:34 Сейчас в теме
По коду вижу, обработка подойдет для базы с одним складом. Придется переделать:
1 .Добавляем в запрос сортировку по складу и характеристике: 
Запрос = Новый Запрос("ВЫБРАТЬ
	                      |	ПартииТоваровНаСкладахОстатки.Номенклатура КАК Номенклатура,
	                      |	ПартииТоваровНаСкладахОстатки.Склад КАК Склад,
	                      |	ПартииТоваровНаСкладахОстатки.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры,
	                      |	ПартииТоваровНаСкладахОстатки.ДокументОприходования КАК ДокументОприходования,
	                      |	ПартииТоваровНаСкладахОстатки.СтатусПартии КАК СтатусПартии,
	                      |	ПартииТоваровНаСкладахОстатки.Качество КАК Качество,
	                      |	ПартииТоваровНаСкладахОстатки.КоличествоОстаток,
	                      |	ПартииТоваровНаСкладахОстатки.СтоимостьОстаток
	                      |ИЗ
	                      |	РегистрНакопления.ПартииТоваровНаСкладах.Остатки(&Дата, ) КАК ПартииТоваровНаСкладахОстатки
	                      |
	                      |УПОРЯДОЧИТЬ ПО
	                      |	Склад,
	                      |	Номенклатура,
	                      |	ХарактеристикаНоменклатуры,
	                      |	СтатусПартии,
	                      |	Качество,
	                      |	ПартииТоваровНаСкладахОстатки.КоличествоОстаток,
	                      |	ДокументОприходования");
Показать

2. И переделаем немного код: 
Пока Выборка.Следующий() Цикл
		Если Выборка.КоличествоОстаток <0 Тогда    // вот минусовая партия
			КолМинус = КолМинус-Выборка.КоличествоОстаток;
			СуммМинус = СуммМинус-Выборка.СтоимостьОстаток;
			Движение = Дв.Добавить();
			Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
			Движение.Период = Док.Дата;
			Движение.Номенклатура = Выборка.Номенклатура;
			Движение.Склад = Выборка.Склад     ;
			Движение.ХарактеристикаНоменклатуры = Выборка.ХарактеристикаНоменклатуры      ;
		//	Движение.СерияНоменклатуры = Выборка.СерияНоменклатуры    ;
			Движение.ДокументОприходования = Выборка.ДокументОприходования   ;
			Движение.СтатусПартии = Выборка.СтатусПартии  ;
		//	Движение.Заказ = Выборка.Заказ  ;
			Движение.Качество = Выборка.Качество ;
			Движение.Количество = -Выборка.КоличествоОстаток;
			Движение.Стоимость = -Выборка.СтоимостьОстаток;
			//КолМинус = 0;
			//СуммМинус = 0;
			ТекНом =  Выборка.Номенклатура ;
			ТекСклад =  Выборка.Склад ;
			ТекХарак =  Выборка.ХарактеристикаНоменклатуры ;

		Иначе
			Если ТекНом = Выборка.Номенклатура и ТекСклад =  Выборка.Склад и ТекХарак =  Выборка.ХарактеристикаНоменклатуры  Тогда
				//Поменялась номенклатура, сохраним старую последнюю с накопленными минусами
				//если не получилось ети минуса убрать
				Если КолМинус >= Выборка.КоличествоОстаток Тогда
					Движение = Дв.Добавить();
					Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
					Движение.Период = Док.Дата;
					Движение.Номенклатура = Выборка.Номенклатура;
					Движение.Склад = Выборка.Склад     ;
					Движение.ХарактеристикаНоменклатуры = Выборка.ХарактеристикаНоменклатуры      ;
					//	Движение.СерияНоменклатуры = Выборка.СерияНоменклатуры    ;
					Движение.ДокументОприходования = Выборка.ДокументОприходования   ;
					Движение.СтатусПартии = Выборка.СтатусПартии  ;
					//	Движение.Заказ = Выборка.Заказ  ;
					Движение.Качество = Выборка.Качество ;
					
					Движение.Количество = Выборка.КоличествоОстаток;
					Движение.Стоимость = Выборка.СтоимостьОстаток;
					КолМинус=КолМинус- Выборка.КоличествоОстаток;
					СуммМинус=СуммМинус- Выборка.СтоимостьОстаток;
				Иначе
					Движение = Дв.Добавить();
					Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
					Движение.Период = Док.Дата;
					Движение.Номенклатура = Выборка.Номенклатура;
					Движение.Склад = Выборка.Склад     ;
					Движение.ХарактеристикаНоменклатуры = Выборка.ХарактеристикаНоменклатуры      ;
					//	Движение.СерияНоменклатуры = Выборка.СерияНоменклатуры    ;
					Движение.ДокументОприходования = Выборка.ДокументОприходования   ;
					Движение.СтатусПартии = Выборка.СтатусПартии  ;
					//	Движение.Заказ = Выборка.Заказ  ;
					Движение.Качество = Выборка.Качество ;
					
					Движение.Количество = КолМинус;
					Движение.Стоимость = СуммМинус;
					КолМинус=0;
					СуммМинус = 0;
				КонецЕсли;
			Иначе
				ТекНом =  Выборка.Номенклатура ;
				ТекСклад =  Выборка.Склад ;
				ТекХарак =  Выборка.ХарактеристикаНоменклатуры ;

				Если КолМинус<>0 Тогда
					Сообщить("Остался минус по: "+Строка(Выборка.Номенклатура));
				КонецЕсли;
				КолМинус = 0;
				СуммМинус = 0;
			КонецЕсли;	
		КонецЕсли;	 	
	КонецЦикла;
Показать

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