Совершенствование организации технического обслуживания сельскохозяйственной техники с применением специализированного программного обеспечения тема диссертации и автореферата по ВАК РФ 05.20.03, кандидат наук Лесник Наталья Александровна

• Лесник Наталья Александровна
• кандидат наук
• 2022

Оглавление диссертации кандидат наук Лесник Наталья Александровна

ВВЕДЕНИЕ

1 СОСТОЯНИЕ ВОПРОСА ОРГАНИЗАЦИИ И УПРАВЛЕНИЯ ТЕХНИЧЕСКИМ ОБСЛУЖИВАНИЕМ МТП

1.1 Анализ современного уровня развития методов управления работоспособностью технических объектов

1.2 Состояние вопроса по организации и управлению ТО сельскохозяйственной техники

1.3 Показатели, характеризующие уровень организации

и качество ТО сельскохозяйственной техники

1.4 Пути совершенствования организации ТО машин

с применением компьютерных программ

1.5 Цель и задачи исследований

2 ТЕОРЕТИЧЕСКОЕ ИССЛЕДОВАНИЕ АВТОМАТИЗИРОВАННЫХ МЕТОДОВ УПРАВЛЕНИЯ ТЕХНИЧЕСКИМ ОБСЛУЖИВАНИЕМ СЕЛЬСКОХОЗЯЙСТВЕННОЙ ТЕХНИКИ

2.1 Модель процесса управления ТО тракторов и комбайнов

2.2 Обоснование информационной модели данных для автоматизированной системы управления ТО машин

2.3 Исследование эксплуатационных затрат на организацию и проведение ТО в условиях применения информационных технологий

2.4 Исследование влияния информационных технологий управления ТО на показатели надёжности обслуживаемых машин

2.5 Выводы ко второй главе

3 ПРОГРАММА И МЕТОДИКА ЭКСПЕРИМЕНТАЛЬНЫХ ИССЛЕДОВАНИЙ

3.1 Программа экспериментальных исследований

3.2 Описание разработанного программного обеспечения

для управления мероприятиями ТО машин

3.3 Организация ввода первичной информации о наработке

машин в базу данных программы

3.4 Обоснование выбора предприятия

3.5 Обоснование объёма наблюдений

3.6 Методика сбора статистических данных

3.7 Методика обработки статистических данных

4 РЕЗУЛЬТАТЫ ИССЛЕДОВАНИЙ

4.1 Результаты исследований затрат времени ИТР и стоимости инженерной деятельности, связанной с управлением ТО

4.2 Результаты исследований влияния информационной системы управления на уровень общих затрат при ТО машин

4.3 Результаты исследований влияния информационной системы управления на надёжность обслуживаемых машин

5 ОПРЕДЕЛЕНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ

АВТОМАТИЗАЦИИ УПРАВЛЕНИЯ ТО МАШИН

ЗАКЛЮЧЕНИЕ

ЛИТЕРАТУРА

ПРИЛОЖЕНИЯ

Приложение А (обязательное) Исходный текст программы

«Агрокомплекс-2.1 «АСУТО»

Приложение Б (справочное) Стоимость оснастки ПТО для выполнения операций ТО тракторов, комбайнов и СХМ (2021г.)

Приложение В (нормативное) Расчёт стоимости эксплуатационных материалов по маркам тракторов и комбайна АСЯ08

Приложение Г (обязательное) Данные первичных наблюдений затрат времени пребывания машин в работоспособном состоянии и в простое по техническим причинам

Приложение Д (обязательное) Расчёт интенсивностей смены

состояний и вероятностей состояния

Приложение Е (обязательное) Результаты исследования влияния

предлагаемой методики управления ТО на число отказов отдельных

агрегатов, узлов и деталей тракторов

Введение диссертации (часть автореферата) на тему «Совершенствование организации технического обслуживания сельскохозяйственной техники с применением специализированного программного обеспечения»

Введение

Актуальность темы исследования. Сельское хозяйство России является одной из стратегических отраслей, стабильность и эффективность которой определяют продовольственную безопасность страны. Основой технологий производства сельскохозяйственной продукции является машинно-тракторный парк (МТП) предприятий, поэтому себестоимость продукции в агробизнесе существенно зависит от затрат на эксплуатацию МТП, особенно на поддержание работоспособности машин.

Система технического сервиса (ТС) машин в АПК имеет сложную организационную структуру и различные уровни управления. Регламентируемые заводами-изготовителями машин мероприятия технического обслуживания (ТО) в гарантийный период выполняются фирменными или дилерскими сервисными центрами, а по его истечении владельцы машин могут самостоятельно выполнять ТО. За весь этап эксплуатации отечественных машин объём сервисных работ, выполняемых механизаторами и инженерно-техническими работниками (ИТР) предприятий-владельцев существенно превосходит объём работ дилерских центров и других исполнителей [ 64, 118, 121]. Поэтому вопрос организации ТО тракторов, комбайнов и сельскохозяйственных машин (СХМ) в условиях предприятий-владельцев является актуальной инженерной задачей. Для решения данной задачи необходимы стационарные и мобильные сервисные средства, квалифицированный персонал, техническая и технологическая документация, а также современные информационные технологии и специализированное программное обеспечение.

Модернизация сервисной инфраструктуры АПК на перспективу рассматривается в рамках государственных и региональных программ поддержки сельхозтоваропроизводителей [23, 95, 96, 148, 173, 176]. Данные программы предусматирвают цифровизацию инженерной деятельности [15]. Настоящее время характеризуется применением информационных технологий и цифровых методов в производстве всех видов продукции и услуг. В нашей

стране принята «Стратегия развития информационного общества в Российской Федерации на 2017^2030 годы», утвержденная Указом Президента РФ от 9 мая 2017 г. № 203. В рамках данной стратегии разработан национальный проект «Цифровая экономика», определяющий вектор стратегического развития страны до 2025 года. Реализация положений данного нацпроекта будет способствовать достижению его целей - использование преимущественно отечественного программного обеспечения (ПО) организациями во всех отраслях, в том числе АПК.

Существенно возросли объёмы технической и другой информации, необходимой для оперативного управления механизированным и сервисным производством в условиях аграрных предприятий. Усложнение конструкций современных тракторов и комбайнов увеличивает объём информации, регламентирующей их ТО, что стимулирует применение компьютерных систем, обепечивающих обработку соответствующей нормативно-технической документации [85, 87]. Ведение инженерной деятельности с использованием преимущественно бумажных носителей информации резко снижает её эффективность и препятствует выполнению технических регламентов в сфере эксплуатации машин. Предварительный анализ инженерно-технической инфраструктуры сельскохозяйственных предприятий и крестьянских (фермерских) хозяйств (КФХ) в ЮФО и Ростовской области говорит о низкой реализации таких элементов инженерной деятельности при управлении процессами ТС машин, как планирование мероприятий ТО, контроль своевременности проведения и учёт, информационная поддержка технологий ТО, анализ и документирование сервисных работ. Это связано с преобладанием бумажного документооборота, т.е. данные инженерные задачи практически не автоматизированы. Низкий уровень использования в практической деятельности ИТР современных информационных технологий приводит к тому, что процессы организации ТО МТП выглядят неявно, а это негативно отражается на работоспособности машин в период работ, увеличиваются простои по техниче-

ским причинам и ущерб предприятий от потерь продукции при затягивании сроков полевых работ. Внедрение здесь инструментов процессного управления ТО, основанных на современных информационных технологиях и ПО имеет высокую актуальность. Цифровые методы управления работоспособностью машин широко применяются за рубежом и в различных отраслях народного хозяйства, однако, в нынешних сельхозпредприятиях наблюдается огромный разрыв между существующим уровнем развития прогрессивных методов управления и степенью реализации этих методов на практике. Специализированное ПО для инженеров АПК является звеном, которое позволит сократить данный разрыв.

Степень разработанности темы. Исследования в области эксплуатации, ТО и ремонта МТП проводились ранее учёными ГОСНИТИ, ВНИПТИМЭСХ, ВНИИТиН, СибИМЭ, ЛСХИ, МИИСП, КубГАУ, Ставропольского ГАУ, АЧГАА, ДГТУ и других научных центров. Над решением проблем эксплуатации и ТО машин в АПК работали академики А.В. Веденя-пин, В.М. Кряжков, В.М. Михлин, М.С. Рунчев, А.Э. Северный, А.И. Селиванов, Э.И. Липкович, В.И. Черноиванов, В.А. Альт и др. В трудах С.С. Черепанова, Н.И. Агафонова, Н.С. Пасечникова, А.Н. Скороходова, Н.В. Валуева, О.Н. Дидманидзе, Л.И. Кушнарёва, А.Е. Немцева, А.Т. Лебедева, М.К. Бураева, В.С. Новикова, В.Н. Хабардина, А.И. Бурьянова, Е.А. Пучина, Р.Ю. Соловьева, В.Н. Курочкина, Ю.А. Царева и др. рассмотрена организация ТО, установлено влияние его периодичности на износ оборудования, решены методические проблемы управления надежностью современных машин и предложены эффективные варианты организации систем ТО и ремонта, способные обеспечить минимальный простой машин по техническим причинам.

Исследования по применению информационных технологий в сфере технической эксплуатации МТП осуществляли В.В. Альт, А.В. Колчин, В.М. Баутин, Д.С. Буклагин, А.М. Криков, Н.М. Иванов, В.П. Димитров, Л.В. Борисова, С.Н. Ольшевский, А.Г. Арженовский, М.Н. Костомахин, Ю.В. Ката-

ев, А.А. Соломашкин и др. Были созданы системы диагностирования машин с применением экспертных знаний, информационного сопровождения ТО и дистанционного мониторинга состояния техники, предложена концепция единого информационного поля инженерных служб всех уровней АПК и др. Однако, недостаточно изучено влияние современного ПО для ИТР на эффективность управленческой инженерной деятельности и уровень эксплуатационной надёжности сельскохозяйственной техники. Практически нет отечественного ПО, позволяющего осуществлять процессное управление мероприятиями ТО МТП, и контролировать уровень надёжности эксплуатируемых машин. Между тем, передовой мировой опыт показывает, что применение подобных систем содержит существенный резерв для реализации потенциальных возможностей техники.

Цель исследования - совершенствование организации технического обслуживания сельскохозяйственной техники с применением автоматизированных методов процессного управления и специализированного программного обеспечения, направленных на повышение показателей эксплуатационной надежности машин и снижение трудоёмкости управления сервисными процессами.

Задачи исследования:

1. Разработать модель автоматизированного управления постановкой на периодические ТО тракторов и комбайнов в условиях эксплуатирующей организации.

2. Разработать информационную модель данных для автоматизированной системы управления процессами ТО сельскохозяйственной техники.

3. Выполнить теоретические и экспериментальные исследования влияния информационных технологий на трудоёмкость управления процессами ТО, показатели надёжности обслуживаемых машин и общие стоимостные затраты на ТО и управление.

4. Разработать и внедрить программное обеспечение для управления техническим обслуживанием машин и методику его производственной проверки.

5. Определить технико-экономические показатели предлагаемых методов управления ТО.

Объект исследования: организация и методы управления процессами ТО сельскохозяйственной техники, программное обеспечение для ИТР, показатели эксплуатационной надежности тракторов и комбайнов.

Предмет исследования: влияние специализированного программного обеспечения на трудоёмкость управления процессами технического обслуживания, показатели эксплуатационной надёжности сельскохозяйственной техники и эксплуатационные затраты, связанные с организацией и проведением ТО.

Рабочая гипотеза: повышение эксплуатационной надёжности сельскохозяйственной техники, снижение трудоёмкости управления процессами ТО возможно за счет применения специализированного программного обеспечения для ИТР в условиях эксплуатирующих технику предприятий.

Научная новизна работы:

- модель процесса управления постановкой на техническое обслуживание тракторов и комбайнов;

- информационная модель данных для автоматизированной системы управления ТО машин в условиях эксплуатирующего предприятия;

- программное обеспечение для управления процессами ТО сельскохозяйственной техники - свидетельство о государственной регистрации №2020614673.

- закономерности влияния программного обеспечения на трудоёмкость управления процессами ТО, эксплуатационные затраты, связанные с организацией и проведением ТО, и на показатели надёжности обслуживаемых машин: коэффициент технического использования, вероятность пребывания в

работоспособном состоянии и средняя накопленная продолжительность неработоспособного состояния за период полевых работ.

Теоретическая и практическая значимость работы:

- в обосновании модели процесса управления постановкой на техническое обслуживание тракторов и комбайнов и алгоритмах её реализующих;

- в информационной модели данных для системы автоматизированного управления ТО сельскохозяйственной техники;

- в разработанном программном обеспечении для управления процессами ТО сельскохозяйственной техники;

- в повышении производительности труда инженерной деятельности, связанной с управлением ТО машин, в повышении уровня эксплуатационной надёжности сельскохозяйственной техники.

Методика исследования: Для решения поставленных в работе задач применяли методы теории надежности, теории графов, теории Марковских процессов для систем массового обслуживания, методологию процессного управления, современные методологии программирования, метод семантического моделирования информационных моделей данных, методы планирования экспериментальных исследований, статистические методы обработки экспериментальных данных и вероятностные методы оценки гипотез и адекватности. Результаты исследований обработаны в программе MS Excel.

На защиту выносятся следующие положения:

- модель процесса управления постановкой на периодическое техническое обслуживание тракторов и комбайнов в условиях эксплуатирующего предприятия;

- информационная модель данных и программное обеспечение для управления процессами ТО сельскохозяйственной техники;

- теоретические положения и элементы методики экспериментальных исследований влияния применяемого ПО на основные затраты времени ИТР

при управлении процессами ТО и показатели надёжности сельскохозяйственной техники;

- установленные экспериментальным и расчётным путём зависимости, описывающие влияние предлагаемого программного обеспечения и методики его применения на трудоёмкость управления процессами ТО, показатели эксплуатационной надёжности тракторов и эксплуатационные затраты на организацию и проведение ТО.

- результаты технико-экономических расчётов внедрения предлагаемых методов управления ТО.

