Внешний отчет

Перем мВалютаРегламентированногоУчета Экспорт;

Функция Печать() Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", СсылкаНаОбъект.Ссылка);

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

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

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

Макет = ПолучитьМакет("Акт");
ОбластьМакета = Макет.ПолучитьОбласть("Акт");
ОбластьМакета.Параметры.ТекстЗаголовка = "Акт № " + ОбщегоНазначения.ПолучитьНомерНаПечать(Выборка)+"/"+Выборка.НомерСтроки
+ " от " + Формат(Выборка.Дата, "ДФ='дд ММММ гггг'")+ " г.";;

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

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

// Вывести табличную часть
ОбластьМакета.Параметры.Заполнить(Выборка);
ОбластьМакета.Параметры.НомерСтроки = 1;
ОбластьМакета.Параметры.Товар = СокрЛП(Выборка.Товар);

Сумма = Выборка.Сумма;
СуммаНДС = Выборка.СуммаНДС;

ОбластьМакета.Параметры.Всего = ОбщегоНазначения.ФорматСумм(Сумма);

Если Выборка.УчитыватьНДС Тогда

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

КонецЕсли;

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

ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабДокумент.Вывести(ОбластьМакета);

КонецЦикла;

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

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