Списание (корректировка) задолженности контрагентов УНФ 1.6

24.07.19

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

Обнуление задолженности контрагентов в конфигурации "Управление небольшой (нашей) фирмой" версии 1.6 с помощью документа "Корректировка регистров".

Скачать файл

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

Наименование По подписке [?] Купить один файл
Списание (корректировка) задолженности контрагентов УНФ:
.epf 9,61Kb ver:1.0
42
42 Скачать (1 SM) Купить за 1 850 руб.

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

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

Можно использовать как внешнюю независимую обработку или подключить как дополнительную обработку (адаптирована).

 

Релиз платформы тот, который рекомендован для УНФ 1.6, но не ниже 8.3.5 (для объекта СхемаЗапроса). 

Разрабатывалось и тестировалось на 8.3.13.1513. Должно работать на любом релизе конфигурации (даже переписанном с добавлением своих измерений и ресурсов), так как запрос строится динамически через объект СхемаЗапроса и по метаданным текущей конфигурации.

 

//фрагмент кода

    МассивНужныхРегистров = Новый Массив;
	
	Если НЕ Метаданные.РегистрыНакопления.Найти("РасчетыСПокупателями") = Неопределено Тогда
		МассивНужныхРегистров.Добавить("РасчетыСПокупателями");	
	КонецЕсли;
	Если НЕ Метаданные.РегистрыНакопления.Найти("РасчетыСПоставщиками") = Неопределено Тогда
		МассивНужныхРегистров.Добавить("РасчетыСПоставщиками");	
	КонецЕсли;
	Если НЕ Метаданные.РегистрыНакопления.Найти("РасчетыСПрочимиКонтрагентами") = Неопределено Тогда
		МассивНужныхРегистров.Добавить("РасчетыСПрочимиКонтрагентами");	
	КонецЕсли;
	
	ТаблицыДвижений = Новый Структура;
	
	Для Каждого М Из МассивНужныхРегистров Цикл
		
		МетаРегистраИзмерения = Метаданные.РегистрыНакопления[М].Измерения;
		МетаРегистраРесурсы = Метаданные.РегистрыНакопления[М].Ресурсы;
		
		СхемаЗапроса = Новый СхемаЗапроса;
		ЗапросВыборки = СхемаЗапроса.ПакетЗапросов[0];
		ОператорВыборки = ЗапросВыборки.Операторы[0];
		
		ЗапросВыборки.ВыбиратьРазрешенные = Истина;
		
		ИсточникРасчетов = ОператорВыборки.Источники.Добавить("РегистрНакопления."+М+".Остатки",М+"Остатки");
		
		ИсточникРасчетов.Источник.Параметры[0].Выражение = Новый ВыражениеСхемыЗапроса("&КонПериода");
		ИсточникРасчетов.Источник.Параметры[1].Выражение = Новый ВыражениеСхемыЗапроса("Организация = &Организация И Контрагент = &Контрагент");
		
		_инд = 0;
		
		ОператорВыборки.ВыбираемыеПоля.Добавить("ЗНАЧЕНИЕ(ВидДвиженияНакопления.Приход)");
		ЗапросВыборки.Колонки[_инд].Псевдоним = "ВидДвижения";
		_инд=_инд+1;
		ОператорВыборки.ВыбираемыеПоля.Добавить("ИСТИНА");
		ЗапросВыборки.Колонки[_инд].Псевдоним = "Активность";    
		_инд=_инд+1;
		ОператорВыборки.ВыбираемыеПоля.Добавить("&Период");
		ЗапросВыборки.Колонки[_инд].Псевдоним = "Период";
		_инд=_инд+1;
		
		Для Каждого МРИ Из МетаРегистраИзмерения Цикл
			ОператорВыборки.ВыбираемыеПоля.Добавить(МРИ.Имя);
			ЗапросВыборки.Колонки[_инд].Псевдоним = МРИ.Имя;
			_инд=_инд+1;
		КонецЦикла;
		
		Для Каждого МРР Из МетаРегистраРесурсы Цикл
			ОператорВыборки.ВыбираемыеПоля.Добавить("-"+МРР.Имя+"Остаток");
			ЗапросВыборки.Колонки[_инд].Псевдоним = МРР.Имя;
			_инд=_инд+1;
		КонецЦикла; 
		
		ОператорВыборки.ВыбираемыеПоля.Добавить("&СодержаниеПроводки");
		ЗапросВыборки.Колонки[_инд].Псевдоним = "СодержаниеПроводки";
		
		Запрос = Новый Запрос;
		Запрос.Текст = СхемаЗапроса.ПолучитьТекстЗапроса();
		
		Запрос.УстановитьПараметр("КонПериода", 	Парам.ДатаОстатков);
		Запрос.УстановитьПараметр("Организация", 	Парам.Организация);
		Запрос.УстановитьПараметр("Контрагент", 	Парам.Контрагент);
		Запрос.УстановитьПараметр("Период", 	Парам.ДатаОстатков);
		Запрос.УстановитьПараметр("СодержаниеПроводки", 	НСтр("ru = 'Корректировка задолженности'; uk = 'Коригування заборгованості'"));

		РезультатЗапроса = Запрос.Выполнить().Выгрузить();
		
		Если НЕ РезультатЗапроса.Количество() = 0 Тогда
			ТаблицыДвижений.Вставить(М,РезультатЗапроса);
		КонецЕсли;
		
	КонецЦикла;
	
	Если ТаблицыДвижений.Количество() = 0 Тогда
		Возврат НСтр("ru = 'Нет данных к корректировке'; uk = 'Нема даних до коригування'");
	КонецЕсли;
	
	ДокОбъект = Документы.КорректировкаРегистров.СоздатьДокумент();

//далее заполнение документа

 

P.S. Код открыт, делалась для себя, выкладываю как есть.

Корректировка долги УНФ внешняя обработка

См. также

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

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

14400 руб.

29.04.2020    32453    105    152    

73

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

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

3600 руб.

10.02.2017    110297    663    174    

702

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

Вы наконец разобрались с закрытием месяцев и пора начать контролировать сроки оплаты поставщикам и задолженности клиентов, но в базе расчеты не идут из-за развернутого сальдо? Не беда, есть решение!

7200 руб.

02.11.2020    7278    5    0    

8

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

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

4800 руб.

06.10.2023    3993    34    17    

43

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

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

4800 руб.

27.10.2021    23804    241    35    

78

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

Обработка предназначена для корректировки входящего НДС при смене системы налогообложения индивидуального предпринимателя с УСН на ОСНО в 1С:Бухгалтерия предприятия 3.0

4000 руб.

18.07.2024    667    1    0    

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