Дипломная работа: Автоматизация учета работ, выполненных автотранспортом для ООО "Объединенное ПТУ Кузбасса"
Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
102
Приложение 7
Приложение 8
103
Приложение 9
Приложение 10
104
Приложение 11
Приложение 12
Приложение 13
105
Приложение 14
Листинг программных модулей
Журнал «Эксплуатация Авто»
Процедура ОткрытиеФормы(Элемент)
Док=ЭлементыФормы.ЖурналДокументовСписок.ТекущаяСтрока.Полу
читьОбъект();
Парр=Новый Структура("ТЗ",Док);
Если СокрЛП(элемент.имя)="Заявка" Тогда
Парр="";
КонецЕсли;
Форм="Обработка."+элемент.имя+".Форма.Форма";
ФРМ=ПолучитьФорму(Форм);
Фрм.Открыть();
КонецПроцедуры
Процедура ОткрытиеформыОтчеты(Элемент)
Док=ЭлементыФормы.ЖурналДокументовСписок.ТекущаяСтрока.ПолучитьОбъект()
;
Парр=Новый Структура("ТЗ",Док);
Если СокрЛП(элемент.имя)="Заявка" Тогда
Парр="";
КонецЕсли;
Форм="Отчет."+элемент.имя+".Форма.Форма";
ФРМ=ПолучитьФорму(Форм);
Фрм.Открыть();
КонецПроцедуры
Документ «ЭксплуатацияАвто»
Процедура К1Нажатие(Элемент)
106
Для Каждого Текст из ЭтотОбъект.Авто
Если ЗначениеЗаполнено(Текст.ТДатаОкончания)=Ложь
или ЗначениеЗаполнено(Текст.ТДатаНачала)=Ложь тогда
ПоказатьПредупреждение(,"Не верно заполнены даты выполнения
работ",100,"ВНИМАНИЕ!!!");
Прервать;
ИначеЕсли ПолнЗапДтВр(Текст.ТДатаОкончания)=Ложь или
ПолнЗапДтВр(Текст.ТДатаНачала)=Ложь тогда
ПоказатьПредупреждение(,"Не верно заполнены даты выполнения
работ",100,"ВНИМАНИЕ!!!");
Прервать;
ИначеЕсли ПолнЗапДтВр(Текст.ТДатаОкончания)<>Ложь и
ПолнЗапДтВр(Текст.ТДатаНачала)<>Ложь тогда
Вр=Текст.ТДатаОкончания-Текст.ТДатаНачала;
КонецЕсли
Часов=Цел(Вр/60/60);
Минут=(Вр/60) - (Часов*60);
ЧасовСТР=Строка(Часов);
МинутСТР=Строка(Минут);
Если СтрДлина(Строка(ЧасовСТР))=1 тогда
ЧасовСТР="0"+Строка(Часов);
КонецЕсли;
Если СтрДлина(Строка(МинутСТР))=1 тогда
МинутСТР="0"+Строка(Минут);
КонецЕсли;
Текст.ТВсегоВремени=ЧасовСТР+":"+МинутСТР;
КонецЦикла;
КонецПроцедуры
Процедура К2Нажатие(Элемент)
Для Каждого Текст из ЭтотОбъект.Авто Цик
Если ЗначениеЗаполнено(Текст.ТДатаОкончания)=Ложь или
ЗначениеЗаполнено(Текст.ТДатаНачала)=Ложь тогда
Источник: https://baza.diplomsite.ru/previewfile/2417