Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Курсовая (Перминов).doc
Скачиваний:
5
Добавлен:
09.11.2019
Размер:
5.3 Mб
Скачать

Приложение а

Модуль приложения

Процедура ПриНачалеРаботыСистемы()

ОткрытьФорму=Обработки.Меню.ПолучитьФорму();

ОткрытьФорму.Открыть();

КонецПроцедуры

Общий модуль РаботаСоСправочниками

Процедура РассчитатьСумму(СтрокаТЧ) Экспорт

СтрокаТЧ.Сумма = СтрокаТЧ.Количество * СтрокаТЧ.Цена;

КонецПроцедуры

Модуль формы элемента справочника «ВыполненныеРаботы»

Процедура ВывестиФото(ВыбСтрока)

Если ВыбСтрока <> Неопределено Тогда

Картинка = ВыбСтрока.Фото.Получить();

Если ТипЗнч(Картинка) = Тип("Картинка") тогда

ЭлементыФормы.ПолеКартинки.Картинка = Картинка;

Иначе

ЭлементыФормы.ПолеКартинки.Картинка = Новый Картинка;

КонецЕсли;

КонецЕсли;

КонецПроцедуры

Процедура ФотографииПриАктивизацииСтроки(Элемент)

Group 2241 ВыбСтрока = ЭлементыФормы.Фотографии.ТекущаяСтрока;

ВывестиФото(ВыбСтрока);

КонецПроцедуры

Процедура ФотографииНаименованиеПриИзменении(Элемент)

ВыбСтрока = ЭлементыФормы.Фотографии.ТекущаяСтрока;

ВывестиФото(ВыбСтрока);

КонецПроцедуры

Модуль формы документа «ВыполнениеРабот»

Процедура РассчитатьИтоговуюСумму()

СуммаДокумента = ПереченьУслуг.Итог("Сумма")+Материалы.Итог("Сумма");

КонецПроцедуры

Процедура УслугиНаименованиеПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.ПереченьУслуг.ТекущиеДанные;

СтрокаТЧ.Цена = СтрокаТЧ.Наименование.ЦенаЗаЕдиницу;

СтрокаТЧ.ЕдиницаИзмерения = СтрокаТЧ.Наименование.ЕдиницаИзмерения;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура УслугиКоличествоПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.ПереченьУслуг.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

Group 2241 КонецПроцедуры

Процедура УслугиЦенаПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.ПереченьУслуг.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура МатериалыНаименованиеПриИзменении(Элемент)

СтрокаТЧ=ЭлементыФормы.Материалы.ТекущиеДанные;

СтрокаТЧ.Цена=СтрокаТЧ.Наименование.ЦенаЗаЕдиницу;

СтрокаТЧ.ЕдиницаИзмерения=СтрокаТЧ.Наименование.ЕдиницаИзмерения;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура МатериалыКоличествоПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура МатериалыЦенаПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура ОсновныеДействияФормыПечать(Кнопка)

Group 2241 //{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = Новый ТабличныйДокумент;

Макет = Документы.ВыполнениеРабот.ПолучитьМакет("Печать");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Шапка = Макет.ПолучитьОбласть("Шапка");

Шапка.Параметры.Заполнить(ЭтотОбъект);

ТабДок.Вывести(Шапка);

// ПереченьУслуг

Область = Макет.ПолучитьОбласть("ПереченьУслугШапка");

ТабДок.Вывести(Область);

ОбластьПереченьУслуг = Макет.ПолучитьОбласть("ПереченьУслуг");

Для Каждого ТекСтрокаПереченьУслуг Из ПереченьУслуг Цикл

ОбластьПереченьУслуг.Параметры.Заполнить(ТекСтрокаПереченьУслуг);

ТабДок.Вывести(ОбластьПереченьУслуг);

КонецЦикла;

// Материалы

Область = Макет.ПолучитьОбласть("МатериалыШапка");

ТабДок.Вывести(Область);

ОбластьМатериалы = Макет.ПолучитьОбласть("Материалы");

Group 2241 Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

ОбластьМатериалы.Параметры.Заполнить(ТекСтрокаМатериалы);

ТабДок.Вывести(ОбластьМатериалы);

КонецЦикла;

// Подвал

Подвал = Макет.ПолучитьОбласть("Подвал");

Подвал.Параметры.Заполнить(ЭтотОбъект);

ТабДок.Вывести(Подвал);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ

КонецПроцедуры

Процедура МатериалыПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования)

СуммаДокумента = ПереченьУслуг.Итог("Сумма")+Материалы.Итог("Сумма");

КонецПроцедуры

Процедура ПереченьУслугПередОкончаниемРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования, Отказ)

СуммаДокумента = ПереченьУслуг.Итог("Сумма")+Материалы.Итог("Сумма");

Group 2241 КонецПроцедуры

Модуль объекта документа «ВыполнениеРабот»

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

// регистр ОстаткиМатериалов Расход

Движение = Движения.ОстаткиМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Материал = ТекСтрокаМатериалы.Наименование;

Движение.Количество = ТекСтрокаМатериалы.Количество;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Group 2241 Процедура Печать() Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ(Печать)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = Новый ТабличныйДокумент;

Макет = Документы.ВыполнениеРабот.ПолучитьМакет("Печать");

// Заголовок

Область = Макет.ПолучитьОбласть("Заголовок");

ТабДок.Вывести(Область);

// Шапка

Шапка = Макет.ПолучитьОбласть("Шапка");

Шапка.Параметры.Заполнить(ЭтотОбъект);

ТабДок.Вывести(Шапка);

// ПереченьУслуг

Область = Макет.ПолучитьОбласть("ПереченьУслугШапка");

ТабДок.Вывести(Область);

ОбластьПереченьУслуг = Макет.ПолучитьОбласть("ПереченьУслуг");

Group 2241 Для Каждого ТекСтрокаПереченьУслуг Из ПереченьУслуг Цикл

ОбластьПереченьУслуг.Параметры.Заполнить(ТекСтрокаПереченьУслуг);

ТабДок.Вывести(ОбластьПереченьУслуг);

КонецЦикла;

// Материалы

Область = Макет.ПолучитьОбласть("МатериалыШапка");

ТабДок.Вывести(Область);

ОбластьМатериалы = Макет.ПолучитьОбласть("Материалы");

Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

ОбластьМатериалы.Параметры.Заполнить(ТекСтрокаМатериалы);

ТабДок.Вывести(ОбластьМатериалы);

КонецЦикла;

// Подвал

Подвал = Макет.ПолучитьОбласть("Подвал");

Подвал.Параметры.Заполнить(ЭтотОбъект);

ТабДок.Вывести(Подвал);

ТабДок.ОтображатьСетку = Ложь;

ТабДок.Защита = Ложь;

ТабДок.ТолькоПросмотр = Ложь;

ТабДок.ОтображатьЗаголовки = Ложь;

ТабДок.Показать();

//}}_КОНСТРУКТОР_ПЕЧАТИ_ЭЛЕМЕНТ

КонецПроцедуры

Модуль основной формы объекта документа «ПриходМатериалов»

Процедура МатериалыКоличествоПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Процедура МатериалыЦенаПриИзменении(Элемент)

СтрокаТЧ = ЭлементыФормы.Материалы.ТекущиеДанные;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

Group 2241 КонецПроцедуры

Процедура МатериалыНаименованиеПриИзменении(Элемент)

СтрокаТЧ=ЭлементыФормы.Материалы.ТекущиеДанные;

СтрокаТЧ.Цена=СтрокаТЧ.Наименование.ЦенаПриобретения;

СтрокаТЧ.ЕдиницаИзмерения=СтрокаТЧ.Наименование.ЕдиницаИзмерения;

РаботаСДокументами.РассчитатьСумму(СтрокаТЧ);

КонецПроцедуры

Модуль объекта для документа «ПриходМатериалов»

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Для Каждого ТекСтрокаМатериалы Из Материалы Цикл

// регистр ОстаткиМатериалов Приход

Движение = Движения.ОстаткиМатериалов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;

Group 2241 Движение.Период = Дата;

Движение.Материал = ТекСтрокаМатериалы.Наименование;

