Если ДоговорКонтрагента.ДержатьРезервБезОплатыОграниченноеВремя Тогда
ЧислоДнейДоОплаты = ДоговорКонтрагента.ЧислоДнейРезерваБезОплаты;
Иначе
ЧислоДнейДоОплаты = 0;
КонецЕсли;
Если ЧислоДнейДоОплаты = 0 Тогда
ДатаОплатыНовая = ДатаДокумента;
Иначе ........
Компьютеры — прекрасное средство для решения проблем, которых до их появления не было.