При первом провидение нет записей в регистре "СтатусКарточкиПрограммыЛояльности" при втором они появляются при третьем опять нет ??? Код :

Процедура ОбработкаПроведения(Отказ, РежимПроведения)
   
   // ОСНОВНЫЕ РЕГИСТРЫ
   
   
       Если  КоличествоБонусовНачислено <> 0 Тогда
           // Приход
           ДвижениРег = Движения.БонусыПрограммыЛояльности;
           Движение = ДвижениРег.Добавить();
           Движение.ВидДвижения = ВидДвиженияНакопления.Приход;
           Движение.Период = Дата;
           Движение.КарточкаПрограммыЛояльности = КарточкаПрограммыЛояльности;
           Движение.СуммаПроцентов = СуммаПроцентовНачислено;
           Движение.КоличествоБонусов = КоличествоБонусовНачислено;
           ДвижениРег.Записать();
           
       КонецЕсли;
       
       Если  КоличествоБонусовСписано <> 0 Тогда
           // Расход
           ДвижениРег = Движения.БонусыПрограммыЛояльности;
           Движение = ДвижениРег.Добавить();
           Движение.ВидДвижения = ВидДвиженияНакопления.Расход;
           Движение.Период = Дата;
           Движение.КарточкаПрограммыЛояльности = КарточкаПрограммыЛояльности;
           Движение.СуммаПроцентов = СуммаПроцентовСписано;
           Движение.КоличествоБонусов = КоличествоБонусовСписано;
           ДвижениРег.Записать();
           
       КонецЕсли;
       
       СтатусКарточки = ПрограммаЛояльности.ВернутьСтатусПоКарточке(Дата,КарточкаПрограммыЛояльности);
       СтатусПоНачисленнымПрцентам = ПрограммаЛояльности.ВернутьСтатусПоСуммеПроцентов(Дата,КарточкаПрограммыЛояльности,СуммаПроцентовНачислено - СуммаПроцентовСписано);
       
       Если СтатусКарточки <> СтатусПоНачисленнымПрцентам Тогда
           
           ДвижениеСтатус = Движения.СтатусКарточкиПрограммыЛояльности.Добавить();
           ДвижениеСтатус.Период = Дата;
           ДвижениеСтатус.КарточкаПрограммыЛояльности = КарточкаПрограммыЛояльности;
           ДвижениеСтатус.СтатусПрограммыЛояльности = СтатусПоНачисленнымПрцентам;
           
       КонецЕсли;

   
   
КонецПроцедуры

провЕдение

(1)+1+1+1...

Условие "Если СтатусКарточки <> СтатусПоНачисленнымПрцентам Тогда" всегда истина

(3) врядли

отладчиг что говорит?

говорит что в  ДвижениеСтатус = Движения.СтатусКарточкиПрограммыЛояльности.Добавить();
             ДвижениеСтатус.Период = Дата;
             ДвижениеСтатус.КарточкаПрограммыЛояльности = КарточкаПрограммыЛояльности;
             ДвижениеСтатус.СтатусПрограммыЛояльности = СтатусПоНачисленнымПрцентам;
заходит всегда !!!

Проверь признак автоматической очистки регистра при проведении / либо наличие явной очистки при его отсутствии

(6) "Не верю"

уже проверил Удалять движения : Удалять автоматически !!!

Также проверь подписки обработчиков как документа так и регистра. Может где-то явно чистится либо перезаписывается через .Записать(истина)

Мистика. Как движения проверяются?

Визуально в регистре

СтатусКарточки я получаю из регистра "СтатусКарточкиПрограммыЛояльности" возможно в єтом проблема потому как в отладчике СтатусКарточки.ВерсияДанных = Ошибка чтения значения

Похоже, ты делаешь запись в регистр, и тут же проверяешь наличие этой записи (и вот здесь зарыт косяк).

Вот таким образом решил проблему

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

Всем спасибо !!!