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

Цікла;

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

Звіт. Звіт продажів

Форма діалогу

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

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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

. | ОбрабативатьДокументи Проведені;

. | док=документ.Продажа.текущійдокумент;

. | Товар=документ.Продажа.Товар;

. | код=документ.Продажа.номерстрокі;

. | кількість=документ.Продажа.колічество;

. | ціна=документ.Продажа.цена;

. | сума=документ.Продажа.сумма;

. | функція кондата=коност (сума);

. | ФУНКЦІЯ колич=коност (кількість);

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

. | угруповання код;

. | угруповання док;" ;

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

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

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

. КонецЕсли;

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

. Якщо Запр.Виполніть (ТекстЗапроса)=0 Тоді

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

. КонецЕсли;

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

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

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

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

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

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

. кол=запр.коліч;

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

. ціна=запр.цена;

. сум=запр.сумма;

. Таб.ВивестіСекцію ( строка_1 );

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

. д=запр.док;

. Таб.ВивестіСекцію ( строка_2 );

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

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

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

. суміт= + запр.Кондата + laquo ;: ;

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

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

. Таб.Показать ( Звіт з продажу , );

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

Звіт. Замовлення

Форма діалогу

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

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

. КонецЕсли;

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

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

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

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

. КонецЕсли;

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

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

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