Апробация и степень достоверности результатов работы. Основные положения и результаты работы докладывались на Всероссийских и региональных научно-практических конференциях, проходивших в Азово-Черноморском инженерном институте ФГБОУ ВО «Донской ГАУ» в 2017^2021 г.г. (г. Зерноград); на научно-практической конференции «Инновационное развитие АПК» в рамках конкурса «УМНИК» направление «Новые приборы и аппаратные комплексы» в 2016^2017 г.г. (г. Зерноград); на молодёжном инновационном конвенте Ростовской области в 2017 г. (г. Ростов-на-Дону); на VII научно-практической конференции с международным участием в 2017 г. «Чтения И.П. Терских» (г. Иркутск).

Реализация результатов исследования проводилась на базе сельскохозяйственного предприятия ЗАО «Нива» Весёловского района Ростовской области. Пункты заключения по работе базируются на научных принципах, разработанных ведущими учеными в области надёжности и организации технического обслуживания машин. Основные выводы работы подтверждены теоретическими положениями и экспериментальными данными. Достоверность исследований и адекватность полученных результатов, достаточность наблюдений установлена методами планирования эксперимента.

По теме диссертации соискателем издано 7 научных работ, в том числе одно свидетельство о государственной регистрации программы для ЭВМ, и

две статьи в издании из списка ВАК РФ. Обобщенный объем публикаций -около четырёх печатных листов, из них непосредственно автору принадлежит 1,7 печатных листов. Результаты работы используются при изучении дисциплины «Диагностика и техническое обслуживание машин» в Азово-Черноморском инженерном институте ФГБОУ ВО Донской ГАУ.

Структура и объем диссертации. Работа содержит введение, пять глав, выводы, библиографический список, приложения. Объём работы составляет 155 страниц машинописного текста. Библиографический список состоит из 180 наименований. В приложение вынесены промежуточные результаты исследований и апробации работы.

Личный вклад автора. Результаты исследований, представленные в диссертационной работе, получены автором лично.

1 СОСТОЯНИЕ ВОПРОСА ОРГАНИЗАЦИИ И УПРАВЛЕНИЯ ТЕХНИЧЕСКИМ ОБСЛУЖИВАНИЕМ МТП

1.1 Анализ современного уровня развития методов управления работоспособностью технических объектов

Современные машины зависимы от человека. Эта зависимость проявляется не только в необходимости управлять рабочим процессом машины, но и в поддержании её работоспособного состояния. Эффективность технического сервиса и надёжность обслуживаемых машин во многом определяются принятой стратегией технического обслуживания и ремонта (ТОР), а также используемыми при этом техническими средствами. Стратегия ТОР содержит правила, устанавливающие виды, объем и периодичность управляющих воздействий на эксплуатируемое изделие для поддержания его в работоспособном состоянии и восстановления значений показателей надежности до регламентированного уровня [17, 130, 176].

На данный день получили распространение следующие стратегии технического обслуживания и ремонта технических объектов [13, 95]:

- по потребности после отказа (С1);

- регламентированная, в зависимости от наработки объекта (С2);

- по техническому состоянию составных частей объекта, с периодическим или непрерывным контролем (С3).

Регламентированная стратегия С2 планово-предупредительного обслуживания во многих сферах обеспечивает наименьшие затраты, что и является главной причиной её широкого применения. На практике чаще можно наблюдать сочетание указанных стратегий, однако с развитием технического прогресса во многих отраслях возрастает объём работ по ТО машин новых поколений, который выполняется по результатам периодического или непрерывного контроля их состояния, что соответствует стратегии С3.

Независимо от применяемой стратегии ТО для парка однотипных изделий может осуществляться контроль уровня их надёжности в процессе эксплуатации. Изделия, обслуживаемые по стратегии с контролем уровня надежности, должны иметь высокий уровень эксплуатационной технологичности, а их отказ не должен быть причиной опасной обстановки на производстве [25]. Для осуществления стратегии ТО с контролем уровня надёжности требуется прежде всего наличие в каждом эксплуатирующем технику предприятии системы сбора и обработки информации о надежности машин. Для машин, оснащённых бортовыми средствами диагностирования и передачи данных по современным ТТ-коммуникациям, часть такой системы уже встроена в их конструкцию. Другая часть является офисным программным обеспечением (ПО) на рабочем месте инженера, отвечающего за работоспособность машин [3, 5]. Данное ПО осуществляет обработку первичной информации, используя методы математической статистики, определяет фактическое значение комплексного показателя надёжности. Далее осуществляется разработка мероприятий по поддержанию уровня надежности техники -назначение дополнительных работ по ТОР; изменение периодичности ТО или контроля; изменение условий или режимов эксплуатации; конструкторские доработки; переход на определённую стратегию ТОР.

Современный этап развития человеческого общества и технологий находится в начале четвертой промышленной революции (Индустрия 4.0), которая предполагает новый подход к производству, основанный на массовом внедрении информационных технологий во все отрасли хозяйственной деятельности и цифровизации производственных процессов [8, 177]. В эпоху цифровой экономики развиваются технологии информационной поддержки всех этапов жизненного цикла изделий от стадии проектирования до утилизации (рис. 1.1).

Для любого технического объекта на стадии проектирования разработчик может создать виртуальную модель поведения этого объекта в конкрет-

ных условиях, прогнозировать технико-экономические показатели работы и показатели надёжности изделия, определять периодичность плановых ТО и ремонтов изделия и их трудоёмкость [8]. Это стало возможным во многом благодаря развитию технологий цифровых двойников.

Рисунок 1.1 - Этапы жизненного цикла технического объекта

В концепции цифрового двойника (ЦД) виртуальная модель не отбрасывается после создания реального объекта, а используется в связке с ним на протяжении всего жизненного цикла: на этапе испытания, эксплуатации и утилизации. Таким образом, цифровые двойники приходят на смену CALS и PLM-технологиям, в рамках которых ранее рассматривалась информационная поддержка и управление этапами жизненного цикла изделий [8, 43].

Самым простым вариантом ЦД является двойник категории «только статус», фиксирующий лишь статус объекта [8]. Двойники подобного типа уже десятки лет работают в системах диспетчерского управления и сбора данных - так называемых SCADA-системах (Supervisory Control And Data Acquisition) - приложениях, предназначенных для обеспечения работы в реальном времени систем сбора, обработки и отображения информации об объекте мониторинга (рис. 1.2).

Рисунок 1.2 - Принцип работы SCADA-системы

На основе полученных данных уточняется цифровая модель, которая, в свою очередь, дает рекомендации по оптимизации режима эксплуатации и обслуживания реального объекта. Например, предсказывает вероятность отказа определенного узла, уточняет время профилактического ТО, рекомендует количество запасных частей и так далее. SCADA-системы используются во многих отраслях, где требуется операторский контроль за технологическими процессами в реальном времени и позволяют осуществлять дистанционную диагностику наблюдаемых объектов [22]. Современные тракторы и комбайны, оборудованные подобными электронными системами управления и контроля, западные фирмы предлагают на рынке уже более 20 лет. Это бортовые компьютеры или микропроцессоры управляющие и исполняющие контрольные функции над несколькими системами трактора или комбайна [72]. Работающая на данных принципах система Telematics компании CLAAS позволяет в разное время и в любом месте ознакомиться с информацией о машине через Интернет (рис. 1.3) [7]. Данная система может не только определять текущее местоположение машины, но и позволяет составить целостное представление о мощностном режиме ее работы и других параметрах.

Рисунок 1.3 - Работа системы Telematics фирмы CLAAS

Система через регулярные интервалы времени автоматически по мобильной связи передает более 200 разных параметров на Web-сервер. Интуитивное меню и навигация сайта открывают быстрый доступ ко всем возможным функциям информационной системы и параметрам машины.

Подобная система дистанционного мониторинга и контроля операций агромашин «Agrotronic» с модулем параметрического контроля для сельскохозяйственных предприятий создана российской фирмой «Ростсельмаш» [2]. Бортовой компьютер на современных сельскохозяйственных машинах, являющийся компонентом системы «Agrotronik», частично решает вопросы планирования технического обслуживания.

Специальные бортовые комплекты машин могут быть установлены и на отечественную технику, они включают набор периферийных датчиков (расхода топлива, скорости и т.д.), а также бортовые GPS/GSM контроллеры [72]. Параметры, регистрируемые датчиками, передаются бортовым комплектом через базовую станцию мобильной связи на приёмное устройство GSM-сервера в офисе предприятия и далее поступают в компьютеры диспетчера и других пользователей, где обрабатываются специальной программой и выводятся на монитор в табличном или графическом виде.

SCADA-системы мониторинга за состоянием технических объектов и показателями их выработки и потребления топлива могут интегрироваться с бухгалтерскими и экономическими ERP-системами конкретного предприятия [99]. Также возможна интеграциями с другими типами информационных систем, предназначенными для управления эксплуатацией и мероприятиями технического сервиса машин.

В мировой практике на этапе эксплуатации машин уже более 25 лет применяются специализированные компьютерные системы для ИТР, занятых организационными вопросами ремонта, ТО, контроля, диагностики, обеспечения запчастями эксплуатируемых объектов - CSDB, ЕАМ, MRO, CMMS системы (рис. 1.4). Подробное описание каждой из представленных систем

изложено на сайтах их разработчиков [3, 5, 162], а также в источнике [37].

включают базу данных сервисного оборудования предприятия, модули: планировання ТО и планово-предупредительного ремонта: оформления заявок на ремонт; складского учёта; заявок на покупку запасных частей: финансового учёта

Рисунок 1.4 -Типы информационных систем для управления

ТО и ремонтом машин

CSDB (Common Source Database) - общая база данных эксплуатационной документации представляет собой систему хранения и управления модулями данных (МД), которая установлена у разработчика изделия и позволяет

по запросу получить комплект технических публикаций на изделие в электронной или бумажной форме. В зависимости от типа сведений, имеющихся в содержательной части МД, различают несколько основных и служебных типов МД, среди которых имеются модули с инструкциями и регламентом ТО изделий.

EAM-система (Enterprise Asset Management System) - система управления основными фондами предприятия. Предназначена для автоматизации процессов учета, технического обслуживания и ремонта основных фондов, сопутствующих расходов в процессе жизненного цикла изделий. EAM может обеспечить процессное управление ТО, дает возможность уменьшения простоя оборудования, сокращения затрат на техобслуживание, ремонты и материально-техническое снабжение

MRO-система (Maintenance, Repair and Overhaul) - это система управления ТОиР транспортных средств и вооружения и с учетом возможного участия в них производителя (поставщика) техники.

CMMS-система (Computerized Maintenance Management System) - компьютеризированная система управления техническим обслуживанием - совокупность программного обеспечения, в состав которого входит база данных оборудования организации, модули планирования выполнения технического обслуживания и планово-предупредительного ремонта, составление заявок на выполнение ремонта, компоненты складского учета и заявок на покупку материалов.

В настоящее время широкое распространение получили EAM-системы, обобщающие концепции CMMS и комплексно охватывающие весь объем процессов, связанных с управлением полным жизненным циклом оборудования [3]. EAM-системы обеспечивают всю ту же функциональность, что и CMMS. При этом ЕАМ-системы достаточно легки во внедрении, окупаются за полтора-два года, неудачные проекты фактически отсутствуют. При использовании MRO и EAM-систем повышаются такие показатели, как произ-

водительность работ по ТО и ремонту и коэффициент готовности парка машин, снижается число отказов машин до 30%, сокращаются более чем на 20% затраты на ремонтные работы [161]. При этом замечено сокращение складских запасов, время ожидания запчастей и др.

Примером применения EAM-систем в отечественном производстве является программный продукт «Global-EAM», разработанный компанией ООО «Бизнес Технологии» (www. global-system.ru). Система позволяет по каждому экземпляру промышленного оборудования составлять графики ТОР, вести учёт наработки, а также отображать в виде графиков динамику изменения величины наработки. Разработчики системы обобщили российский и мировой опыт, потребности ремонтных служб и руководителей предприятий, эксплуатирующих оборудование, в современных информационных технологиях, которые осуществляют поддержку в принятии решений при обеспечении работоспособности технических объектов. Также имеется возможность рассчитывать среднее время между отказами оборудования и коэффициент готовности объектов, выявлять причинно-следственную связь: некачественно выполненный ремонт, некачественные запасные части и т.д.

Список литературы диссертационного исследования кандидат наук Лесник Наталья Александровна, 2022 год

ЛИТЕРАТУРА:

1. 1С Предприятие 8 для управления работами по ремонту и обслуживанию оборудования [Электронный ресурс] / center-comptech.ru [Сайт] -Режим доступа: https://center-comptech.ru/st_1c_predpr_obsl_oborud.html.

2. Agrotronic инновационная система [Электронный ресурс] / Рост-сельмаш [Сайт] - Режим доступа: https://rostselmash.com/products/agrotronic/.

3. Enterprise asset management. - 2011 г. - Режим доступа: http : //ru.wikipedia.org/wiki/EAM.

4. IBS продолжает внедрение Microsoft Axapta в процессном производстве [Электронный ресурс] / ibs.ru [Сайт] - Режим доступа: https://ibs.ru/media/news/ibs-prodolzhaet-vnedrenie-microsoft-axapta-v-protsessnom-proizvodstve/.

5. MRO-системы. - 2011 г. - Режим доступа: http : //ru.wikipedia.org/wiki/MRO.

6. NVS АО «НАВИС-групп». ГЛОНАС-GPS-GALILEO [Электронный ресурс]. - 2018 г. - Режим доступа: https://group.navis.ru/.

7. Telematics [Электронный ресурс] / CLAAS^^] - Режим доступа: https://www.claas.ru/produktsiya/easy-2018/obyedinyennyye-v-syet-mashiny/telematics.

8. The Evolution of Digital Twins for Asset Operators [Electronic resource]. - Available at: https://www.elementanalytics.com/blog/digital-twin-blog-part-2 (Accessed: 28.05.2020).

