Структура вихідної інформації
Вихідний інформацією будуть наступні документи:
заявки від покупців:
товар;
кількість;
постачальник;
заявки постачальнику:
товар;
кількість;
дата заявки;
чек покупцю:
дата покупки,
товар,
кількість товару,
ціна.
. 3 Реляційна модель даних
Реляційна база даних являє собою безліч взаємопов'язаних таблиць, кожна з яких містить інформацію про об'єкти певного виду. Кожен рядок таблиці містить дані про один об'єкт (наприклад, автомобілі, комп'ютері, клієнті), а стовпці таблиці містять різні характеристики цих об'єктів - атрибути (наприклад, номер двигуна, марка процесора, телефони фірм або клієнтів).
Рядки таблиці називаються записами. Усі записи таблиці мають однакову структуру - вони складаються з полів (елементів даних), в яких зберігаються атрибути об'єкта. Кожне поле запису містить одну характеристику об'єкта і являє собою заданий тип даних (наприклад, текстовий рядок, число, дата). Для ідентифікації записів використовується первинний ключ. Схему побудованої реляційної моделі бази даних зображена на малюнку 4.
Малюнок 4 - Реляційна модель даних
. 4 Алгоритм автоматизації
Перевірка можливості збереження
Процедура ПоКнОк ()
Перевіряємо «проведений» Чи документ. Якщо ні, то перевіряємо на наявність значення змінної «Постачальники» і заповнення хоча б одного товару. У разі відсутності інформації про це, виводимо відповідне повідомлення.
Якщо Проведено ()=0 Тоді
Якщо (ПустоеЗначеніе (Постачальник)=1) Тоді
Попередження («Не обраний постачальник!»);
Якщо (ПустоеЗначеніе (Товар.Названіе)=1) Тоді
Попередження («Не обраний товар!»);
Повернення;
КонецЕсли;
Створюємо змінну-об'єкт ККР, в якій будемо зберігати інформацію про замовлення, якому надається ця робота.
ККР=СоздатьОб'ект («Документ.ПріходТовара»);
Знаходимо елемент з довідника Устаткування за назвою. У разі успішного знаходження присвоюємо в параметр Клієнт дані про поточний постачальника.
Якщо ККР. НайтіЕлемент (Найменування)=1 Тоді
ККР. Клієнт=Поставщік.Названіе;
Після виконання привласнення цих значень записуємо ці дані в нашу базу. ККР. Записати ();
У разі не знаходження обладнання з вказаною назвою (коли ККР.
НайтіЕлемент (Найменування)=0), виводимо аналогічне повідомлення і закінчуємо роботу з процедурою.
Інакше
Попередження («Обладнання з назвою« + Найменування + », не знайдено!»);
Повернення;
КонецЕсли;
Записуємо інформацію про операцію в базу даних.
Записати ();
КонецЕсли;
Закриваємо форму і вказуємо закінчення процедури.
Форма. Закрити (0);
КонецПроцедури
Друк квитанції
Процедура ПоКнКвітанція ()
Створюємо об'єкт таблиця Таб.
Таб=СоздатьОб'ект («Таблиця»);
Таб. ІсходнаяТабліца («Таблиця1»);
Таб. ВивестіСекцію («Секція_2»);
Якщо роботи виконував сервісний центр, тоді виводимо необхідну секцію.
Якщо ВипТО=1 Тоді
Таб. ВивестіСекцію («Секція_3»);
Створюємо змінну ДЗ, в яку отримуємо значення поточного документа.
ДЗ=СоздатьОб'ект («Документ»);
ДЗ. ВибратьПодчіненниеДокументи (ТекущійДокумент ());
Якщо інформація про поточний документ успішно завантажена, тоді вибираємо всі рядки для даного документа.
Якщо ДЗ. ПолучітьДокумент (...