111
ПРИЛОЖЕНИЯ
Приложение 1 – Исходный код модулей
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполне-
нияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.ДвусторонняяПечать = ТипДвустороннейПеча-
ти.ПереворотВлево;
ТабДок.КоличествоЭкземпляров = 1;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.Договор.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
ЭтотОбъект.СуммаДокумента = ЭтотОбъ-
ект.Услуги.Итог("Сумма");
КонецПроцедуры
112
Процедура Печать(ТабДок, Ссылка) Экспорт
Запрос = Новый Запрос;
Запрос.Текст ="ВЫБРАТЬ
| Договор.Номер КАК НомерДоговора,
| Договор.Дата КАК ДатаДоговора,
| Договор.Контрагенты,
| Договор.СуммаДокумента,
| ВложенныйЗапрос.Представление КАК Представле-
ниеАдреса,
| Договор.Контрагенты.ДатаРождения КАК ДатаРожде-
ния,
| Договор.Контрагенты.Адрес КАК Адрес,
| Договор.Контрагенты.ПаспортСерия КАК
ПаспортСерия,
| Договор.Контрагенты.ПаспортНомер КАК
ПаспортНомер,
| Договор.Контрагенты.ПаспортДата КАК
ПаспортДата,
| Договор.Контрагенты.ПаспортКемВыдан КАК Пас-
портКемВыдан,
| Договор.Контрагенты.ТелефонМобильный
КАК ТелефонМобильный
|ИЗ
| Документ.Договор КАК Договор
| ЛЕВОЕ СОЕДИНЕНИЕ (ВЫБРАТЬ ПЕРВЫЕ 1
| КонтактнаяИнформация.Представление
КАК Представление,
| КонтактнаяИнформация.Объект КАК
Объект
113
| ИЗ
| РегистрСведений.КонтактнаяИнформация
КАК КонтактнаяИнформация
| ГДЕ
| КонтактнаяИнформация.Тип =
&ТипАдреса) КАК ВложенныйЗапрос
| ПО Договор.Контрагенты = ВложенныйЗа-
прос.Объект
|ГДЕ
| Договор.Ссылка В(&Ссылка)";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Запрос.УстановитьПараметр("ТипАдреса", Перечисле-
ния.ТипАдреса.МестоРегистрации);
Шапка = Запрос.Выполнить().Выбрать();
Шапка.Следующий();
Макет = Документы.Договор.ПолучитьМакет("Договор");
ТабДок.Очистить();
ОбластьМакета = Макет.ПолучитьОбласть("ОбластьДоТаблицы");
ОбластьМакета.Параметры.Адрес = Шапка.Адрес;
// ОбластьМакета.Параметры.ДатаРождения = Шапка.ДатаРождения;
ОбластьМакета.Параметры.ТелефонМобильный = Шап-
ка.ТелефонМобильный;
ОбластьМакета.Параметры.Контрагенты = Шапка.Контрагенты;
ОбластьМакета.Параметры.ДатаДоговора = Шапка.ДатаДоговора;
ОбластьМакета.Параметры.ПаспортСерия = Шапка.ПаспортСерия;
ОбластьМакета.Параметры.ПаспортНомер = Шап-
ка.ПаспортНомер;
ОбластьМакета.Параметры.ПаспортДата = Шапка.ПаспортДата;
114
ОбластьМакета.Параметры.ПаспортКемВыдан = Шап-
ка.ПаспортКемВыдан;
ТабДок.Вывести(ОбластьМакета);
Запрос.Текст ="ВЫБРАТЬ
| ДоговорУслуги.Номенклатура,
| ДоговорУслуги.Количество,
| ДоговорУслуги.Цена,
| ДоговорУслуги.Сумма
|ИЗ
| Документ.Договор.Услуги КАК ДоговорУслуги
|ГДЕ
| ДоговорУслуги.Ссылка В(&Ссылка)
|
|УПОРЯДОЧИТЬ ПО
| ДоговорУслуги.НомерСтроки";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДок.Вывести(ОбластьМакета);
Пока Выборка.Следующий() Цикл
ОбластьМакета = Ма-
кет.ПолучитьОбласть("СтрокаТаблицы");
ОбластьМакета.Параметры.Номенклатура = Выбор-
ка.Номенклатура;
ОбластьМакета.Параметры.Количество = Выбор-
ка.Количество;
ТабДок.Вывести(ОбластьМакета);
КонецЦикла;
115
ОбластьМакета = Ма-
кет.ПолучитьОбласть("ОбластьПослеТаблицы");
// ОбластьМакета.Параметры.Контрагенты = Шапка.Контрагенты;
// ОбластьМакета.Параметры.АдресКонтрагентыа = Шап-
ка.АдресКонтрагентыа; //ПредставлениеАдреса;
ОбластьМакета.Параметры.СуммаДокумента = Шап-
ка.СуммаДокумента;
ТабДок.Вывести(ОбластьМакета);
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
/////////////////////////////////////////////////
ОбластьМакета = Макет.ПолучитьОбласть("ОбластьДоТаблицы");
ОбластьМакета.Параметры.Адрес = Шапка.Адрес;
// ОбластьМакета.Параметры.ДатаРождения = Шапка.ДатаРождения;
ОбластьМакета.Параметры.ТелефонМобильный = Шап-
ка.ТелефонМобильный;
ОбластьМакета.Параметры.Контрагенты = Шапка.Контрагенты;
ОбластьМакета.Параметры.ДатаДоговора = Шапка.ДатаДоговора;
ОбластьМакета.Параметры.ПаспортСерия = Шапка.ПаспортСерия;
ОбластьМакета.Параметры.ПаспортНомер = Шап-
ка.ПаспортНомер;
ОбластьМакета.Параметры.ПаспортДата = Шапка.ПаспортДата;
ОбластьМакета.Параметры.ПаспортКемВыдан = Шап-
ка.ПаспортКемВыдан;
ТабДок.Вывести(ОбластьМакета);
116
Запрос.Текст ="ВЫБРАТЬ
| ДоговорУслуги.Номенклатура,
| ДоговорУслуги.Количество,
| ДоговорУслуги.Цена,
| ДоговорУслуги.Сумма
|ИЗ
| Документ.Договор.Услуги КАК ДоговорУслуги
|ГДЕ
| ДоговорУслуги.Ссылка В(&Ссылка)
|
|УПОРЯДОЧИТЬ ПО
| ДоговорУслуги.НомерСтроки";
Запрос.УстановитьПараметр("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
ТабДок.Вывести(ОбластьМакета);
Пока Выборка.Следующий() Цикл
ОбластьМакета = Ма-
кет.ПолучитьОбласть("СтрокаТаблицы");
ОбластьМакета.Параметры.Номенклатура = Выбор-
ка.Номенклатура;
ОбластьМакета.Параметры.Количество = Выбор-
ка.Количество;
ТабДок.Вывести(ОбластьМакета);
КонецЦикла;
ОбластьМакета = Ма-
кет.ПолучитьОбласть("ОбластьПослеТаблицы");
// ОбластьМакета.Параметры.Контрагенты = Шапка.Контрагенты;
117
// ОбластьМакета.Параметры.АдресКонтрагентыа = Шап-
ка.АдресКонтрагентыа; //ПредставлениеАдреса;
ОбластьМакета.Параметры.СуммаДокумента = Шап-
ка.СуммаДокумента;
ТабДок.Вывести(ОбластьМакета);
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецПроцедуры
&НаСервереБезКонтекста
Функция ПолучитьЦенуУслуги(Элемент)
Возврат Элемент.Цена;
КонецФункции
&НаКлиенте
Процедура УслугиНоменклатураПриИзменении(Элемент)
ПриИзмененииНоменклатурыУслуги(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура УслугиКоличествоПриИзменении(Элемент)
ПриИзмененииЦеныКоличества(Элемент);
КонецПроцедуры
&НаКлиенте
Процедура УслугиЦенаПриИзменении(Элемент)
ПриИзмененииЦеныКоличества(Элемент);
КонецПроцедуры
&НаКлиенте
118
Процедура ПриИзмененииНоменклатурыУслуги(Элемент)
СтрокаТабличнойЧасти = Элементы.Услуги.ТекущиеДанные;
СтрокаТабличнойЧасти.Количество = 1;
СтрокаТабличнойЧасти.Цена = ПолучитьЦенуУслу-
ги(Элементы.Услуги.ТекущиеДанные.Номенклатура);
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена *
СтрокаТабличнойЧасти.Количество;
КонецПроцедуры
&НаКлиенте
Процедура ПриИзмененииЦеныКоличества(Элемент)
СтрокаТабличнойЧасти = Элементы.Услуги.ТекущиеДанные;
СтрокаТабличнойЧасти.Сумма = СтрокаТабличнойЧасти.Цена *
СтрокаТабличнойЧасти.Количество;
КонецПроцедуры
&НаКлиенте
// Процедура - обработчик события Действие команды Подбор
//
Процедура Подбор(Команда)
ПараметрыПодбора = Новый Структура;
ПараметрыПодбора.Вставить("Период", Объект.Дата);
ПараметрыПодбора.Вставить("ТаблЧасть", Объект.Услуги);
ОткрытьФормуМодально("Справочник.Услуги.ФормаВыбора", Па-
раметрыПодбора, ЭтаФорма);
ЗаполнитьТаблицуУслуги(мТаблицаДляПереносаВДокумент);
КонецПроцедуры // ПодборВыполнить()
&НаСервере
119
Процедура ЗаполнитьТаблицуУслуги(ТаблицаДляПереносаВДокумент)
Сч=0;
Пока Сч < ТаблицаДляПереносаВДокумент.Количество() Цикл
ТекСтрокаТаблицыДляПереноса = ТаблицаДляПереносаВДо-
кумент.Получить(Сч);
НоваяСтрокаУслуги = Объект.Услуги.Добавить();
НоваяСтрокаУслуги.Номенклатура = ТекСтрокаТабли-
цыДляПереноса.Номенклатура;
НоваяСтрокаУслуги.Цена = ТекСтрокаТаблицыДляПерено-
са.Цена;
НоваяСтрокаУслуги.Количество = 1;
НоваяСтрокаУслуги.Сумма = ТекСтрокаТаблицыДляПерено-
са.Цена;
Сч=Сч+1;
КонецЦикла;
КонецПроцедуры
120
Приложение 2 – Шаблон печати документа
ДОГОВОР
поставки комплектующих
119048, город Мо
сква, улица Хамо
вниче-
ский Вал, 26а.
22.09.2019
ООО "Трансстроймеханизация"
стороны и
Петров А.В.
зарегистрированный(ая) по адресу
паспорт
серия ________________
номер____________________________________________________
выдан
телефон
, заключили настоящий Договор о нижеследующем:
1. Предмет Договора.
1.1. Исполнитель на основании обращения контрагента обязуется поставить следующую продукцию:
Наименование
Количество
Пруток круглый Ст3.
1
Контрагент уплачивает Исполнителю вознаграждение в размере, порядке и сроки, которые установлены настоящим
Договором.
1.2. Исполнитель оказывает услуги по месту своего нахождения по адресу:119048, город Москва, улица Хамовнический
Вал, 26а.
1.3. Поставки должны быть предоставлены в соответствии с требованиями действующего законодательства Российской
Федерации, в том числе предъявляемыми к качеству услуг
1.4. При установлении, исполнении обязательства по договору и после его прекращения стороны обязаны действовать
добросовестно, учитывая права и законные интересы друг друга, взаимно оказывая необходимое содействие для до-
стижения цели обязательства, а также предоставляя друг другу необходимую информацию.
2. Права и обязанности сторон.
2.1. Исполнитель обязуется:
2.1.1. Обеспечить Контрагента бесплатной, доступной и достоверной информацией о оказываемых услугах, содержа-
щей следующие сведения о:
а) порядках оказания услуг и стандартах поставок, применяемых при выполнении работ;
б) данных о методах оказания поставок;
в) данных о конкретных сроках и способах поставки продукции.
2.1.2. Оказать Контрагенту услуги, предусмотренные п. 1.1 настоящего Договора, а при необходимости и дополнитель-
ные услуги в соответствии с действующим законодательством Российской Федерации.
2.1.3. Не передавать и не показывать третьим лицам находящуюся у Исполнителя документацию о Контрагенте.
2.1.4. Сотрудничать при оказании услуг по настоящему договору с иными фирмами, организациями и специалистами.
2.1.5. Предоставлять Контрагенту материалы и заключения о ходе оказания услуг в печатном виде.
2.1.6. Давать при необходимости по просьбе Контрагента разъяснения о ходе оказания услуг ему и заинтересованными
лицам, включая государственные и судебные органы.
2.1.7. Предоставлять для ознакомления по требованию Контрагента:
а) копию учредительных документов Исполнителя;
б) копию лицензии на осуществление деятельности с приложением перечня работ (услуг), составляющих деятельность
Исполнителя в соответствии с данной лицензией.
2.1.8. Соблюдать порядки оказания поставки, утвержденные нормами и законами Российской Федерации.
2.2 Контрагент обязуется:
2.2.1. Соблюдать Правила оказания услуг Исполнителя.
2.2.2. По запросу Исполнителя предоставить ему необходимые документы и материалы.
2.2.3. Оплачивать услуги Исполнителя в порядке, сроки и на условиях, которые установлены настоящим Договором.
2.2.4. Контрагент обязан:
- предоставить исполнителю всю необходимую информацию в рамках выполнения договора;
- соблюдать законодательство Российской Федерации в рамках договора поставки.