Вопрос по чекам

(8)

ДокФорма = Документ.ПолучитьФорму("ФормаДокумента");
ПолучитьСерверТО().ПодключитьКлиента(ДокФорма);

Если Документ.НомерЧекаККМ <> 0 Тогда
Предупреждение("Чек уже пробит на фискальном регистраторе!", 60);
Возврат;
КонецЕсли;

Если Не Документ.Проведен Тогда
Предупреждение("Перед пробитием чека на фискальном регистраторе документ необходимо провести!");
Возврат;
КонецЕсли;

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

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

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

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

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

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

Для Каждого Позиция Из Документ.РасшифровкаПлатежа Цикл
СтрокаТаблицы = ТаблицаПлатежей.Добавить();
СтрокаТаблицы.Заголовок = "Принято от " + Документ.ПринятоОт
+ "
|Основание: " + Документ.Основание;
СтрокаТаблицы.Сумма = Позиция.СуммаПлатежа;
СтрокаТаблицы.НДС = УчетНДС.ПолучитьСтавкуНДС(Позиция.СтавкаНДС);
КонецЦикла;

//Результат = ПолучитьСерверТО().ПечатьЧекаПКО(ФР,
// ПолучитьСерверТО().ПолучитьПарольКассираККМ(),
// Документ.НомерЧекаККМ,
// НомерСмены,
// ТаблицаПлатежей,
// Документ.СуммаДокумента,
// 0);
Результат = ПолучитьСерверТО().ПечатьЧекаПКО(ФР,
ПолучитьСерверТО().ПолучитьПарольКассираККМ(),
Документ.НомерЧекаККМ,
НомерСмены,
ТаблицаПлатежей,
0,
//Документ.СуммаДокумента); // Изменил МАГ 13.02.2019г.
Документ.Ссылка); // Изменил МАГ 13.02.2019г.

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