9. Агафонов, Н.И. Об организации фирменного технического сервиса машинного парка коллективных и крестьянских хозяйств Ростовской области // Инженерно-техническое обеспечение АПК. - 1995. - №3. - С. 17-20.

10. Адлер Ю.П., Маркова Е.В., Грановский Ю.В. Планирование эксперимента при поиске оптимальных условий. - М. : Наука, 1976. - 260 с.

11. Акчурин, А.Г. Принципы разработки средств оперативного управления производством / А.Г. Акчурин, А.П. Ушаков // Механизация и электрификация социалистического сельскогохозяйства. - 1973. - №6. - С. 30-35.

12. Алиев, Т.И. Основы моделирования дискретных систем / Т.И. Алиев. - СПб. : СПбГУ ИТМО, 2009. - 363 с.

13. Аллилуев, В.А. Техническая эксплуатация машинно-тракторного парка / В.А. Аллилуев, А.Д. Ананьин, В.М. Михлин. - М. : Агропромиздат, 1991. - 367 с.

14. Альт В. В. Информационная технология диагностирования ДВС / В. В. Альт, О. Ф. Савченко, Д. Н. Клименко // Аграрная наука - сельскохозяйственному производству Сибири, Монголии, Казахстана, Беларуси и Болгарии : сб. науч. докл. 21 междунар. науч.-практ. конф., Улан-Батор, 20-21 сент. 2018 г. - Новосибирск : Изд-во СФНЦА РАН, 2018. - С. 238-240. - 500 экз. - ISBN 978-5-6041597-1-2.

15. Альт В. В. Цифровизация как основа развития сельскохозяйственного производства = Digitalization as basis to develop the agricultural production / В. В. Альт, Е. А. Балушкина, С. П. Исакова // Агронаука-2020 : тр. междунар. науч. онлайн-конф., Новосибирск, 5-6 нояб. 2020 г. - Новосибирск : Изд-во ГПНТБ СО РАН, 2020. - С. 210-212. - 300 экз. - ISBN 978-5-94560-334-9.

16. Альт, В.В. Информационные технологии в инновационном развитии АПК / В.В. Альт, С.Н. Ольшевский // Достижения науки и техники АПК. -2016. - № 4. - С. 67-69.

17. Ананьин, А.Д. Диагностика и техническое обслуживание машин : учебник для студентов высш. учеб.заведений / А.Д. Ананьин, В.М. Михлин, И.И. Габитов, А.В. Негорова, А.С. Иванов. - М. : Издательский центр «Академия», 2008. - 432 с.

18. Анисимов, А.П. Экономика организации и планирование работы автотранспорта / А.П. Анисимов, В.К. Юфин. - М. : Транспорт, 2012.

19. Анискин, В.И. Некоторые аспекты создания систем автоматического управления производственными процессами / В.И. Анискин, В.К. Хорошен-ков, Г.А. Гуляев, Ю.И. Щербаков // Техника в сельском хозяйстве. - 2004. -№ 6. - С. 56-60.

20. АО «Петербургский тракторный завод» [Электронный ресурс]. -2020 г. - Режим доступа: http://kirovets-ptz.com/catalog/kirovets-k-744r2-standart/.

21. Арженовский, А.Г. Совершенствование организации технического сервиса, методов и средств функционального оперативного диагностирования мобильных энергетических средств в агропромышленном комплексе: ав-тореф. дис. ... докт. техн. наук 05.20.03 / Арженовский Алексей Григорьевич. - Зерноград, 2020. - 44 с.

22. Афанасьев, А. И. Основные тенденции развития SCADA-систем / А. И. Афанасьев. - Текст : непосредственный // Молодой ученый. - 2018. - № 19 (205). - С. 100-101. - URL: https://moluch.ru/archive/205/50160/ (дата обращения: 19.02.2022).

23. Афоничев, Д.Н. Совершенствование организации технического сервиса в сельском хозяйстве / Д.Н. Афоничев, Е.В. Кондрашова, И.И. Аксенов // Лесотехнический журнал. - 2014. - № 3. - С. 230-236.

24. Байхельт, Ф. Надёжность и техническое обслуживание. Математический подход : Пер. с нем. / Ф. Байхельт, П. Франкен. - М.: Радио и связь, 1988. - 392 с.

25. Барзилович, Е.Ю. Модели технического обслуживания сложных систем : учеб.пос / Е.Ю. Барзилович. - М. : Высш. школа, 1982. - 231 с.

26. Бармаков, Б. Процессное управление : структура и функции [Электронный ресурс] / ЗАО «ФинЭкспертиза. Консалтинг». Москва, 2011. - Режим доступа:

http://www.finexpertiza.ru/articles/process_management/index.html.

27.Баутин, В.М. Информационная система для технологического и

технического обеспечения АПК / В.М. Баутин, Д.С. Буклагин, Э.Л. Аронов // Техника в сельском хозяйстве. - 1995. - №1. - С. 6-11.

28. Баутин, В.М. К методологии мониторинга инженерно-технической системы АПК / В.М. Баутин, Д.С. Буклагин, Э.Л. Аронов // Техника и оборудование для села. - 2001. - №1. - С. 14-16.

29. Бельских, В.И. Справочник по техническому обслуживанию и диагностированию тракторов / В.И. Бельских. - 3-е изд., перераб. и доп. - М. : Россельхозиздат, 1986. - 399 с.

30. Бердников, И.Е. Математические модели определения количества отказов транспортно-технологических машин в зависимости от факторов условий эксплуатации / И.Е. Бердников, С.П. Озорнин // Современные технологии. Системный анализ. Моделирование. - 2017. - № 2 (54). - С. 134-142.

31. Бобков, С.П. Моделирование систем : учеб. пос. / С.П. Бобков, Д.О. Бытев; Иван. гос. хим.-технол. ун-т. - Иваново, 2008. - 156 с.

32. Борисов, Б.М. Математическое моделирование и расчёт систем управления техническими объектами: учеб.пос. / Б.М. Борисов, В.Е. Большаков, В.И. Маларёв, Р.М. Проскуряков. - Спб. : Санкт-Петербургский государственный горный институт, 2002. - 63 с.

33. Борисова Л.В. Повышение эффективности функционирования уборочных машин на основе моделей экспертных знаний: автореф. дис. ... докт. техн. наук 05.20.01 / Борисова Людмила Викторовна. - Ростов-на-Дону, 2007. - 36 с.

34. Буклагин, Д.С. Справочник инженера по техническому сервису машин и оборудования в АПК / Д.С. Буклагин, И.Г. Голубев, М.Я. Рассказов и др. - М.: ФГНУ «Росинформагротех», 2003. - 604 с.

35. Бураев, М.К. Повышение работоспособности тракторов в сельском хозяйстве / М.К. Бураев, Н.И. Овчинникова, А.И. Аносова, А.В. Шистев // Вестник ВСГУТУ. - 2015. - № 6(57). - С. 20-25.

36. Бураев, М.К. Система производственно-технической эксплуатации машинно-тракторного парка в условиях АПК Восточной Сибири: автореф. дис. ... докт. техн. наук 05.20.03 / Бураев Михаил Кондратьевич. - Улан-Удэ, 2010. - 40 с.

37. Бут, Г.П. Формирование структуры и информационной системы технического сервиса в АПК / Г.П. Бут [и др.] // Техника в сельском хозяйстве. - 2002. - № 2. - С. 26-29.

38. Валуев, Н.В. Повышение надёжности использования машин и совершенствование их элементов: монография / Н.В. Валуев, В.И. Щербина. Зерноград: ФГБОУ ВПО АЧГАА, 2012. - 114 с.

39. Валуев, Н.В. Повышение надёжности использования машин и совершенствование их элементов: монография / Н.В. Валуев, В.И. Щербина. -Зерноград: АЧГАА, 2012. - 114 с.

40. Валуев, Н.В. Повышение надёжности сельскохозяйственной техники обоснованием резерва запасных частей на период полевых работ / Н.В. Валуев, С.Л. Никитченко, А.Д. Волошин // Вестник аграрной науки Дона. -2019. - № 2(46). - С. 55-62.

41. Варнаков, В.В. Технический сервис машин сельскохозяйственного назначения / В.В. Варнаков, В.В. Стрельцов, В.Н. Попов, В.Ф. Карпенков. -М.: КолосС, 2004. - 253 с., ил.

42. Васенин А. С., Шумков А. Г. Роботизация поста технического обслуживания и ремонта автомобилей // Молодой ученый. — 2016. — №3. — С. 85-87.

43. Вичурова, А. Цифровизация производства и цифровые двойники: объединяем PLM, IoT и Big Data [Электронный ресурс] / Big Ба1:а[Сайт] - Режим доступа: https://www.bigdataschool.ru/blog/digital-twin-plm-iot-big-data.html.

44. Войтович, А.В. Математическая модель определения оптимальных периодов управления техническим состоянием средств сложной организаци-

онно-технической системы / А.В. Войтович, К.Л. Григорьев, А.Е. Шульгин // Фундаментальные исследования. - 2015. - № 11. - С. 858-862.

45. Гмурман, В.Е. Теория вероятностей и математическая статистика: учеб. Пособие. - 12-е изд., перераб. - М.: Высшее образование, 2007. - 479 с.: ил.

46. Гнеденко, Б.В. Введение в теорию массового обслуживания / Б.В. Гнеденко, И.Н. Коваленко. - 3-еизд., испр. идоп. - М. : Эдиториал УРСС, 2005. - 400 с.

47. Годжаев, З.А. Стратегия машинно-технологической модернизации сельского хозяйства России до 2030 года / З.А. Годжаев, В.Г. Шевцов, А.В. Лавров, Ю.С. Ценч, В.А. Зубина // Технический сервис маин. - 2019. - №4 (137). С. 220-229.

48. Головин, А. А. Техническое обслуживание и ремонт гусеничных тракторов и мелиоративных машин : Учебное пособие / Головин А.А. -Минск : РИПО, 2015. - 424 с.

49. ГОСТ Р 27.010-2019. Надёжность в технике. Математические выражения для показателей безотказности, готовности, ремонтопригодности. -М. : Стандартинформ, 2019. - 80 с.

50. Гофман, В.Э. Работа с базами данных в Delphi / В.Э. Гофман, А.Д. Хомоненко. - 2-е изд. - Спб. : БХВ-Петербург, 2003. - 624 с.: ил.

51. Гринченков, Д.В. Оценка качества программного обеспечения для управления техническим сервисом машин / Д.В. Гринченков, С.Л. Никитчен-ко, Н.А. Лесник, А.Ю. Мезенцева // Известия вузов. Северо-Кавказский регион. Технические науки». - 2021. - № 4. - С. 11-16.

52. Гришин, В.К. Статистические методы анализа и планирование экспериментов. - М. : Высш. школа, 1975. - 127 с.

53. Деменков, Н.П. Управление техническими системами: учебник. - М. : Изд-во МГТУ им. Н.Э. Баумана, 2013. - 399 с.

54. Димитров, В.П. Инновационные технологии в управлении: монография / В.П. Димитров, Л.В. Борисова, Т.П. Кузьминская, А.А. Алуханян, Т.В. Жукова и др. - Ростов-на-Дону: ДГТУ, 2017. - 301 с.

55. Димитров, В.П. Совершенствование информационной службы по использованию комбайнов / В.П. Димитров, Л.В. Борисова // Техника в сельском хозяйстве. - 2008. - № 4. - С. 25-28.

56. Дунаев, А.В. О разработке в ГОСНИТИ методов и средств управления надежностью сельскохозяйственной техники / Дунаев А.В., Костома-хин М.Н. // Технический сервис машин. - 2020. - № 1 (138). - С. - 196-206.

57. Дунаев, А.В. Совершенствование нормативно-технической документации на техническое обслуживание машинно-тракторного парка / А.В. Дунаев, И.Д. Гафуров, Н.У. Вахитов // Тракторы и сельхозмашины. - 2014. -№ 8. - С. 40-42.

58. Дынкин, Е.Б. Теория вероятности и марковские процессы / Е.Б. Дынкин, А.А. Юшкевич. - Изд. Мир, 1984. - 237 с.

59. Ерохин, Г.Н. Надёжность зерноуборочных комбайнов в реальных условиях эксплуатации / Г.Н. Ерохин, В.В. Коновский // Труды ГОСНИТИ. -2013. - Том 113. - С 86-89.

60. Зангиев, А.А. Производственная эксплуатация машинно-тракторного парка: учебное пособие / А.А. Зангиев, Г.П. Лышко, А.Н. Скороходов. - Москва : Колос, 1996. - 320 с.

61. Зацаринный, В.А. Система факторов, определяющих показатели работы МТА / В.А. Зацаринный, С.Л. Никитченко // Адаптивные технологии и технические средства в полеводстве и животноводстве: Сб. научн. тр. ВНИПТИМЭСХ. - Зерноград, 2000. - С. 182-187.

62. Иванов, Н.М. Выполнение операций технического обслуживания тракторов и грузовых автомобилей с применением комплексной системы информационного обеспечения / Н.М. Иванов, А.М. Криков, А.Г. Федоров,

Р.Г. Бердникова // Вестник Воронежского государственного аграрного университета. - 2020. - №3 (66). - С. 19-28.

63. Ивченко, Г.И. Математическая статистика : учебник / Г.И. Ивченко, Ю.И. Медведев. - М.: Книжный дом «ЛИБРОКОМ», 2014. - 352 с.

64. Игнатов, В.Д. Техническое и технологическое обслуживание фермерских хозяйств в США / В.Д. Игнатов, Ю.С. Голодников, П.М. Чернышов // Сельскохозяйственная техника. Ремонт и восстановление. - 2006. - №1. -С. 34-40.

65. Извозчикова, В.В. Совершенствование технического сервиса сельскохозяйственных машин на основе информационного обеспечения / В.В. Извозчикова, И.В. Матвейкин, П.И. Огородников // Техника в сельском хозяйстве. - 2008. - № 3. - С. 23-26.

66. Измайлов, А.Ю. Управление транспортными средствами с использованием ГЛОНАСС/ GPS / А.Ю. Измайлов, АА. Артюшин, Н.Е. Евтюшен-ков, Г.С. Бисенов, А.А. Гришин // Механизация и электрификация сельского хозяйства. - 2015. - № 1. - С. 24-26.

