Файл: Разработка конфигурации «Предоставление рекламных услуг» в среде 1С:Предприятие 8.3.pdf
Добавлен: 28.06.2023
Просмотров: 828
Скачиваний: 23
СОДЕРЖАНИЕ
1.1 Выбор комплекса задач автоматизации
1.2 Характеристика документооборота, возникающего при решении задачи
1.3 Обоснование проектных решений по информационному обеспечению
2.2.2 Описание разработанных форм отчетов, необходимых для отражения результатов решения задачи
2.3 Описание реализации периодических расчетов в среде 1С:Предприятие
2.4 Описание созданной / откорректированной карты маршрута бизнес-процесса в среде 1С:Предприятие
2.5 Описание разработанных подсистем в среде 1С:Предприятие
2.7 Контрольный пример реализации проекта в среде 1С:Предприятие и его описание
ОбластьМероприятия = Макет.ПолучитьОбласть("Мероприятия");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьМероприятияШапка);
ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();
Пока ВыборкаМероприятия.Следующий() Цикл
ОбластьМероприятия.Параметры.Заполнить(ВыборкаМероприятия);
ТабДок.Вывести(ОбластьМероприятия, ВыборкаМероприятия.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)
//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заказ") Тогда
// Заполнение шапки
Клиент = ДанныеЗаполнения.Клиент;
Сотрудник = ДанныеЗаполнения.Сотрудник;
Статус_договора = ДанныеЗаполнения.Статус_выполнения;
Сумма = ДанныеЗаполнения.Сумма_итого;
Для Каждого ТекСтрокаМероприятия Из ДанныеЗаполнения.Мероприятия Цикл
НоваяСтрока = Предмет_договора.Добавить();
НоваяСтрока.Адрес = ТекСтрокаМероприятия.Адрес_мероприятия;
НоваяСтрока.Дата_мероприятия = ТекСтрокаМероприятия.Дата_мероприятия;
НоваяСтрока.Мероприятие = ТекСтрокаМероприятия.Мероприятие;
НоваяСтрока.Сумма = ТекСтрокаМероприятия.Сумма;
КонецЦикла;
КонецЕсли;
//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ
КонецПроцедуры
Процедура ОбработкаПроведения(Отказ, Режим)
//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ
// Данный фрагмент построен конструктором.
// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!
// регистр Регистр_договоров Приход
Движения.Регистр_договоров.Записывать = Истина;
Для Каждого ТекСтрокаПредмет_договора Из Предмет_договора Цикл
Движение = Движения.Регистр_договоров.Добавить();
Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
Движение.Период = Дата;
Движение.Мероприятие = ТекСтрокаПредмет_договора.Мероприятие;