yliy

Подскажите. Вот код отчета, как сделать чтоб помеченные на удаление контрагенты не выводились, как использовать в данном случае метод ПометкаУдаления() и к чему его привязать

Процедура Сформировать()

Т=СоздатьОбъект("Таблица");
Т.ВывестиСекцию("Шапка");
Ит = СоздатьОбъект("БухгалтерскиеИтоги");

Если ФлагК=1 Тогда
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1,1);
Ит.ВыполнитьЗапрос(НачДата,КонДата,СчетПоКоду("60.01.3"),,,,,);

ИначеЕсли ФлагК=2 Тогда
Ит.ИспользоватьСубконто(ВидыСубконто.Контрагенты,,1,1);
Ит.ВыполнитьЗапрос(НачДата,КонДата,СчетПоКоду("79.11.3"),,,,,);
ИначеЕсли ФлагК=3 Тогда
Ит.ИспользоватьСубконто(ВидыСубконто.ОС,,1,1);
ФильтрСчетов="41.03.5,41.04.3";
Ит.ВыполнитьЗапрос(НачДата,КонДата,ФильтрСчетов,,,,,);
КонецЕсли;


Ит.ВыбратьСубконто(1);
Сум_П_=0;Сум_Р_=0;
Н1_=0;Н2_=0;К1_=0;К2_=0;

Пока Ит.ПолучитьСубконто(1)=1 Цикл
Агент=Ит.Субконто(1);


Н2=Ит.СНК(1);
Н1=Ит.СНД(1);
К2=Ит.СКК(1);
К1=Ит.СКД(1);
Сум_П=Ит.ДО(1);
Сум_Р=Ит.КО(1);

Если Агент.ЭтоГруппа()=0 Тогда
Т.ВывестиСекцию("Строка");
Сум_П_=Сум_П_+Сум_П;
Сум_Р_=Сум_Р_+Сум_Р;
К1_=К1_+К1;
К2_=К2_+К2;
Н1_=Н1_+Н1;
Н2_=Н2_+Н2;
Иначе
Т.ВывестиСекцию("Группа");
КонецЕсли;

КонецЦикла;
КонецЕсли;
Т.ВывестиСекцию("Итоги");
Т.Показать();
КонецПроцедуры
НачДата=НачМесяца(ТекущаяДата());
КонДата=КонМесяца(ТекущаяДата());
ФлагК=1;
ФлагС=1;