Разработка автоматизированного рабочего места библиотекаря с помощью среды программирования 1С:Предприятие
Контрольная работа - Компьютеры, программирование
Другие контрольные работы по предмету Компьютеры, программирование
?д С НачДата По КонДата;
|ОбрабатыватьДокументы Проведенные;
|Док =
Документ.ПродлениеКниги.Текущий//*******************************************
Процедура Сформировать()
тз = создатьОбъект("ТаблицаЗначений");
тз.НоваяКолонка("Дата");
тз.НоваяКолонка("ТипОперации");
тз.НоваяКолонка("Читатель");
тз.НоваяКолонка("Книга");
тз.НоваяКолонка("СрокВозврата");
//---------------------
//Документы ВыдачаКниги
//---------------------
Запрос = создатьОбъект("Запрос");
ТекстЗапроса = "
|Период С НачДата По КонДата;
|ОбрабатыватьДокументы Проведенные;
|Док = Документ.ВыдачаКниги.ТекущийДокумент;
|Читатель = Документ.ВыдачаКниги.Читатель;
|Книга = Документ.ВыдачаКниги.Книга;
|СрокВозврата = Документ.ВыдачаКниги.СрокВозврата;
|Группировка Книга;
|Условие (Читатель в ВыбрЧитатель);
|Условие (Книга в ВыбрКнига);
|";
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1)=1 Цикл
Док = Запрос.Док;
тз.НоваяСтрока();
тз.Дата = Док.ДатаДок;
тз.ТипОперации = Док.Вид();
тз.Читатель = Запрос.Читатель;
тз.Книга = Запрос.Книга;
тз.СрокВозврата = Запрос.СрокВозврата;
КонецЦикла;
Документ;
|Читатель = Документ.ПродлениеКниги.Читатель;
|Книга = Документ.ПродлениеКниги.Книга;
|НовыйСрокВозврата =
Документ.ПродлениеКниги.НовыйСрокВозврата;
|Группировка Книга;
|Условие (Читатель в ВыбрЧитатель);
|Условие (Книга в ВыбрКнига);
|";
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1)=1 Цикл
Док = Запрос.Док;
тз.НоваяСтрока();
тз.Дата = Док.ДатаДок;
тз.ТипОперации = Док.Вид();
тз.Читатель = Запрос.Читатель;
тз.Книга = Запрос.Книга;
тз.СрокВозврата = Запрос.НовыйСрокВозврата;
КонецЦикла;
//---------------------
//Документы ВозвратКниги
//---------------------
Запрос = создатьОбъект("Запрос");
ТекстЗапроса = "
|Период С НачДата По КонДата;
|ОбрабатыватьДокументы Проведенные;
|Док = Документ.ВозвратКниги.ТекущийДокумент;
|Читатель = Документ.ВозвратКниги.Читатель;
|Книга = Документ.ВозвратКниги.Книга;
|Группировка Книга;
|Условие (Читатель в ВыбрЧитатель);
|Условие (Книга в ВыбрКнига);
|";
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1)=1 Цикл
Док = Запрос.Док;
тз.НоваяСтрока();
тз.Дата = Док.ДатаДок;
тз.ТипОперации = Док.Вид();
тз.Читатель = Запрос.Читатель;
тз.Книга = Запрос.Книга;
КонецЦикла;
//---------------------
//Документы ПотеряКниги
//---------------------
Запрос = создатьОбъект("Запрос");
ТекстЗапроса = "
|Период С НачДата По КонДата;
|ОбрабатыватьДокументы Проведенные;
|Док = Документ.ПотеряКниги.ТекущийДокумент;
|Читатель = Документ.ПотеряКниги.Читатель;
|Книга = Документ.ПотеряКниги.Книга;
|Группировка Книга;
|Условие (Читатель в ВыбрЧитатель);
|Условие (Книга в ВыбрКнига);
|";
Если Запрос.Выполнить(ТекстЗапроса)=0 Тогда
Возврат;
КонецЕсли;
Пока Запрос.Группировка(1)=1 Цикл
Док = Запрос.Док;
тз.НоваяСтрока();
тз.Дата = Док.ДатаДок;
тз.ТипОперации = Док.Вид();
тз.Читатель = Запрос.Читатель;
тз.Книга = Запрос.Книга;
КонецЦикла;
тз.Сортировать("Дата+");
Таб = создатьОбъект("Таблица");
Таб.ВывестиСекцию("Все<");
тз.ВыбратьСтроки();
НомПП = 0;
Пока тз.ПолучитьСтроку()=1 Цикл
НомПП = НомПП + 1;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Таб.ВывестиСекцию("Все>");
Таб.Опции(0);
Таб.Показать();
КонецПроцедуры
НачДата = НачМесяца(РабочаяДата());
КонДата = КонМесяца(РабочаяДата());
Долги читателя
//*******************************************
Процедура Сформировать()
Таб = создатьОбъект("Таблица");
Таб.ВывестиСекцию("Все<");
НомПП = 0;
СпрКниги = создатьОбъект("Справочник.Книги");
СпрКниги.ВыбратьЭлементыПоРеквизиту("Читатель",ВыбрЧитатель,0,0);
Пока СпрКниги.ПолучитьЭлемент()=1 Цикл
НомПП = НомПП + 1;
Таб.ВывестиСекцию("Книга");
КонецЦикла;
Таб.ВывестиСекцию("Все>");
Таб.Показать();
КонецПроцедуры