ускоряем в 1000 раз отчётность III 2010 - Форма-4 ФСС Таблицы 3, 4

1. WWWolfy 132 04.10.10 11:01 Сейчас в теме
Если у вас 500 сотрудников, то вы можете ждать заполнения "Форма-4 ФСС РФ: Раздел I. Таблицы 3, 4" несколько часов, а если 1500 - то не дождётесь.

Ускоряем в 1000 раз простым переносом расчёта итогов из цикла ДО цикла.
Берём файл в папке ExtForms\Rp10q3.grp :
ESN_GET.ERT

Ищем код (примерно 620-е строки)

БухИтДФЛ = СоздатьОбъект("БухгалтерскиеИтоги");
БухИтДФЛ.Опции(1, 1);
БухИтДФЛ.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
БухИтДФЛ.ИспользоватьСубконто(ВидыСубконто.ВидыНачисленийВыплат);
Если ИдентКонфигурации = "BASUOR" Тогда
	БухИтДФЛ.ВыполнитьЗапрос(НачалоГода,КонецПериодаОсмотра, "ДФЛ.21,ДФЛ.22",,, 2, "Месяц");
	СчДФЛ_2 = СчетПоКоду("ДФЛ.22"); 
Иначе
	БухИтДФЛ.ВыполнитьЗапрос(НачалоГода,КонецПериодаОсмотра, "ДФЛ.1,ДФЛ.2",,, 2, "Месяц");
	СчДФЛ_2 = СчетПоКоду("ДФЛ.2"); 
КонецЕсли;

БухИт70 = СоздатьОбъект("БухгалтерскиеИтоги"); // для отбора корреспонденций 70-ого счета
БухИт70.ВключатьСубсчета(, -1);
БухИт70.ИспользоватьСубконто(ВидыСубконто.Сотрудники);
БухИт70.ИспользоватьСубконто(ВидыСубконто.ВидыНачисленийВыплат);
БухИт70.ИспользоватьКорСубконто();
БухИт70.ВыполнитьЗапрос(НачалоГода,КонецПериодаОсмотра, "70",,, 2, "Месяц");
Показать


каментим и копируем/переносим его ПЕРЕД строками (примерно N 340)

	// перебираем сотрудников
	Для СчСотров = 1 По ВсегоСотров Цикл


в аттаче готовый файл
Прикрепленные файлы:
ESN_GET.ERT
Ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
2. RayCon 786 20.11.10 03:21 Сейчас в теме
(1) Дмитрий, было бы хорошо выложить данный код не в форуме, а в разделе программ - именно там народ ищет подобное.
3. WWWolfy 132 23.11.10 10:54 Сейчас в теме
Я думаю что 1с поправит это.
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот