|
//*******************************************
Процедура Сформировать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Сформировать");
Таб.ВывестиСекцию("Шапка1");
док=СоздатьОбъект("Документ.СчетФактураВыданный");
док.ВыбратьДокументы(НачДата,КонДата);
Пока Док.ПолучитьДокумент()=1 Цикл
ДокОснов=Док.ДокументОснование;
Если Док.УчитыватьНДС <> 1 Тогда
Таб.ВывестиСекцию("Строка");
КонецЕсли;
КонецЦикла;
Таб.Опции(0,0,0,0);
Таб.ТолькоПросмотр(1);
Таб.Показать("Сформировать","");
КонецПроцедуры |
|