Заявка на расход ДС: не хватает денежных средств при распределении по счетам

Статья из закрытой задачи программиста (учётная запись IQ Bot). Существующие статьи не перезаписывались.

Проблема

Разобраться, почему на заявку 00СП-003417 не хватает денежных средств

Решение

Заявка на расходДС модуль объекта Перед записью 147 строка

Если РаспределениеПоСчетам.Количество() Тогда

Если ЭтоНовый() Тогда
УстановленСтатусНеСогласована = (Статус = Перечисления.СтатусыЗаявокНаРасходованиеДенежныхСредств.НеСогласована);
Иначе
УстановленСтатусНеСогласована = (ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Статус") <> Статус
И Статус = Перечисления.СтатусыЗаявокНаРасходованиеДенежныхСредств.НеСогласована);
КонецЕсли;

Если УстановленСтатусНеСогласована Тогда
РаспределениеПоСчетам.Очистить();
Иначе
ДатыПлатежей = РаспределениеПоСчетам.Выгрузить(,"ДатаПлатежа");
ДатыПлатежей.Сортировать("ДатаПлатежа");
ДатаПлатежа = ДатыПлатежей[0].ДатаПлатежа;
КонецЕсли;
Иначе
ДатаПлатежа = ЖелательнаяДатаПлатежа;

Если ЭтоНовый() Тогда
УстановленСтатусКОплате = (Статус = Перечисления.СтатусыЗаявокНаРасходованиеДенежныхСредств.КОплате);
Иначе
УстановленСтатусКОплате = (ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Ссылка, "Статус") <> Статус
И Статус = Перечисления.СтатусыЗаявокНаРасходованиеДенежныхСредств.КОплате);
КонецЕсли;

Если УстановленСтатусКОплате
И ЗначениеЗаполнено(ДатаПлатежа)
И ЗначениеЗаполнено(СуммаДокумента) Тогда

БанковскийСчетКасса = Неопределено;

Если ЗначениеЗаполнено(БанковскийСчет) Тогда
БанковскийСчетКасса = БанковскийСчет;
ИначеЕсли ЗначениеЗаполнено(Касса) Тогда
БанковскийСчетКасса = Касса;
КонецЕсли;

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

Служебное

• Тема: ККТ
• Задача: 000015073
• Статус: Сдана клиенту
• Ответ: Борзилов Александр