Реферат Автоматизація товарного обліку продукції Zepter

. повернення;

. КонецЕсли;

. якщо пустоезначеніе (кондата)=1 тоді

. попередження ( Виберете кінцеву дату формування звіту! );

. повернення;

. КонецЕсли;

. якщо (кондата) lt; (начдата) тоді

. попередження ( неправельную діапазон дат! );

. повернення;

. КонецЕсли;

. ДатаТА=ПолучітьДатуТА ();

. якщо кондата gt; ДатаТА тоді

. попередження ( Кінцева дата запиту більше дати актуальності підсумків );

. повернення;

. КонецЕсли;

. запр=СоздатьОб'ект ( запит );

. текстзапроса="

. | період з начдата по кондата;

. | товар=регістр.Поступленіетовара.товар;

. | кількість=регістр.Поступленіетовара.колічество;

. | функція коностк=коност (кількість);

. | угруповання кількість без груп;

. | угруповання товар без груп;

. |" ;

. Якщо ПустоеЗначеніе (Вибтовар)=0 Тоді

. ТекстЗапроса=ТекстЗапроса +" Умова (товар=Вибтовар);

. |" ;

. КонецЕсли;

. Якщо пустоезначеніе (Вибтов)=0 Тоді

. ТекстЗапроса=ТекстЗапроса +"

. | умова (Товар=вибтов);" ;

. КонецЕсли;

. запр.виполніть (текстзапроса);

. Таб=СоздатьОб'ект ( Таблиця );

. Таб.ІсходнаяТабліца ( Таблиця );

. Таб.ВивестіСекцію ( Шапка );

. Таб.Опціі (0,0, Таб.ВисотаТабліци (), 0);

. Поки запр.группіровка (1)=1 Цикл

. Поки запр.группіровка (2)=1 Цикл

. товв=запр.товар;

. колл=запр.коностк;

. Таб.ВивестіСекцію ( Рядок );

. КонецЦікла;

. КонецЦікла;

. Таб.ВивестіСекцію ( Підвал );

. Таб.ТолькоПросмотр (1);

. Таб.Показать ( Залишки товару , );

. КонецПроцедури