В цикле перебераю документы и по условию устанавливаю пометку на удаление документов.

Сообщить(РучнойДокумент.Номер);    
Пометка = Док.ПолучитьОбъект();
Пометка.УстановитьПометкуУдаления(Истина);

В отладчике вижу что Пометка это всегда ссылка на документ.
На втором документе выдает ошибку Операция не может быть выполнена из-за несоответствия версии или отсутствия записи базы данных (возможно, запись была изменена или удалена)!
запуская повторно обработку ошибка выскакивает на следуюшем документе и так по анологии.

цикл то напиши полностью

весь код давай

Док = Документы.РеализацияТоваровУслуг.Выбрать(ДатаС, ДатаПо);
   Пока Док.Следующий() Цикл
       Комментарий = Лев(Док.Комментарий,54);
       Комментарий =Сред(Комментарий,45,20);
       Если Комментарий = "ЗаказНаряд" тогда
           Если Док.Контрагент.Наименование = "ООО "+Символ(34)+" Автодин"+Символ(34) или Док.Контрагент.Наименование = "ООО"+Символ(34)+"Автодин"+Символ(34)+" - Автосалон" тогда
               НомерЗН=Лев(Док.Комментарий,66);    
               НомерЗН= Сред(НомерЗН,57);
               ЗаказН = connection.Документы.ЗаказНаряд.Выбрать(ДатаС-1000000, ДатаПо+1000000);
               Пока ЗаказН.Следующий() Цикл
                   Если   ЗаказН.Номер = НомерЗН тогда
                       Если ЗаказН.Товары.Количество()=0 тогда
                           Пометка = Док.ПолучитьОбъект();
                           Пометка.УстановитьПометкуУдаления(Истина);
                           прервать;
                       КонецЕсли;    
                       Если (ЗаказН.ВидРемонта.Наименование ="Внутренний ремонт")  тогда
                           РучнойДокумент = Документы.ОперацияБух.СоздатьДокумент();
                           РучнойДокумент.Дата = Док.Дата;
                           РучнойДокумент.Организация = Док.Организация;
                           Проводка = РучнойДокумент.Движения.Хозрасчетный;
                           Реализация = Док.ПолучитьОбъект();
                           Если Реализация.Проведен = Ложь тогда
                           Иначе
                               Реализация.Проведен = Ложь;
                               Реализация.Записать();
                           КонецЕсли;
                           РучнойДокумент.Комментарий = Док.Комментарий;
                           РучнойДокумент.Записать();
                           Для каждого товар из Док.Товары Цикл    
                               ДокОперацияСсылка = РучнойДокумент.Ссылка;
                               РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
                               РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
                               РегЗапись = РегХозрасчетный.Добавить();
                               РегЗапись.Период = Док.Дата;
                               РегЗапись.Регистратор = ДокОперацияСсылка;
                               РегЗапись.Организация = Справочники.Организации.НайтиПоНаименованию("ООО Автодин");
                               РегЗапись.СчетДт =ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.05");
                               РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, 1, товар.Номенклатура);
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, 2,  Док.Склад);
                               РегЗапись.КоличествоДт =  товар.Количество;
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 1, товар.Номенклатура);
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 2,  Док.Склад);
                               ТЗ=новый ТаблицаЗначений;    
                               Запрос = Новый Запрос;
                               Запрос.Текст=
                               "ВЫБРАТЬ
                               |    ХозрасчетныйОбороты.Счет,
                               |    ХозрасчетныйОбороты.Субконто1,
                               |    ХозрасчетныйОбороты.Субконто2,
                               |    ХозрасчетныйОбороты.КоличествоОборот,
                               |    ХозрасчетныйОбороты.СуммаОборот,
                               |    ХозрасчетныйОбороты.СуммаОборотДт
                               |ИЗ
                               |    РегистрБухгалтерии.Хозрасчетный.Обороты КАК ХозрасчетныйОбороты
                               |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                               |        ПО ХозрасчетныйОбороты.Субконто1 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.Субконто2 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.Субконто3 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто1 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто2 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто3 = РеализацияТоваровУслуг.Ссылка
                               |ГДЕ
                               |    ХозрасчетныйОбороты.Счет = &Счет
                               |    И ХозрасчетныйОбороты.Субконто1 = &Субконто1
                               |    И ХозрасчетныйОбороты.Субконто2 = &Субконто2";
                               Запрос.УстановитьПараметр("Субконто1",товар.Номенклатура);
                               Запрос.УстановитьПараметр("Субконто2",Док.Склад);
                               Запрос.УстановитьПараметр("Номер",Док.Номер);
                               Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"));
                               ТЗ = Запрос.Выполнить().Выгрузить();
                               Для каждого цена из ТЗ Цикл
                                   переменная = РегЗапись.КоличествоДт*(Цена.суммаОборот/Цена.КоличествоОборот);
                                   прервать;
                               КонецЦикла;
                               РегЗапись.Сумма = переменная;
                               РегХозрасчетный.Записать();      
                               РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
                               РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
                               РегЗапись = РегХозрасчетный.Добавить();
                               РегЗапись.Период = Док.Дата;
                               РегЗапись.Регистратор = ДокОперацияСсылка;
                               РегЗапись.Организация = Справочники.Организации.НайтиПоНаименованию("ООО Автодин");
                               РегЗапись.СчетДт =ПланыСчетов.Хозрасчетный.НайтиПоКоду("44.01");
                               РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("10.05");
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, 1, Справочники.СтатьиЗатрат.НайтиПоНаименованию("Прочие расходы"));
                               //РегЗапись.КоличествоДт =  товар.Количество;
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 1, товар.Номенклатура);
                               БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 2,  Док.Склад);                                  
                               РегЗапись.Сумма = переменная;
                               РегХозрасчетный.Записать();                                  
                           КонецЦикла;
                           Сообщить(РучнойДокумент.Номер);    
                           Пометка = Док.ПолучитьОбъект();
                           Пометка.УстановитьПометкуУдаления(Истина);
                           Пометка.Записать();
                               Продолжить;
                       ИначеЕсли (ЗаказН.ВидРемонта.Наименование ="Дополнительное оборудование") тогда
                           Если ЗаказН.Товары.Количество()=0 тогда
                                  Пометка = Док.ПолучитьОбъект();
                                  Пометка.УстановитьПометкуУдаления(Истина);
                                  Пометка.Записать();
                               прервать;
                           КонецЕсли;
                           РучнойДокумент = Документы.ОперацияБух.СоздатьДокумент();
                           РучнойДокумент.Дата = Док.Дата;
                           РучнойДокумент.Организация = Док.Организация;
                           Проводка = РучнойДокумент.Движения.Хозрасчетный;
                           Реализация = Док.ПолучитьОбъект();
                           Если Реализация.Проведен = Ложь тогда
                           Иначе
                               Реализация.Проведен = Ложь;
                               Реализация.Записать();
                           КонецЕсли;
                           РучнойДокумент.Комментарий = Док.Комментарий;
                           Для каждого товар из Док.Товары Цикл    
                               ТЗ=новый ТаблицаЗначений;    
                               Запрос = Новый Запрос;
                               Запрос.Текст=
                               "ВЫБРАТЬ
                               |    ХозрасчетныйОбороты.Счет,
                               |    ХозрасчетныйОбороты.Субконто1,
                               |    ХозрасчетныйОбороты.Субконто2,
                               |    ХозрасчетныйОбороты.КоличествоОборот,
                               |    ХозрасчетныйОбороты.СуммаОборот,
                               |    ХозрасчетныйОбороты.СуммаОборотДт
                               |ИЗ
                               |    РегистрБухгалтерии.Хозрасчетный.Обороты КАК ХозрасчетныйОбороты
                               |        ЛЕВОЕ СОЕДИНЕНИЕ Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
                               |        ПО ХозрасчетныйОбороты.Субконто1 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.Субконто2 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.Субконто3 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто1 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто2 = РеализацияТоваровУслуг.Ссылка
                               |            И ХозрасчетныйОбороты.КорСубконто3 = РеализацияТоваровУслуг.Ссылка
                               |ГДЕ
                               |    ХозрасчетныйОбороты.Счет = &Счет
                               |    И ХозрасчетныйОбороты.Субконто1 = &Субконто1
                               |    И ХозрасчетныйОбороты.Субконто2 = &Субконто2";
                               Запрос.УстановитьПараметр("Субконто1",товар.Номенклатура);
                               Запрос.УстановитьПараметр("Субконто2",Док.Склад);
                               Запрос.УстановитьПараметр("Номер",Док.Номер);
                               Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01"));
                               ТЗ = Запрос.Выполнить().Выгрузить();
                               Для каждого цена из ТЗ Цикл
                                   Переменная = РегЗапись.КоличествоДт*(Цена.суммаОборот/Цена.КоличествоОборот);
                                   прервать;
                               КонецЦикла;
                           КонецЦикла;
                           РегХозрасчетный = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
                           РегХозрасчетный.Отбор.Регистратор.Значение = ДокОперацияСсылка;
                           РегЗапись = РегХозрасчетный.Добавить();
                           РегЗапись.Период = Док.Дата;
                           РегЗапись.Регистратор = ДокОперацияСсылка;
                           РегЗапись.Организация = Справочники.Организации.НайтиПоНаименованию("ООО Автодин");
                           РегЗапись.СчетДт =ПланыСчетов.Хозрасчетный.НайтиПоКоду("90.02.1");
                           РегЗапись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("41.01");
                           БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетДт, РегЗапись.СубконтоДт, 1, товар.Номенклатура.НоменклатурнаяГруппа);
                           БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 1, товар.Номенклатура);
                           БухгалтерскийУчет.УстановитьСубконто(РегЗапись.СчетКт, РегЗапись.СубконтоКт, 2,  Док.Склад);                                  
                           РегЗапись.Сумма = переменная;
                           РегХозрасчетный.Записать();    
                           Сообщить(РучнойДокумент.Номер);    
                           Пометка = Док.ПолучитьОбъект();
                           Пометка.УстановитьПометкуУдаления(Истина);
                        КонецЕсли;
                       продолжить;
                   КонецЕсли;    
               КОнецЦикла;        
           КонецЕсли;    
       КонецЕсли;
   КонецЦикла;

(3) нет слов!

(3) Жесть....

А вообще код работает правильно.
Во внешнем цикле ты получаешь Док.
Во внутреннем (перебор ЗаказНарядов) - ты этот Док несколько раз пытаешься удалить.

(3) Ехал бы ты обратно в свою Корею...

Пометка = РучнойДокумент.ПолучитьОбъект(); ?
код не смотрел

Если Док.Контрагент.Наименование = "ООО "+Символ(34)+" Автодин"+Символ(34) или Док.Контрагент.Наименование = "ООО"+Символ(34)+"Автодин"+Символ(34)+" - Автосалон" тогда

дальше и читать не стал...

РучнойДокумент это док. который создается. Помечается на удаление реализация.

ну как тут не вспомнить про 86...

(9) Ну вот ты и помечаешь реализацию на удаление каждый раз во внутреннем цикле обхода ЗаказНарядов.

(8) >> дальше и читать не стал...

А зря. Там еще много интересного :))

(12) я бы так не сказал :)

(13) как тебе: Документы.ЗаказНаряд.Выбрать(ДатаС-1000000, ДатаПо+1000000)

а запрос-то работает? условие, если все субконты - конкретный документ

Реализация.Проведен = Ложь;
Реализация.Записать();

Распроводка делается так: Реализация.Записать(РежимЗаписиДокумента.ОтменаПроведения)

(16) Спасибо за содержательное сообщение.

А вообще Пишу как умею )))

(15) Запрос работает

(17) за это хоть платят?

(15) Запрос у него работает. Не работает соединение - из таблицы РеализацияТоваровУслуг ни чего не выбирается.

При внутреннем соединении результат запроса будет пустым.

(18) Можешь из запроса соединение убрать. Написанное условие соединения всё равно ни когда не выполнится.

(17) >> А вообще Пишу как умею )))

Молодец! Так держать!

Благодаря тебе у кого-то всегда будет заработок на маслице к хлебушку - за выгребание косяков.