67. Инструкция по эксплуатации и техническому обслуживанию комбайна самоходного зерноуборочного РСМ-142 «ACR0S-530». - Ростов-н/Д: ОАО «Ростсельмаш». - 528 с.

68. Инструкция по эксплуатации тракторов «КИРОВЕЦ» К-744Р, К-744Р1, К-744Р2, К-744Р3. - ЗАО "ПЕТЕРБУРГСКИЙ ТРАКТОРНЫЙ ЗАВОД" дочернее общество ОАО "КИРОВСКИЙ ЗАВОД". - 155 с.

69. Интернет-магазин «BuyWindows» [Электронный ресурс]. - 2020 г. -Режим доступа: https://buywindows.ru/.

70. Интернет-магазин «Microsoft» [Электронный ресурс]. - 2020 г. -Режим доступа: https://www.microsoft.com/ru-ru/microsoft-365/microsoft-office?rtc=1.

71. Информационно-консультационные службы для АПК [Электронный ресурс] // Журнал «Российское предпринимательство». - 2009. - № 4-2. - Режим доступа: Шр://еНЬгагу.ги/йеш.а8р?1ё=13011500.

72. Каминьски, Я.Р. Тенденции и перспективы развития бортовых компьютеров для сельскохозяйственных тракторов / Я.Р. Каминьски // Тракторы и сельскохозяйственные машины. - 2003. - №6. - С. 44-47.

73. Катаев, Ю.В. Контроль технического состояния сельскохозяйственной техники через онлайн мониторинг параметров / Ю.В. Катаев, Е.А. Градов, И.А. Тишанинов // Сельскохозяйственная техника: обслуживание и ремонт. - 2022. - № 1. - С. 14-19.

74. Киртбая, Ю.К. Резервы в использовании машинно-тракторного парка / Ю.К. Киртбая. - М. : Колос, 1982. - 319 с.

75. Ковалёв, Ю.Г. Опыт организации инженерной службы в хозяйстве / Ю.Г. Ковалев, Н.И. Агафонов. - М. : Россельхозиздат, 1978. - 63 с.

76. Колегаев, И.А. Принципы компьютеризации проектирования использования и оперативного управления машинно-тракторным парком сельскохозяйственного предприятия / И.А. Колегаев. - Кострома : изд-во КГСХА, 2007. - 171 с.

77. Колчин А. В. Оценка экологической и технической безопасности тракторов и сельскохозяйственных машин в условиях эксплуатации / А. В. Колчин // Техника в сел. хоз-ве. - 2005. - № 3. - С. 32-35.

78. Комаров В.А., Курашкин М.И. Исследование отказов комбайнов АСЯОБ 595 в гарантийный период // Сельский механизатор. - 2018. - №6. -С. 38-39.

79. Комаров, В.А. Исследование предприятий технического сервиса для обеспечения показателей надёжности машин (на примере агропромышленного комплекса Республики Мордовия) / В.А. Комаров // Вестник Мордовского Университета. - 2018. - № 2. - С. 222-238.

80. Компьютеризированная система управления техническим обслуживанием. - 2011 г. - Режим доступа: http://ru.wikipedia.org/wiki/CMMS.

81. Конкин, Ю.А. Экономика технического сервиса на предприятиях АПК / Ю. А. Конкин, К. 3. Бисултанов, М. Ю. Конкин и др.; под ред. Ю. А. Конкина. - М. : КолосС, 2006. - 368 с.

82. Коннолли, Т. Базы данных. Проектирование, реализация и сопровождение. Теория и практика: пер. с англ. / Т. Коннолли, К. Бегг. - М. и др. : Вильямс, 2017. - 1439 с.

83. Костомахин, М.Н. Система дистанционного контроля технического состояния на примере коробки перемены передач трактора "Кировец" / М.Н. Костомахин, Н.А. Петрищев, А.С. Саяпин // Сельскохозяйственные машины и технологии. - 2021. - Т. 15. - № 3. - С. 2227.

84. Краткий справочник бухгалтера [Электронный ресурс]. - 2020 г. -Режим доступа: http://kcbux.ru/Nalogi/05_ctawka_sw.html.

85. Криков А.М. и др. Полнотекстовая база знаний по пунктам технического обслуживания сельскохозяйственной техники / А.М. Криков, Г.В. РЕ-ДРЕЕВ, А.Е. НЕМЦЕВ, Р.Г. БЕРДНИКОВА, А.Г. ФЕДОРОВ // Вестник Омского ГАУ. - № 3 (43). - 2021. - 119-127.

86. Криков, А.М. Информационное сопровождение технического обслуживания и технического диагностирования тракторов и грузовых автомобилей / А.М. Криков, Н.М. Иванов, А.Е. Немцев, Р.Г. Бердникова, А.Г. Федоров // Вестник Омского государственного аграрного университета. - 2020. -№2 (38). - С. 168-177.

87. Криков, А.М. Обобщённая структура системы информационной поддержки выполнения операций технического обслуживания тракторов и автомобилей / А.М. Криков, В.В. Коротких, В.М. Лившиц, Р.Г. Бердникова, З.Н. Мишина // Технический сервис машин. - 2018. - Т. 131. - С. 92.98.

88. Кузнецов, Е.С. Управление техническими системами: учебное пособие / Е.С. Кузнецов - М. : МАДИ, 1997. - 177 с.

89. Курочкин, В.Н. Анализ эффективности организации использования машинно-тракторного парка и концепция развития инженерной инфраструктуры: монография / В.Н. Курочкин; министерство сельского хозяйства РФ, ФГОУ ВПО АЧГАА. - Зерноград, 2004. - 134 с.

90. Курочкин, В.Н. Надежность и эффективность функционирования технологических систем в АПК: математическое моделирование / В.Н. Курочкин, Н.В. Валуев. _- Ростов-на-Дону : Терра, 2004. - 160 с.

91. Курочкин, В.Н. Научно-методические основы обеспечения эффективности и надежности систем машиноиспользования в АПК: монография / В.Н. Курочкин. - Ростов-на-Дону : ЗАО «Ростиздат», 2010. - 468 с.

92. Курочкин, В.Н. Эффективность и надежность функционирования сложных организационных систем: монография / В.Н. Курочкин. - Ростов-на-Дону : ЗАО «Ростиздат», 2010. - 494 с.

93. Курчаткин, В.В. Надежность и ремонт машин / В.В. Курчаткин, Н.Ф. Тельнов, К.А. Ачкасов и др.; под ред. В.В. Курчаткина. - М. : «Колос», 2000. - 776 с.

94. Курчаткин, В.В. Техническое обслуживание и ремонт машин в сельском хозяйстве : учебник для нач. проф. образования / В.В. Курчаткин, В.М. Тараторкин, А.Н. Батищев и др. ; под ред. В.В. Курчаткина. - 4-е изд., стер. -М. : «Академия», 2012. - 464 с.

95. Кушнарев, Л.И. Проблемы модернизации системы инженерно-технического обеспечения агропромышленного комплекса / Л.И. Кушнарев, Е.Л. Чепурина // Тракторы и сельхозмашины. - 2015. - № 6. - С. 37-41.

96. Лачуга, Ю.Ф. О научном обеспечении инженерно-технической системы в АПК / Ю.Ф. Лачуга // Сельскохозяйственные машины и технологии. - 2010. - № 3. - С. 3-10.

97. Лебедев А.Т., Павлюк Р.В., Захарин А.В., Лебедев П.А. Исследования надежности зерноуборочных комбайнов в рядовых условиях эксплуатации на примере ставропольского края // Инновации в сельском хозяйстве. -2018. - № 3 (28). - С. 409-415.

98. Лебедев, А.Т. Надёжность и эффективность МТА при выполнении технологических процессов: монография / А.Т. Лебедев, О.П. Наумов, Р.А. Магомедов и др. - Ставрополь : АГРУС Ставропольского гос. аграрного унта, 2015. - 332 с.

99. Лебедев, А.Т. Повышение эффективности машин и оборудования за счет их интервальной надежности / А.Т. Лебедев, А.А. Серёгин // Международный технико-экономический журнал. - 2013. - №6. - С. 99-103.

100. Ленский, А. В. Специализированное техническое обслуживание машинно-тракторного парка / А.В. Ленский. - М.: «Росагропромиздат», 1989. - 240 с.

101. Лесник, Н.А. Оценка влияния программного обеспечения для управления техническим обслуживанием машин на их комплексные показатели надёжности / Н.А. Лесник // Активная и честолюбивая интеллектуальная молодёжь сельскому хозяйству. - 2021. - № 1(10). - С. 23-28.

102. Липкович, Э.И. Инженерно-техническая служба в АПК: состояние и перспективы / Э. И. Липкович. - Зерноград : ВНИПТИМЭСХ, 1996. -35 с.

103. Манаков, А.Л. Теория, методы и практика совершенствования организации повышения качества и надёжности технического сервиса путевых машин на основе операционного менеджмента и процессного подхода: авто-реф. дис. ... докт. техн. наук 05.02.22 / Манаков Алексей Леонидович. - Новосибирск, 2013. - 46 с.

104. Матвиенко, Н.А. Применение современных информационных технологий при организации и выполнении технического обслуживания машин / С.Л. Никитченко, Н.А. Матвиенко, А.С. Руденко // Активная честолюбивая

интеллектуальная молодёжь сельскому хозяйству (АЧИМСХ), 2017. - №1. -С. 66-70.

105. Матвиенко, Н.А. Совершенствование организации технического обслуживания сельскохозяйственной техники на предприятии / Н.А. Матвиенко, С.Л. Никитченко // Вестник ИрГСХа. - 2017. - № 81/2. - С. 62-70.

106. Мельников, С.В. Планирование эксперимента в исследованиях сельскохозяйственных процессов / С.В. Мельников, В.Р. Алёшкин, П.М. Рошин. -2-е изд., пе-рераб. и доп. - Л.: Колос, 1980. - 168 с.: ил.

107. Методологические основы автоматизации разработки измерительных экспертных систем автотракторных двигателей = Methodological basis for measuring expert systems automation of motor and tractor engines / В. В. Альт, И. П. Добролюбов, О. Ф. Савченко, Д. Н. Клименко, О. В. Ёлкин // Сибирский вестник сельскохозяйственной науки = Sibirskii vestnik sel'skokhozyaistvennoi nauki. - 2020. - Т. 50, № 4. - С. 80-92. - DOI: 10.26898/0370-8799-2020-4-10.

108. Минский тракторный завод [Электронный ресурс]. - 2020 г. - Режим доступа: http://www.belarus-tractor.com/catalog/tractors/.

109. Миронов, А.П. Техническое обслуживание машинно -тракторного парка / А.П. Миронов, Л.Б. Сегал. - Ленинград : Колос. Ленинградское отделение, 1981. - 191 с.

110. Михлин, В.М. Управление надёжностью сельскохозяйственной техники. - М.: Колос, 1984. - 335 с.

111. Муромцев, Д.И. Введение в технологию экспертных систем : Учеб.пос. / Д.И. Муромцев. - СПб : СПб ГУ ИТМО, 2005. - 93 с.

112. Назаров, А.А. Теория массового обслуживания: учебное пособие / А.А. Назаров, А.Ф. Терпугов. - 2-е изд. испр. - Томск : Изд-во HTJI, 2010. -228 с.

113. Налог на прибыль организаций [Электронный ресурс] / Федеральная Налоговая Служба [Сайт]. - Режим доступа: https: //www.nalog.ru/rn77/taxation/taxes/profitul/.

114. Никитченко, С.Л. Автоматизация контроля и планирования в системе машиноиспользования сельскохозяйственного предприятия / С.Л. Никитченко // АПК - экономика, управление. - 2014. - № 12. - С. 30-34.

115. Никитченко, С.Л. Автоматизация контроля и планирования процессов эксплуатации и технического сервиса сельскохозяйственной техники / С.Л. Никитченко, Н.А. Матвиенко // АгроСнабФорум. - 2016. - Спецвыпуск. - С. 34-36.

116. Никитченко, С.Л. Автоматизация управления мероприятиями технического обслуживания сельскохозяйственных тракторов и комбайнов / С.Л. Никитченко, Н.А. Лесник // АгроЭкоИнфо. - 2018. - № 2. -http://agroecoinfo.narod.ru/journal/STATYI/2018/2/st 202.doc.

117. Никитченко, С.Л. Выбор исполнителей и средств технического сервиса машин в сельскохозяйственном производстве / С.Л. Никитченко, С.В. Смыков, Н.П. Жиляскова // Вестник аграрной науки дона. - 2015. - №30. - С. 21-30.

118. Никитченко, С.Л. Инженерное обеспечение растениеводства: монография / С.Л. Никитченко. - Зерноград: ФГОУ ВПО АЧГАА, 2011. - 267 с.

119. Никитченко, С.Л. Инженерно-техническая служба сельхозпредприятия как подсистема эффективной эксплуатации машин / Никитченко С.Л. // Техника в сельском хозяйстве. - 2005. - № 5. - С. 26-29.

120. Никитченко, С.Л. Информатизация инженерных служб сельскохозяйственных предприятий / С.Л. Никитченко, Е.В. Мохирев // Международный сельскохозяйственный журнал. - 2009. - №1. - С. 21-22.

121. Никитченко, С.Л. Обоснование базы технического сервиса машин для сельскохозяйственного производства / С.Л. Никитченко, Е.В. Мохирев, С.В. Смыков // Международный научный журнал. - 2015. - №5. - С. 79-84.

122. Никитченко, С.Л. Причинные факторы снижения эксплуатационной надёжности сельскохозяйственной техники / С.Л. Никитченко, Е.В. Воронов // Вестник НГИЭИ. - 2020. - № 2 (105). - С. 56-66.

123. Никитченко, С.Л. Ресурсосберегающее управление процессами эксплуатации и технического сервиса сельскохозяйственной техники / С.Л. Никитченко, Н.П. Алексенко, А.В. Котович, И.А. Олейникова // Вестник аграрной науки Дона. - 2018. - №4(44). - С. 57-65.

