1. Создать справочники:
Справочник "Произведения" (форма элемента)
Экранная форма элемента справочника должна выглядеть следующим образом:
Рисунок 2.1 - Экранная форма справочника Произведения.
Справочник "Книги" (форма списка)
Экранная форма списка справочника Книги должна выглядеть следующим образом:
Рисунок 2.2 - Экранная форма справочника «Книги».
2. В произвольной форме создать все остальные справочники.
3. Создать документы:
3.1. Документ «Выдача книги»
Экранная форма документа выглядит следующим образом:
Рисунок 2.3- Образец экранной формы «Выдача книги».
Разработать модуль печатной формы документа.
Сформировать модуль проведения:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга); СпрКниги.Статус = Перечисление.СтатусКниги.Выдана; СпрКниги.Читатель = Читатель; СпрКниги.ДатаВыдачи = ДатаДок; СпрКниги.СрокВозврата = СрокВозврата; СпрКниги.Записать();
КонецЦикла;
КонецПроцедуры
Документ «Продление книги»
Рисунок 2.4 - Образец экранной формы документа «Продление книги».
Создать модуль печатной формы документа.
Сформировать модуль проведения:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл
Если Число(НовыйСрокВозврата)<>0 Тогда
СпрКниги.НайтиЭлемент(Книга); СпрКниги.СрокВозврата = НовыйСрокВозврата; СпрКниги.Записать();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
3.3. Документ «Возврат книги» Экранная форма документа выглядит следующим образом:
Рисунок 2.5 - Экранная форма документа «Возврат книги».
Разработать модуль печатной формы документа.
Сформировать модуль проведения:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги"); СпрЧитатели = СоздатьОбъект("Справочник.Читатели"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга); Если СпрКниги.СрокВозврата < ДатаДок Тогда
СпрЧитатели.НайтиЭлемент(Читатель); СпрЧитатели.КоличествоПредупреждений = СпрЧитатели.КоличествоПредупреждений + 1; СпрЧитатели.Записать(); Если СпрЧитатели.КоличествоПредупреждений > Константа.МаксКолвоПредупреждений Тогда
УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Да, ДатаДок); УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);
КонецЕсли;
КонецЕсли; СпрКниги.Статус = Перечисление.СтатусКниги.Свободна; СпрКниги.Читатель = 0; СпрКниги.ДатаВыдачи = 0; СпрКниги.СрокВозврата = 0; СпрКниги.Записать();
КонецЦикла;
КонецПроцедуры
3.4. Документ «Потеря книги» Экранная форма документа выглядит следующим образом:
Рисунок 2.6. Экранная форма документа «Потеря книги».
Разработать модуль печатной формы документа.
Сформировать модуль проведения:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги"); ВыбратьСтроки(); Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга); СпрКниги.Статус = Перечисление.СтатусКниги.Списана; СпрКниги.Читатель = 0; СпрКниги.ДатаВыдачи = 0; СпрКниги.СрокВозврата = 0; СпрКниги.Записать();
КонецЦикла; УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Да, ДатаДок); УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);
КонецПроцедуры
Сформировать отчеты.