Здравствуйте!!
2-ой день бьюсь, надеюсь на вашу помощь. 1С:Предприятие 8.3 (8.3.5.1383)Бухгалтерия предприятия, редакция 2.0 (2.0.64.6)
Нужна внешняя форма акта оказанных услуг.. Обработка выдает ошибку “Не удалось сформировать внешнюю печатную форму!
Поле объекта не обнаружено (Ссылка)
МОДУЛЬ
Перем мВалютаРегламентированногоУчета Экспорт;
Функция ПодготовитьДанныеДляПечатиАктаОбОказанииУслуг() Экспорт
ДопКолонка = Константы.ДополнительнаяКолонкаПечатныхФормДокументов.Получить();
Ес ли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Артикул Тогда
ВыводитьКоды = Истина;
Колонка = “Артикул“;
ТекстКодАртикул = “Артикул“;
ИначеЕсли ДопКолонка = Перечисления.ДополнительнаяКолонкаПечатныхФормДокументов.Код Тогда
ВыводитьКоды = Истина;
Колонка = “Код“;
ТекстКодАртикул = “Код“;
Иначе
ВыводитьКоды = Ложь;
Колонка = ““;
ТекстКодАртикул = “Код“;
КонецЕсли;
ЗапросШапка = Новый Запрос;
ЗапросШапка.УстановитьПараметр(“ТекущийДокумент“, СсылкаНаОбъект);
ЗапросШапка.Текст =
“ВЫБРАТЬ
| Номер,
| Дата,
| ДоговорКонтрагента,
| ДоговорК онтрагента.РасчетыВУсловныхЕдиницах КАК РасчетыВУсловныхЕдиницах,
| Контрагент КАК Получатель,
| Организация КАК Поставщик,
| Организация,
| СуммаДокумента,
| ВалютаДокумента,
| УчитыватьНДС,
| СуммаВключаетНДС,
| ВалютаДокумента.Код КАК ВалютаДокументаКод,
| БанковскийСчетОрганизации КАК БанковскийСчет
|ИЗ
| Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент“;
ТаблицаШапки = ЗапросШапка.Выполнить().Выгрузить();
Если ТаблицаШапки.Количество() = 0 Тогда
Возврат Неопределено;
Иначе
Шапка = ОбщегоНазначения.СтрокаТаблицыЗначенийВСтруктуру(ТаблицаШапки[0]);
К онецЕсли;
ПодразделениеОтветственныхЛиц = Неопределено;
Руководители = ОбщегоНазначения.ОтветственныеЛица(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата, ПодразделениеОтветственныхЛиц);
СформироватьСтруктуруПодписейДляПеча ти(Руководители, СсылкаНаОбъект.Организация, СсылкаНаОбъект.Дата, Шапка);
ЗапросУслуги = Новый Запрос;
ЗапросУслуги.УстановитьПараметр(“ТекущийДокумент“, СсылкаНаОбъект);
ЗапросУслуги.УстановитьПараметр(“Кратность“, ЗаполнениеДокументов.КратностьДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));
Если ЭтотОбъект.ВалютаДокумента = мВалютаРегламентированногоУчета
Или Не ЭтотОбъект.ДоговорКонтрагента.РасчетыВУсловныхЕдиницах Тогда
ЗапросУслуги.УстановитьПараметр(“Курс“, 1);
ВалютаВПодписи = ЭтотОбъект.ВалютаДокумента;
Иначе
ЗапросУслуги.УстановитьПараметр (“Курс“, ЗаполнениеДокументов.КурсДокумента(ЭтотОбъект, мВалютаРегламентированногоУчета));
ВалютаВПодписи = мВалютаРегламентированногоУчета;
КонецЕсли;
ЧастьЗапросаДляВыбораСодержанияУслуг = ФормированиеПечатныхФорм.ПолучитьЧастьЗапросаДляВыбораСодержанияУслуг( “РеализацияТоваровУслуг“);
ЗапросУслуги.Текст =
“ВЫБРАТЬ
| ОбщаяТаблица.Номенклатура,
| ОбщаяТаблица.Товар,
| ОбщаяТаблица.КодАртикул,
| ОбщаяТаблица.Количество,
| ОбщаяТабли ца.ЕдиницаИзмерения,
| ОбщаяТаблица.Цена,
| ОбщаяТаблица.Сумма,
| ОбщаяТаблица.СтавкаНДС,
| ОбщаяТаблица.СуммаНДС,
| ОбщаяТаблица. НомерСтроки,
| ОбщаяТаблица.НомерТабличнойЧасти,
| ОбщаяТаблица.Им яТабличнойЧасти
|ИЗ
|(ВЫБРАТЬ
| Номенклатура КАК Номенклатура,
| ВЫРАЗИТЬ(Номенклатура.НаименованиеПолное КАК Строка(1000)) КАК Товар,
| Номенклатура.“ + ТекстКодАртикул + “ КАК КодАртикул,
| Количество,
| ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Цена * &Курс / &Кратность КАК Цена,
| Сумма * &Курс / &Кратность КАК Сумма,
| СтавкаНДС,
| СуммаНДС * &Курс / &Кратность КАК СуммаНДС,
| НомерСтроки,
| 1 КАК НомерТабличнойЧасти,
| ““Товары““ КАК ИмяТабличнойЧасти
|ИЗ
| Документ.РеализацияТоваровУслуг.Товары КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
| И
| РеализацияТоваровУслуг.Номенклатура.Услуга = Истина
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| Номенклатура,
| “ + ЧастьЗапросаДляВыбораСодержанияУслуг + “,
| Номенклатура.“ + ТекстКодАртикул + “ КАК КодАртикул,
| Количество,
| Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Цена * &Курс / &Кратность КАК Цена,
| Сумма * &Курс / &Кратность КАК Сумма,
| СтавкаНДС,
| СуммаНДС * &Курс / &Кратность КАК СуммаНДС,
| НомерСтроки,
| 2 КАК НомерТабличнойЧасти,
| ““Услуги““ КАК ИмяТабличнойЧасти
|ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент
|
|ОБЪЕДИНИТЬ ВСЕ
|
|ВЫБРАТЬ
| Номенклатура,
| “ + ЧастьЗапросаДляВыбораСодержанияУслуг + “,
| Номенклатура.“ + ТекстКодАртикул + “ КАК КодАртикул,
| Количество,
| Номенклатура.БазоваяЕдиницаИзмерения КАК ЕдиницаИзмерения,
| Цена * &Курс / &Кратность КАК Цена,
| Сумма * &Курс / &Кратность КАК Сумма,
| СтавкаНДС,
| СуммаНДС * &Курс / &Кратность КАК СуммаНДС,
| НомерСтроки,
| 3 КАК НомерТабличнойЧасти,
| ““Агентские услуги““ КАК ИмяТабличнойЧасти
|ИЗ
| Документ.РеализацияТоваровУслуг.АгентскиеУ слуги КАК РеализацияТоваровУслуг
|
|ГДЕ
| РеализацияТоваровУслуг.Ссылка = &ТекущийДокумент) КАК ОбщаяТаблица
|УПОРЯДОЧИТЬ ПО
| НомерТабличнойЧасти, НомерСтроки“;
ТабличнаяЧасть = ЗапросУслуги.Выполнить().Выгрузить();
Если СсылкаНаОбъект.Проведен И (Шапка.РасчетыВУсловныхЕдиницах
И (Шапка.ВалютаДокумента мВалютаРегламентированногоУчета И СсылкаНаОбъект.Дата >= '20090101000000')) Тогда
Запрос = Новый Запрос;
Запрос.УстановитьПараметр(“Ссылка“, СсылкаНаОбъект);
Запрос.УстановитьПараметр(“Содержание“, “Реализация услуг“);
Запрос.УстановитьПараметр(“СчетУчетаРасчетовСКонтрагентом“ , СсылкаНаОбъект.СчетУчетаРасчетовСКонтрагентом);
Текст =
“ВЫБРАТЬ
| СУММА(Хозрасчетный.Сумма) КАК Сумма
|ИЗ
| РегистрБухгалтерии.Хозрасчетный КАК Хозрасчетный
|ГДЕ
| Хозрасчетный.Регистратор = &Ссылка
| И Хозрасчетный.СчетДт = &СчетУчетаРасчетовСКонтрагентом
| И Хозрасчетный.СчетКт В
| (ВЫБРАТЬ РАЗЛИЧНЫЕ
| РеализацияТоваровУслугУслуги.СчетДоходов
| ИЗ
| Документ.РеализацияТоваровУслуг.Услуги КАК РеализацияТоваровУслугУслуги
| ГДЕ
| РеализацияТоваровУслуг Услуги.Ссылка = &Ссылка)
| И Хозрасчетный.Содержание = &Содержание
|“;
Запрос.Текст = Текст;
СуммаВзаиморасчетов = Запрос.Выполнить().Выгрузить()[0].Сумма;
РасчетСуммыНДСПоСтавке = УчетНДС.РасчетНДСвРубляхПоСтавкеДокумента(Шапка.Дата);
Если НЕ СуммаВзаиморасчетов = NULL Тогда
ТабличнаяЧасть.Колонки.Добавить(“СуммаБезНДС“);
МассивРаспределения = Новый Массив;
Для Каждого СтрокаТовар Из ТабличнаяЧасть Цикл
СуммаСНДС = СтрокаТовар.Сумма + ?(Шапка.СуммаВключаетНДС, 0, СтрокаТовар.СуммаНДС);
СуммаБезНДС = СуммаСНДС - СтрокаТовар.СуммаНДС;
МассивРаспределения.Добавить(СуммаСНДС);
СтрокаТовар.СуммаБезНДС = СуммаБезНДС;
КонецЦикла;
ТабличнаяЧасть.Колонки.Добавить(“СуммаРу блевая“);
УчетНДС.РаспределитьСуммуПоСтолбцу(МассивРаспределения, СуммаВзаиморасчетов, ТабличнаяЧасть, “СуммаРублевая“);
Для Каждого СтрокаТовар Из ТабличнаяЧасть Цикл
Если РасчетСуммыНДСПоСтавке Тогда
//Выделение суммы НДС, Расчет суммы без НДС
ЗначениеСтавкиНДС = УчетНДС.ПолучитьСтавкуНДС(СтрокаТовар.СтавкаНДС);
СтрокаТ овар.СуммаНДС = ?(ЗначениеСтавкиНДС = 0, 0, Окр(СтрокаТовар.СуммаРублевая * ЗначениеСтавкиНДС/(100+ЗначениеСтавкиНДС),2));
СтрокаТовар.Сумма = СтрокаТовар.СуммаРублевая - СтрокаТовар.СуммаНДС;
Иначе
МассивРаспределения.Очис тить();
МассивРаспределения.Добавить(СтрокаТовар.СуммаБезНДС);
МассивРаспределения.Добавить(СтрокаТовар.СуммаНДС);
МассивР аспределенныхСумм = ОбщегоНазначения.РаспределитьПропорционально(СтрокаТовар.СуммаРублевая , МассивРаспределения);
Если МассивРаспределенныхСумм Неопределено Тогда
СтрокаТовар.Сумма = МассивРаспределенныхСумм[0];
СтрокаТовар.СуммаНДС = МассивРаспределенныхСумм[1];
КонецЕсли;
КонецЕсли;
Если Шапка.СуммаВключаетНДС Тогда
СтрокаТовар.Сумма = СтрокаТовар.Сумма+СтрокаТовар.СуммаНДС;
КонецЕсли;
Коне цЦикла;
КонецЕсли;
КонецЕсли;
ДанныеДляПечати = Новый Структура();
ДанныеДляПечати.Вставить(“Шапка“, Шапка);
ДанныеДляПечати.Вставить(“ТабличнаяЧасть“, ТабличнаяЧасть);
ДанныеДляПечати.Вставить(“ВыводитьКоды“, ВыводитьКоды);
ДанныеДляПечати.Вставить(“ТекстКодАртикул“, ТекстКодАртикул);
ДанныеДляПечати.Вставить(“ВалютаВПодписи“, ВалютаВПодписи);
Возврат ДанныеДляПечати;
КонецФункции
Функция СформироватьСтруктуруПодписейДляПечати( Руководители, Организация, Дата, ВозвращаемаяСтруктура = Неопределено)
Если ВозвращаемаяСтруктура = Неопределено Тогда
ВозвращаемаяСтруктура = Новый Структура;
КонецЕсли;
Если ЗначениеЗаполнено(СсылкаНаОбъект.Руководитель) И Руководители.СсылкаНаОбъект.Руководитель СсылкаНаОбъект.Руководитель Тогда
ДанныеФизическогоЛица = ОбщегоНазначения.ДанныеФизЛица(СсылкаНаОбъект.Организация, СсылкаНаОбъект.Руководитель, Дата);
ФИОРуководителя = ДанныеФизическогоЛица.Представление + “ “ + СсылкаНаОбъект.ЗаРуководителяПоПриказу;
ВозвращаемаяСтруктура.Встав ить(“Руководитель“, СсылкаНаОбъект.Руководитель);
ВозвращаемаяСтруктура.Вставить(“ФИОРу ководителя“, ФИОРуководителя);
ВозвращаемаяСтруктура.Вставить(“Дол жностьРуководителя“, ““ + ДанныеФизическогоЛица.Должность);
Иначе
ВозвращаемаяСтруктура.Вст авить(“Руководитель“, Руководители.Руководитель);
ВозвращаемаяСтруктура.Вставить(“ФИОРуко водителя“, Руководители.РуководительПредставление);
ВозвращаемаяСтруктура.Вста вить(“ДолжностьРуководителя“, Руководители.РуководительДолжность);
КонецЕсли;
Если ЗначениеЗаполнено(СсылкаНаОбъект.ГлавныйБухгалтер) Тогда
ДанныеФизическогоЛица = ОбщегоНазначения.ДанныеФизЛица(СсылкаНаОбъект.Организация, СсылкаНаОбъект.ГлавныйБухгалтер, СсылкаНаОбъект.Дата);
ФИОГлавБух = ДанныеФизическогоЛица.Представление + “ “ + СсылкаНаОбъект.ЗаГлавногоБухгалтераПоПриказу;
ВозвращаемаяСтруктура .Вставить(“ГлавныйБухгалтер“, СсылкаНаОбъект.ГлавныйБухгалтер);
ВозвращаемаяСтруктура.Вставить(“Ф ИОГлавБухгалтера“, ФИОГлавБух);
Иначе
ВозвращаемаяСтруктура.Вста вить(“ГлавныйБухгалтер“, Руководители.ГлавныйБухгалтер);
ВозвращаемаяСтруктура.Вставить(“ФИО ГлавБухгалтера“, Руководители.ГлавныйБухгалтерПредставление);
КонецЕсли;
Если ЗначениеЗаполнено(СсылкаНаОбъект.ОтпускПроизвел) Тогда
ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Организация, СсылкаНаОбъект.ОтпускПроизвел, Дата);
ВозвращаемаяСтруктура.Вставить(“ФИОКладовщика“, ДанныеПодотчетногоЛица.Представление);
Если ДанныеПодотчетногоЛица.Должность Null Тогда
ВозвращаемаяСтруктура.Вставить(“ДолжностьКладовщика“, ДанныеПодотчетногоЛица.Должность.Наименование);
Иначе
ВозвращаемаяСтруктура.Вставить(“ДолжностьКладовщика“, ““);
КонецЕсли;
ИначеЕсли ЗначениеЗаполнено(СсылкаНаОбъект.Склад) Тогда
Срез = РегистрыСведений.ОтветственныеЛица.СрезПоследних(Дата, Новый Структура(“СтруктурнаяЕдиница“, СсылкаНаОбъект.Склад));
Если Срез.Количество() > 0 Тогда
ДанныеПодотчетногоЛица = ОбщегоНазначения.ДанныеФизЛица(Организация, Срез[0].ФизическоеЛицо, Дата);
ВозвращаемаяСтруктура.Вставить(“ФИОКладовщика“, ““ + ДанныеПодотчетногоЛица.Представление);
ВозвращаемаяСтруктура.Встав ить(“ДолжностьКладовщика“, ““ + ДанныеПодотчетногоЛица.Должность);
Иначе
ВозвращаемаяСтруктура.Вставить(“ФИОКладовщика“, ““);
ВозвращаемаяСтруктура.Вставить(“ДолжностьКладовщика“, ““);
КонецЕсли;
Иначе
ВозвращаемаяСтруктура.Вставить(“ФИОКладовщика“, ““);
ВозвращаемаяСтруктура.Вставить(“ДолжностьКладовщика“, ““);
КонецЕсли;
Возврат ВозвращаемаяСтруктура;
КонецФункции
// Функция формирует табличный документ с печатной формой акта об оказании услуг
//
// Возвращаемое значение:
// Табличный документ - печатная форма акта
//
Функция ПечатьАктаОбОказанииУслуг()
ТабДокумент = Новый ТабличныйДокумент;
ДанныеДляПечати = ПодготовитьДанныеДляПечатиАктаОбОказанииУслуг();
Если ДанныеДляПечати = Неопределено Тогда
Возврат ТабДокумент;
КонецЕсли;
Шапка = ДанныеДляПечати.Шапка;
ТабличнаяЧасть = ДанныеДляПечати.ТабличнаяЧасть;
Если ДанныеДляПечати.ВыводитьКоды Тогда
ОбластьШапки = “ШапкаСКодом“;
ОбластьСтроки = “СтрокаСКодом“;
Иначе
ОбластьШапки = “ШапкаТаблицы“;
ОбластьСтроки = “Строка“;
КонецЕсли;
ТабДокумент = Новый ТабличныйДокумент;
ТабДокумент.ИмяПараметровПечати = “ПАРАМЕТРЫ_ПЕЧАТИ_РеализацияТоваровУслуг_Акт“;
Макет = ПолучитьМакет(“Макет“);
ОбластьМакета = Макет.ПолучитьОбласть(“Заголовок“);
ОбластьМакета.Параметры.ТекстЗаг оловка = ОбщегоНазначения.СформироватьЗаголовокДокумента(Шапка, “Акт“);
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть(“Поставщик“);
СведенияОбОрганизации = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Организация, Шапка.Дата);
ПредставлениеПоставщика = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, “НаименованиеДляПечатныхФорм,“);
ОбластьМакета.Параметры.Представлен иеПоставщика = ПредставлениеПоставщика;
ОбластьМакета.Параметры.Поставщик = Шапка.Поставщик;
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМаке та = Макет.ПолучитьОбласть(“Покупатель“);
СведенияОКонтрагенте = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.Дата);
ПредставлениеПолучателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОКонтрагенте, “НаименованиеДляПечатныхФорм,“);
ОбластьМакета.Параметры.Представлен иеПолучателя = ПредставлениеПолучателя;
ОбластьМакета.Параметры.Получатель = Шапка.Получатель;
ТабДокумент.Вывести(ОбластьМакета);
ЕстьСкидки = Ложь;
// Вывести табличную часть
ОбластьМакета = Макет.ПолучитьОбласть(ОбластьШапки);
Если ДанныеДляПечати.ВыводитьКоды Тогда
ОбластьМакета.Параметры.ИмяКодАртикул = ДанныеДляПечати.ТекстКодАртикул;
КонецЕсли;
ТабДокумент.Вывести(Об ластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть(ОбластьСтроки);
НомерСтроки = 0;
Для Каждого СтрокаТабличнойЧасти Из ТабличнаяЧасть Цикл
НомерСтроки = НомерСтроки + 1;
ОбластьМакета.Параметры.Заполнить(СтрокаТабличнойЧасти);
ОбластьМакета.Параметры.НомерСтроки = НомерСтроки;
ОбластьМакета.Параметры.Товар = СокрЛП(СтрокаТабличнойЧасти.Товар);
Если Шапка.ВалютаДокумента мВалютаРегламентированногоУчета Тогда
ОбластьМакета.Параметры.Цена = СтрокаТабличнойЧасти.Сумма / ?(СтрокаТабличнойЧасти.Количество = 0, 1, СтрокаТабличнойЧасти.Количество);
КонецЕсли;
ТабДокумент.Выв ести(ОбластьМакета);
КонецЦикла;
Если ТабличнаяЧасть Неопределено Тогда
Сумма = ТабличнаяЧасть.Итог(“Сумма“);
СуммаНДС = ТабличнаяЧасть.Итог(“СуммаНДС“);
Иначе
Сумма = 0;
СуммаНДС = 0;
КонецЕсли;
ОбластьМакета = Макет.ПолучитьОбласть(“Итого“);
ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);
ТабДокумент.Вывести(ОбластьМакет а);
Если Шапка.УчитыватьНДС Тогда
ОбластьМакета = Макет.ПолучитьОбласть(“ИтогоНДС“);
Если СуммаНДС 0 Тогда
ОбластьМакета.Параметры.ВсегоНДС = ОбщегоНазначения.ФорматСумм(СуммаНДС);
ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, “В том числе НДС“, “ Сумма НДС“);
Иначе
ОбластьМакета.Параметры.ВсегоНДС = “-“;
ОбластьМакета.Параметры.НДС = “Без налога (НДС)“;
КонецЕсли;
ТабДокумент.Вывести(ОбластьМакета);
К онецЕсли;
СуммаКПрописи = Сумма + ?(Шапка.СуммаВключаетНДС, 0, СуммаНДС);
ОбластьМакета = Макет.ПолучитьОбласть(“СуммаПрописью“);
ОбластьМакета.Параметры.Итог оваяСтрока =“Всего оказано услуг “ + НомерСтроки
+ “, на сумму “ + ОбщегоНазначения.ФорматСумм(СуммаКПрописи, ДанныеДляПечати.ВалютаВПодписи);
ОбластьМакета.Параметры.СуммаПропис ью = ОбщегоНазначения.СформироватьСуммуПрописью(СуммаКПрописи, ДанныеДляПечати.ВалютаВПодписи);
ТабДокумент.Вывести(ОбластьМакета);
ОбластьМакета = Макет.ПолучитьОбласть(“Подписи“);
ОбластьМакета.Параметры.ДолжностьИ НазваниеОрганизации = ““ + Шапка.ДолжностьРуководителя + “ “ + ПредставлениеПоставщика;
ОбластьМакета.Параметры.ЗаместительПоПри казу = Шапка.ФИОРуководителя;
ТабДокумент.Вывести(ОбластьМакета);
Возвр ат ТабДокумент;
КонецФункции // ПечатьАктаОбОказанииУслуг()
// Процедура осуществляет печать документа. Можно направить печать на
// экран или принтер, а также распечатать необходимое количество копий.
//
// Название макета печати передается в качестве параметра,
// по переданному названию находим имя макета в соответствии.
//
// Параметры:
// НазваниеМакета - строка, название макета.
//
Процедура Печать(ИмяМакета = “Макет“, КоличествоЭкземпляров = 1, НаПринтер = Ложь, НепосредственнаяПечать = Ложь) Экспорт
ТабДокумент = ПечатьАктаОбОказанииУслуг();
Возврат ;
УниверсальныеМеханизмы.НапечататьДокумент(ТабДокумент, КоличествоЭкземпляров, НаПринтер, ОбщегоНазначения.СформироватьЗаголовокДокумента(ЭтотОбъект), НепосредственнаяПечать);
КонецПроцедуры // Печать
мВалютаРегламентированногоУчета = Константы.ВалютаРегламентированногоУчета.Получить();