Контрольная работа: Разработка автоматизированного рабочего места библиотекаря с помощью среды программирования 1С:Предприятие

Запрос = создатьОбъект("Запрос");

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

|Период С НачДата По КонДата;

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

|Док = Документ.ПотеряКниги.ТекущийДокумент;

|Читатель = Документ.ПотеряКниги.Читатель;

|Книга = Документ.ПотеряКниги.Книга;

|Группировка Книга;

|Условие (Читатель в ВыбрЧитатель);

|Условие (Книга в ВыбрКнига);

|";

Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда

Возврат;

КонецЕсли;

Пока Запрос.Группировка(1)=1 Цикл

Док = Запрос.Док;

тз.НоваяСтрока();

тз.Дата = Док.ДатаДок;

тз.ТипОперации = Док.Вид();

тз.Читатель = Запрос.Читатель;

тз.Книга = Запрос.Книга;

КонецЦикла;

тз.Сортировать("Дата+");

Таб = создатьОбъект("Таблица");

Таб.ВывестиСекцию("Все<");

тз.ВыбратьСтроки();

НомПП = 0;

Пока тз.ПолучитьСтроку()=1 Цикл

НомПП = НомПП + 1;