3.
homer_
79
10.04.13 14:52
Сейчас в теме
Обработка не доделана, пришлось допилить.
ТекстЗапроса = "ВЫБРАТЬ
| СчетФактураВыданный.Ссылка КАК Док,
| СчетФактураВыданный.Контрагент
|ИЗ
| Документ.СчетФактураВыданный КАК СчетФактураВыданный
|ГДЕ
| СчетФактураВыданный.Дата МЕЖДУ &НачПериода И &КонПериода
| И НЕ СчетФактураВыданный.Выставлен
| И СчетФактураВыданный.ВидСчетаФактуры = &ВидСчетаФактуры
| И СчетФактураВыданный.Организация = &Организация
| И СчетФактураВыданный.Проведен";
Запрос = Новый Запрос(ТекстЗапроса);
Запрос.УстановитьПараметр("НачПериода", НачалоДня(НачПериода));
Запрос.УстановитьПараметр("КонПериода", КонецДня(КонПериода));
Запрос.УстановитьПараметр("ВидСчетаФактуры",ВидСчетаФактуры);
Запрос.УстановитьПараметр("Организация",Организация);
СчетчикДокументов = 0;
ТабДок = Запрос.Выполнить().Выгрузить();
мКол = ТабДок.Количество();
НачатьТранзакцию();
Для Каждого тзДокументы Из ТабДок Цикл
ОбработкаПрерыванияПользователя();
ДокСФ = тзДокументы.Док.ПолучитьОбъект();
ДокСФ.Выставлен = Истина;
ДокСФ.ДатаВыставления = ДокСФ.Дата;
ДокСФ.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
СчетчикДокументов = СчетчикДокументов + 1;
Состояние("Обрабатываем: " + тзДокументы.Док + "; " + СчетчикДокументов + " из " + мКол);
Если СчетчикДокументов % 100 = 0 Тогда
ЗафиксироватьТранзакцию();
НачатьТранзакцию();
КонецЕсли;
КонецЦикла;
ЗафиксироватьТранзакцию();