«Долги читателя» есебі
Есеп диалогінің экрандық формасы келесідей болады:
Сурет 68 –«Долги читателя» есебінің формасы
Есеп жұмысының мысалы:
Сурет 69 –«Долги читателя» есебінің соңғы экрандық формасы
Форманың модулін «Мини-библиотека» конфигурациясынан қараңыз.
Өткізу формасы:
Процедура ОбработкаПроведения()
СпрКниги = создатьОбъект("Справочник.Книги");
СпрЧитатели = СоздатьОбъект("Справочник.Читатели");
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
СпрКниги.НайтиЭлемент(Книга);
Тапсырмалар
Сіздерге өз беттеріңізше келесі қосымша функцияларды іске асыруларыңыз ұсынылады:
Керек кітапты аты, авторы, жанры және басқа да белгілі белгілері бойынша іздеуді;
Штрих-кодтау технологиясы. Әр оқырманға және әр кітапқа ерекше штирх код беріледі. Экрандық формаларда оқырманды таңдау штрих-кодты оқу жолымен жүргізіледі, бағдарлама оқырманды немесе кітапты штрих-коды арқылы іздеп табуы қажет.
Ақшалай есеп. Әр кітаптың белгілі құндылығы бар және кітапхана коммерциялық деп есептейік. Күн сайын оқырман алған кітап директор орнатқан бағамен сәйкетелген бағамен төленуі керек. Кітапты жоғалтқан жағдайда оқырман штраф төлеуі қажет.
Құжаттарды қабылдамау. Құжаттарды өткізуді терістеу кезінде, ол жүйеде жасаған барлы өзгертулер де терістетілуі қажет.
Мүмкін сіз тіркеуді тек анықтамалық пен құжаттарда ғана емес, регистрде де іске асырғыңыз келетін шығар;
Кәдімгі кітапхананың жұмысы үшін қажет деп ойлайтын басқа да қосымща функцияларды да қосуыңызға болады.
Бақылау сұрақтары:
1) Бұл жұмыста қандай анықтамалықтар қолданылады?
2) Құжат дегеніміз не?
3) Регистр дегеніміз не?
Практикалық жұмыс №7. Дүкен жүйесі
Мақсаты: Үйге алып келетін дүкен үшін оңай тіркеу жүйесін құру керек.
Жүйе тауар қалдықтарын есептеуі қажет, клиент тапсырысын қабылдап және тасушылар үшін жол парақтарын құрастыру.
Конфигурация объектілері
Конфигурацияда келесі объектілерді құру қажет:
Объекттер типі
|
Объекттер
|
Анықтамалықтар
|
Клиенты
Товары
Курьеры
Районы
|
|
Құжаттар
|
ПриходТовара
Заказ
СнятиеЗаказа
ПутевойЛист
ОтчетКурьера
|
Регистрлер
|
Регистр
|
Измерения
|
Ресурсы
|
Остатки (регистр остатков)
|
Товар
|
Количество
|
Заказы (регистр остатков)
|
Товар
Клиент
Заказ
Цена
ДатаДоставки
|
Количество
Сумма
|
Доставка (регистр остатков)
(хранит доставляемые в данный момент товары)
|
Товар
Клиент
Заказ
Цена
ДатаДоставки
|
Количество
Сумма
|
Доходы (оборотный регистр)
|
Товар
Клиент
|
Доход
|
|
Есеп берулер
| |
Анықтамалықтар
Дүкеннің тапсырыс қабылдайтын аумағы райондарға бөлінеді. Клиентті тіркеу кезінде оның аты көрсетіледі / ФИО, адрес, телефон және район. «Курьеры» анықтамалығында тасушылардың аты-жөндері тізбектелген немесе сатып алушыларға тауарларын тасудағы мобильдік отрядтардың аттары тізбектелген. «Товары» анықтамалығы иерархиялық болып табылады және 3 деңгейден тұрады, яғни тауарлар топқа біріктірілуі мүмкін. Тауардың клиенттерге сатылатын бағалары көрсетіледі.
Тауар кірісі
Құжаттың экрандық формасы келесідегідей болып көрінеді:
Сурет 70 –«Тауар кірісі» құжатының экрандық формасы
Құжатты өткізу барысында «Остатки» регистрінде қозғалыс жүргізіледі:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Регистр.Остатки.Товар = Товар;
Регистр.Остатки.Количество = Количество;
Регистр.Остатки.ДвижениеПриходВыполнить();
КонецЦикла;
КонецПроцедуры
Тапсырыс құжаты
Құжаттың экрандық формасы келесідегідей болып көрінеді:
Сурет 71 –«Тапсырыс» құжатының экрандық формасы
Құжатты өткізу барысында «Заказы» регистрінде қозғалыс жүргізіледі:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Регистр.Заказы.Товар = Товар;
Регистр.Заказы.Клиент = Клиент;
Регистр.Заказы.ДатаДоставки = ДатаДоставки;
Регистр.Заказы.Заказ = ТекущийДокумент();
Регистр.Заказы.Цена = Цена;
Регистр.Заказы.Количество = Количество;
Регистр.Заказы.Сумма = Сумма;
Регистр.Заказы.ДвижениеПриходВыполнить();
КонецЦикла;
КонецПроцедуры
Тапсырысты алып тастау құжаты
Құжат алдында жасалған тапсырысты алып тастау үшін жасалынған. Алдында тапсырыс жасалған тауар мөлшерін азайтуға болады. Құжаттың экрандық формасы келесідей болады:
Сурет 72 –«Тапсырысты алып тастау» құжатының экрандық формасы
Қолданушы клиентті көрсетеді, бірақ мұндайда берілген клиент бойынша алдындағы тапсырыстар құжаттың кестелік бөлімінде автоматты түрде толтырыла береді. Қолданушы қажет тауар мөлшерін «Снять» бағанасында көрсете береді.
Құжатты өткізу барысында «Заказы» регистрінде қозғалыс жүргізіледі:
Процедура ОбработкаПроведения()
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
Если Количество > 0 Тогда
Регистр.Заказы.Товар = Товар;
Регистр.Заказы.Клиент = Клиент;
Регистр.Заказы.ДатаДоставки = ДатаДоставки;
Регистр.Заказы.Заказ = Заказ;
Регистр.Заказы.Цена = Цена;
Регистр.Заказы.Количество = Количество;
Регистр.Заказы.Сумма = Сумма;
Регистр.Заказы.ДвижениеРасходВыполнить();
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Достарыңызбен бөлісу: |