124. Никитченко, С.Л. Совершенствование специализированного технического обслуживания техники в сельхозпредприятиях / С.Л. Никитченко, С.В. Смыков // Механизация и электрификациясельского хозяйства. - 2014. -№6. -С. 25-28.

125. Нормативно-справочные материалы по планированию механизированных работ в сельскохозяйственном производстве: Сборник. - М.: ФГНУ «Росинформагротех», 2008. - 316 с.

126. Огородников, П.И. Информационное обеспечение технического сервиса и пути повышения его эффективности / П.И. Огородников, И.В. Матвейкин, В.В. Извозчикова // Техника в сельском хозяйстве. - 2008. - № 3. - С. 36-39.

127. Ольшевский, С.Н. Научное обоснование и разработка методов, технологии и средств диагностирования тракторных двигателей в эксплуатационных условиях: автореф. дис. ... докт. техн. наук 05.20.03 / Ольшевский Сергей Николаевич. - Новосибирск, 2017. - 40 с.

128. Осипов, Д.Л. Базы данных и Delphi. Теория и практика / Д.Л. Осипов. - Спб. : БХВ-Петербург, 2011. - 752 с.

129. Осипов, Д.Л. Технологии проектирования баз данных. - М.: ДМК Пресс, 2019. - 498 с.: ил.

130. Пасечников, Н.С. Научные основы технического обслуживания машин в сельском хозяйстве / Н.С. Пасечников. - М. : Колос, 1983. - 304 с.

131. Пастухов, А.Г. Экспертная оценка работоспособности сельскохозяйственной техники / А.Г. Пастухов, Е.П. Тимашев // Механизация и электрификация сельского хозяйства. - № 4. - 2011. - С. 25-27.

132. Плаксин, А.М. Управление уровнем безотказности сельскохозяйственных тракторов на основе оценки издержек на изготовление, обслуживание и ремонт / А.М. Плаксин, А.А. Гуляренко // Тракторы и сельскохозяйственные машины. - 2012. - № 4. - С. 52-55.

133. Полетаев, В.П. Управление периодичностью обслуживания технических систем при оптимизации коэффициента технического использования / В.П. Полетаев, Д.А. Богданов // Труды международного симпозиума «Надёжность и качество». - Пензенский государственный университет. -2007. - Том 1. - С. 237-239.

134. Попова-Коварцева, Д.А. Основы проектирования баз данных: учеб. пособие / Д.А. Попова-Коварцева, Е.В. Сопченко. - Самара: Изд-во Самарского университета, 2019. - 112 с.: ил.

135. Пучин, Е.А. Технология ремонта машин: учебник для студентов вузов обуч. по спец. 110304 «Технология обслуживания и ремонта машин в АПК» / Е.А. Пучин, В.С. Новиков, Н.Л. Очковский [и др.]; под ред. Е.А. Пучина. - М.: КолосС, 2007. - 488 с.

136. Редреев, Г.В. Взаимодействие исполнителей ТО и ремонта при обеспечении работоспособности машинно-тракторных агрегатов / Г.В. Редреев // Современные проблемы науки и образования. - 2014. - №2. - С. 40.

137. Ростсельмаш [Электронный ресурс]. - 2020 г. - Режим доступа: https://rostselmash.com/.

138. Руководство по эксплуатации трактора Беларус 1523/1523В/1523.3/1523В.3. - РУП «Минский тракторный завод», 2009 г. -302 с.

139. Руководство по эксплуатации трактора Беларус 80.1/80.2/82.1/82.2/82Р. - РУП «Минский тракторный завод», 2015 г. - 138 с.

140. Рунчев, М.С. Теория и практика эффективного использования сельскохозяйственной техники // Вестник сельскохозяйственной науки. -1979. - № 8. - С. 88-94.

141. Свидетельство об официальной регистрации программы для ЭВМ, Россия. «Программа «Агрокомплекс - 2.1 «АСУТО» / Никитченко С.Л., Лесник Н.А. Зарегистрировано в РОСПАТЕНТ 20.04.2020. Заявка № 2020612335.

142. Свидетельство об официальной регистрации программы для ЭВМ, Россия. "Программа «Агрокомплекс-1.0 «МТП»"/ Никитченко С.Л. Зарегистрировано в РОСПАТЕНТ 29.03.2006. Заявка №2006610500.

143. Свирщевский, Б.С. Эксплуатация машинно-тракторного парка. -М. : Сельхозгиз, 1958. - 660 с.

144. Система мониторинга техники (СМТ) [Электронный ресурс] // Региональный навигационный информационный центр спутникового мониторинга транспорта Костромской области [Сайт]. - Режим доступа: http : //www.rdc44 .ru/services/resheniya/osm/agro/index.aspx.

145. Смыков, С.В. Обоснование параметров и условий применения навесного агрегата для технического обслуживания машин: дис. ... канд. техн. наук: 05.20.03/ Смыков Сергей Владимирович. - Зерноград, 2019. - 232 с.

146. СО 34.20.611-2003 Нормативы затрат на ремонт в процентах от балансовой стоимости конкретных видов основных средств электростанций : [разраб. ОАО «Центральное конструкторское бюро Энергоремонт]. - М. : ОАО РАО «ЕЭС России», 2003. - 65 с.

147. Современные проблемы науки и производства в агроинженерии : Учебник / Под ред. А. И. Завражнова. - СПб. : Издательство «Лань», 2013. -496 с.: ил. — (Учебники для вузов. Специальная литература).

148. Соловьёв, Р.Ю. Современная концепция обслуживания и ремонта машин / Р.Ю. Соловьёв, В.М. Михлин, А.В. Колчин // Техника в сельском хозяйстве. - 2008. - №1. - С. 12-15.

149. Соловьев, С.А. Инновационное развитие инженерно-технической системы в сельском хозяйстве России [Электронный ресурс] / С.А. Соловьев, С.А. Горячев // ГОСНИТИ [Сайт]. - Режим доступа: http ://www.gosniti.ru/documents/elib/ 1211.pdf.

150. Соломашкин, А.А. Стратегии технического обслуживания и ремонта машин / А.А. Соломашкин // Труды ГОСНИТИ. - 2017. - Том 128. - С. 141-151.

151. Справочник инженера-механика сельскохозяйственного производства: Учебное пособие. - М. : ФГНУ «Росинформагротех». - Ч. I. - 2011. -340 с.

152. Степанов, М.Н. Статистическая обработка результатов механических испытаний : справочник / М.Н. Степанов, А.В. Шаврин. - Изд. 2-е, испр. И доп. - Москва : Машиностроение, 2005. - 400 с.

153. Стребков, Д.С. Совершенствование оперативного управления сельскохозяйственным производством / Д.С. Стребков, И.М. Кузнецов, М.В. Макеев // Механизация и электрификация сельского хозяйства. - 2011. - №6 - С. 3-7.

154. Судоплатов, С.В. Дискретная математика : Учебник / С.В. Судопла-тов, Е.В. Овчинникова. - 2-е изд., переработ. - М. : ИНФРА-М; Новосибирск: Изд-во НГТУ, 2005. - 256 с. - (Высшее образование).

155. Сушкевич, М.В. Контроль при ремонте сельскохозяйственной техники. - М.: Агропромиздат, 1988. - 254 с.

156. Титученко, А.А. Роботизация технического обслуживания автомобилей / А.А. Титученко // Новая наука: от идеи к результату. - 2016. - № 112. - С. 165-167.

157. Тойгамбаев, С.К. Исследования по оптимизации и эффективности использования машинно-тракторного парка / С.К. Тойгамбаев, В.А. Евграфов // Механизация и электрификация сельского хозяйства. - 2016. - № 5. - С. 2833.

158. Топилин, Г.Е. Работоспособность тракторов / Г.Е. Топилин, В.М. Забродский. - М. : Колос, 1984. - 303 с.

159. Трутнев, Е.В. Развитие информационного обеспечения АПК / Е.В. Трутнев // Техника в сельском хозяйстве. - 2007. - № 5. - С. 45-47.

160. Труфляк, Е.В. Цифровые технологии в АПК / Е.В. Труфляк, Н.Ю. Курченко, В.А. Дидыч // Сельский механизатор. - 2018. - № 7-8. - С. 13-14.

161. Тульбович, Е., Что может дать предприятию эффективное использование ИТ [Электронный ресурс] / Е. Тульбович, А. Смиронов // Заметки об информационных технологиях в бизнесе. - Режим доступа: https://www.sites.google.com/site/it4businessnotes/articles/menedzment-it/cto-mozet-dat-predpriatiu-effektivnoe-ispolzovanie-it.

162. Управление ремонтом и техническим обслуживанием оборудования. - 2011 г. - Режим доступа: http://www.eg-online.ru.

163. Файн, В.Б. Об оценке вариантов технического решения на основе экспериментальных данных / В.Б. Файн, М.В. Дель // Техника в сельском хозяйстве. - 2006. - № 3. - С. 43-44.

164. Хабардин, В.Н. Математическое описание процесса технического обслуживания машин к решению задачи выбора экологических показателей его качества / В.Н. Хабардин // Теоретический и научно-практический журнал «Известия Оренбургского государственного аграрного университета». -2020. - № 6(86). - С. 156-160.

165. Хабардин, В.Н. Проблемы и концепция технического обслуживания машин в сельском хозяйстве: монография / В.Н. Хабардин. - Иркутск: Изд-во ИрГАУ, 2020. - 124 с.

166. Хабардин, В.Н. Современные направления развития технического обслуживания машин / В.Н. Хабардин // Техника в сельском хозяйстве. -

2009. - № 5. - С. 28-30.

167. Харари, Ф. Теория графов / Ф. Харари. - М. : Мир, 1973 - 302 с.

168. Хорольский, В.Я. Оценка экономической эффективности агроин-женерных проектов / В.Я. Хорольский, М.А. Таранов, Д.В. Петров. - Зерно-град: ФГОУ ВПО АЧГАА, 2008. - 205 с.

169. Хорошенков, В.К. Автоматизация управления машинно-тракторным агрегатом с использованием навигационных систем / В.К. Хорошенков, Н.Т. Гончаров, Е.С. Лужнова, Н.В. Мальцев // Техника в сельском хозяйстве. -

2010. - № 3. - С. 19-23.

170. Царев, Ю.А. Синтез модели управления эксплуатационной надежностью зерноуборочных комбайнов / Ю.А. Царев, Д.В. Симон // Тракторы и сельскохозяйственные машины. - 2015. - № 11. - С. 38-40.

171. Чеботарёв, М.И. Обоснование ресурсного обеспечения предприятий технического сервиса АПК : учеб. пос. / М.И. Чеботарёв, С.А. Дмитриев, М.Р. Кадыров. - Краснодар : КубГАУ, 2017. - 97.с.

172. Черепанов, С.С. Техническое обслуживание и ремонт машин в сельском хозяйстве (основы научной организации) / С.С. Черепанов. - М. : Колос, 1978. - 288 с.

173. Черноиванов, В.И. Новая стратегия технического обслуживания и ремонта машин / В.И. Черноиванов, В.А. Денисов, Ю.В. Катаев, А.А. Соломашкин А.А. // Техника и оборудование для села. - 2021. - № 9 (291). - С. 3336.

174. Черноиванов, В.И. Повышение эффективности использования машинно-тракторного парка в современных условиях: науч. издание / В.И. Чер-ноиванов, А.А. Ежевский, В.Ф. Федоренко, С.А. Соловьев // - М. : ФГБНУ «Росинформагротех», 2015. - 336 с.

175. Черноиванов, В.И. Стратегия развития технического сервиса АПК // Техника в сельском хозяйстве. - 2004. - №2. - С. 3-6.

176. Черноиванов, В.И. Техническое обслуживание, ремонт и обновление сельскохозяйственной техники в современных условиях / В.И. Черноива-нов, С.А. Горячев, Л.М. Пильщиков, И.Г. Голубев. - М. : ФГНУ «Росинфор-магротех», 2008. - 148 с.

177. Шевченко А.А., Черномазов Н.М., Глушак Н.В. О сущности и содержании четвертой промышленной революции // Вестник Алтайской академии экономики и права. - 2019. - № 12-1. - С. 186-190.

178. Шевченко, Д.В. Математические модели в управлении : учеб.-метод. пос. - Казань : Познание, 2011. - 75 с.

179. Юдин, М.И. Планирование эксперимента и обработка его результатов / М.И. Юдин. - Краснодар : КГАУ, 2004. - 239 с.

180. Яндекс-Маркет. Интернет-магазин [Электронный ресурс]. - 2021 г. - Режим доступа: https://market.yandex.ru/.

ПРИЛОЖЕНИЯ

«УТВЕРЖДАЮ»

Директор ЗАО «Нива»

«

