ign="justify"> Таб.ІсходнаяТабліца ( Таблица1 );
//Заповнення полів Тема
Ум= raquo ;;
Якщо ПустоеЗначеніе (ВибПредпріятіе)=0 Тоді
Ум=Ум + За підрозділу: + ВибПредпріятіе + . raquo ;;
КонецЕсли;
Якщо ПустоеЗначеніе (ВибПоставщік)=0 Тоді
Ум=Ум + За постачальнику: + ВибПоставщік + . raquo ;;
КонецЕсли;
Якщо ПустоеЗначеніе (ВибТовар)=0 Тоді
Ум=Ум + За товарах: + ВибТовар + . raquo ;;
КонецЕсли;
Таб.ВивестіСекцію ( Тема );
Стан ( Заповнення вихідний таблиці ... );
Ном=0;
Поки Запрос.Группіровка ( Товар )=1 Цикл
Якщо Запрос.ЕтоГруппа ( Товар )=1 Тоді
Таб.ВивестіСекцію ( ГрТовар );
Інакше
Якщо Запрос.Продано lt; gt; 0 Тоді Продовжити; КонецЕсли;
Якщо Запрос.КолРасход lt; gt; 0 Тоді Продовжити; КонецЕсли;
Ном=Ном + 1;
Якщо Ном% 50=0 Тоді
Стан ( Опрацьовано рядків + Ном);
КонецЕсли;
ЦенаЗ=Запрос.Товар.ЦенаЗакуп;
ЦЕНАР=Запрос.Товар.ЦенаРозн;
Таб.ВивестіСекцію ( Товар1 );
КонецЕсли;
КонецЦікла;
//Заповнення полів Разом
Таб.ВивестіСекцію ( Разом );
//Висновок заповненої форми
Таб.Опціі (0, 0, 3, 0, laquo;НулеваяРеализацияraquo;,laquo;НулеваяРеализацияraquo;);
Таб.ТолькоПросмотр (1);
Таб.Показать ( НулеваяРеалізація: + ВибПредпріятіе, );
КонецПроцедури
Додаток В
Лістинг програмної реалізації звіту «Пакетна друк інвентаризацій»
Процедура Сформувати ()
таб=СоздатьОб'ект ( Таблиця );
Таб.Опции(0,0,0,0,laquo;ВедомостьСнятияОстатковraquo;,"ВедомостьСнятияОста
тков" );
ДОК=создатьобъект(laquo;Документ.инвентаризацияraquo;);
док.вибратьДокументи (вибдата, вибдата1);
поки док.получітьДокумент ()=1 цикл
якщо док.проведен ()=1 тоді продовжити; КонецЕсли;
якщо док.пометкаудаленія ()=1 тоді продовжити; КонецЕсли;
якщо пустоезначеніе (вибагент)=0 тоді
якщо док.агент lt; gt; вибагент тоді продовжити; КонецЕсли;
КонецЕсли;
якщо (начліст gt; число (док.ліст)) або (Конліст lt; число (док.ліст)) тоді
продовжити; КонецЕсли;
для я=1 по екз цикл
таб.вивестісекцію ( шапкаІнв );
Ном=0;
док.вибратьСтрокі ();
поки док.получітьстроку ()=1 цикл
Ном=Ном + 1;
таб.вивестісекцію ( Рядок );
Якщо Ном% 2=0 Тоді
ОблТаб=Таб.Область(Таб.ВысотаТаблицы(),1,Таб.ВысотаТаблицы(),7);
ОблТаб.РамкаСнізу (7);
КонецЕсли;
конеццікла;
таб.вивестісекцію ( Підсумок );
таб.вивестісекцію ( Підвал );
таб.новаястраніца ();
конеццікла;
конеццікла;
таб.показать ();
КонецПроцедури
вибдата=рабочаядата ();
начліст=1;
конліст=1;
прим=2;
