Корректировка печатной формы

Валерий Жур · 01 июл 2016, 11:59

Всем привет.

Суть проблемы

При формировании счета в модуле менеджера происходит округление значений (сумма НДС, цена, цена без НДС и пр.) до целого числа.
С 1 июля в Беларуси деноминация, и появляются копейки.
Соответственно все значения в печатных формах надо округлять, до двух знаков после запятой.

Собственно мы внесли изменения в правила округления, и все значения отображаются корректно кроме одного СуммаНДС

Пример документа -
http://joxi.ru/Vm66kvOSxJyaBm
http://joxi.ru/zANdQynflGE35m
Код

ОбластьМакета.Параметры.Номер = Ном;

//ОбластьМакета.Параметры.СтранаПроисхождения = СокрЛП(ВыборкаСтрокТовары.Страна);

СуммаСНДС = Окр((ВыборкаСтрокТовары.Сумма + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрокТовары.СуммаНДС)),Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
Количество = ВыборкаСтрокТовары.Количество;
СуммаНДС = Окр(ВыборкаСтрокТовары.СуммаНДС,Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
Сумма = Окр(ВыборкаСтрокТовары.Сумма,Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
Цена = Окр(ВыборкаСтрокТовары.Цена, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);

СтруктураДанных = Новый Структура;
СтруктураДанных.Вставить("ВидЦен", Шапка.ВидЦен);
СтруктураДанных.Вставить("ДатаОбработки", Шапка.ДатаДокумента);
СтруктураДанных.Вставить("Номенклатура", ВыборкаСтрокТовары.Номенклатура);
СтруктураДанных.Вставить("Характеристика", ВыборкаСтрокТовары.Характеристика);
СтруктураДанных.Вставить("Коэффициент", 1);
СтруктураДанных.Вставить("ВалютаДокумента", Шапка.ВалютаДокумента);
СтруктураДанных.Вставить("СуммаВключаетНДС", Шапка.СуммаВключаетНДС);

ОбластьМакета.Параметры.Скидка = Окр(ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.Количество - ВыборкаСтрокТовары.Сумма, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
ОбластьМакета.Параметры.ЦенаСоСкидкой = Окр(Цена - Цена * ВыборкаСтрокТовары.ПроцентСкидкиНаценки / 100, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(Цена, Шапка.ВалютаДокумента);
ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.Скидка, Шапка.ВалютаДокумента);
ОбластьМакета.Параметры.ЦенаСоСкидкой = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.ЦенаСоСкидкой, Шапка.ВалютаДокумента);
ТабДокумент.Вывести(ОбластьМакета);

КонецЦикла;
...Показать
Подскажите пожалуйста в чем может быть проблема?

Свойства переменной уже проверил.
Свойство ячейки проверил.
Спасибо.

mixqn · 01 июл 2016, 12:05

Если отладчиком посмотреть, значение верное подставляется в макет? В макете точно проверили формат?

LexaK · 01 июл 2016, 12:17

как вариант, посмотрите в конфигураторе, в макете, в самой ячейке, формат ячейки!
там тоже может быть округление

Валерий Жур · 01 июл 2016, 12:36

спасибо, уже смотрел
http://joxi.ru/ZrJQENaS1P9LQA
В макете формат проверил
Формат реквизита проверил

Как с помощью отладчика сделать проверку в данном случае не понимаю((( (я еще неопытный )

LexaK · 01 июл 2016, 12:50

выложите весь текст процедуры печати, по тем кускам что выше выложили не все видно

Добавлено: 01 июл 2016, 13:01

УПС!!! а вы шутник!!! однако!
сначала показываете картинку с ошибкой от одного отчета!
а макет и настройки формата ячейки, показываете от ДРУГОГО отчета!

ну так же нельзя! мы искренне хотели вам помочь!

Валерий Жур · 01 июл 2016, 13:08

Да нет отчет один и тот же.

Весь код
// Процедура формирования таблицы платежного календаря.
//
// Параметры:
//   ДокументСсылка - ДокументСсылка.ПриходДенежныхСредствПлан - Текущий документ
//   ДополнительныеСвойства - ДополнительныеСвойства - Дополнительные свойства документа
//
Процедура СформироватьТаблицаПлатежныйКалендарь(ДокументСсылка, СтруктураДополнительныеСвойства)

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

   Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
   Запрос.УстановитьПараметр("МоментВремени", Новый Граница(СтруктураДополнительныеСвойства.ДляПроведения.МоментВремени, ВидГраницы.Включая));
   Запрос.УстановитьПараметр("Организация", СтруктураДополнительныеСвойства.ДляПроведения.Организация);

   Запрос.Текст =
   "ВЫБРАТЬ
   |   ТаблицаДокумента.ДатаОплаты КАК Период,
   |   &Организация КАК Организация,
   |   ТаблицаДокумента.НомерСтроки КАК НомерСтроки,
   |   ТаблицаДокумента.Ссылка.ТипДенежныхСредств,
   |   ЗНАЧЕНИЕ(Перечисление.СтатусыУтвержденияПлатежей.Утвержден) КАК СтатусУтвержденияПлатежа,
   |   ТаблицаДокумента.Ссылка КАК СчетНаОплату,
   |   ЗНАЧЕНИЕ(Справочник.СтатьиДвиженияДенежныхСредств.ОплатаОтПокупателей) КАК Статья,
   |   ВЫБОР
   |      КОГДА ТаблицаДокумента.Ссылка.ТипДенежныхСредств = ЗНАЧЕНИЕ(Перечисление.ТипыДенежныхСредств.Наличные)
   |         ТОГДА ТаблицаДокумента.Ссылка.Касса
   |      КОГДА ТаблицаДокумента.Ссылка.ТипДенежныхСредств = ЗНАЧЕНИЕ(Перечисление.ТипыДенежныхСредств.Безналичные)
   |         ТОГДА ТаблицаДокумента.Ссылка.БанковскийСчет
   |      ИНАЧЕ НЕОПРЕДЕЛЕНО
   |   КОНЕЦ КАК БанковскийСчетКасса,
   |   ВЫБОР
   |      КОГДА ТаблицаДокумента.Ссылка.Договор.РасчетыВУсловныхЕдиницах
   |         ТОГДА ТаблицаДокумента.Ссылка.Договор.ВалютаРасчетов
   |      ИНАЧЕ ТаблицаДокумента.Ссылка.ВалютаДокумента
   |   КОНЕЦ КАК Валюта,
   |   ВЫБОР
   |      КОГДА ТаблицаДокумента.Ссылка.Договор.РасчетыВУсловныхЕдиницах
   |         ТОГДА ВЫРАЗИТЬ(ТаблицаДокумента.СуммаОплаты * ВЫБОР
   |                  КОГДА КурсыВалютРасчетов.Курс <> 0
   |                        И КурсыВалютДокумента.Кратность <> 0
   |                     ТОГДА КурсыВалютДокумента.Курс * КурсыВалютРасчетов.Кратность / (ЕСТЬNULL(КурсыВалютРасчетов.Курс, 1) * ЕСТЬNULL(КурсыВалютДокумента.Кратность, 1))
   |                  ИНАЧЕ 1
   |               КОНЕЦ КАК ЧИСЛО(15, 2))
   |      ИНАЧЕ ТаблицаДокумента.СуммаОплаты
   |   КОНЕЦ КАК Сумма
   |ИЗ
   |   Документ.СчетНаОплату.ПлатежныйКалендарь КАК ТаблицаДокумента
   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(&МоментВремени, ) КАК КурсыВалютРасчетов
   |      ПО ТаблицаДокумента.Ссылка.Договор.ВалютаРасчетов = КурсыВалютРасчетов.Валюта
   |      ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.КурсыВалют.СрезПоследних(&МоментВремени, ) КАК КурсыВалютДокумента
   |      ПО ТаблицаДокумента.Ссылка.ВалютаДокумента = КурсыВалютДокумента.Валюта
   |ГДЕ
   |   ТаблицаДокумента.Ссылка = &Ссылка
   |
   |УПОРЯДОЧИТЬ ПО
   |   НомерСтроки";

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

   СтруктураДополнительныеСвойства.ТаблицыДляДвижений.Вставить("ТаблицаПлатежныйКалендарь", РезультатЗапроса.Выгрузить());

КонецПроцедуры // СформироватьТаблицаПлатежныйКалендарь()

// Процедура формирования таблицы счетов на оплату.
//
// Параметры:
//   ДокументСсылка - ДокументСсылка.ПриходДенежныхСредствПлан - Текущий документ
//   ДополнительныеСвойства - ДополнительныеСвойства - Дополнительные свойства документа
//
Процедура СформироватьТаблицаОплатаСчетовИЗаказов(ДокументСсылка, СтруктураДополнительныеСвойства)

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

   Запрос.УстановитьПараметр("Ссылка", ДокументСсылка);
   Запрос.УстановитьПараметр("МоментВремени", Новый Граница(СтруктураДополнительныеСвойства.ДляПроведения.МоментВремени, ВидГраницы.Включая));
   Запрос.УстановитьПараметр("Организация", СтруктураДополнительныеСвойства.ДляПроведения.Организация);

   Запрос.Текст =
   "ВЫБРАТЬ
   |   ТаблицаДокумента.Дата КАК Период,
   |   &Организация КАК Организация,
   |   ТаблицаДокумента.Ссылка КАК СчетНаОплату,
   |   ТаблицаДокумента.СуммаДокумента КАК Сумма
   |ИЗ
   |   Документ.СчетНаОплату КАК ТаблицаДокумента
   |ГДЕ
   |   ТаблицаДокумента.Контрагент.ВестиУчетОплатыПоСчетам
   |   И ТаблицаДокумента.Ссылка = &Ссылка
   |   И ТаблицаДокумента.СуммаДокумента <> 0";

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

   СтруктураДополнительныеСвойства.ТаблицыДляДвижений.Вставить("ТаблицаОплатаСчетовИЗаказов", РезультатЗапроса.Выгрузить());

КонецПроцедуры // СформироватьТаблицаОплатаСчетовИЗаказов()

// Формирует таблицу данных документа.
//
// Параметры:
//   ДокументСсылка - ДокументСсылка.ПриходДенежныхСредствПлан - Текущий документ
//   СтруктураДополнительныеСвойства - ДополнительныеСвойства - Дополнительные свойства документа
//
Процедура ИнициализироватьДанныеДокумента(ДокументСсылка, СтруктураДополнительныеСвойства) Экспорт

   СформироватьТаблицаПлатежныйКалендарь(ДокументСсылка, СтруктураДополнительныеСвойства);
   СформироватьТаблицаОплатаСчетовИЗаказов(ДокументСсылка, СтруктураДополнительныеСвойства);

КонецПроцедуры // ИнициализироватьДанныеДокумента()

// Процедура печати документа
Функция ПечатьСчетНаОплату(МассивОбъектов, ОбъектыПечати, ИмяМакета)
   Перем Ошибки;
   ТабличныйДокумент = Новый ТабличныйДокумент;

   Запрос = Новый Запрос();
   Запрос.Текст =
   "ВЫБРАТЬ
   |   СчетНаОплату.Ссылка КАК Ссылка,
   |   СчетНаОплату.СуммаВключаетНДС КАК СуммаВключаетНДС,
   |   СчетНаОплату.ВалютаДокумента КАК ВалютаДокумента,
   |   СчетНаОплату.Дата КАК ДатаДокумента,
   |   СчетНаОплату.Номер КАК Номер,
   |   СчетНаОплату.БанковскийСчет КАК БанковскийСчет,
   |   СчетНаОплату.Контрагент КАК Контрагент,
   |   СчетНаОплату.Организация КАК Организация,
   |   СчетНаОплату.Организация.Префикс КАК Префикс,
   |   СчетНаОплату.Запасы.(
   |      ВЫБОР
   |         КОГДА (ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))) = """"
   |            ТОГДА СчетНаОплату.Запасы.Номенклатура.Наименование
   |         ИНАЧЕ ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
   |      КОНЕЦ КАК Запас,
   |      Номенклатура.Артикул КАК Артикул,
   |      ЕдиницаИзмерения КАК ЕдиницаИзмерения,
   |      Цена КАК Цена,
   |      Сумма КАК Сумма,
   |      СуммаНДС КАК СуммаНДС,
   |      Всего КАК Всего,
   |      Количество КАК Количество,
   |      Характеристика,
   |      Содержание,
   |      ПроцентСкидкиНаценки,
   |      ВЫБОР
   |         КОГДА СчетНаОплату.Запасы.ПроцентСкидкиНаценки <> 0
   |            ТОГДА 1
   |         ИНАЧЕ 0
   |      КОНЕЦ КАК ЕстьСкидка,
   |      НомерСтроки КАК НомерСтроки
   |   ),
   |   СчетНаОплату.ПлатежныйКалендарь.(
   |      ПроцентОплаты,
   |      СуммаОплаты,
   |      СуммаНДСОплаты
   |   )
   |ИЗ
   |   Документ.СчетНаОплату КАК СчетНаОплату
   |ГДЕ
   |   СчетНаОплату.Ссылка В(&МассивОбъектов)
   |
   |УПОРЯДОЧИТЬ ПО
   |   Ссылка,
   |   НомерСтроки";

   Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);

   Шапка = Запрос.Выполнить().Выбрать();

   ПервыйДокумент = Истина;

   Пока Шапка.Следующий() Цикл

      Если Не ПервыйДокумент Тогда
         ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
      КонецЕсли;
      ПервыйДокумент = Ложь;

      НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;

      ВыборкаСтрокЗапасы = Шапка.Запасы.Выбрать();
      ТаблицаПредоплаты = Шапка.ПлатежныйКалендарь.Выгрузить();

      ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_" + ИмяМакета + "_" + ИмяМакета;

      Макет = УправлениеПечатью.ПолучитьМакет("Документ.СчетНаОплату.ПФ_MXL_" + ИмяМакета);

      СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,Шапка.БанковскийСчет);
      СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Контрагент, Шапка.ДатаДокумента, ,);

      //Если используется пользовательский макет - этих секций не было
      Если Макет.Области.Найти("ЗаглавиеСЛоготипом") <> Неопределено
         И Макет.Области.Найти("ЗаглавиеБезЛоготипа") <> Неопределено Тогда
         ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.Организация.ФайлЛоготип);
         Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда
            ОбластьМакета = Макет.ПолучитьОбласть("ЗаглавиеСЛоготипом");
            ОбластьМакета.Рисунки.Логотип.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);
         Иначе // Если картинки не выбраны печатаем обычный заголовок
            ОбластьМакета = Макет.ПолучитьОбласть("ЗаглавиеБезЛоготипа");
         КонецЕсли;
         ТабличныйДокумент.Вывести(ОбластьМакета);
      Иначе
         ТекстСообщения = НСтр("ru ='ВНИМАНИЕ! Возможно используется пользовательский макет. Штатный механизм печати счетов может работать некоректно.'");
         ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, , ТекстСообщения);
      КонецЕсли;
      ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
      Если ЗначениеЗаполнено(СведенияОбОрганизации.Банк) Тогда
         ОбластьМакета.Параметры.БанкПолучателяПредставление = СведенияОбОрганизации.Банк.Наименование + " " + СведенияОбОрганизации.Банк.Город;
      КонецЕсли;
      ОбластьМакета.Параметры.ИНН = СведенияОбОрганизации.ИНН;
      //1С-Минск
      //ОбластьМакета.Параметры.КПП = СведенияОбОрганизации.КПП;
      //Конец 1С-Минск

      ОбластьМакета.Параметры.ПредставлениеПоставщика = СведенияОбОрганизации.ПолноеНаименование;
      ОбластьМакета.Параметры.БИКБанкаПолучателя = СведенияОбОрганизации.БИК;
      ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = СведенияОбОрганизации.КоррСчет;
      ОбластьМакета.Параметры.СчетПолучателяПредставление = СведенияОбОрганизации.НомерСчета;

      ТабличныйДокумент.Вывести(ОбластьМакета);

      Если Шапка.ДатаДокумента < Дата('20110101') Тогда
         НомерДокумента = УправлениеНебольшойФирмойСервер.ПолучитьНомерНаПечать(Шапка.Номер, Шапка.Префикс);
      Иначе
         НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.Номер, Истина, Истина);
      КонецЕсли;

      ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
      ОбластьМакета.Параметры.ТекстЗаголовка = "Счет на оплату № "
                                    + НомерДокумента
                                    + " от "
                                    + Формат(Шапка.ДатаДокумента, "ДЛФ=DD");

      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
      ОбластьМакета.Параметры.ПредставлениеПоставщика = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,");
      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
      ОбластьМакета.Параметры.ПредставлениеПолучателя = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,");
      ТабличныйДокумент.Вывести(ОбластьМакета);

      ЕстьСкидки = Шапка.Запасы.Выгрузить().Итог("ЕстьСкидка") <> 0;

      Если ЕстьСкидки Тогда
        ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицыСоСкидкой");
         ТабличныйДокумент.Вывести(ОбластьМакета);
         ОбластьМакета = Макет.ПолучитьОбласть("СтрокаСоСкидкой");
      Иначе
        ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
         ТабличныйДокумент.Вывести(ОбластьМакета);
         ОбластьМакета = Макет.ПолучитьОбласть("Строка");
      КонецЕсли;

      Сумма      = 0;
      СуммаНДС   = 0;
      Всего      = 0;
      Количество   = 0;

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

         Количество = Количество + 1;
         ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокЗапасы);
         ОбластьМакета.Параметры.НомерСтроки = Количество;
         //1С-Минск
         ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Цена, Шапка.ВалютаДокумента);
         ОбластьМакета.Параметры.Сумма = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма, Шапка.ВалютаДокумента);
         //Конец 1С-Минск
         Если ЗначениеЗаполнено(ВыборкаСтрокЗапасы.Содержание) Тогда
            ОбластьМакета.Параметры.Запас = ВыборкаСтрокЗапасы.Содержание;
         Иначе
            ОбластьМакета.Параметры.Запас = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокЗапасы.Запас,
                                                   ВыборкаСтрокЗапасы.Характеристика, ВыборкаСтрокЗапасы.Артикул);
         КонецЕсли;

         Если ЕстьСкидки Тогда
            Если ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки = 100 Тогда
               Скидка = ВыборкаСтрокЗапасы.Цена * ВыборкаСтрокЗапасы.Количество;
               //1С-Минск
               ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            ИначеЕсли ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки = 0 Тогда
               ОбластьМакета.Параметры.Скидка = 0;
               //1С-Минск
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма, Шапка.ВалютаДокумента);
               //Конец 1С-Минск

            Иначе
               Скидка = ВыборкаСтрокЗапасы.Сумма * ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки / (100 - ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки);

               //1С-Минск
               ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма + Скидка, Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            КонецЕсли;
         КонецЕсли;

         ТабличныйДокумент.Вывести(ОбластьМакета);

         Сумма      = Сумма      + ВыборкаСтрокЗапасы.Сумма;
         СуммаНДС   = СуммаНДС   + ВыборкаСтрокЗапасы.СуммаНДС;
         Всего      = Всего    + ВыборкаСтрокЗапасы.Всего;

      КонецЦикла;

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

      //1С-Минск
      ОбластьМакета.Параметры.Всего = УправлениеФормамиУНФРБСервер.ФорматСумм(Сумма, Шапка.ВалютаДокумента);
      //Конец 1С-Минск

      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
      Если СуммаНДС = 0 Тогда
         ОбластьМакета.Параметры.НДС = "Без налога (НДС)";
         ОбластьМакета.Параметры.ВсегоНДС = "-";
      Иначе
         ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", "Сумма НДС:");

         //1С-Минск
         ОбластьМакета.Параметры.ВсегоНДС = УправлениеФормамиУНФРБСервер.ФорматСумм(СуммаНДС, Шапка.ВалютаДокумента);
         //Конец 1С-Минск
//         ОбластьМакета.Параметры.ВсегоНДС = УправлениеНебольшойФирмойСервер.ФорматСумм(СуммаНДС);
      КонецЕсли;

      Если ИмяМакета = "СчетНаЧастичнуюОплату" Тогда
         Если СуммаНДС = 0 Тогда
            ОбластьМакета.Параметры.НДСкОплате = "Без налога (НДС)";
            ОбластьМакета.Параметры.ВсегоНДСкОплате = "-";
         Иначе
            ОбластьМакета.Параметры.НДСкОплате = ?(Шапка.СуммаВключаетНДС, "В том числе НДС оплаты:", "Сумма НДС оплаты:");
            Если ТаблицаПредоплаты.Итог("ПроцентОплаты") > 0 Тогда
               //1С-Минск
               ОбластьМакета.Параметры.ВсегоНДСкОплате = УправлениеФормамиУНФРБСервер.ФорматСумм(ТаблицаПредоплаты.Итог("СуммаНДСОплаты"), Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            Иначе
               ОбластьМакета.Параметры.ВсегоНДСкОплате = "-";
            КонецЕсли;
         КонецЕсли;
         Если ТаблицаПредоплаты.Итог("ПроцентОплаты") > 0 Тогда
//1С-Минск
            ОбластьМакета.Параметры.ВсегоКОплате = УправлениеФормамиУНФРБСервер.ФорматСумм(ТаблицаПредоплаты.Итог("СуммаОплаты"), Шапка.ВалютаДокумента);
            //Конец 1С-Минск

            ОбластьМакета.Параметры.ПроцентОплаты = ТаблицаПредоплаты.Итог("ПроцентОплаты");
         Иначе
            ОбластьМакета.Параметры.ВсегоКОплате = "-";
            ОбластьМакета.Параметры.ПроцентОплаты = "-";
         КонецЕсли;
      КонецЕсли;

      ТабличныйДокумент.Вывести(ОбластьМакета);

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

      СуммаКПрописи = Всего;

      ОбластьМакета.Параметры.ИтоговаяСтрока = "Всего наименований "
                                    + Строка(Количество)
                                    + ", на сумму "
                                    + УправлениеНебольшойФирмойСервер.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента);

      ОбластьМакета.Параметры.СуммаПрописью = РаботаСКурсамиВалют.СформироватьСуммуПрописью(СуммаКПрописи, Шапка.ВалютаДокумента);

      ТабличныйДокумент.Вывести(ОбластьМакета);
      ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");

      Руководители = УправлениеНебольшойФирмойСервер.ОтветственныеЛицаОрганизационнойЕдиницы(Шапка.Организация, Шапка.ДатаДокумента);
      ОбластьМакета.Параметры.ФИОРуководителя = Руководители.ФИОРуководителя;
      ОбластьМакета.Параметры.ФИОБухгалтера = Руководители.ФИОГлавногоБухгалтера;
      ТабличныйДокумент.Вывести(ОбластьМакета);
      УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, Шапка.Ссылка);
   КонецЦикла;

   ТабличныйДокумент.АвтоМасштаб = Истина;

   Возврат ТабличныйДокумент;

КонецФункции // ПечатнаяФорма()

// Процедура печати документа
//
Функция ПечатьСчетНаОплатуСФаксимильнойПодписью(МассивОбъектов, ОбъектыПечати, ИмяМакета)

   Перем Ошибки;

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

   Запрос = Новый Запрос();
   Запрос.Текст =
   "ВЫБРАТЬ
   |   СчетНаОплату.Ссылка КАК Ссылка,
   |   СчетНаОплату.СуммаВключаетНДС КАК СуммаВключаетНДС,
   |   СчетНаОплату.ВалютаДокумента КАК ВалютаДокумента,
   |   СчетНаОплату.Дата КАК ДатаДокумента,
   |   СчетНаОплату.Номер КАК Номер,
   |   СчетНаОплату.БанковскийСчет КАК БанковскийСчет,
   |   СчетНаОплату.Контрагент КАК Контрагент,
   |   СчетНаОплату.Организация КАК Организация,
   |   СчетНаОплату.Организация.Префикс КАК Префикс,
   |   СчетНаОплату.Запасы.(
   |      ВЫБОР
   |         КОГДА (ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))) = """"
   |            ТОГДА СчетНаОплату.Запасы.Номенклатура.Наименование
   |         ИНАЧЕ ВЫРАЗИТЬ(СчетНаОплату.Запасы.Номенклатура.НаименованиеПолное КАК СТРОКА(1000))
   |      КОНЕЦ КАК Запас,
   |      Номенклатура.Артикул КАК Артикул,
   |      ЕдиницаИзмерения КАК ЕдиницаИзмерения,
   |      Цена КАК Цена,
   |      Сумма КАК Сумма,
   |      СуммаНДС КАК СуммаНДС,
   |      Всего КАК Всего,
   |      Количество КАК Количество,
   |      Характеристика,
   |      Содержание,
   |      ПроцентСкидкиНаценки,
   |      ВЫБОР
   |         КОГДА СчетНаОплату.Запасы.ПроцентСкидкиНаценки <> 0
   |            ТОГДА 1
   |         ИНАЧЕ 0
   |      КОНЕЦ КАК ЕстьСкидка,
   |      НомерСтроки КАК НомерСтроки
   |   ),
   |   СчетНаОплату.ПлатежныйКалендарь.(
   |      ПроцентОплаты,
   |      СуммаОплаты,
   |      СуммаНДСОплаты
   |   )
   |ИЗ
   |   Документ.СчетНаОплату КАК СчетНаОплату
   |ГДЕ
   |   СчетНаОплату.Ссылка В(&МассивОбъектов)
   |
   |УПОРЯДОЧИТЬ ПО
   |   Ссылка,
   |   НомерСтроки";

   Запрос.УстановитьПараметр("МассивОбъектов", МассивОбъектов);

   Шапка = Запрос.Выполнить().Выбрать();

   ПервыйДокумент = Истина;

   Пока Шапка.Следующий() Цикл

      Если Не ПервыйДокумент Тогда
         ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
      КонецЕсли;
      ПервыйДокумент = Ложь;

      НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;

      ВыборкаСтрокЗапасы = Шапка.Запасы.Выбрать();
      ТаблицаПредоплаты = Шапка.ПлатежныйКалендарь.Выгрузить();
      ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_" + ИмяМакета + "_" + ИмяМакета;

      Макет = УправлениеПечатью.ПолучитьМакет("Документ.СчетНаОплату.ПФ_MXL_" + ИмяМакета);

      СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,Шапка.БанковскийСчет);
      СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Контрагент, Шапка.ДатаДокумента, ,);

      //Если используется пользовательский макет - этих секций не было
      Если Макет.Области.Найти("ЗаглавиеСЛоготипом") <> Неопределено
         И Макет.Области.Найти("ЗаглавиеБезЛоготипа") <> Неопределено Тогда

         ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.Организация.ФайлЛоготип);
         Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда

            ОбластьМакета = Макет.ПолучитьОбласть("ЗаглавиеСЛоготипом");
            ОбластьМакета.Рисунки.Логотип.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);

         Иначе // Если картинки не выбраны печатаем обычный заголовок

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

         КонецЕсли;

         ТабличныйДокумент.Вывести(ОбластьМакета);

      Иначе

         ТекстСообщения = НСтр("ru ='ВНИМАНИЕ! Возможно используется пользовательский макет. Штатный механизм печати счетов может работать некоректно.'");
         ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, , ТекстСообщения);

      КонецЕсли;

      ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
      Если ЗначениеЗаполнено(СведенияОбОрганизации.Банк) Тогда
         ОбластьМакета.Параметры.БанкПолучателяПредставление = СведенияОбОрганизации.Банк.Наименование + " " + СведенияОбОрганизации.Банк.Город;
      КонецЕсли;
      ОбластьМакета.Параметры.ИНН = СведенияОбОрганизации.ИНН;
      ОбластьМакета.Параметры.КПП = СведенияОбОрганизации.КПП;
      ОбластьМакета.Параметры.ПредставлениеПоставщика = СведенияОбОрганизации.ПолноеНаименование;
      ОбластьМакета.Параметры.БИКБанкаПолучателя = СведенияОбОрганизации.БИК;
      ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = СведенияОбОрганизации.КоррСчет;
      ОбластьМакета.Параметры.СчетПолучателяПредставление = СведенияОбОрганизации.НомерСчета;

      ТабличныйДокумент.Вывести(ОбластьМакета);

      Если Шапка.ДатаДокумента < Дата('20110101') Тогда
         НомерДокумента = УправлениеНебольшойФирмойСервер.ПолучитьНомерНаПечать(Шапка.Номер, Шапка.Префикс);
      Иначе
         НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.Номер, Истина, Истина);
      КонецЕсли;

      ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
      ОбластьМакета.Параметры.ТекстЗаголовка = "Счет на оплату № "
                                    + НомерДокумента
                                    + " от "
                                    + Формат(Шапка.ДатаДокумента, "ДЛФ=DD");

      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
      ОбластьМакета.Параметры.ПредставлениеПоставщика = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,");
      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
      ОбластьМакета.Параметры.ПредставлениеПолучателя = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,");
      ТабличныйДокумент.Вывести(ОбластьМакета);

      ЕстьСкидки = Шапка.Запасы.Выгрузить().Итог("ЕстьСкидка") <> 0;

      Если ЕстьСкидки Тогда

         ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицыСоСкидкой");
         ТабличныйДокумент.Вывести(ОбластьМакета);
         ОбластьМакета = Макет.ПолучитьОбласть("СтрокаСоСкидкой");

      Иначе

         ОбластьМакета = Макет.ПолучитьОбласть("ШапкаТаблицы");
         ТабличныйДокумент.Вывести(ОбластьМакета);
         ОбластьМакета = Макет.ПолучитьОбласть("Строка");

      КонецЕсли;

      Сумма      = 0;
      СуммаНДС   = 0;
      Всего      = 0;
      Количество   = 0;

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

         Количество = Количество + 1;
         ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокЗапасы);
         ОбластьМакета.Параметры.НомерСтроки = Количество;
         //1С-Минск
         ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Цена, Шапка.ВалютаДокумента);
         ОбластьМакета.Параметры.Сумма = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма, Шапка.ВалютаДокумента);
         //Конец 1С-Минск
         Если ЗначениеЗаполнено(ВыборкаСтрокЗапасы.Содержание) Тогда
            ОбластьМакета.Параметры.Запас = ВыборкаСтрокЗапасы.Содержание;
         Иначе
            ОбластьМакета.Параметры.Запас = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокЗапасы.Запас,
                                                   ВыборкаСтрокЗапасы.Характеристика, ВыборкаСтрокЗапасы.Артикул);
         КонецЕсли;

         Если ЕстьСкидки Тогда
            Если ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки = 100 Тогда
               Скидка = ВыборкаСтрокЗапасы.Цена * ВыборкаСтрокЗапасы.Количество;
               //1С-Минск
               ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            ИначеЕсли ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки = 0 Тогда
               ОбластьМакета.Параметры.Скидка = 0;
               //1С-Минск
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма, Шапка.ВалютаДокумента);
               //Конец 1С-Минск

            Иначе
               Скидка = ВыборкаСтрокЗапасы.Сумма * ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки / (100 - ВыборкаСтрокЗапасы.ПроцентСкидкиНаценки);
               //1С-Минск
               ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(Скидка, Шапка.ВалютаДокумента);
               ОбластьМакета.Параметры.СуммаБезСкидки = УправлениеФормамиУНФРБСервер.ФорматСумм(ВыборкаСтрокЗапасы.Сумма + Скидка, Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            КонецЕсли;
         КонецЕсли;

         ТабличныйДокумент.Вывести(ОбластьМакета);

         Сумма      = Сумма      + ВыборкаСтрокЗапасы.Сумма;
         СуммаНДС   = СуммаНДС   + ВыборкаСтрокЗапасы.СуммаНДС;
         Всего      = Всего      + ВыборкаСтрокЗапасы.Всего;

      КонецЦикла;

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

      ОбластьМакета.Параметры.Всего = УправлениеНебольшойФирмойСервер.ФорматСумм(Сумма, Шапка.ВалютаДокумента);

      ТабличныйДокумент.Вывести(ОбластьМакета);

      ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
      Если СуммаНДС = 0 Тогда
         ОбластьМакета.Параметры.НДС = "Без налога (НДС)";
         ОбластьМакета.Параметры.ВсегоНДС = "-";
      Иначе
         ОбластьМакета.Параметры.НДС = ?(Шапка.СуммаВключаетНДС, "В том числе НДС:", "Сумма НДС:");

         //1С-Минск
         ОбластьМакета.Параметры.ВсегоНДС = УправлениеФормамиУНФРБСервер.ФорматСумм(СуммаНДС, Шапка.ВалютаДокумента);
         //Конец 1С-Минск
      КонецЕсли;

      Если ИмяМакета = "СчетНаЧастичнуюОплату" Тогда
         Если СуммаНДС = 0 Тогда
            ОбластьМакета.Параметры.НДСкОплате = "Без налога (НДС)";
            ОбластьМакета.Параметры.ВсегоНДСкОплате = "-";
         Иначе
            ОбластьМакета.Параметры.НДСкОплате = ?(Шапка.СуммаВключаетНДС, "В том числе НДС оплаты:", "Сумма НДС оплаты:");
            Если ТаблицаПредоплаты.Итог("ПроцентОплаты") > 0 Тогда
               //1С-Минск
               ОбластьМакета.Параметры.ВсегоНДСкОплате = УправлениеФормамиУНФРБСервер.ФорматСумм(ТаблицаПредоплаты.Итог("СуммаНДСОплаты"), Шапка.ВалютаДокумента);
               //Конец 1С-Минск
            Иначе
               ОбластьМакета.Параметры.ВсегоНДСкОплате = "-";
            КонецЕсли;
         КонецЕсли;
         Если ТаблицаПредоплаты.Итог("ПроцентОплаты") > 0 Тогда
            //1С-Минск
            ОбластьМакета.Параметры.ВсегоКОплате = УправлениеФормамиУНФРБСервер.ФорматСумм(ТаблицаПредоплаты.Итог("СуммаОплаты"), Шапка.ВалютаДокумента);
            //Конец 1С-Минск
            ОбластьМакета.Параметры.ПроцентОплаты = ТаблицаПредоплаты.Итог("ПроцентОплаты");
         Иначе
            ОбластьМакета.Параметры.ВсегоКОплате = "-";
            ОбластьМакета.Параметры.ПроцентОплаты = "-";
         КонецЕсли;
      КонецЕсли;

      ТабличныйДокумент.Вывести(ОбластьМакета);

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

      СуммаКПрописи = Всего;

      ОбластьМакета.Параметры.ИтоговаяСтрока = "Всего наименований "
                                    + Строка(Количество)
                                    + ", на сумму "
                                    + УправлениеНебольшойФирмойСервер.ФорматСумм(СуммаКПрописи, Шапка.ВалютаДокумента);
      ОбластьМакета.Параметры.СуммаПрописью = РаботаСКурсамиВалют.СформироватьСуммуПрописью(СуммаКПрописи,
                                                                        Шапка.ВалютаДокумента);

      ТабличныйДокумент.Вывести(ОбластьМакета);

      Если Макет.Области.Найти("ПодвалСчетаСФаксимильнойПечатью") <> Неопределено Тогда

         ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.Организация.ФайлФаксимильнаяПечать);
         Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда
            ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСФаксимильнойПечатью");
            ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);
         Иначе
            ТекстСообщения = НСтр("ru ='Факсимиле для организации не установлена. Установка факсимиле выполняется в карточке организации, раздел ""Настройка печати"".'");
            ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, , ТекстСообщения);
            ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");
            Руководители = УправлениеНебольшойФирмойСервер.ОтветственныеЛицаОрганизационнойЕдиницы(Шапка.Организация, Шапка.ДатаДокумента);
            ОбластьМакета.Параметры.ФИОРуководителя = Руководители.ФИОРуководителя;
            ОбластьМакета.Параметры.ФИОБухгалтера = Руководители.ФИОГлавногоБухгалтера;
         КонецЕсли;

         ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСФаксимильнойПечатью");
         ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);

      Иначе

         ТекстСообщения = НСтр("ru ='Факсимиле для организации не установлена. Установка факсимиле выполняется в карточке организации, раздел ""Настройка печати"".'");
         // Добавлять второе предупреждение не нужно, так как предупреждение добавлено при попытке вывести заголовок.

         ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, , ТекстСообщения);

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

         Руководители = УправлениеНебольшойФирмойСервер.ОтветственныеЛицаОрганизационнойЕдиницы(Шапка.Организация, Шапка.ДатаДокумента);

         ОбластьМакета.Параметры.ФИОРуководителя = Руководители.ФИОРуководителя;
         ОбластьМакета.Параметры.ФИОБухгалтера = Руководители.ФИОГлавногоБухгалтера;

      КонецЕсли;

      ТабличныйДокумент.Вывести(ОбластьМакета);

      УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, Шапка.Ссылка);

   КонецЦикла;

   ОбщегоНазначенияКлиентСервер.СообщитьОшибкиПользователю(Ошибки);

   ТабличныйДокумент.АвтоМасштаб = Истина;

   Возврат ТабличныйДокумент;

КонецФункции // ПечатнаяФорма()

// Процедура формирования предварительной печатной формы документа (образец)
//
// Вызывается из карточки "Организации" для просмотра размещения логотипов
//
Функция ПечатьПредварительныйПросмотрСчетаНаОплату(Организация, ОбъектыПечати, ИмяМакета)

   Перем Ошибки;

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

   ЗначениеДаты = ТекущаяДатаСеанса();

   Шапка = Новый Структура;
   Шапка.Вставить("СуммаВключаетНДС",   Истина);
   Шапка.Вставить("ВалютаДокумента",   Константы.НациональнаяВалюта.Получить());
   Шапка.Вставить("ДатаДокумента",      ЗначениеДаты);
   Шапка.Вставить("Номер",          "00000000001");
   Шапка.Вставить("Организация",       Организация);
   Шапка.Вставить("БанковскийСчет",   ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Организация, "БанковскийСчетПоУмолчанию"));
   Шапка.Вставить("Префикс",          ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Организация, "Префикс"));
   Шапка.Вставить("ПредставлениеПолучателя", "Поле содержит информацию покупателя: полное наименование, ИНН, КПП, юридический адрес, телефоны.");

   Запасы = Новый Структура;
   Запасы.Вставить("НомерСтроки",         1);
   Запасы.Вставить("Запас",            "Запас для предварительного просмотра");
   Запасы.Вставить("Артикул",            "АРТ-0000001");
   Запасы.Вставить("ЕдиницаИзмерения",      Справочники.КлассификаторЕдиницИзмерения.шт);
   Запасы.Вставить("Количество",         1);
   Запасы.Вставить("Цена",               118);
   Запасы.Вставить("Сумма",            118);
   Запасы.Вставить("СуммаНДС",            18);
   Запасы.Вставить("ВсегоНДС",            18);
   Запасы.Вставить("НДС",                "В том числе НДС:");
   Запасы.Вставить("Характеристика",      Справочники.ХарактеристикиНоменклатуры.ПустаяСсылка());
   Запасы.Вставить("ПроцентСкидкиНаценки",   0);

   НомерСтрокиНачало = ТабличныйДокумент.ВысотаТаблицы + 1;

   ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_" + ИмяМакета + "_" + ИмяМакета;

   Макет = УправлениеПечатью.ПолучитьМакет("Документ.СчетНаОплату.ПФ_MXL_" + ИмяМакета);

   СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, , ?(ЗначениеЗаполнено(Шапка.БанковскийСчет), Шапка.БанковскийСчет, Неопределено));


   //Если используется пользовательский макет - этих секций не было
   Если Макет.Области.Найти("ЗаглавиеСЛоготипом") <> Неопределено
      И Макет.Области.Найти("ЗаглавиеБезЛоготипа") <> Неопределено Тогда

      ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Организация.ФайлЛоготип);
      Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда

         ОбластьМакета = Макет.ПолучитьОбласть("ЗаглавиеСЛоготипом");
         ОбластьМакета.Рисунки.Логотип.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);

      Иначе // Если картинки не выбраны печатаем обычный заголовок

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

      КонецЕсли;

      ТабличныйДокумент.Вывести(ОбластьМакета);

   Иначе

      ТекстСообщения = НСтр("ru ='ВНИМАНИЕ! Возможно используется пользовательский макет. Штатный механизм печати счетов может работать некоректно.'");
      ОбщегоНазначенияКлиентСервер.ДобавитьОшибкуПользователю(Ошибки, , ТекстСообщения);

   КонецЕсли;

   ОбластьМакета = Макет.ПолучитьОбласть("ЗаголовокСчета");
   Если ЗначениеЗаполнено(СведенияОбОрганизации.Банк) Тогда
      ОбластьМакета.Параметры.БанкПолучателяПредставление = СведенияОбОрганизации.Банк.Наименование + " " + СведенияОбОрганизации.Банк.Город;
   КонецЕсли;

   ОбластьМакета.Параметры.ИНН = СведенияОбОрганизации.ИНН;
   ОбластьМакета.Параметры.КПП = СведенияОбОрганизации.КПП;
   ОбластьМакета.Параметры.ПредставлениеПоставщика = СведенияОбОрганизации.ПолноеНаименование;
   ОбластьМакета.Параметры.БИКБанкаПолучателя = СведенияОбОрганизации.БИК;
   ОбластьМакета.Параметры.СчетБанкаПолучателяПредставление = СведенияОбОрганизации.КоррСчет;
   ОбластьМакета.Параметры.СчетПолучателяПредставление = СведенияОбОрганизации.НомерСчета;

   ТабличныйДокумент.Вывести(ОбластьМакета);

   Если Шапка.ДатаДокумента < Дата('20110101') Тогда
      НомерДокумента = УправлениеНебольшойФирмойСервер.ПолучитьНомерНаПечать(Шапка.Номер, Шапка.Префикс);
   Иначе
      НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.Номер, Истина, Истина);
   КонецЕсли;

   ОбластьМакета = Макет.ПолучитьОбласть("Заголовок");
   ОбластьМакета.Параметры.ТекстЗаголовка = "Счет на оплату № "
                                 + НомерДокумента
                                 + " от "
                                 + Формат(Шапка.ДатаДокумента, "ДЛФ=DD");

   ТабличныйДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Поставщик");
   ОбластьМакета.Параметры.ПредставлениеПоставщика = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "ПолноеНаименование,ИНН,КПП,ЮридическийАдрес,Телефоны,");
   ТабличныйДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("Покупатель");
   ОбластьМакета.Параметры.Заполнить(Шапка);
   ТабличныйДокумент.Вывести(ОбластьМакета);

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

   ОбластьМакета = Макет.ПолучитьОбласть("Строка");
   ОбластьМакета.Параметры.Заполнить(Запасы);
   ТабличныйДокумент.Вывести(ОбластьМакета);

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

   ОбластьМакета.Параметры.Всего = УправлениеНебольшойФирмойСервер.ФорматСумм(Запасы.Сумма, Шапка.ВалютаДокумента);

   ТабличныйДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("ИтогоНДС");
   ОбластьМакета.Параметры.Заполнить(Запасы);
   ТабличныйДокумент.Вывести(ОбластьМакета);

   ОбластьМакета = Макет.ПолучитьОбласть("СуммаПрописью");
   ОбластьМакета.Параметры.ИтоговаяСтрока = "Всего наименований "
                                 + Строка(Запасы.Количество)
                                 + ", на сумму "
                                 + УправлениеНебольшойФирмойСервер.ФорматСумм(Запасы.Сумма, Шапка.ВалютаДокумента);

   ОбластьМакета.Параметры.СуммаПрописью = РаботаСКурсамиВалют.СформироватьСуммуПрописью(Запасы.Сумма, Шапка.ВалютаДокумента);
   ТабличныйДокумент.Вывести(ОбластьМакета);

   Если Макет.Области.Найти("ПодвалСчетаСФаксимильнойПечатью") <> Неопределено Тогда
      ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Организация.ФайлФаксимильнаяПечать);
      Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда
         ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСФаксимильнойПечатью");
         ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);
      Иначе
         ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");
         ОбластьМакета.Параметры.Заполнить(Шапка);
      КонецЕсли;

      ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчетаСФаксимильнойПечатью");
      ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);

   Иначе

      ОбластьМакета = Макет.ПолучитьОбласть("ПодвалСчета");
      // Добавлять второе предупреждение не нужно, так как предупреждение добавлено при попытке вывести заголовок.
      ОбластьМакета.Параметры.Заполнить(Шапка);

   КонецЕсли;

   ТабличныйДокумент.Вывести(ОбластьМакета);

   УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабличныйДокумент, НомерСтрокиНачало, ОбъектыПечати, Организация);

   ОбщегоНазначенияКлиентСервер.СообщитьОшибкиПользователю(Ошибки);

   ТабличныйДокумент.АвтоМасштаб = Истина;

   Возврат ТабличныйДокумент;

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

// Сформировать печатные формы объектов
//
// ВХОДЯЩИЕ:
// ИменаМакетов - Строка - Имена макетов, перечисленные через запятую
// МассивОбъектов - Массив - Массив ссылок на объекты которые нужно распечатать
// ПараметрыПечати - Структура - Структура дополнительных параметров печати
//
// ИСХОДЯЩИЕ:
// КоллекцияПечатныхФорм - Таблица значений - Сформированные табличные документы
// ПараметрыВывода - Структура - Параметры сформированных табличных документов
//
Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт

   ПараметрыВывода.ДоступнаПечатьПоКомплектно = Истина;

   ЗаполнитьПараметрыЭлектроннойПочты = Истина;

   // Пробная печать
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "ПредварительныйПросмотрПечатнойФормыСчетНаОплату") Тогда

      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "ПредварительныйПросмотрПечатнойФормыСчетНаОплату", "Счет на оплату", ПечатьПредварительныйПросмотрСчетаНаОплату(МассивОбъектов, ОбъектыПечати, "СчетНаОплату"));

      ЗаполнитьПараметрыЭлектроннойПочты = Ложь;

   КонецЕсли;

   // Счет на оплату
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СчетНаОплату") Тогда

      ТабличныйДокумент = ?(ПараметрыПечати.Факсимилия,
                        ПечатьСчетНаОплатуСФаксимильнойПодписью(МассивОбъектов, ОбъектыПечати, "СчетНаОплату"),
                        ПечатьСчетНаОплату(МассивОбъектов, ОбъектыПечати, "СчетНаОплату")
                        );

      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетНаОплату", "Счет на оплату", ТабличныйДокумент);

   КонецЕсли;

   // Счет на частичную оплату
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СчетНаЧастичнуюОплату") Тогда

      ТабличныйДокумент = ?(ПараметрыПечати.Факсимилия,
                        ПечатьСчетНаОплатуСФаксимильнойПодписью(МассивОбъектов, ОбъектыПечати, "СчетНаЧастичнуюОплату"),
                        ПечатьСчетНаОплату(МассивОбъектов, ОбъектыПечати, "СчетНаЧастичнуюОплату")
                        );

      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетНаЧастичнуюОплату", "Счет на оплату (частичная оплата)", ТабличныйДокумент);

   КонецЕсли;

//1С-Минск
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Счет") Тогда

      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Счет", "Счет на оплату", ПечатьСчета183(МассивОбъектов, ОбъектыПечати));

   КонецЕсли;

Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "Протокол") Тогда
      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "Протокол", "Протокол согласования цен", ПечатьСчета183(МассивОбъектов, ОбъектыПечати, Ложь, Истина));
   КонецЕсли;

   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "СчетПротокол") Тогда
      УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "СчетПротокол", "СчетПротокол", ПечатьСчета183(МассивОбъектов, ОбъектыПечати, Истина, Истина));
   КонецЕсли;
   //Конец 1С-Минск

   // параметры отправки печатных форм по электронной почте
   Если ЗаполнитьПараметрыЭлектроннойПочты Тогда

      УправлениеНебольшойФирмойСервер.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, МассивОбъектов, КоллекцияПечатныхФорм);

   КонецЕсли;

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

Функция ПолучитьДанныеПечати(знач МассивДокументов, знач МассивИменМакетов) Экспорт

   ДанныеПоВсемОбъектам = Новый Соответствие;
   ОписаниеОбластей = Новый Соответствие;
   ДвоичныеДанныеМакетов = Новый Соответствие;
   ТипыМакетов = Новый Соответствие;

   Возврат Новый Структура("Данные, Макеты",
                     ДанныеПоВсемОбъектам,
                     Новый Структура("ОписаниеОбластей, ТипыМакетов, ДвоичныеДанныеМакетов",
                                 ОписаниеОбластей,
                                 ТипыМакетов,
                                 ДвоичныеДанныеМакетов));

КонецФункции

//1с-Минск

// Функция формирует табличный документ с печатной формой счета,
// разработанного методистами
//
// Возвращаемое значение:
// Табличный документ - сформированная печатная форма
//
Функция ПечатьСчета183(МассивОбъектов ,ОбъектыПечати, ПечататьСчет = Истина, ПечататьПротокол = Ложь)

   Для Каждого ТабличныйДокумент Из МассивОбъектов Цикл
      ТабДокумент = Новый ТабличныйДокумент;
      Макет = ПолучитьМакет("ПФ_MXL_Счет183");

      Запрос = Новый Запрос;
      Запрос.УстановитьПараметр("ТекущийДокумент", ТабличныйДокумент.Ссылка);
      Запрос.УстановитьПараметр("ДатаДокумента", ТабличныйДокумент.Дата);
      Запрос.Текст =
      "ВЫБРАТЬ
      |   Заказ.Номер КАК НомерДокумента,
      |   Заказ.Ссылка КАК Ссылка,
      |   Заказ.Дата КАК ДатаДокумента,
      |   Заказ.Договор,
      |   Заказ.ВидЦен,
      |   Заказ.Организация,
      |   Заказ.Контрагент КАК Получатель,
      |   Заказ.Организация КАК Руководители,
      |   Заказ.Организация КАК Поставщик,
      |   Заказ.СуммаДокумента,
      |   Заказ.ВалютаДокумента,
      //   |   Заказ.УчитыватьНДС,
      |   Заказ.СуммаВключаетНДС,
      |   Заказ.Организация.НаименованиеПолное КАК ОрганизацияНаименование,
      |   Заказ.Организация.ИНН КАК ИНН,
      |   Заказ.Контрагент.НаименованиеПолное КАК КонтрагентНаименование,
      |   Заказ.Контрагент.ИНН,
      |   Заказ.Контрагент.БанковскийСчетПоУмолчанию.НомерСчета КАК КОБСНомерСчета,
      |   Заказ.Контрагент.БанковскийСчетПоУмолчанию.Банк.Наименование КАК КОБСБанкНаименование,
      |   Заказ.Контрагент.БанковскийСчетПоУмолчанию.Банк.Код КАК КОБСБанкКод,
      |   Заказ.ЦельПриобретения КАК ЦельПриобретения,
      |   Заказ.Организация.БанковскийСчетПоУмолчанию.Банк.Код КАК ООБСБанкКод,
      |   Заказ.Организация.БанковскийСчетПоУмолчанию.Банк.Наименование КАК ООБСБанкНаименование,
      |   Заказ.Организация.БанковскийСчетПоУмолчанию.НомерСчета КАК ООБСНомерСчета
      |ИЗ
      |   Документ.СчетНаОплату КАК Заказ
      |ГДЕ
      |   Заказ.Ссылка = &ТекущийДокумент";


      Шапка = Запрос.Выполнить().Выбрать();
      Шапка.Следующий();

      Запрос.Текст =
      "ВЫБРАТЬ
      |   Товары.Номенклатура КАК Номенклатура,
      |   Товары.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
      |   Товары.Сумма КАК Сумма,
      |   Товары.СтавкаНДС КАК СтавкаНДС,
      |   Товары.СуммаНДС КАК СуммаНДС,
      |   Товары.Количество КАК Количество,
      |   Товары.Номенклатура.НаименованиеПолное КАК ТоварНаименование,
      |   0 КАК ЦенаИмпортераИзготовителя,
      |   Товары.Цена КАК Цена,
      |   Товары.Партия.СтранаВвоза КАК страна,
      |   Товары.Партия.ЦенаПервогоПоставщика,
      |   Товары.Характеристика,
      |   Товары.ПроцентСкидкиНаценки,
      |   Товары.Номенклатура.Артикул КАК Артикул,
      |   Товары.Содержание,
      |   Товары.Номенклатура.ПредставлениеУслуги Как ПредставлениеУслуги,
      |   Товары.Номенклатура.РегистрироватьКакУслугу Как РегистрироватьКакУслугу
      |ИЗ
      |   Документ.СчетНаОплату.Запасы КАК Товары
      |ГДЕ
      |   Товары.Ссылка = &ТекущийДокумент";


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

      //***
      Запрос.Текст =
      "ВЫБРАТЬ
      |   СчетНаОплатуПлатежныйКалендарь.Ссылка,
      |   СчетНаОплатуПлатежныйКалендарь.НомерСтроки Как НомерСроки,
      |   СчетНаОплатуПлатежныйКалендарь.ДатаОплаты Как ДатаОплатыСроки,
      |   СчетНаОплатуПлатежныйКалендарь.ПроцентОплаты Как ПроцентОплатыСроки,
      |   СчетНаОплатуПлатежныйКалендарь.СуммаОплаты Как СуммаОплатыСроки,
      |   СчетНаОплатуПлатежныйКалендарь.СуммаНДСОплаты
      |ИЗ
      |   Документ.СчетНаОплату.ПлатежныйКалендарь КАК СчетНаОплатуПлатежныйКалендарь
      |ГДЕ
      |   СчетНаОплатуПлатежныйКалендарь.Ссылка = &ТекущийДокумент";


      ЗапросСроки = Запрос.Выполнить().Выгрузить();
      //**



      НомерСтрокиНачало = ТабДокумент.ВысотаТаблицы + 1;
      Если ПечататьСчет Тогда
         // Выводим шапку накладной
         ОбластьМакета = Макет.ПолучитьОбласть("Шапка");
         ОбластьМакета.Параметры.Заполнить(Шапка);

         ОбластьМакета.Параметры.НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.НомерДокумента, Истина, Истина);
         ОбластьМакета.Параметры.ДатаДокумента = Формат(Шапка.ДатаДокумента, "ДФ=""дд ММММ гггг""");
         СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,);
         СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.ДатаДокумента, ,);
         ОбластьМакета.Параметры.ЮрАдресОрганизации = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "ЮридическийАдрес,");
         ОбластьМакета.Параметры.ТелефонОрганизации = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "Телефоны,");
         ОбластьМакета.Параметры.ЮрАдресКонтрагента = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ЮридическийАдрес,");
         ОбластьМакета.Параметры.ТелефонКонтрагента = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "Телефоны,");

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

         ИтогоСумма    = 0;
         ИтогоНДС       = 0;
         ИтогоСуммаСНДС   = 0;

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

         Ном = 0;

         Если Шапка.ВалютаДокумента = Константы.ВалютаУчета.Получить() Тогда
            ОбластьМакета.Области.Цена.Формат      = "ЧЦ=19; ЧДЦ=0; ЧРГ=' '";
            ОбластьМакета.Области.СуммаНДС.Формат    = "ЧЦ=19; ЧДЦ=0; ЧРГ=' '";
            ОбластьМакета.Области.СуммаСНДС.Формат    = "ЧЦ=19; ЧДЦ=0; ЧРГ=' '";
            ОбластьМакета.Области.СуммаБезНДС.Формат= "ЧЦ=19; ЧДЦ=0; ЧРГ=' '";
         КонецЕсли;

         Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл

            Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
               Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
               Продолжить;
            КонецЕсли;

            Ном = Ном + 1;

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

            ОбластьМакета.Параметры.ТоварНаименование = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокТовары.ТоварНаименование, ВыборкаСтрокТовары.Характеристика, ВыборкаСтрокТовары.Артикул);

            Если ЗначениеЗаполнено(ВыборкаСтрокТовары.Содержание) Тогда

               ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрокТовары.Содержание;

            КонецЕсли;

            ОбластьМакета.Параметры.Номер = Ном;

            СуммаСНДС    = Окр((ВыборкаСтрокТовары.Сумма + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрокТовары.СуммаНДС)), Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
            СуммаНДС = Окр (ВыборкаСтрокТовары.СуммаНДС, 2);
            СуммаБезНДС   = Окр(СуммаСНДС   - СуммаНДС,Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
            //Цена = Окр(СуммаБезНДС/?(ВыборкаСтрокТовары.Количество=0,1,ВыборкаСтрокТовары.Количество), 0, 1);

            ОбластьМакета.Параметры.Цена = Окр(ВыборкаСтрокТовары.Цена - ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.ПроцентСкидкиНаценки / 100, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
            ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.Цена, Шапка.ВалютаДокумента);
            ОбластьМакета.Параметры.СуммаБезНДС = УправлениеФормамиУНФРБСервер.ФорматСумм(СуммаБезНДС, Шапка.ВалютаДокумента);

            ОбластьМакета.Параметры.СуммаСНДС = УправлениеФормамиУНФРБСервер.ФорматСумм(СуммаСНДС, Шапка.ВалютаДокумента);

            //***
            Если ВыборкаСтрокТовары.РегистрироватьКакУслугу Тогда
               ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрокТовары.ПредставлениеУслуги;
               ОбластьМакета.Параметры.Количество = 1;
               ОбластьМакета.Параметры.Цена = ВыборкаСтрокТовары.Сумма;
            КонецЕсли;
            //**


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

            ИтогоСумма       = ИтогоСумма    + СуммаБезНДС;
            ИтогоНДС        = ИтогоНДС      + СуммаНДС;
            ИтогоСуммаСНДС = ИтогоСуммаСНДС+ СуммаСНДС;

         КонецЦикла;

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

         ОбластьМакета.Области.ИтогоСумма.Формат    = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоСумма, Шапка.ВалютаДокумента);
         ОбластьМакета.Области.ИтогоНДС.Формат       = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоНДС, Шапка.ВалютаДокумента);
         ОбластьМакета.Области.ИтогоСуммаСНДС.Формат = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоСуммаСНДС, Шапка.ВалютаДокумента);
         ИтогоСуммаСНДС   = Окр(ИтогоСуммаСНДС,2);// для прописи
         ИтогоНДС      = Окр(ИтогоНДС,2);

         //***
         //ОбластьМакета.Параметры.ИтогоСумма      = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоСумма, Шапка.ВалютаДокумента);
         //ОбластьМакета.Параметры.ИтогоНДС      = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоНДС, Шапка.ВалютаДокумента);
         //ОбластьМакета.Параметры.ИтогоСуммаСНДС   = УправлениеФормамиУНФРБСервер.ФорматСумм(ИтогоСуммаСНДС, Шапка.ВалютаДокумента);

         ОбластьМакета.Параметры.ИтогоСумма      = ИтогоСумма;
         ОбластьМакета.Параметры.ИтогоНДС      = ИтогоНДС;
         ОбластьМакета.Параметры.ИтогоСуммаСНДС   = ИтогоСуммаСНДС;
         //**
         ТабДокумент.Вывести(ОбластьМакета);

         //***Вывод по срокам
         Если ЗапросСроки.Количество()>0 Тогда
            ОбластьМакета = Макет.ПолучитьОбласть("ШапкаСроки");
            ТабДокумент.Вывести(ОбластьМакета);

            ОбластьМакета = Макет.ПолучитьОбласть("СтрокаСроки");
            Для каждого ВыборкаСтрокСроки Из ЗапросСроки Цикл
               ОбластьМакета.Параметры.Заполнить(ВыборкаСтрокСроки);
               ТабДокумент.Вывести(ОбластьМакета);
            КонецЦикла;
         КонецЕсли;
         // Вывести подвал
         ОбластьМакета = Макет.ПолучитьОбласть("Подвал");
         ОбластьМакета.Параметры.ИтогоНДСП = УправлениеНебольшойФирмойСервер.СформироватьСуммуПрописью(ИтогоНДС, Шапка.ВалютаДокумента);
         ОбластьМакета.Параметры.ИтогоСуммаСНДСП = УправлениеНебольшойФирмойСервер.СформироватьСуммуПрописью(ИтогоСуммаСНДС, Шапка.ВалютаДокумента);

         //***
         Если ИтогоНДС = 0 Тогда
            ОбластьМакета.Параметры.ИтогоНДСП = "Без НДС (на основании гл.34 раздела VII Особенной Части Налогового Кодекса РБ)."
         КонецЕсли;
         //**

         Руководители = УправлениеНебольшойФирмойСервер.ОтветственныеЛицаОрганизационнойЕдиницы(Шапка.Руководители, Шапка.ДатаДокумента);
         Руководитель = Руководители.ФИОРуководителя;
         Бухгалтер = Руководители.ФИОГлавногоБухгалтера;

         ОбластьМакета.Параметры.Руководитель = Руководитель;
         //***
         //ОбластьМакета.Параметры.ГлБухгалтер    = Бухгалтер;
         //**

         //***
         Если ТабличныйДокумент.Подпись Тогда
            ДанныеКартинки = РаботаСФайламиСлужебныйВызовСервера.ПолучитьДанныеФайлаИДвоичныеДанные(Шапка.Организация.ФайлФаксимильнаяПечать);
            Если ЗначениеЗаполнено(ДанныеКартинки.ДвоичныеДанные) Тогда
               ОбластьМакета.Рисунки.ФаксимильнаяПечать.Картинка = Новый Картинка(ДанныеКартинки.ДвоичныеДанные);
            КонецЕсли;
         КонецЕсли;
         //**

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

      КонецЕсли;

      Если ПечататьПротокол Тогда// Печать протокола согласования цен
         // Выводим шапку накладной
         ОбластьМакета   = Макет.ПолучитьОбласть("ШапкаП");
         ОбластьМакета.Параметры.Заполнить(Шапка);

         ОбластьМакета.Параметры.НомерДокумента = ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать(Шапка.НомерДокумента, Истина, Истина);
         ОбластьМакета.Параметры.ДатаДокумента = Формат(Шапка.ДатаДокумента, "ДФ=""дд ММММ гггг""");
         СведенияОбОрганизации = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Организация, Шапка.ДатаДокумента, ,);
         СведенияОбКонтрагенте = УправлениеНебольшойФирмойСервер.СведенияОЮрФизЛице(Шапка.Получатель, Шапка.ДатаДокумента, ,);
         ОбластьМакета.Параметры.ЮрАдресОрганизации = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "ЮридическийАдрес,");
         ОбластьМакета.Параметры.ТелефонОрганизации = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбОрганизации, "Телефоны,");
         ОбластьМакета.Параметры.ЮрАдресКонтрагента = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "ЮридическийАдрес,");
         ОбластьМакета.Параметры.ТелефонКонтрагента = УправлениеНебольшойФирмойСервер.ОписаниеОрганизации(СведенияОбКонтрагенте, "Телефоны,");

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

         Ном = 0;
         // Выводим строки
         ОбластьМакета   = Макет.ПолучитьОбласть("СтрокаП");
         Для каждого ВыборкаСтрокТовары Из ЗапросТовары Цикл

            Если ВыборкаСтрокТовары.ЕдиницаИзмерения = "--" Тогда
               Продолжить;// Цены на услуги в протоколе не отражаются
            КонецЕсли;

            Если НЕ ЗначениеЗаполнено(ВыборкаСтрокТовары.Номенклатура) Тогда
               Сообщить("В одной из строк не заполнено значение номенклатуры - строка при печати пропущена.", СтатусСообщения.Важное);
               Продолжить;
            КонецЕсли;

            Ном = Ном + 1;

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

            ОбластьМакета.Параметры.ТоварНаименование = УправлениеНебольшойФирмойСервер.ПолучитьПредставлениеНоменклатурыДляПечати(ВыборкаСтрокТовары.ТоварНаименование, ВыборкаСтрокТовары.Характеристика, ВыборкаСтрокТовары.Артикул);

            Если ЗначениеЗаполнено(ВыборкаСтрокТовары.Содержание) Тогда

               ОбластьМакета.Параметры.ТоварНаименование = ВыборкаСтрокТовары.Содержание;

            КонецЕсли;

            ОбластьМакета.Параметры.Номер = Ном;

            //ОбластьМакета.Параметры.СтранаПроисхождения = СокрЛП(ВыборкаСтрокТовары.Страна);

            СуммаСНДС = Окр((ВыборкаСтрокТовары.Сумма + ?(Шапка.СуммаВключаетНДС, 0, ВыборкаСтрокТовары.СуммаНДС)),Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
            Количество = ВыборкаСтрокТовары.Количество;
            СуммаНДС = Окр(ВыборкаСтрокТовары.СуммаНДС,Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
            Сумма = Окр(ВыборкаСтрокТовары.Сумма,Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);
            Цена = Окр(ВыборкаСтрокТовары.Цена, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ,2);


            СтруктураДанных = Новый Структура;
            СтруктураДанных.Вставить("ВидЦен", Шапка.ВидЦен);
            СтруктураДанных.Вставить("ДатаОбработки", Шапка.ДатаДокумента);
            СтруктураДанных.Вставить("Номенклатура", ВыборкаСтрокТовары.Номенклатура);
            СтруктураДанных.Вставить("Характеристика", ВыборкаСтрокТовары.Характеристика);
            СтруктураДанных.Вставить("Коэффициент", 1);
            СтруктураДанных.Вставить("ВалютаДокумента", Шапка.ВалютаДокумента);
            СтруктураДанных.Вставить("СуммаВключаетНДС", Шапка.СуммаВключаетНДС);

            ОбластьМакета.Параметры.Скидка = Окр(ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.Количество - ВыборкаСтрокТовары.Сумма, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
            ОбластьМакета.Параметры.ЦенаСоСкидкой = Окр(Цена - Цена * ВыборкаСтрокТовары.ПроцентСкидкиНаценки / 100, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
            ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(Цена, Шапка.ВалютаДокумента);
            ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.Скидка, Шапка.ВалютаДокумента);
            ОбластьМакета.Параметры.ЦенаСоСкидкой = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.ЦенаСоСкидкой, Шапка.ВалютаДокумента);
            ТабДокумент.Вывести(ОбластьМакета);

         КонецЦикла;

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

      КонецЕсли;
      УправлениеПечатью.ЗадатьОбластьПечатиДокумента(ТабДокумент, НомерСтрокиНачало, ОбъектыПечати, Шапка.Ссылка);
   КонецЦикла;

   ТабДокумент.АвтоМасштаб = Истина;

   Возврат ТабДокумент;

КонецФункции // ПечатьСчета()

LexaK · 01 июл 2016, 13:28

вообще такие длинные тексты, наверно лучше прикреплять, как вложенные файлы.

в вашем коде не нашел где в макет выводится СуммаНДС, попробуйте добавить такие строчки в вашу программу

Код Выделить


    //это кусок вашего кода по формированию и выводу строки отчета
    ОбластьМакета.Параметры.Скидка = Окр(ВыборкаСтрокТовары.Цена * ВыборкаСтрокТовары.Количество - ВыборкаСтрокТовары.Сумма, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
    ОбластьМакета.Параметры.ЦенаСоСкидкой = Окр(Цена - Цена * ВыборкаСтрокТовары.ПроцентСкидкиНаценки / 100, Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ, 2);
    ОбластьМакета.Параметры.Цена = УправлениеФормамиУНФРБСервер.ФорматСумм(Цена, Шапка.ВалютаДокумента);
    ОбластьМакета.Параметры.Скидка = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.Скидка, Шапка.ВалютаДокумента);
    ОбластьМакета.Параметры.ЦенаСоСкидкой = УправлениеФормамиУНФРБСервер.ФорматСумм(ОбластьМакета.Параметры.ЦенаСоСкидкой, Шапка.ВалютаДокумента);
    
    //добавьте эти строчки
    ОбластьМакета.Параметры.СуммаНДС = УправлениеФормамиУНФРБСервер.ФорматСумм(СуммаНДС , Шапка.ВалютаДокумента);
    Сообщить("СуммаНДС: " + СуммаНДС); //тестовая печать, в окне сообщений увидите реальное значение Суммы НДС, после отладки удалите, 

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

mixqn · 01 июл 2016, 13:28

Шапка.ВалютаДокумента.ПорядокОкругленияДЧВ - тут какое значение?
вообще, код объемный, изучать его довольно трудоемко. еще раз посоветую воспользоваться отладчиком. установите точку останова и проверьте, что вы передаете в макет.

Добавлено: 01 июл 2016, 13:31

ну или да, можно добавить вывод сообщения. по сути рекомендация аналогичная - нужно проверить, какое значение вы пытаетесь вывести в макет.

Валерий Жур · 01 июл 2016, 14:26

Спасибо, большое!
Провел отладку, значение передается 9,65 (верное)
Однако в макете все ровно 10.
Понимаю что проблема с настройкой ячейки (либо еще что-то)
Какие параметры рекомендуете проверить ?

Kironten · 01 июл 2016, 16:33

Цитата: Валерий Жур от 01 июл 2016, 14:26
Спасибо, большое!
Провел отладку, значение передается 9,65 (верное)
Однако в макете все ровно 10.
Понимаю что проблема с настройкой ячейки (либо еще что-то)
Какие параметры рекомендуете проверить ?

Корректировка печатной формы

Валерий Жур

mixqn

LexaK

Валерий Жур

LexaK

Валерий Жур

LexaK

mixqn

Валерий Жур

Kironten

Похожие темы (5)

Поиск