„* И(//1^1/ А.М. Шурыгин

Д» ¿р^р Л- 20 ЗЛг.

АКТ

внедрения результатов исследований в производство

Мы, нижеподписавшиеся, составили настоящий акт о том, что в период с мая 2020 г. по настоящее время в ЗАО «Нива» Весёловского района используется программа для ЭВМ «Агрокомплекс-2.1 «АСУТО», разработанная сотрудниками Азово-Черноморского инженерного института ФГБОУ ВО Донской ГАУ в г. Зернограде к.т.н. доцентом Никитченко Сергеем Леонидовичем и инженером Лесник Натальей Александровной в рамках научной работы на тему «Совершенствование организации технического обслуживания сельскохозяйственной техники на основе специализированного программного обеспечения».

Внедрённое программное обеспечение «Агрокомплекс-2.1 «АСУТО» имеет практическое значение при оснащении рабочих мест инженерно-технических работников предприятия. Его применение упрощает решение задач планирования, учёта и анализа мероприятий технического обслуживания (ТО) машин. Программа позволяет индивидуально по каждому объекту строить график ТО, осуществлять учёт и контроль выполнения периодических ТО на уровне отдельных регламентных операций, учитывать текущую наработку машин и трудоёмкость ТО, выполнять анализ потребления запасных частей. Все учитываемые программой параметры для каждой машины хранятся в единой базе данных. Программа формирует отчёт в виде журнала сервисных работ в целом по парку тракторов, комбайнов и поливных машин хозяйства, в котором в календарной последовательности отражены все выполненные виды ТО, составляющие их операции, мероприятия по устранению отказов для каждой машины, а также исполнители работ.

Использование такого набора функциональных возможностей программы обеспечивает цифровизацию инженерной деятельности в сфере управления мероприятиями технической эксплуатации машинно-тракторного парка и способствует соблюдению фирменных регламентов ТО, совершенствованию организации процессов и повышению качества ТО сельскохозяйственной техники предприятия.

Главный экономист ЗАО «Нива» О.Н. Руева

Главный инженер ЗАО «Нива»

В.В. Прядун

АКТ

внедрения результатов исследований Лесник Натальи Александровны в учебный процесс

Комиссия в составе сотрудников Азово-Черноморского инженерного института - филиала ФГБОУ ВО Донского ГАУ в г. Зернограде, декана инженерно-технологического факультета д.т.н., профессора Арженовского А.Г., заведующего кафедрой «Эксплуатация и технический сервис наземных транспортно-технологических средств» к.т.н., доцента Оберемок В.А. составили настоящий акт о том, что в учебный процесс по направлению подготовки «Агроинженерия» бакалавров профиля «Технический сервис в АПК» и магистров направленности «Технологии и технические средства производства сельскохозяйственной продукции» внедрены результаты научных исследований соискателя Лесник H.A. «Совершенствование организации технического обслуживания сельскохозяйственной техники с применением специализированного программного обеспечения». Результаты исследований и рекомендации производству включены в содержимое дисциплины «Диагностика и техническое обслуживание машин», а также используются при выполнении выпускных квалификационных работ бакалавров и магистров в период с 2017 г. по настоящее время.

Декан инженерно- технологического

факультета, д.т.н., профессор

А.Г. Арженовский

И.о. зав.кафедрой «Эксплуатация и технический сервис наземных транспортно-технологических средств», к.т.н., доцент

В.А. Оберемок

Приложение А (обязательное)

Исходный текст программы «Агрокомплекс-2.1 «АСУТО» (фрагменты)

unit P_ASUTO;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Buttons, DBCtrls, Grids, DBGrids, ExtCtrls, DB, FIBDataSet, FIBDatabase, pFIBDatabase, pFIBDataSet, UDVED, USprav, Menus, DBTables, RpCon, RpConDS, RpBase, RpSystem, RpDefine, RpRave, inifiles, DBCGrids, Mask, ImgList;

type

TForm1 = class(TForm) StatusBar1: TStatusBar; FDBSequr: TpFIBDatabase; FIBDBRES: TpFIBDatabase; tFJURNS: TpFIBDataSet; TransJUR1: TpFIBTransaction; TransJUR2: TpFIBTransaction; DSJURNS: TDataSource; tFJURNSACOD: TFIBIntegerField; tFJURNSDVNOM: TFIBIntegerField; tFJURNSMARKA: TFIBStringField; tFJURNSINVNOM: TFIBStringField; tFJURNSDATA: TFIBDateField; tFJURNSDATAISP: TFIBDateField; tFJURNSSAVNOM: TFIBStringField; tFJURNSMASHINA: TFIBStringField; tFJURNSSAKASCH: TFIBStringField; tFJURNSVIDREM: TFIBStringField; tFJURNSNARABOT: TFIBFloatField; tFJURNSPOSLREM: TFIBStringField; tFJURNSDATAPOSL: TFIBDateField; PPath: TPanel; Panel22: TPanel; SButPathBD: TSpeedButton; Label100: TLabel; Label101: TLabel; Label106: TLabel; EPathBD: TEdit; CBLogin: TComboBox; EParol: TEdit; ChBSeqyr: TCheckBox; Button13: TButton; BitBSagr: TBitBtn; PageControl1: TPageControl; TabSheet1: TTabSheet; TabSheet2: TTabSheet; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; Label3: TLabel; BitBtn1: TBitBtn; DateTimePicker1: TDateTimePicker; DateTimePicker2: TDateTimePicker; BitBtn2: TBitBtn; DBGrid1: TDBGrid; DBNavigator1: TDBNavigator; MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem;

N15: TMenuItem; Excell: TMenuItem; N16: TMenuItem;

OpenDialogl: TOpenDialog; tFSeqyr: TpFIBDataSet; TransSeqyr: TpFIBTransaction; tFSeqyrACOD: TFIBIntegerField; tFSeqyrDOLGN: TFIBStringField; tFSeqyrNAMF: TFIBStringField; tFSeqyrIMJA: TFIBStringField; tFSeqyrOTCH: TFIBStringField; tFSeqyrLOGIN: TFIBStringField; tFSeqyrPAROL: TFIBStringField; tFSeqyrLOGINRU: TFIBStringField; tFSeqyrPAROLRU: TFIBStringField; N17: TMenuItem; N18: TMenuItem; Buttonl: TButton; Tablel: TTable; Table2: TTable; Table2Data: TDateField; Table2Doc: TStringField; Table2Nom_treb: TStringField;

Table2Akod: TAutoIncField; Table2Timer: TTimeField; Table2Nom_Mash: TStringField;

Table2NomKat: TStringField; Table2KodDetal: TStringField;

Table2KodPostav: TStringField; Table2KodTip: TStringField;

Table2Kolich: TFloatField; Table2EdIsm: TStringField; Table2Suma: TFloatField;

Table2KodPodr: TStringField; Table2Mashina: TStringField;

Table2Usel: TStringField; Table2Grup: TStringField; Table2Marka: TStringField;

Table2Sklad: TStringField; Table2Jach: TStringField; Table2Ost: TFloatField;

Button2: TButton; Button3: TButton; tFMarkiTr: TpFIBDataSet;

TransMarkiTr: TpFIBTransaction; tMarkiS: TTable; DSMarkiTR: TDataSource;

tFParkTrACOD: TFIBIntegerField; tFParkTrINVNOM: TFIBStringField;

tFParkTrMARKA: TFIBStringField; tFParkTrMEHANISAT: TFIBStringField;

tFParkTrPODR: TFIBStringField; tFParkTrGOD: TFIBSmallIntField;

tFParkK: TpFIBDataSet; TransParkK: TpFIBTransaction;

RvPrIng: TRvProject; RvSysteml: TRvSystem;

RvDSCDVRASH: TRvDataSetConnection; RvDCDEFEKT: TRvDataSetConnection;

tFMSHM: TpFIBDataSet; TransMSHM: TpFIBTransaction;

DSMSHM: TDataSource; tFJURNSUSAR: TFIBStringField;

tFReestrM: TpFIBDataSet; TransReesMl: TpFIBTransaction;

TransReesM2: TpFIBTransaction; DSReesM: TDataSource;

tFReestrMACOD: TFIBIntegerField; tFReestrMINVN: TFIBStringField;

tFReestrMMARKA: TFIBStringField; tFReestrMTIP: TFIBStringField;

tFReestrMPODR: TFIBStringField; Button4: TButton; tFReesTK: TpFIBDataSet;

Panel6: TPanel; Panel3: TPanel; DBGrl: TDBGrid; Panel4: TPanel;

Label6: TLabel; EPoiskM: TEdit; DBNavigator2: TDBNavigator;

N7: TMenuItem; tFMarkiTrACOD : TFIBIntegerField;

tFMarkiTrMARKA: TFIBStringField; tFMarkiTrTIP: TFIBStringField; tFMarkiTrKUSL: TFIBFloatField; tFMarkiTrPERIOD: TFIBFloatField; tFMarkiTrDOPUSK: TFIBFloatField; RVDSSapr: TRvDataSetConnection; Table1Hos_N: TStringField; Table1Marka: TStringField; Table1Mehanisat: TStringField; Table1Podrasd: TStringField; Table1God_wip: TSmallintField; Table1Balans: TFloatField; Table1AmortProz: TFloatField; Table1Cwet: TStringField; Table1Primech: TStringField; TransParkTr2: TpFIBTransaction; TransMarkiTr2: TpFIBTransaction; RvPrDef: TRvProject; RvSystem2: TRvSystem; tFSapravkiOST: TFIBFloatField; N19: TMenuItem; P_Grafik: TPanel; PageControl2: TPageControl; TabSheet3: TTabSheet; DBCtrlGrid1: TDBCtrlGrid; Label8: TLabel; Label9: TLabel; Label10: TLabel; Label11: TLabel; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBCheckBox1: TDBCheckBox; TabSheet4: TTabSheet; Panel5: TPanel; Panel7: TPanel; DBNavigator3: TDBNavigator; DBGr3: TDBGrid; Panel8: TPanel; PCLK: TPageControl; TabSheet5: TTabSheet; Panel9: TPanel; Label4: TLabel; Label5: TLabel; Label7: TLabel; BitBNewKart: TBitBtn; BitBtn3: TBitBtn; BitBtn4: TBitBtn; EOtpuskT: TEdit; BitBSaprav: TBitBtn; DTPReesTK: TDateTimePicker; EOst2: TEdit; BitBSapTK: TBitBtn; GroupBox1: TGroupBox; BitBtn5: TBitBtn; TabSheet6: TTabSheet; Panel10: TPanel; DBNavigator4: TDBNavigator; DBGrid4: TDBGrid; Panel11: TPanel; Button5: TButton; BitBSap2: TBitBtn; Panel12: TPanel; DBCtrlGrid2: TDBCtrlGrid; Panel13: TPanel; DSSetka: TDataSource; tFSetka: TpFIBDataSet; TransSet1: TpFIBTransaction; TransSet2: TpFIBTransaction; tFSetkaACOD: TFIBIntegerField; tFSetkaINVNOM: TFIBStringField; tFSetkaMARKA: TFIBStringField; tFSetkaNARABOT: TFIBFloatField; tFSetkaDATA: TFIBDateField; DBEdit6: TDBEdit; Label15: TLabel; Label16: TLabel; ButSakGraf: TButton; Panel14: TPanel; DSVidTO: TDataSource; TransTO1: TpFIBTransaction; TransTO2: TpFIBTransaction; tFVidTO: TpFIBDataSet; tFVidTOACOD: TFIBIntegerField; tFVidTOVIDTO: TFIBStringField; tFVidTOPRIM: TFIBStringField; tFVidTOKODTO: TFIBIntegerField; tFVidTORIS: TFIBBlobField; DBImage1: TDBImage; tFSetkaGRAF: TFIBBlobField; Panel15: TPanel; BitBtn6: TBitBtn; DTPGrC: TDateTimePicker; Label12: TLabel; BitBtn7: TBitBtn; Label13: TLabel; DTPGrPo: TDateTimePicker; Panel16: TPanel;

DBCtrlGrid4: TDBCtrlGrid; DBImage2: TDBImage; Panel17: TPanel;

DBText1: TDBText; ImageList1: TImageList; Panel18: TPanel; Label14: TLabel;

Label17: TLabel; LabNom: TLabel; LabTek: TLabel; Label18: TLabel;

LabOst: TLabel; DSPeriod: TDataSource; tFPeriod: TpFIBDataSet;

TransPer1: TpFIBTransaction; TransPer2: TpFIBTransaction;

tFPeriodACOD: TFIBIntegerField; tFPeriodMARKA: TFIBStringField;

tFPeriodVIDTO: TFIBStringField; tFPeriodMCH: TFIBFloatField;

tFPeriodKGT: TFIBFloatField; tFPeriodDCH: TFIBFloatField;

tFPeriodDKG: TFIBFloatField; tFReestrMNM: TFIBFloatField;

tFReestrMNKG: TFIBFloatField; tFSetkaVIDTO: TFIBStringField; EGrMar: TEdit;

Label19: TLabel; EGrInv: TEdit; Label20: TLabel; BitBtn8: TBitBtn;

CBNTO: TComboBox; Label21: TLabel; DTPN: TDateTimePicker;

CBNIsp: TComboBox; ENar: TEdit; Label22: TLabel; EPlan: TEdit; Label23: TLabel;

DBCtrlGrid3: TDBCtrlGrid; DBImage3: TDBImage; DBText2: TDBText;

tFJURNSRISTO: TFIBBlobField; SpButNar: TSpeedButton; BitBtn9: TBitBtn;

Label24: TLabel; DBText3: TDBText; DShlus: TDataSource; tFShlus: TpFIBDataSet;

TranSh1: TpFIBTransaction; TranSh2: TpFIBTransaction;

tFShlusACOD: TFIBIntegerField; tFShlusDATA: TFIBDateField;

tFShlusTIMERS: TFIBTimeField; tFShlusINV: TFIBStringField;

tFShlusNAR: TFIBFloatField; procedure BitBSagrClick(Sender: TObject);

procedure Button13Click(Sender: TObject); procedure FormCreate(Sender: TObject);

procedure DBGrid1DblClick(Sender: TObject);

procedure SButPathBDClick(Sender: TObject);

procedure ChBSeqyrClick(Sender: TObject); procedure N13Click(Sender: TObject); procedure N6Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject);

procedure N7Click(Sender: TObject); procedure Button4Click(Sender: TObject); procedure tFSapravkiNewRecord(DataSet: TDataSet); procedure tFReesTKCalcFields(DataSet: TDataSet); procedure DBGr3DblClick(Sender: TObject);

procedure BitBtn3Click(Sender: TObject); procedure EVosvrChange(Sender: TObject); procedure DBGr3DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);

procedure EPoiskMChange(Sender: TObject); procedure BitBtn5Click(Sender: TObject); procedure N19Click(Sender: TObject); procedure DBGr1DblClick(Sender: TObject); procedure ButSakGrafClick(Sender: TObject); procedure tFReestrMAfterScroll(DataSet: TDataSet);

procedure BitBtn6Click(Sender: TObject); procedure BitBtn8Click(Sender: TObject); procedure SpButNarClick(Sender: TObject); procedure BitBtn9Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var

Form1: TForm1; implementation uses U_JServ; {$R *.dfm} var