Движение.Остаток = ТекСтрокаМатериалы.Количество;

КонецЦикла;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Модуль основной формы отчета «ПрайсЛист»

Процедура ДействияФормыПрайсЛистСформировать(Кнопка)

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА(ПрайсЛист)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

ТабДок = ЭлементыФормы.ПолеТабличногоДокумента;

ПрайсЛист(ТабДок);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ_ПРОЦЕДУРА_ВЫЗОВА

КонецПроцедуры

Процедура ПрайсЛист(ТабДок) Экспорт

//{{КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ(ПрайсЛист)

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Group 2241 Макет = ОтчетОбъект.ПолучитьМакет("ПрайсЛист");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Номенклатура.Наименование,

| Номенклатура.ЦенаЗаЕдиницу,

| Номенклатура.ВидНоменклатуры КАК ВидНоменклатуры

|ИЗ

| Справочник.Номенклатура КАК Номенклатура

|ГДЕ

| Номенклатура.ЭтоГруппа = ЛОЖЬ

|ИТОГИ ПО

| ВидНоменклатуры";

Результат = Запрос.Выполнить();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");

ОбластьШапкаТаблицы = Макет.ПолучитьОбласть("ШапкаТаблицы");

ОбластьПодвалТаблицы = Макет.ПолучитьОбласть("ПодвалТаблицы");

ОбластьВидНоменклатуры = Макет.ПолучитьОбласть("ВидНоменклатуры");

ОбластьДетальныхЗаписей = Макет.ПолучитьОбласть("Детали");

Group 2241 ТабДок.Очистить();

ТабДок.Вывести(ОбластьЗаголовок);

ТабДок.Вывести(ОбластьШапкаТаблицы);

ТабДок.НачатьАвтогруппировкуСтрок();

ВыборкаВидНоменклатуры = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);

Пока ВыборкаВидНоменклатуры.Следующий() Цикл

ОбластьВидНоменклатуры.Параметры.Заполнить(ВыборкаВидНоменклатуры);

ТабДок.Вывести(ОбластьВидНоменклатуры, ВыборкаВидНоменклатуры.Уровень());

ВыборкаДетали = ВыборкаВидНоменклатуры.Выбрать();

Пока ВыборкаДетали.Следующий() Цикл

ОбластьДетальныхЗаписей.Параметры.Заполнить(ВыборкаДетали);

ТабДок.Вывести(ОбластьДетальныхЗаписей, ВыборкаДетали.Уровень());

КонецЦикла;

КонецЦикла;

ТабДок.ЗакончитьАвтогруппировкуСтрок();

ТабДок.Вывести(ОбластьПодвалТаблицы);

ТабДок.Вывести(ОбластьПодвал);

//}}КОНСТРУКТОР_ВЫХОДНЫХ_ФОРМ

Group 2241 КонецПроцедуры

Обработка «Меню» - основная форма

Процедура НоменклатураНажатие(Элемент)

Справочники.Номенклатура.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура КлиентыНажатие(Элемент)

Справочники.Клиенты.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ПоставщикиНажатие(Элемент)

Справочники.Поставщики.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ЕдиницыИзмеренияНажатие(Элемент)

Справочники.ЕдиницыИзмерения.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ВыполненныеРаботыНажатие(Элемент)

Справочники.ВыполненныеРаботы.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Group 2241 Процедура ФотоальбомНажатие(Элемент)

Справочники.Фотоальбом.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ВыполнениеРаботНажатие(Элемент)

Документы.ВыполнениеРабот.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ПриходМатериаловНажатие(Элемент)

Документы.ПриходМатериалов.ПолучитьФормуСписка().Открыть();

КонецПроцедуры

Процедура ПрайсЛистНажатие(Элемент)

Отчеты.ПрайсЛист.ПолучитьФорму().Открыть();

КонецПроцедуры

Процедура ОстаткиМатериаловНажатие(Элемент)

Отчеты.ОстаткиМатериалов.ПолучитьФорму().Открыть();

КонецПроцедуры

Процедура УчетЗатратНажатие(Элемент)

Отчеты.УчетЗатрат.ПолучитьФорму().Открыть();

КонецПроцедуры