Реализация конфигурации "1С: Предприятие"
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
а"));
КонецПроцедуры
Процедура ПечатьДокумента()
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
Запрос.Текст =
"ВЫБРАТЬ
|ЗаказПоставщику.Организация КАК Покупатель,
|ЗаказПоставщику.Поставщик КАК Поставщик,
|ЗаказПоставщику.Товары.(
|Номенклатура КАК Товар,
|Количество,
|Цена,
|Сумма,
|НомерСтроки КАК Номер
|),ЗаказПоставщику.ВалютаДокумента КАК Валюта
|ИЗ
|Документ.ЗаказПоставщику КАК ЗаказПоставщику";
Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
Запрос.Текст = "ВЫБРАТЬ
|Номенклатура КАК Товар,
|Количество,
|Цена,
|Сумма,
|НомерСтроки КАК Номер
|ИЗ
|Документ.ЗаказПоставщику.Товары КАК ЗаказПоставщику";
ЗапросТовары = Запрос.Выполнить().Выгрузить();
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ЗаказПоставщику";
Макет = ПолучитьМакет("Накладная");
// Выводим шапку накладной
ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
ОбластьМакета.Параметры.ТекстЗаголовка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Ссылка, "Заказ поставщику");
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Поставщик, Ссылка.Дата);
ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПоставщика = ПредставлениеПоставщика;
ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Покупатель, Ссылка.Дата);
ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, "НаименованиеДляПечатныхФорм,");
ОбластьМакета.Параметры.ПредставлениеПолучателя = ПредставлениеПолучателя;
ОбластьМакета.Параметры.Получатель = Шапка.Покупатель;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДокумент.Вывести(ОбластьМакета);
НомерСтроки = 0;
Область1 = Макет.ПолучитьОбласть("Строка|Область1");
ОбластьНомера = Макет.ПолучитьОбласть("Строка|Номер");
ОбластьДанных = Макет.ПолучитьОбласть("Строка|Данные");
Сумма = 0;
Для каждого ВыборкаСтрокТовары из ЗапросТовары Цикл
ОбластьНомера.Параметры.Заполнить(ВыборкаСтрокТовары);
ОбластьДанных.Параметры.Заполнить(ВыборкаСтрокТовары);
Сумма = Сумма + ВыборкаСтрокТовары.Сумма;
ТабДокумент.Вывести(Область1);
ТабДокумент.Присоединить(ОбластьНомера);
ТабДокумент.Присоединить(ОбластьДанных);
КонецЦикла;
Область1 = Макет.ПолучитьОбласть("Итого|Область1");
ОбластьНомера = Макет.ПолучитьОбласть("Итого|Номер");
ОбластьДанных = Макет.ПолучитьОбласть("Итого|Данные");
ТабДокумент.Вывести(Область1);
ОбластьДанных.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
ТабДокумент.Присоединить(ОбластьНомера);
ТабДокумент.Присоединить(ОбластьДанных);
ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
СуммаКПрописи = Сумма;
ОбластьМакета.Параметры.ИтоговаяСтрока ="Всего наименований " + ЗапросТовары.Количество()+ ", на сумму " + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, Ссылка.ВалютаДокумента);
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть("Подписи");
ОбластьМакета.Параметры.Заполнить(Шапка);
ТабДокумент.Вывести(ОбластьМакета);
ТабДокумент.Показать();
КонецПроцедуры
Процедура ГиперссылкаЗаказПоставщикуНажатие(Элемент)
РаботаСДиалогами.ВвестиЗаказПоставщику(ЭтотОбъект, ЭтаФорма, "ЗаказПоставщику");
РаботаСДиалогами.УстановитьЗаголовокФормыДокумента(ЭтотОбъект, ЭтаФорма);
КонецПроцедуры
Процедура ОсновныеДействияФормыПечать(Кнопка)
ПечатьДокумента();
КонецПроцедуры
Процедура ПриОткрытии()
Всего = Строка(ЭтотОбъект.Товары.Итог("Сумма"));
КонецПроцедуры
Процедура ПриИзмененииДанных()
Всего = Строка(ЭтотОбъект.Товары.Итог("Сумма"));// Вставить содержимое обработчика.
КонецПроцедуры
Процедура ОбновлениеОтображения()
Всего = Строка(ЭтотОбъект.Товары.Итог("Сумма"));
КонецПроцедуры
Модуль общего назначения
Процедура ПереключитьИнтерфейсМенеджер() Экспорт
ГлавныйИнтерфейс.ПереключитьИнтерфейс("Менеджер" + ИнтерфейсДемонстрационнаяБаза());
Оповестить("ПереключениеИнтерфейса");
КонецПроцедуры
Приложение Б
Копии слайдов презентации
Слайд 1 - Тема дипломного проекта, ФИО дипломника, ученая степень, ученое звание и ФИО руководителя
Слайд 2. Актуальность, цель и задачи дипломного проекта
Слайд 3. Диаграмма вариантов использования конфигурации
Слайд 4. Логическая модель базы данных
Слайды 5 Интерфейс конфигурации
Слайды 6. Интерфейс конфигурации
Слайды 7. Примеры отчетов, формируемых конфигу