Обращение к расшифровке платежа

Создаю программно документ "Операции по платежной карте"

ДокОПК = Документы.ОплатаПлатежнойКартой.СоздатьДокумент();
            ДокОПК.ВидОперации = Объект.ВидОперации;
            ДокОПК.Контрагент = Склад;
            ДокОПК.Дата = ДатаОПК;
            ДокОПК.ВидОплаты = Объект.ВидОплаты;
            ДокОПК.СуммаДокумента = СуммаОПК;
            ДокОПК.СтавкаНДС = Перечисления.СтавкиНДС.БезНДС;
            ДокОПК.Организация = Справочники.Организации.НайтиПоКоду("00-000002");
            ДокОПК.Комментарий = Склад.Наименование;





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

            КонецЦикла;

            Попытка
                ДокОПК.Записать(РежимЗаписиДокумента.Запись);
            Исключение
                Сообщить(ОписаниеОшибки());
            КонецПопытки;

В результате получаю сообщение, что сумма по документу и сумма в расшифровке не совпадают.
Проверяю отладчиком, цикл расшифровки не запускается.

Что я не так делаю?
Заранее благодарен за любое разъяснение.