Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Құжаттың экрандық формасы келесідегідей болады:
Сурет 65 –«Потеря книги» құжатының экрандық формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу модулі:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга);
СпрКниги.Статус = Перечисление.СтатусКниги.Списана;
СпрКниги.Читатель = 0;
СпрКниги.ДатаВыдачи = 0;
СпрКниги.СрокВозврата = 0;
СпрКниги.Записать();
КонецЦикла;
УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Да, ДатаДок);
УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);
КонецПроцедуры
Дата публикования: 2014-10-20; Прочитано: 334 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!