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

    ФР            = Неопределено;
    СписокФР      = Новый СписокЗначений();
    Вид           = Неопределено;
    Представление = Неопределено;

    Для каждого ФР Из МассивФР Цикл
        ПолучитьСерверТО().ПолучитьПредставлениеУстройства(ФР, Вид, Представление);
        СписокФР.Добавить(ФР, Представление);
    КонецЦикла;

    КоличествоФР = СписокФР.Количество();
    Если      КоличествоФР = 0 Тогда
        Предупреждение("Фискальный регистратор не подключен!");
        ФР = Неопределено;
    ИначеЕсли КоличествоФР = 1 Тогда
        ФР = СписокФР[0].Значение;
    Иначе
        ФР = СписокФР.ВыбратьЭлемент("Необходимо выбрать фискальный регистратор");
        Если ФР = Неопределено Тогда
            Предупреждение("Операция отменена пользователем");
        Иначе
            ФР = ФР.Значение;
        КонецЕсли;
    КонецЕсли;

    Если НЕ ЗначениеЗаполнено(ФР) Тогда
        Возврат;
    КонецЕсли;

    Позиция         = Неопределено;
    НомерСмены      = Неопределено;
    ТаблицаТоваров = Новый ТаблицаЗначений();

    ТаблицаТоваров.Колонки.Добавить("Заголовок");
        ТаблицаТоваров.Колонки.Добавить("Наименование");
    ТаблицаТоваров.Колонки.Добавить("Код");
    ТаблицаТоваров.Колонки.Добавить("Цена");
    ТаблицаТоваров.Колонки.Добавить("Сумма");
    ТаблицаТоваров.Колонки.Добавить("Количество");
    ТаблицаТоваров.Колонки.Добавить("Скидка");
    ТаблицаТоваров.Колонки.Добавить("НДС");
    ТаблицаТоваров.Колонки.Добавить("СтавкаНДССтрокой");

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