- •Лабораторная работа № 1
- •1. Подготовка к созданию информационной базы
- •2. Создание справочников
- •3. Создание субконто
- •5. Создание перечислений
- •6.Работа с планом счетов
- •Лабораторная работа №2
- •КонецПроцедуры
- •Лабораторная работа № 3
- •1. Настройка журнала операций.
- •2. Создание отчета «Карточка счета» на основе журнала операций
- •24.2. Добавление флага ФлСкидка.
- •24.3. Добавление кнопки.
- •24.4. Редактирование модуля формы.
- •КонецФункции
- •4. Использование закладок и слоев в документе
- •5. Создание пользовательских интерфейсов
- •5. Создание резервной копии и восстановление данных
- •Самостоятельная работа №1 Тема. Настройка конфигурации задачи «Простейший кадровый учет»
- •Самостоятельная работа № 2 Тема: Настройка конфигурации учета в библиотеке
- •1. Создать справочники:
- •3. Создать документы:
- •3.1. Документ «Выдача книги»
- •4.1. Отчет «Библиотечная выписка»
- •4.2. Отчет «Долги читателя»
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; СпрКниги.Записать();
КонецЦикла; УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Да, ДатаДок); УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);
КонецПроцедуры
Сформировать отчеты.