Анықтамалық есеп берулер кезіндегі мәліметтерді енгізу үшін немесе құжаттарды толтыру үшін қолданылатын бір типті объектілер. Көбінесе анықтамалықтар болып қызметкерлер, мекемелер, материалдар тізімі болып табылады

1) Бұл жұмыста қандай анықтамалықтар қолданылады?

2) Жұмыстың мақсаты қалай?

3) «Кіріс және шығыс» есебі дегенімізді қалай түсінесің?

4) «Кіріс және шығыс» есебінің экрандық формасын

түсіндіріңіз?

Көрініп тұрғандай, конфигурацияда «Книги» анықтамалығы болуы тиіс. Әр кітаптың ерекше кітапханалық нөмірі (код) бар. Айта кететін жайт, бір туындының бірнеше көшірмесі болуы мүмкін.

Көрініп тұрғандай, конфигурацияда «Читатели» анықтамалығы болуы қажет. Әр оқырманға ерекше нөмірі бар оқырман билеті беріледі.

Бағдарламада келесі оқиғалар тіркелуі керек:

• 
  Кітапханадан кітап оқырманға белгілі бір мерзімге берілуі тиіс;
  
• 
  Кітап берілу мерзімі ұзартылуы тиіс;
  
• 
  Оқырманның кітапты кітапханаға қайтаруы;
  
• 
  Оқырманның кітапты жоғалтып алуы.
  

Кітапхана жұмысының ережелері келесі:

• 
  Оқырман кітапханадан тек белгілі-бір мөлшердегі кітаптарды ғана ала алады (кітап мөлшері кітапхана директорымен бекітіледі);
  
• 
  Оқырман әдетте кітапты бір айға ғана алады, бірақ егер ол алдын-ала айтатын болса, одан ұзақ мерзімге алуына болады;
  
• 
  Оқырман кітапты тапсыру мерзімін ұзарта алады, яғни ол кітапты бекітілген мерзімнен кейінірек әкелетінін хабарласа;
  
• 
  Кітапты әкелу мерзімі өтіп кетсе, оқырман ескерту алады;
  
• 
  Егер оқырманның ескертулері шамадан тыс асып кетсе, ол 1 ай кітапханамен қолдана алмайды;
  
• 
  Кітапты жоғалтып алған жағдайда, оқырман,а ескертулер санына қарамастан, 1 ай кітапханаға келуіне тиым салынады;
  

Бағдарламада белгілі-бір оқырманның дәл сол уақыттағы нақты қарыздарын білуге, яғни оның қолында қандай кітаптар бар және ол оларды қашан қайтару керектігі жайында ақпарат алуына мүмкіншілігі болуы қажет.

Конфигурацияда келесі объектілерді құру қажет:

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

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

КонецЕсли;

КонецЦикла;

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

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

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

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

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

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

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

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

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

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

КонецЕсли;

КонецЕсли;

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

КонецЦикла;

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

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

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

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

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

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

КонецЦикла;

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

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

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

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

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

Есеп жұмысының мысалы:

Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.

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

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

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

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

Сіздерге өз беттеріңізше келесі қосымша функцияларды іске асыруларыңыз ұсынылады:

• 
  Керек кітапты аты, авторы, жанры және басқа да белгілі белгілері бойынша іздеуді;
  
• 
  Штрих-кодтау технологиясы. Әр оқырманға және әр кітапқа ерекше штирх код беріледі. Экрандық формаларда оқырманды таңдау штрих-кодты оқу жолымен жүргізіледі, бағдарлама оқырманды немесе кітапты штрих-коды арқылы іздеп табуы қажет.
  
• 
  Ақшалай есеп. Әр кітаптың белгілі құндылығы бар және кітапхана коммерциялық деп есептейік. Күн сайын оқырман алған кітап директор орнатқан бағамен сәйкетелген бағамен төленуі керек. Кітапты жоғалтқан жағдайда оқырман штраф төлеуі қажет.
  
• 
  Құжаттарды қабылдамау. Құжаттарды өткізуді терістеу кезінде, ол жүйеде жасаған барлы өзгертулер де терістетілуі қажет.
  
• 
  Мүмкін сіз тіркеуді тек анықтамалық пен құжаттарда ғана емес, регистрде де іске асырғыңыз келетін шығар;
  
• 
  Кәдімгі кітапхананың жұмысы үшін қажет деп ойлайтын басқа да қосымща функцияларды да қосуыңызға болады.
  

1) Бұл жұмыста қандай анықтамалықтар қолданылады?

2) Құжат дегеніміз не?

3) Регистр дегеніміз не?

Жүйе тауар қалдықтарын есептеуі қажет, клиент тапсырысын қабылдап және тасушылар үшін жол парақтарын құрастыру.

Конфигурацияда келесі объектілерді құру қажет:

Объекттер типі	Объекттер
Анықтамалықтар	Клиенты Товары Курьеры Районы
Құжаттар	ПриходТовара Заказ СнятиеЗаказа ПутевойЛист ОтчетКурьера
Регистрлер	Регистр Измерения Ресурсы Остатки (регистр остатков) Товар Количество Заказы (регистр остатков) Товар Клиент Заказ Цена ДатаДоставки Количество Сумма Доставка (регистр остатков) (хранит доставляемые в данный момент товары) Товар Клиент Заказ Цена ДатаДоставки Количество Сумма Доходы (оборотный регистр) Товар Клиент Доход
Есеп берулер	Товары Сводная таблица

Дүкеннің тапсырыс қабылдайтын аумағы райондарға бөлінеді. Клиентті тіркеу кезінде оның аты көрсетіледі / ФИО, адрес, телефон және район. «Курьеры» анықтамалығында тасушылардың аты-жөндері тізбектелген немесе сатып алушыларға тауарларын тасудағы мобильдік отрядтардың аттары тізбектелген. «Товары» анықтамалығы иерархиялық болып табылады және 3 деңгейден тұрады, яғни тауарлар топқа біріктірілуі мүмкін. Тауардың клиенттерге сатылатын бағалары көрсетіледі.

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

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

Регистр.Остатки.Товар = Товар;

КонецЦикла;

КонецПроцедуры
Тапсырыс құжаты

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

Құжатты өткізу барысында «Заказы» регистрінде қозғалыс жүргізіледі:

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

Регистр.Заказы.Товар = Товар;

КонецЦикла;

КонецПроцедуры
Тапсырысты алып тастау құжаты

Құжат алдында жасалған тапсырысты алып тастау үшін жасалынған. Алдында тапсырыс жасалған тауар мөлшерін азайтуға болады. Құжаттың экрандық формасы келесідей болады:

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

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

Если Количество > 0 Тогда

Регистр.Заказы.Товар = Товар;
Регистр.Заказы.Клиент = Клиент;
Регистр.Заказы.ДатаДоставки = ДатаДоставки;
Регистр.Заказы.Заказ = Заказ;
Регистр.Заказы.Цена = Цена;
Регистр.Заказы.Количество = Количество;
Регистр.Заказы.Сумма = Сумма;
Регистр.Заказы.ДвижениеРасходВыполнить();

КонецЕсли;

КонецЦикла;

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

Берілген құжат сатып алушыға тауарды жеткізіп салатын тасушыға тапсырма болып табылады. Құжаттың экрандық формасы келесідегідей болады:

Осыдан кейін жол парағы басып шығарылады да өткізіледі. Басып шығарылған жол парағы келесідей болады:

Құжатты өткізу барысында «Остатки и Доставка» регистрінде қозғалыс жүргізіледі:

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

//доставляемые товары

//уменьшаются остатки по данному товару

КонецЦикла;

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

Тасушы есебі

Берілген құжат тасушының жол парағы бойынша жүрген жол нәтижесін көрсетеді. Жеткізілген тауарлар мөлшері белгіленеді. Құжаттың экрандық формасы келесідей болады:

Құжатты өткізу барысында регистрлерде қосғалыстар жүргізіледі:

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

Если Доставлено > 0 Тогда

Регистр.Доставка.Товар = Товар;
Регистр.Доставка.Клиент = Клиент;
Регистр.Доставка.Цена = Цена;
Регистр.Доставка.Заказ = Заказ;
Регистр.Доставка.ДатаДоставки = ДатаДоставки;
Регистр.Доставка.Количество = Доставлено;
Регистр.Доставка.Сумма = Сумма;
Регистр.Доставка.ДвижениеРасходВыполнить();

Регистр.Заказы.Товар = Товар;

Регистр.Доходы.Товар = Товар;

КонецЕсли;

Если Фл_ВозвратОстатков=1 Тогда

Если Доставлено < Заказано Тогда

Регистр.Доставка.Товар = Товар;
Регистр.Доставка.Клиент = Клиент;
Регистр.Доставка.Цена = Цена;
Регистр.Доставка.Заказ = Заказ;
Регистр.Доставка.ДатаДоставки = ДатаДоставки;
Регистр.Доставка.Количество = Доставлено;
Регистр.Доставка.Сумма = Сумма;
Регистр.Доставка.ДвижениеРасходВыполнить();

Регистр.Остатки.Товар = Товар;

КонецЕсли;

КонецЕсли;

КонецЦикла;

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

«Тауарлар» есебі

Берілген есеп сол уақыттағы тауарлар бойынша суретті көрсетеді және көрсетілген болашақтағы уақыт мерзіміне жетіспейтін тауарларды бағалайды. Есеп диалогінің экрандық формасы келесідей болады:

Жетіспеушілік келесі формуламен анықталады:

Дефицит = (Заказано - Доставляется) - Остаток;
Бақылау сұрақтары:

1) Бұл жұмыста қандай анықтамалықтар қолданылады?

2) Жұмыста қандай регистрлер қолданылды?

3) Экрандық форма дегенімізді қалай түсінесің?