Ќазаќстан Республикасыныњ бiлiм жєне ѓылым министрлiгi


«Книги» (форма списка) анықтамалығы



жүктеу 1,77 Mb.
бет15/17
Дата24.12.2017
өлшемі1,77 Mb.
#5633
1   ...   9   10   11   12   13   14   15   16   17

«Книги» (форма списка) анықтамалығы

«Книги» анықтамалығының экрандық формасы келесі түрде болуы қажет:



Сурет 61 –«Произведения» анықтамалығының кестелік формасы

«Выдача книги» құжаты

Құжаттың экрандық формасы келесідегідей болады:



Сурет 62 –«Выдача книги» анықтамалығының кестелік формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу модулі:

Процедура ОбработкаПроведения()

СпрКниги = создатьОбъект("Справочник.Книги");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл

СпрКниги.НайтиЭлемент(Книга);


СпрКниги.Статус = Перечисление.СтатусКниги.Выдана;
СпрКниги.Читатель = Читатель;
СпрКниги.ДатаВыдачи = ДатаДок;
СпрКниги.СрокВозврата = СрокВозврата;
СпрКниги.Записать();

КонецЦикла;

КонецПроцедуры
«Продление книги» құжаты

Құжаттың экрандық формасы келесідегідей болады:



Сурет 63 –«Продление книги» құжатының кестелік формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу модулі:

Процедура ОбработкаПроведения()

СпрКниги = создатьОбъект("Справочник.Книги");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл

Если Число(НовыйСрокВозврата)<>0 Тогда

СпрКниги.НайтиЭлемент(Книга);
СпрКниги.СрокВозврата = НовыйСрокВозврата;
СпрКниги.Записать();

КонецЕсли;

КонецЦикла;

КонецПроцедуры


«Возврат книги» құжаты

Құжаттың экрандық формасы келесідегідей болады:



Сурет 64 –«Возврат книги» құжатының кестелік формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу формасы:

Процедура ОбработкаПроведения()

СпрКниги = создатьОбъект("Справочник.Книги");
СпрЧитатели = СоздатьОбъект("Справочник.Читатели");

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


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

СпрКниги.НайтиЭлемент(Книга);

Если СпрКниги.СрокВозврата < ДатаДок Тогда

СпрЧитатели.НайтиЭлемент(Читатель);


СпрЧитатели.КоличествоПредупреждений = СпрЧитатели.КоличествоПредупреждений + 1;
СпрЧитатели.Записать();

Если СпрЧитатели.КоличествоПредупреждений > Константа.МаксКолвоПредупреждений Тогда

УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Да, ДатаДок);
УстановитьРеквизитСправочника(Читатель, "Блокирован",Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);

КонецЕсли;

КонецЕсли;

СпрКниги.Статус = Перечисление.СтатусКниги.Свободна;


СпрКниги.Читатель = 0;
СпрКниги.ДатаВыдачи = 0;
СпрКниги.СрокВозврата = 0;
СпрКниги.Записать();

КонецЦикла;

КонецПроцедуры
«Потеря книги» құжаты

Құжаттың экрандық формасы келесідегідей болады:



Сурет 65 –«Потеря книги» құжатының экрандық формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу модулі:

Процедура ОбработкаПроведения()

СпрКниги = создатьОбъект("Справочник.Книги");

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


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

СпрКниги.НайтиЭлемент(Книга);


СпрКниги.Статус = Перечисление.СтатусКниги.Списана;
СпрКниги.Читатель = 0;
СпрКниги.ДатаВыдачи = 0;
СпрКниги.СрокВозврата = 0;
СпрКниги.Записать();

КонецЦикла;

УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Да, ДатаДок);
УстановитьРеквизитСправочника(Читатель, "Блокирован", Перечисление.ДаНет.Нет, ДатаДок + Константа.КолвоДнейБлокировки);

КонецПроцедуры


«Библиотечная выписка» есебі

Есеп диалогінің экрандық формасы келесідей болады:



Сурет 66 –«Библиотечная выписка» құжатының экрандық формасы

Есептің жұмыс жасау мысалы:



Сурет 67 –«Библиотечная выписка» құжатының соңғы экрандық формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
жүктеу 1,77 Mb.

Достарыңызбен бөлісу:
1   ...   9   10   11   12   13   14   15   16   17




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау