Вывод расходных кассовых ордеров на печать

Функция ПечатьРКО()
    Перем ПодразделениеОтветственныхЛиц;

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

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

    ТабДокумент   = Новый ТабличныйДокумент;
    ТабДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_РасходныйКассовыйОрдер_КО2";
    Макет         = ПолучитьОбщийМакет("КО2");
    ОбластьМакета = Макет.ПолучитьОбласть("Шапка");

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

    // Выводим шапку
    ОбластьМакета.Параметры.Заполнить(Шапка);
    ОбластьМакета.Параметры.ПредставлениеОрганизации = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОбОрганизации, "НаименованиеДляПечатныхФорм,");
    ОбластьМакета.Параметры.Сумма                = Формат(Шапка.Сумма,"ЧЦ=15; ЧДЦ=2")+?(Валютный," "+СокрЛП(Шапка.Валюта),"");

    СуммаПрописью     = ОбщегоНазначения.СформироватьСуммуПрописью(Шапка.Сумма, Шапка.Валюта);
    СуммаПрописьюПродолжение = "";
    Если СтрДлина(СуммаПрописью) > 92 Тогда
        н=92;
        Пока н > 0
            И Сред(СуммаПрописью,н,1) <> " " Цикл

            н = н-1;
        КонецЦикла;
        СуммаПрописьюПродолжение = Сред(СуммаПрописью, н+1);
        СуммаПрописью = Лев(СуммаПрописью, н);
    КонецЕсли;
    ОбластьМакета.Параметры.СуммаПрописью        = СуммаПрописью;
    ОбластьМакета.Параметры.СуммаПрописьюПродолжение = СуммаПрописьюПродолжение;

    ОбластьМакета.Параметры.ОрганизацияПоОКПО    = СведенияОбОрганизации.КодПоОКПО;
    ОбластьМакета.Параметры.ДатаДокумента        = Формат(Шапка.ДатаДокумента, "ДФ=dd.MM.yyyy");
    ОбластьМакета.Параметры.НомерДокумента        = ОбщегоНазначения.ПолучитьНомерНаПечать(Шапка);

    ОбластьМакета.Параметры.ДатаДокументаПрописью = Формат(Шапка.ДатаДокумента, "ДФ='dd MMMM yyyy ""г.""'");

    КодыСчетСубсчет = ОпределитьКодыСчетСубсчет();

    ОбластьМакета.Параметры.ДебетСубСчет        = КодыСчетСубсчет.Дебет;
    ОбластьМакета.Параметры.КредитСубСчет        = КодыСчетСубсчет.Кредит;

    ОтветственныеЛица = ОбщегоНазначения.ОтветственныеЛица(Шапка.Организация, Шапка.ДатаДокумента, ПодразделениеОтветственныхЛиц);

    ОбластьМакета.Параметры.ФИОРуководителя       = ОтветственныеЛица.РуководительПредставление;
    ОбластьМакета.Параметры.ДолжностьРуководителя = ОтветственныеЛица.РуководительДолжность;

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

    ОбластьМакета.Параметры.Основание             = Шапка.Основание;
    ОбластьМакета.Параметры.Приложение            = Шапка.Приложение;

    ОбластьМакета.Параметры.ФИОПолучателя = Шапка.Выдать;
    ОбластьМакета.Параметры.РеквизитыДокументаУдостоверяющегоЛичность = Шапка.ПоДокументу;

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

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

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