дений! Raquo;);
. НеПроводітьДокумент ();
. Повернення;
. ІначеЕслі Пустоезначеніе (Номер_акта)=1 тоді
. Повідомити ( Виберіть номер акту! Документ не проведений! Raquo;);
. НеПроводітьДокумент ();
. Повернення;
. ІначеЕслі КолічествоСтрок () lt; gt; 1 тоді
. Повідомити ( Предмет рахунку може бути тільки один! Документ не проведений! Raquo;);
. НеПроводітьДокумент ();
. Повернення;
. КонецЕсли;
. Регістр.Продажа.Прівязиватьстроку (1);
. Вибратьстрокі ();
. Поки Получітьстроку ()=1 Цикл
. Регістр.Продажа.Цена=Ціна;
. Регістр.Продажа.ДвіженіеПріходВиполніть ();
. КонецЦікла;
. КонецПроцедури
Додаток 3
Звіт за укладеними договорами за період (Статистика).
Рис. 24 Зовнішній вигляд друкованої форми звіту.
Код модуля
1.// Процедура генерації запиту Сформувати.
2. Процедура Сформувати ()
3. Перем Запит, ТекстЗапроса, Таб;
. якщо пустоезначеніе (ВибНачПеріода)=1 тоді
. повідомити ( Виберете початкову дату формування звіту! );
. повернення;
. КонецЕсли;
. якщо пустоезначеніе (ВибКонПеріода)=1 тоді
. повідомити ( Виберете кінцеву дату формування звіту! );
. повернення;
. КонецЕсли;
. якщо (ВибКонПеріода) lt; (ВибНачПеріода) тоді
. повідомити ( неправельную діапазон дат! );
. повернення;
. КонецЕсли;
.// Створення об'єкта типу Запит
. Запит=СоздатьОб'ект ( Запит );
. ТекстЗапроса=
. "//{{ЗАПИТ (Сформувати)
. | Період з ВибНачПеріода по ВибКонПеріода;
. | Обробляти НеПомеченниеНаУдаленіе;
. | Договір=Документ.Договор.ТекущійДокумент;
. | Номер_дог=Документ.Договор.Номер_дог;
. | ДатаДок=Документ.Договор.ДатаДок;
. | Функція ДоговорЦена_договораСумма=Сума (Договор.Цена_договора);
. | Угруповання Договір впорядкувати по Договор.Курорт, Договор.Номер_дог, Договор.ДатаДок без груп все ВошедшіеВЗапрос;
. |" //}} ЗАПИТ
. ;
.// Якщо помилка в запиті, то вихід з процедури
. Якщо Запрос.Виполніть (ТекстЗапроса)=0 Тоді
. Повернення;
. КонецЕсли;
.// Підготовка до заповнення вихідних форм даними запиту
. Таб=СоздатьОб'ект ( Таблиця );
. Таб.ІсходнаяТабліца ( Сформувати );
.// Заповнення полів Тема
. Таб.ВивестіСекцію ( Тема );
. Стан ( Заповнення вихідний таблиці ... );
. Таб.Опціі (0, 0, Таб.ВисотаТабліци (), 0);
. Поки Запрос.Группіровка (1)=1 Цикл
.// Заповнення полів Договір
. Таб.ВивестіСекцію ( Договір );
. КонецЦікла;
.// Заповнення полів Разом
. Таб.ВивестіСекцію ( Разом );
.// Висновок заповненої форми
. Таб.ТолькоПросмотр (1);
. Таб.Показать ( Сформувати raquo ;, );
. КонецПроцедури
Суми укладених договорів (Звіт по клієнтах)
Рис. 25 Зовнішній вигляд друкованої форми звіту
Код модуля
1. Процедура відкриття ()
2. ВТіп=Перечісленіе.Тіп_кліента.Фіз_ліцо;
. КонецПроцедури
. Процедура ВалідаціяДат ()
. Якщо ВибНачПеріода gt; ВибКонПеріода Тоді
. ВибКонПеріода=ВибНачПеріода;
. ІначеЕслі ВибНачПеріода lt; ТекущаяДата () тоді