i, k, n, j: integer; Ini: TIniFile;

NFile, Parol, Usar, ParolRu, SFile, Direkt, Mar, Inv: string; Nar, Nar1, Nar2, Ost, Plan: real; procedure TForm1.BitBSagrClick(Sender: TObject); begin if CBLogin.Text-' then begin ShowMessage('Укажите логин!'); exit; end;

if EParol.Text-' then begin ShowMessage('Укажите пароль!'); exit; end;

Parol:="; Usar:=''; ParolRu:=''; FDBSequr.Connected:=false; FDBSequr.DBName:=EPathBD.Text; FDBSequr.ConnectParams.RoleName:= 'INGENER'; FDBSequr.Connected:= true; tFSeqyr.Active:=true; FIBDBRES.Connected:=false; FIBDBRES.DBName:=EPathBD.Text;

tFSeqyr.First; while not tFSeqyr.Eof do begin

if CBLogin.Text= tFSeqyrDOLGN.AsString then begin FIBDBRES.ConnectParams.UserName:= tFSeqyrLOGIN.AsString; Usar:= tFSeqyrLOGIN.AsString; Parol:=tFSeqyrPAROL.AsString; ParolRU:=tFSeqyrPAROLRU.AsString; end; tFSeqyr.Next; end;

if EParol.Text=ParolRU then begin FIBDBRES.ConnectParams.Password:= Parol; FIBDBRES.Connected:=True; end else begin ShowMessage('Пароль неверный!'); exit; end;

if FIBDBRES.Connected=True then begin PPath.Visible:=false; N18.Caption:= CBLogin.Text; with tFJURNS do begin if Active = true then Close; SelectSQL.Clear;

SelectSQL.Add('SELECT * FROM JURNTO'); SelectSQL.Add('ORDER BY DATAISP'); Open; end;

tFPeriod.Active:=true; tFReesTK.Active:=true; tFShlus.Active:=true; tF S apravki.Active:=true; tFMarkiTr.Active :=true; tFParkK .Active :=true; tFSetka.Active:=true; tFVidTO.Active:=true; tFReestrM.Active:= true; end; PPath.Visible:=False; Application.CreateForm(TF_JServ, F_JServ); end;

procedure TForm1.BitBtn6Click(Sender: TObject); begin if Enar.Text = '' then begin

ShowMessage('Введите значение начальной наработки!'); ENar.SetFocus; Exit; end; Nar1:= StrToFloat(ENar.Text); if EPlan.Text = '' then begin ShowMessage('Введите значение начальной наработки!'); EPlan.SetFocus; Exit; end; Plan:= StrToFloat(EPlan.Text);

Nar2:= Nar1+Plan; tFPeriod.Filter:= 'MARKA='"+EGrMar.Text+MM; tFPeriod.Filtered:=true; tFPeriod.First; while not tFPeriod.eof do begin if (tFperiodKGT.AsFloat > Nar1) and (tFperiodKGT.AsFloat < Nar2) then

begin tFSetka.Insert;

tFSetkaMARKA.AsString:= EGrMar.Text; tFSetkaINVNOM.AsString:= EGrInv.Text; tFSetkaVIDTO.AsString:= tFPeriodVIDTO.AsString; tFSetkaNARABOT.AsFloat:= tFPeriodKGT.AsFloat; tFSetkaDATA.AsFloat:= DTPGrC.Date; if tFPeriodVIDTO.AsString = 'ТО-1' then tFSetkaGRAF.LoadFromFile('ТО_1.bmp'); if tFPeriodVIDTO.AsString = 'ТО-2' then tFSetkaGRAF.LoadFromFile('ТО_2.bmp'); if tFPeriodVIDTO.AsString = 'ТО-3' then tFSetkaGRAF.LoadFromFile('TO_3.bmp'); if tFPeriodVIDTO.AsString = 'ТР' then tFSetkaGRAF.LoadFromFile('ТР.bmp'); if tFPeriodVIDTO.AsString = 'КР' then tFSetkaGRAF.LoadFromFile('КР.bmp'); tFSetka.Post; end; tFPeriod.Next; end;

tFSetka.ApplyUpdToBase; if not TransSet2.Active then TransSet2.Active:=true; TransSet2.Commit; tFSetka.FullRefresh; tFPeriod.Filtered:=false; end; procedure TForm1.BitBtn8Click(Sender: TObject); begin

