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

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1С:Бухгалтерия 7.7 Бухгалтерский учет 7.7

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 785 20.11.10 03:21 Сейчас в теме

(1) Дмитрий, было бы хорошо выложить данный код не в форуме, а в разделе программ - именно там народ ищет подобное.

3. WWWolfy 132 23.11.10 10:54 Сейчас в теме

Я думаю что 1с поправит это.

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

E-mail: