ТекДата = Неопределено;

(стр.ДатаПлатежа - ТекДата)/(24*60*60);    

ругается на типы

зачем вообще отнимать пустое значение от даты? если прям ну очень надо - отнимай пустую дату: Дата(1,1,1)

Ну проверь на типы в отладке, там и видно будет. Зачем ради этого тему на форуме создавать?)

(0) ты пытаешься поделить дату, но делаешь это без уважения. Ты от даты отнял неопределно

Отнимаешь Неопределено от даты и хочешь получить "счастье для всех даром, и пусть никто обиженный не уйдёт"?

Пятнично, жаль что сегодня только среда

(3) (4) дл меня код был написан и все прекрасно работает

я лишь применяю кусок его в скд . где он работать не желает





    Если Объект.ДоговорКонтрагента.ЛК_ОтСтавкиРефинансирования Тогда
        СРВыборка = ПолучитьСтавкиРефинансирования(тзДанные[0].ДатаПлатежа);
        Пока СРВыборка.Следующий() Цикл
            стрСР = тзДанные.Добавить();
            стрСР.ДатаПлатежа = СРВыборка.Период-24*60*60;
            //стрОплата.ПроцентПени = Окр(СРВыборка.Ставка/Объект.ДоговорКонтрагента.ЛК_ПроцентПеней,6);
        КонецЦикла;
    КонецЕсли;
    
    тзДанные.Свернуть("ДатаПлатежа","СуммаПлатежа,СуммаОплаты");
    тзДанные.Колонки.Добавить("СуммаЗадолженности", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,2)));
    тзДанные.Колонки.Добавить("КоличествоДнейПросрочки", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(10,0)));
    тзДанные.Колонки.Добавить("ПроцентПени", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,6)));
    тзДанные.Колонки.Добавить("СуммаПени", Новый ОписаниеТипов("Число", Новый КвалификаторыЧисла(15,2)));
    
    Если Объект.ДоговорКонтрагента.ЛК_ОтСтавкиРефинансирования Тогда
        тзДанные = НайтиСтавкуРефинансированииДляКаждойДаты(тзДанные);
    КонецЕсли;
    
    тзДанные.Сортировать("ДатаПлатежа");
    
    ТекДата = Неопределено;
    ТекЗадолженность = 0;
    Для Каждого стр из тзДанные Цикл
        Если НЕ Объект.ДоговорКонтрагента.ЛК_ОтСтавкиРефинансирования Тогда
            стр.ПроцентПени = Объект.ДоговорКонтрагента.ЛК_ПроцентПеней;
        Иначе
            стр.ПроцентПени = Окр(стр.ПроцентПени/Объект.ДоговорКонтрагента.ЛК_ПроцентПеней,6);
        КонецЕсли;    
        Если ТекДата <> Неопределено И ТекЗадолженность > 0 Тогда
            стр.КоличествоДнейПросрочки = (стр.ДатаПлатежа - ТекДата)/(24*60*60);    
        КонецЕсли;    
        
        //стрНов = Объект.ОсновныеДанные.Добавить();

        стр.СуммаПени = стр.КоличествоДнейПросрочки*стр.ПроцентПени*ТекЗадолженность/100;
        стр.СуммаЗадолженности = ТекЗадолженность + стр.СуммаПлатежа - стр.СуммаОплаты;
        //стрНов.ДолгПоЛП = ТекЗадолженность + стр.СуммаПлатежа - стр.СуммаОплаты;

        Если стр.ДатаПлатежа > Объект.Дата Тогда
            стр.КоличествоДнейПросрочки = 0;
            стр.СуммаПени = 0;
            стр.СуммаЗадолженности = 0;
        КонецЕсли;

(6) там после КонецЕсли; самое интере

Вопрос как преобразовать дату в количество дней? от начала года

(8) ДеньГода()

(6) а СКД-то где, Андрей Николаевич?

И да, при переходе задолжности через 1 января, вас, вместе с количеством дней от начала года, ждут интересные эффекты.

https://its.1c.ru/db/metod8dev/content/2413/hdoc что-ли посмотрите.

(10) что то полезное от вас услышал  сегодня

(6) может работает в этом коде потому, что
Если ТекДата <> Неопределено
?

(11) толку только ноль

(12) возможно

(13) у вас

Если ТекДата <> Неопределено И ТекЗадолженность > 0 Тогда //
стр.КоличествоДнейПросрочки = (стр.ДатаПлатежа - ТекДата)/(24*60*60);    
Иначе
стр.КоличествоДнейПросрочки = 0;
КонецЕсли;

(15) тупой копипаст, вот и результат

(8) Есть замечательная функция языка 1с
Называется ДеньГода()
А то что в теме, я даже не знаю как назвать

(11) Это вы там не лизинг программируете, надеюсь?