Материал: Автоматизация приема заявок на ремонт и модернизацию ПК в ПАО "Т Плюс" Пермская ТЭЦ-9
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
127
Таблица П1.9
Описание атрибутов таблицы «Размещение»
Наименование
атрибута
Тип данных
Первичный
ключ
Внешний
ключ
Код размещения
AutoNumber
Да
-
Код оборудования
Long Integer
-
Да
Код организации
Long Integer
-
Да
Табельный номер
Long Integer
-
Да
Дата установки
Date/Time
-
-
Рабочее место
Text(50)
-
-
Таблица П1.10
Описание атрибутов таблицы «Сотрудники»
Наименование
атрибута
Тип данных
Первичный
ключ
Внешний
ключ
Табельный номер
AutoNumber
Да
-
ФИО
Text(80)
-
-
Должность
Text(50)
-
-
Подразделение
Text(80)
-
-
Таблица П1.11
Описание атрибутов таблицы «Списание оборудования»
Наименование
атрибута
Тип данных
Первичный
ключ
Внешний
ключ
Код списания
AutoNumber
Да
-
Дата списания
Date/Time
-
-
Код_размещения
Long Integer
-
Да
Код причины
Long Integer
-
Да
Таблица П1.12
Описание атрибутов таблицы «Тип оборудования»
Наименование
атрибута
Тип данных
Первичный
ключ
Внешний
ключ
Код типа
оборудования
AutoNumber
Да
-
Наименование
Text(50)
-
-
128
Приложение 2
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.Закупка_оборудования.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст
= "ВЫБРАТЬ
| Закупка_оборудования.Дата,
| Закупка_оборудования.Дата_закупки,
| Закупка_оборудования.Номер,
| Закупка_оборудования.Подразделение,
| Закупка_оборудования.Причина,
| Закупка_оборудования.Сотрудник,
| Закупка_оборудования.Оборудование.(
| НомерСтроки,
| Оборудование,
| Цена,
| Количество,
| Сумма
| )
|ИЗ
| Документ.Закупка_оборудования КАК Закупка_оборудования
|ГДЕ
| Закупка_оборудования.Ссылка В
(&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок =
Макет.ПолучитьОбласть("Заголовок"); Шапка =
Макет.ПолучитьОбласть("Шапка");
ОбластьОборудованиеШапка =
Макет.ПолучитьОбласть("ОборудованиеШапка");
129
ОбластьОборудование = Макет.ПолучитьОбласть("Оборудование");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц =
Ложь; Пока Выборка.Следующий()
Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка,
Выборка.Уровень());
ТабДок.Вывести(ОбластьОборудованиеШапка);
ВыборкаОборудование =
Выборка.Оборудование.Выбрать(); Пока
ВыборкаОборудование.Следующий() Цикл
ОбластьОборудование.Параметры.Заполнить(ВыборкаОборудование);
ТабДок.Вывести(ОбластьОборудование,
ВыборкаОборудование.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц =
Истина; КонецЦикла;
//}}
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.Замена_комплектующих.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст
= "ВЫБРАТЬ
| Замена_комплектующих.Дата,
| Замена_комплектующих.Дата_замены,
| Замена_комплектующих.Марка_оборудования,
| Замена_комплектующих.Номер,
130
| Замена_комплектующих.Оборудование,
| Замена_комплектующих.Подразделение,
| Замена_комплектующих.Сотрудник,
| Замена_комплектующих.Комплектующие.(
| НомерСтроки,
| Комплектующие,
| Количество,
| Статус
| )
|ИЗ
| Документ.Замена_комплектующих КАК Замена_комплектующих
|ГДЕ
| Замена_комплектующих.Ссылка В
(&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок =
Макет.ПолучитьОбласть("Заголовок"); Шапка =
Макет.ПолучитьОбласть("Шапка");
ОбластьКомплектующиеШапка =
Макет.ПолучитьОбласть("КомплектующиеШапка");
ОбластьКомплектующие = Макет.ПолучитьОбласть("Комплектующие");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц =
Ложь; Пока Выборка.Следующий()
Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка,
Выборка.Уровень());
ТабДок.Вывести(ОбластьКомплектующиеШапка);
131
ВыборкаКомплектующие =
Выборка.Комплектующие.Выбрать(); Пока
ВыборкаКомплектующие.Следующий() Цикл
ОбластьКомплектующие.Параметры.Заполнить(ВыборкаКомплектующи
е)
;
ТабДок.Вывести(ОбластьКомплектующие,
ВыборкаКомплектующие.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц =
Истина; КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{ КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные
вручную изменения будут утеряны!!!
// регистр Регистр_ремонта Приход
Движения.Регистр_ремонта.Записывать =
Истина;
Для Каждого ТекСтрокаДанные_поломок Из Данные_поломок
Цикл Движение =
Движения.Регистр_ремонта.Добавить();
Движение.ВидДвижения =
ВидДвиженияНакопления.Приход; Движение.Период =
Дата;
Движение.Оборудование =
ТекСтрокаДанные_поломок.Оборудование;
Движение.Количество =
ТекСтрокаДанные_поломок.Количество;
Движение.Сотрудник = Сотрудник;
Движение.Подразделение =
Подразделение; КонецЦикла;
//}} КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
Источник: https://baza.diplomsite.ru/previewfile/1928