if AppHcation.MessageBox(r8bi уверены в необходимости проведения ТО?', 'Подтвердите занесение в журнал сервисных работ', MB_YESNOCANCEL + MB_ICONQUESTION) = idYes Then begin if Enar.Text = '' then begin

ShowMessage('Введите значение текущей наработки!'); ENar.SetFocus; Exit; end;

tFReestrM.Edit; tFReestrMNKG.AsFloat:= StrToFloat(Enar.Text); tFReestrM.Post; tFReestrM.ApplyUpdToBase; if not TransReesM2.Active then TransReesM2.Active:=true; TransReesM2.Commit; tFReestrM.FullRefresh; TransReesM2.Active:=false; tFJURNS.Insert;

tFJURNSINVNOM.AsString:= tFReestrMINVN.AsString; tFJURNSMARKA.AsString:= tFReestrMMARKA.AsString; tFJURNSDATAISP.AsDateTime:=DTPN.Date; tFJURNSNARABOT.AsFloat:= StrToFloat(Enar.Text);

tFJURNSVIDREM.AsString:= CBNTO.Text; tFJURNSUSAR.AsString:= CBNIsp.Text; if CBNTO.Text = 'ТО-1' then tFJURNSRISTO.LoadFromFile('TO_1.bmp'); if CBNTO.Text = 'ТО-2' then tFJURNSRISTO.LoadFromFile('ТО_2.bmp'); if CBNTO.Text = 'ТО-3' then tFJURNSRISTO.LoadFromFile('ТО_3.bmp');

if CBNTO.Text = 'ТР' then tFJURNSRISTO.LoadFromFileCIF.bmp'); if CBNTO.Text = 'КР' then tFJURNSRISTO.LoadFromFile('КР.bmp'); if CBNTO.Text = 'СТО' then tFJURNSRISTO.LoadFromFile('СТО.bmp'); if CBNTO.Text = 'ТОпх' then tFJURNSRISTO.LoadFromFile('ПХ.bmp'); if CBNTO.Text = 'ТОсх' then tFJURNSRISTO.LoadFromFile('СХ.bmp'); tFJURNS.Post; tFJURNS.ApplyUpdToBase;

if not TransJUR2.Active then TransJUR2.Active:=true; TransJUR2.Commit; tFJURNS.FullRefresh; TransJUR2.Active:=false; end; tFJURNS.Filter:= 'INVNOM='''+tFReestrMINVN.AsString+''''; tFJURNS.Filtered:=true; end; procedure TForm1.BitBtn9Click(Sender: TObject); begin tFSetka.Insert; tFSetkaMARKA.AsString:= EGrMar.Text; tFSetkaINVNOM.AsString:= EGrInv.Text;

tFSetkaVIDTO.AsString:= CBNTO.Text; tFSetkaDATA.AsFloat:= DTPGrC.Date; if CBNTO.Text = 'СТО' then tFSetkaGRAF.LoadFromFile('СТО.bmp'); if CBNTO.Text = 'ТОпх' then tFSetkaGRAF.LoadFromFile('ПХ.bmp'); if CBNTO.Text = 'ТОсх' then tFSetkaGRAF.LoadFromFile('СХ.bmp'); if CBNTO.Text = 'КР' then tFSetkaGRAF.LoadFromFile('КР.bmp'); tFSetka.Post;

tFSetka.ApplyUpdToBase; if not TransSet2.Active then TransSet2.Active:=true; TransSet2.Commit; tFSetka.FullRefresh; end; procedure TForm1.ButSakGrafClick(Sender: TObject); begin Panel6.Visible:= true; P_Grafik.Visible:= false; end;

procedure TForm1.Button13Click(Sender: TObject); begin PPath.Visible:=False; end; procedure TForm1.Button3Click(Sender: TObject); begin

tParkS.Active:=true; tParkS.First; while not tParkS.Eof do begin tFPSHM.Insert; tFPSHMINVNOM.AsString:= tParkSHos_N.AsString; tFP SHMTIP S.AsString:= tParkSTip_cxm.AsString; tFP SHMMARKA.AsString := tParkSMarka.AsString; tFP SHMPODR.AsString:= tParkSPodrasd.As String; tFPSHMMEHANIS AsString:= tParkSMehanisat.AsString;

tFP SHMKOL.AsInteger:= tParkSKol.AsInteger; tFPSHMGOD .AsInteger:= tParkSGod_wip.AsInteger; tFPSHM.Post; tParkS.Next; end; tFPSHM.ApplyUpdToBase; if not TransPSHM.Active then TransPSHM.Active:=true; TransPSHM.Commit; tFPSHM.FullRefresh; tParkS.Active:=false; ShowMessage('Выполнено!'); end;

procedure TForm1.Button4Click(Sender: TObject); begin Table1.Active:=true; Table1.First; while not Table1.eof do begin tFReestrM.Insert; tFReestrMINVN.AsString:= Table1Hos_N.AsString; tFReestrMMARKA.As String := Table1Marka.AsString; tFReestrMTIP.AsString:= 'трактор'; tFReestrM.Post; Table1.Next; end;

tFReestrM.ApplyUpdToBase; if not TransReesM2.Active then TransReesM2.Active:=true; TransReesM2.Commit; tFReestrM.FullRefresh; Table1.Active:=false; ShowMessage('Выполнено!'); end;

procedure TForm1.Button6Click(Sender: TObject); begin

tFParkK.First; while not tFParkK.Eof do begin tFReestrM.Insert; tFReestrMINVN.AsString:= tFParkKINVNOM.AsString; tFReestrMMARKA.AsString:= tFParkKMARKA.AsString; tFReestrMTIP.AsString:= 'комбайн';

tFReestrMPODR.AsString:= tFParkKPODR.AsString; tFReestrM.Post; tFParkK.Next; end;

Form1.tFReestrM.ApplyUpdToBase;

if not Form1.TransReesM2.Active then Form1.TransReesM2.Active:=true; Form1.TransReesM2.Commit; Form1.tFReestrM.FullRefresh; TransReesM2.Active:=false; end; procedure TForm1.ChBSeqyrClick(Sender: TObject); begin if ChBSeqyr.Checked=true then begin CBLogin.Clear; FDBSequr.Connected:=false; FDBSequr.DBName:=EPathBD.Text; FDBSequr.ConnectParams.RoleName:= 'INGENER'; {FIBDBAVTO.ConnectParams.Password:= Eparol.Text;} FDBSequr.Connected:= true; tFSeqyr.Active:=true; tFSeqyr.First;

while not tFSeqyr.Eof do begin CBLogin.Items.Add(tFSeqyrDOLGN.AsString); tFSeqyr.Next; end; end; end;

procedure TForm1.DBGr1DblClick(Sender: TObject);

begin EGrMar.Clear; EGrInv.Clear; EGrMar.Text:= tFReestrMMARKA.AsString; EGrInv.Text:= tFReestrMINVN.AsString; ENar.Text:= FloatToStr(tFReestrMNKG.AsFloat); P_Grafik.Visible:=true; Panel6.Visible:= false;

tFSetka.Filter:= '(MARKA='''+EGrMar.Text+''')and(INVNOM='''+ EGrInv.Text+''')'; TFSetka.Filtered:= true; TFSetka.First; end; procedure TForm1.EOtpuskTChange(Sender: TObject); begin

EOst2.Clear; if EOtpuskT.Text<>'' then begin

EOst2.Text:= FloatToStr(tFReesTKOSTATR.AsFloat-StrToFloat(EOtpuskT.Text)); end; end;

procedure TForm1.EPoiskMChange(Sender: TObject); begin

tFReestrM.Locate('INVN', VarArrayOf([EPoiskM.Text]), [loCaseInsensitive]); end;

procedure TForm1.EVosvrChange(Sender: TObject); begin EOst2.Clear; if EVosvr.Text<>'' then begin EOst2.Text:= FloatToStr(tFReesTKOSTATR.AsFloat+StrToFloat(EVosvr.Text)); end; end;

procedure TForm1.FormCreate(Sender: TObject); Var F: file;

begin Panel6.Align:= alClient;

GetDir(0, Direkt); SFile:= string(Direkt)+'Sapr.ini'; if FileExists(SFile) then begin

Ini := TIniFile.Create(SFile); // чтение ключей

EPathBD.Text:= ini.ReadString('Параметры', 'Путь к базе данных - ', 'RESURS.FDB'); end;

PPath.Left:=300; PPath.Top:=175; PPath.Height:=243; PPath.Width:=428; PPath.Visible:=True; k:=0; n:=0; j:=0;

procedure TForm1.FormDestroy(Sender: TObject);

begin if (Ini = nil) then Exit; Ini.EraseSection ('Параметры');

Ini.WriteString('Параметры', 'Путь к базе данных - ', EPathBD.Text); ini.UpdateFile; Ini.Free; tFJURNS.Active:=false; tFJURNS.Active:=false; tFParkTr.Active:=false; tFMarkiTr.Active:=false; tFSetka.Active:=false; tFVidTO.Active:=false; tFPeriod.Active:=false; tFReestrM.Active:= false; tFShlus.Active:=false; FIBDBRES.Connected:=false; FDBSequr.Connected:=false; end;

procedure TForm1.N13Click(Sender: TObject);

begin PPath.Left:=300; PPath.Top:=175; PPath.Height:=243; PPath.Width:=428; PPath.Visible:=true; end; procedure TForm1.N19Click(Sender: TObject); begin F_JServ.Visible:=true; end; procedure TForm1.SButPathBDClick(Sender: TObject); begin

if OpenDialog1.Execute then begin EPathBD.Clear;

NFile:= OpenDialog1.FileName; EPathBD.Text:= NFile; end; CBLogin.Clear; FDBSequr.Connected:=false;

FDBSequr.DBName:=EPathBD.Text; FDBSequr.ConnectParams.RoleName:= 'INGENER'; FDBSequr.Connected:= true; tFSeqyr.Active:=true; tFSeqyr.First; while not tFSeqyr.Eof do begin

CBLogin.Items.Add(tFSeqyrDOLGN.AsString); tFSeqyr.Next; end; CBLogin.Text:='Главный инженер'; EParol.Text:='агро2009'; end;

procedure TForm1.SpButNarClick(Sender: TObject);

begin if AppHcation.MessageBox(r8bi уверены, что наработка изменилась?', 'Подтвердите изменение наработки объекта', MB_YESNOCANCEL + MB_IC ONQUESTION) = idYes Then BEGIN if Enar.Text = '' then begin

ShowMessage('Введите значение текущей наработки!'); ENar. SetFocus; Exit; end;

tFReestrM.Edit; tFReestrMNKG.AsFloat:= StrToFloat(Enar.Text); tFReestrM.Post; tFReestrM.ApplyUpdToBase; if not TransReesM2.Active then TransReesM2.Active:=true; TransReesM2.Commit; tFReestrM.FullRefresh; TransReesM2.Active:=false; END; end;

procedure TForm1.tFReesTKNewRecord(DataSet: TDataSet); begin

tFReesTK.FieldByName('INV').AsString:= tFReestrM.FieldByName('ACOD').AsString; end;

procedure TForm1.tFReestrMAfterScroll(DataSet: TDataSet); begin tFJURNS.Active:=true; Mar:='';

LabNom.C apti on:= tFReestrMMARKA.AsString+ '; №'+ tFReestrMINVN.AsString; Mar:= tFReestrMMARKA.AsString; Inv:= tFReestrMINVN.AsString; i:=0; j:=0; tFJURNS.Filter:= 'INVNOM='''+tFReestrMINVN.AsString+''''; tFJURNS.Filtered:=true; tFSetka.Filter:= '(MARKA='''+Mar+''')and(INVNOM='''+Inv+''')'; TFSetka.Filtered:= true; TFSetka.First; LabTek.Caption:=''; LabOst.Caption:=''; Nar:=tFReestrMNKG.AsFloat; Nar1:=0; Nar2:=0; Ost:=0; tFperiod.filtered:= false; TFperiod.Filter:='(MARKA='''+Mar+''''+')'; TFperiod.Filtered:=true; TFperiod.First; Nar2:=tFperiodKGT.asFloat; while not tFperiod.Eof do begin Nar1:=tFperiodKGT.AsFloat; if Nar < tFperiodKGT.AsFloat then begin Ost:= tFperiodKGT.asFloat-Nar; break; end; tFperiod.Next;

end; LabTek.Caption:= tFReestrMNKG.AsString; LabOst.Caption:= floattostr(Ost); tFperiod.filtered:= false; end;

procedure TForm1.tFSapravkiNewRecord(DataSet: TDataSet); begin

tFSapravki.FieldByName('NOMTK').AsString:= tFReesTK.FieldByName('ACOD').AsString; end; end.

unit USprav; (справочный модуль - выборочно)

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Menus, StdCtrls, ComCtrls, Buttons, ExtCtrls, DBCtrls, Grids, DBGrids, StdActns, ActnList;

type

TFSprav = class(TForm)

MainMenul: TMainMenu; N1: TMenuItem; N2: TMenuItem; N5: TMenuItem; N6: TMenuItem; Panel2: TPanel; PCSpNorm: TPageControl; TabSheet2: TTabSheet; TabSheet6: TTabSheet; PCSprav: TPageControl; TabShMTr: TTabSheet; DBMarkiTrak: TDBGrid; DBNavigatorMarkiTrak: TDBNavigator; TabShParkTrak: TTabSheet; DBParkTrak: TDBGrid; DBNavigatorPTr: TDBNavigator; TabShParkKomb: TTabSheet; DBParkKomb: TDBGrid; DBNavigatorPkomb: TDBNavigator; TabShVidTO: TTabSheet; DBNavigator2: TDBNavigator; Panel23: TPanel; Label109: TLabel; EPSXMPoiskM: TEdit; ChBRedParkSXM: TCheckBox; TabShPodrasd: TTabSheet; DBGrid5: TDBGrid; DBNavigator3: TDBNavigator; TabShOborud: TTabSheet; DBNavigatorll: TDBNavigator; DBOborud: TDBGrid; TabSheet10: TTabSheet; DBNavigator10: TDBNavigator; DBSpezi: TDBGrid; PageControl2: TPageControl; TabSheetl: TTabSheet; TabSheet7: TTabSheet; DBNavigator7: TDBNavigator; DBNavigator8: TDBNavigator; Panel5: TPanel; Panel6: TPanel; DBGrid4: TDBGrid; DBGrid8: TDBGrid; Panel7: TPanel; Labell: TLabel; Label2: TLabel; EMarkl: TEdit; ButDobMark: TButton; EPeriodl: TEdit; ButSapMark: TButton; BitBClearl: TBitBtn; CBTipM: TComboBox; Label3: TLabel; Panel8: TPanel; Label4: TLabel; Label5: TLabel; Label6: TLabel; EReesMINV: TEdit; BitBClear2: TBitBtn; CBTipNM: TComboBox; Label7: TLabel; CBMarkNM: TComboBox; CBPodr: TComboBox; Button3: TButton; Button4: TButton; DBGrid6: TDBGrid; Buttonl: TButton; DBImagel: TDBImage; BitBDobR: TBitBtn; TabSheet12: TTabSheet; Panel9: TPanel; DBNavigator9: TDBNavigator; DBGrid10: TDBGrid; EMCH: TEdit; EKG: TEdit; CBMPer: TComboBox; CB_TO: TComboBox; Label8: TLabel; Label9: TLabel; Label10: TLabel; Labelll: TLabel; BitBtnl: TBitBtn; BitBtn2: TBitBtn; EDCH: TEdit; EDKG: TEdit; Label12: TLabel; Label13: TLabel; BitBDPer: TBitBtn; BitBtn3: TBitBtn; RadioGroupl: TRadioGroup; PopupMenul: TPopupMenu; ActionListl: TActionList; EditCutl: TEditCut; Action3: TAction; EditCopyl: TEditCopy; EditPastel: TEditPaste; N3: TMenuItem; N4: TMenuItem; TabSheet3: TTabSheet; DBNavigatorl: TDBNavigator; Panell: TPanel; DBGrSh: TDBGrid; Label14: TLabel; DTPG1: TDateTimePicker; Label15: TLabel; DTPG2: TDateTimePicker;

BitBGPS 1: TBitBtn; CheckBox1: TCheckBox; SpeedButton1: TSpeedButton; BitBtGV: TBitBtn; procedure N2Click(Sender: TObject);

procedure Button4Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure ButSapMarkClick(Sender: TObject); procedure ButDobMarkClick(Sender: TObject);

procedure BitBClear1Click(Sender: TObject); procedure BitBClear2Click(Sender: TObject); procedure BitBDPerClick(Sender: TObject);

procedure BitBtn1Click(Sender: TObject); procedure BitBtn2Click(Sender: TObject); procedure BitBtn3Click(Sender: TObject); procedure BitBtGVClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var

FSprav: TFSprav; implementation {$R *.dfm} uses P_ASUTO;

procedure TFSprav.BitBClear1Click(Sender: TObject); begin EMark1.Clear; EPeriod1.Clear; CBTipM.Text:=''; end;

procedure TFSprav.BitBClear2Click(Sender: TObject); begin

EReesMINV.Clear; CBMarkNM.Text:=''; CBTipNM.Text:=''; CBPodr.Text:-'; end;

procedure TFSprav.BitBDPerClick(Sender: TObject);

begin if CBMPer.Text='' then begin ShowMessage('Не указана марка машины!'); CBMPer.SetFocus; Exit; end;

if CB_TO.Text='' then begin ShowMessage('Не указан вид ТО!'); CB_TO.SetFocus; Exit; end;

FormLtFPeriod.Insert; FormLtFPeriodMARKA.AsString:= CBMPer.Text; Form1.tFPeriodVIDTO.AsString:= CB_TO.Text;

if (EMCH.Text<>'') and (EMCH.Text<>'0') then Form1.tFPeriodMCH.AsFloat:= StrToFloat(EMCH.Text);

if (EDCH.Text<>'') and (EDCH.Text<>'0') then Form1.tFPeriodDCH.AsFloat:= StrToFloat(EDCH.Text);

if (EKG.Text<>'') and (EKG.Text<>'0') then Form1.tFPeriodKGT.AsFloat:= StrToFloat(EKG.Text);

if (EDKG.Text<>'') and (EDKG.Text<>'0') then Form1.tFPeriodDKG.AsFloat:= StrToFloat(EDKG. Text); Form1.tFPeriod.Post; Form1.tFPeriod.ApplyUpdToBase;

if not Form1.TransPer2.Active then Form1.TransPer2.Active:=true; Form1.TransPer2.Commit; Form1.tFPeriod.FullRefresh; Form1.TransPer2.Active:=false; end;

procedure TFSprav.BitBtGVClick(Sender: TObject); begin

with Form1.tFShlus do begin if Active = true then Close; SelectSQL.Clear; SelectSQL.Add('SELECT * FROM SHLUS');

SelectSQL.Add('WHERE DATA BETWEEN :prmDate1 AND :prmDate2 ORDER BY DATA, INV');

Params.ParamByName('prmDate1').Value:= DTPG1.Date; Params.ParamByName('prmDate2').Value:= DTPG2.Date; Prepare; Open; end; end; procedure TFSprav.BitBtn1Click(Sender: TObject); begin

Form1.tFPeriod.ApplyUpdToBase; if not Form1.TransPer2.Active then Form1.TransPer2.Active:=true; Form1.TransPer2.Commit; Form1.tFPeriod.ApplyUpdToBase; if not Form1.TransPer2.Active then Form1.TransPer2.Active:=true; Form1.TransPer2.Commit; Form1.tFPeriod.FullRefresh; Form1.TransPer2.Active:=false; end;

procedure TFSprav.BitBtn2Click(Sender: TObject); begin

if Application.MessageBox(r8bi подтверждаете удаление выделенной строки из таблицы?', 'Подтвердите удаление строки', MB_YESNO + MB_ICONQUESTION) = idYes then begin Form1.tFPeriod.Edit; Form1.tFPeriod.Delete; Form1.tFPeriod.ApplyUpdToBase; if not Form1.TransPer2.Active then Form1.TransPer2.Active:=true; Form1.TransPer2.Commit; Form1.tFPeriod.FullRefresh; Form1.TransPer2.Active:=false; end; end;

procedure TFSprav.ButSapMarkClick(Sender: TObject); begin

Form1.tFMarkiTr.ApplyUpdToBase;

if not Form1.TransMarkiTr2.Active then Form1.TransMarkiTr2.Active:=true; Form1.TransMarkiTr2.Commit; Form1.tFMarkiTr.FullRefresh; Form1.TransMarkiTr2. Active :=false; end;

procedure TFSprav.Button3Click(Sender: TObject); begin if EReesMINV.Text-' then begin

ShowMessage('Не указан инвентарный номер машины!'); EReesMINV.SetFocus; Exit; end; if CBMarkNM.Text='' then begin ShowMessage('№ указана марка машины!'); CBMarkNM.SetFocus; Exit; end;

Form1.tFReestrM.Insert; Form1.tFReestrMINVN.AsString:= EReesMINV.Text; Form1.tFReestrMMARKA.AsString:= CBMarkNM.Text; Form1.tFReestrMTIP.AsString:= CBTipNM.Text; Form1.tFReestrMPODR.AsString:= CBPodr.Text; Form1.tFReestrM.Post; Form1.tFReestrM.ApplyUpdToBase; if not Form1.TransReesM2.Active then Form1.TransReesM2.Active:=true; Form1.TransReesM2.Commit; Form1.tFReestrM.FullRefresh; Form1.TransReesM2.Active:=false;

EReesMINV.Clear; CBMarkNM.Text:=''; CBTipNM.Text:=''; CBPodr.Text:=''; end;

procedure TFSprav.Button4Click(Sender: TObject); begin Form1.tFReestrM.ApplyUpdToBase;

if not Form1.TransReesM2.Active then Form1.TransReesM2.Active:=true; Form1.TransReesM2.Commit; Form1.tFReestrM.FullRefresh; Form1.TransReesM2.Active:=false; end; procedure TFSprav.N2Click(Sender: TObject); begin

FSprav.Visible:=false; end; end.

unit U_JServ; (текст модуля журнала сервисных работ)

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, Mask, DBCtrls, Grids, DBGrids, ComCtrls, Buttons, ExtCtrls, P_ASUTO;

type

TF_JServ = class(TForm) MenuJ: TMainMenu;

N1: TMenuItem; N2: TMenuItem;N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; PageControl1: TPageControl; TabSheet1: TTabSheet; Panel1: TPanel; Panel2: TPanel; Label1: TLabel; Label2: TLabel; BitBtn1: TBitBtn; DTPJ1: TDateTimePicker; DTPJ2: TDateTimePicker; DBGrid1: TDBGrid; DBNavigator2: TDBNavigator; BitBtn2: TBitBtn;

procedure N4Click(Sender: TObject); procedure BitBtn1Click(Sender: TObject); private

{ Private declarations } public

{ Public declarations } end; var

F_JServ: TF_JServ; implementation {$R *.dfm}

procedure TF_JServ.BitBtn1Click(Sender: TObject);

begin with Form1.tFJURNS do begin filtered:= false; if Active = true then Close; SelectSQL.Clear; SelectSQL.Add('SELECT * FROM JURNTO'); SelectSQL.Add('WHERE DATAISP BETWEEN :prmDate1 AND :prmDate2 ORDER BY DATAISP, INVNOM'); Params.ParamByName('prmDate1').Value:= DTPJ1.Date; Params.ParamByName('prmDate2').Value:= DTPJ2.Date; Prepare; Open; end; end;

procedure TF_JServ.N4Click(Sender: TObject); begin

F_JServ.Visible:=false; Form1.tFJURNS.Filtered:= false; end; end.