Автоматическое перепроведение документов в Бухгалтерии 3.0

06.09.14

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

Регламентное задание позволяет запускать перепроведение документов по расписанию. Разрабатывалось в Бухгалтерии КОРП 3.0.32.7

Как известно, перепроведение документов - достаточно долгая процедура, без которой невозможно закрыть месяц. Поэтому очень удобно использовать регламентное задание по перепроведению документов, особенно, при большом документообороте. Представляю вашему вниманию процедуру, которую можно запускать автоматически по регламентному заданию. Процедура запускает стандартную обработку Бухгалтерии 3.0 "Групповое перепроведение документов". Дата первого документа, нарушающего последовательность документов ищется автоматически. В параметрах можно задать дату, по которую перепроводить документы, и указать останавливать ли перепроведение после первой ошибки проведения или нет. Результаты перепроведения сохраняются в файл на жесткий диск.

	 Процедура доп_ПроведениеДокументов(ОстанавливатьсяПоОшибке = Неопределено, ДатаОкончания = Неопределено) Экспорт
	
	Если ОстанавливатьсяПоОшибке = Неопределено Тогда
		ОстанавливатьсяПоОшибке = Истина;
	КонецЕсли;    
	
	Организация = Справочники.Организации.НайтиПоКоду("00035");
	ПериодРегистрации = ТекущаяДата();
	
	Результат = Новый Структура();
	Результат.Вставить("Ссылка", 		  	            Неопределено);
	Результат.Вставить("Дата", 		                    Неопределено);
	Результат.Вставить("МесяцИсключенИзПерепроведения",         Ложь);
	Результат.Вставить("КоличествоДокументовДляПерепроведения", 0);
	
	МесяцИсключенИзПерепроведения = РегистрыСведений.ИсключенныеИзПерепроведенияМесяцы.МесяцИсключенИзПерепроведения(
	Организация, ПериодРегистрации);
	
	Результат.МесяцИсключенИзПерепроведения = МесяцИсключенИзПерепроведения;
	
	// Если текущий месяц исключен из перепроведения, то получим дату нарушения 
	// как если бы по состоянию на конец прошлого месяца, чтобы если пользователь
	// решит все-таки за текущий месяц выполнить перепроведение, то мы могли бы 
	// указать, с какой даты требуется перепроводить.
	Если МесяцИсключенИзПерепроведения Тогда
		МоментНарушения = РаботаСПоследовательностями.МоментНачалаПерепроведенияСУчетомИсключенныхМесяцев(
		Организация, НачалоМесяца(ПериодРегистрации) - 1);
	Иначе
		МоментНарушения = РаботаСПоследовательностями.МоментНачалаПерепроведенияСУчетомИсключенныхМесяцев(
		Организация, КонецМесяца(ПериодРегистрации));
	КонецЕсли;
	
	Путь = "\\canopus\1C-OBT\MV\Логи перепроведения КОРП ЛАС\";
	
	Если МоментНарушения = Неопределено Тогда
		Текст = Новый ЗаписьТекста(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", КодировкаТекста.ANSI);
		Текст.ЗаписатьСтроку("" + Организация);
		Текст.ЗаписатьСтроку("Перепроведение не требуется!");
		Текст.Закрыть();	
		Возврат;
	КонецЕсли;  		
	
	Если ДатаОкончания = Неопределено ИЛИ ДатаОкончания = '00010101000000' Тогда
		ДатаОкончания = ТекущаяДата();    
	КонецЕсли;
	
	// Подготовка параметров для группового перепроведения
	ПараметрыПерепроведения 				= Обработки.ГрупповоеПерепроведениеДокументов.ПараметрыПерепроведения();
	ПараметрыПерепроведения.Организация 			= Организация;
	ПараметрыПерепроведения.УникальныйИдентификаторФормы 	= Новый УникальныйИдентификатор;
	ПараметрыПерепроведения.МоментНачала			= МоментНарушения;
	ПараметрыПерепроведения.ДатаОкончания			= ДатаОкончания;
	ПараметрыПерепроведения.ОстанавливатьсяПоОшибке 	= ОстанавливатьсяПоОшибке;
	ПараметрыПерепроведения.ЭтоЗакрытиеМесяца 		= Ложь;
	
	Если НЕ ЗначениеЗаполнено(ПараметрыПерепроведения.АдресХранилищаСОшибками) Тогда
		ПараметрыПерепроведения.Вставить("АдресХранилищаСОшибками", ПоместитьВоВременноеХранилище(Неопределено, Новый УникальныйИдентификатор()));
	КонецЕсли;

	АдресХранилища = ПоместитьВоВременноеХранилище(Неопределено, ПараметрыПерепроведения.УникальныйИдентификаторФормы);
	Обработки.ГрупповоеПерепроведениеДокументов.ПерепроведениеДокументов(ПараметрыПерепроведения, АдресХранилища);
	
	Попытка 	
		РезультатыПерепроведения = ПолучитьИзВременногоХранилища(АдресХранилища);
		ТабДок = ПолучитьИзВременногоХранилища(РезультатыПерепроведения.АдресХранилищаСОшибками).ОтчетПоОшибкам;
		ТабДок.Записать(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", ТипФайлаТабличногоДокумента.TXT);
	Исключение
		Текст = Новый ЗаписьТекста(Путь + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", КодировкаТекста.ANSI);
		Текст.ЗаписатьСтроку("" + Организация);
		Текст.ЗаписатьСтроку("Выполнено перепроведение документов за период: " + МоментНарушения.Дата + " - " + ДатаОкончания);
		Текст.ЗаписатьСтроку("Ошибок при перепроведение не было.");
		Текст.Закрыть(); 
	КонецПопытки;
	
КонецПроцедуры


Автоматическое перепроведение регламентное задание восстановление последовательности Бухгалтерия 3.0

См. также

Анализ расхождений выручки НДС и Налога на прибыль в декларациях (БП 3.0 ПРОФ и КОРП, КА 2, ЕRP)

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

Каждый бухгалтер не раз сталкивался с требованием от налоговой инспекции пояснить расхождения в показателях декларации по Налогу на прибыль («Доходы от реализации» + «Внереализационные доходы») и налоговой базой по НДС за год. Являются ли ошибкой подобные расхождения? Как пояснить налоговой их причину? Отчет «Анализ расхождений выручки НДС и Налога на прибыль в декларациях» поможет найти все расхождения.

7200 руб.

21.10.2017    83616    252    167    

248

Помощник закрытия месяца

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

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

9000 руб.

20.03.2018    69884    266    58    

292

Обработка "Списание доходов будущих периодов" и расширение

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

Решение регламентирует учет доходов будущих периодов(ДБП) в организации: сохраняет подробную информацию о объекте ДБП. По окончании месяца на основе введенной информации формируются проводки списания ДБП, отчеты для бухгалтерского и налогового учета. Подходит как для различных версий Бухгалтерии 8.3, так и для ERP и КА.

5500 руб.

09.10.2020    18716    40    18    

36

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

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

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

14400 руб.

29.04.2020    27413    79    146    

60

Автоматическое закрытие месяца в УНФ

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

Закрытие месяца в Управлении нашей фирмой — это очень важная задача, которую надо выполнять регулярно. Как обычно, все важное и регулярное делать мы почему-то забываем =)

3600 руб.

30.09.2022    7238    12    0    

11

Исправление ошибки закрытия месяца "Обнаружены ненулевые остатки по суммам при нулевом остатке по количеству в регистре себестоимости по организации". УТ 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    22337    299    35    

71

Помощник исправления развернутого сальдо по видам запасов и ГТД

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

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

2400 руб.

15.07.2017    62548    143    45    

140
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Aleksey_3 06.09.14 19:26 Сейчас в теме
А зачем жёсткая привязка в коде?

Организация = Справочники.Организации.НайтиПоКоду("00035");
ТабДок.Записать("\\canopus\1C-OBT\MV\Логи перепроведения КОРП ЛАС\" + Формат(ТекущаяДата(), "ДЛФ=Д") + ".txt", ТипФайлаТабличногоДокумента.TXT);


И второй вопрос, под кем это работает? Т..е если период закрыт, а программа хочет перепровести в закрытом периоде, то что будет?
2. kholkin 201 06.09.14 23:11 Сейчас в теме
Организацию и место сохранения файла конечно можно вывести в параметры. Пользователь, под которым это будет работать указывается в настройках регламентного задания, документы закрытого периода перепроводиться не будут, если запрет действует для заданного пользователя.
3. a1ex4ndr 5 07.09.14 00:56 Сейчас в теме
перед тем как выкладывать сюда, надо конечно было доработать чуток функционал - там где под себя схалтурил, а так норм обработка, плюсанул )
TariK; pallid; IROKEZ91; kholkin; +4 Ответить
4. Dvornik 20 10.09.14 07:47 Сейчас в теме
Спасибо что воспользовались :)
infostart.ru/public/279894/
5. kholkin 201 10.09.14 14:24 Сейчас в теме
(4) Dvornik, делал сам, видно по коду, потом уже твою статью увидел, и скачал посмотрел, как ты сделал. Жаль, что раньше не увидел твою статью, часов 7 потратил на этот код, а нужно было срочно сделать...
6. nataly_tka@mail.ru 29.11.16 09:02 Сейчас в теме
Зачем создается структура Результат?
7. polov 29.11.19 16:47 Сейчас в теме
Спасибо! Бесплатно получить такой код большая редкость!
Оставьте свое сообщение