ВремРегистры         = СоздатьОбъект("Регистры");
        ВремРегистры.РассчитатьРегистрыНа(ТекущийДокумент());
        РегБП      = ВремРегистры.БаллыПокупателя;


        Если ИтогиАктуальны() = 0 Тогда
            РегБП.ВременныйРасчет();
            РегБП.ВременныйРасчет();
        КонецЕсли;                  
        
        Если ИтогиАктуальны()=0 Тогда    
            ВремРегистры.Актуальность(1);
            ВремРегистры.РассчитатьРегистрыНа(ТекущийДокумент());
        КонецЕсли;        
        
        ОстатокБаллов = РегБП.СводныйОстаток(Фирма,Контрагент,"Баллы");               
           Если  (Итог("Баллы") - ОстатокБаллов) < 0 Тогда
            глНеПроводить(Контекст, "Не хватает балов = " + (Итог("Баллы") - ОстатокБаллов));
            Возврат;
        КонецЕсли;

Подскажите, не могу понять ((

ВремРегистры.БаллыПокупателя.СводныйОстаток(Фирма,Контрагент,"Баллы") = 0

Ре = СоздатьОбъект("Регистр.БаллыПокупателя");
        Ре.ВременныйРасчет(1);
        //Ре.Актуальность(1);
        РассчитатьРегистрыНа(ТекущийДокумент());
        Ре.Фирма = Фирма;
        Ре.Клиент = Контрагент;        
        Ре.ОстаткиПолучить();        
        ОстатокБаллов = Ре.Баллы;

Вот как то так

А последовательность задана ?
Иначе можно одной датой что-то сделать, а потом ввести задним числом от даты, ранее той даты - и состояния будут неправильные.