Привет, нужно вместо одного счета поставить другой
    Пока Выборка.Следующий() Цикл

НабЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
     НабЗаписей.Отбор.регистратор.Установить(выборка.Ссылка);
     НабЗаписей.Прочитать();
     Для каждого эл из   НабЗаписей цикл
эл.СчетДт =ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчикамиВал;
        БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, "Контрагенты", Справочники.Контрагенты.НайтиПоКоду("000000009"));
        БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, "Договоры", Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000808"));
НабЗаписей.Записать();
КонецЕсли;


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

и при записи пишет что запись не верна

раньше было у субконто1 - справочник "ДДС"
после замены на другой - "контрагенты"
Но при записи ругается ,что нельзя для этого счета оставлять аналитику "ДДС", пробовал
эл.СубконтоДт.СтатьиДвиженияДенежныхСредств = Неопределено
непомагает

странно, что это работает

БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, 1, Справочники.Контрагенты.НайтиПоКоду("000000009"));
БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, 2, Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000808"));
БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, 3, Неопределено);

Попробуй так. Хотя врят ли.

Хотя КонецЦикла то нет. Два раза.

ты точкой останова посмотри что он у тебя оставляет после замены субконто в записи.

(5) недописал просто конеццикла.

(6) в конце цикла остовляет как нужно, дальше если посмотреть в самом модуле операции призаписи то почему то остается ДДС заполненым

(8) присвой субконто пустую ссылку и ничего там не будет

Сначала очисти субконто по номеру. Потом меняй счет. Затем заполняй субконто.

Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
|    ОперацияБух.Ссылка
|ИЗ
|    Документ.ОперацияБух КАК ОперацияБух
|ГДЕ
|    ОперацияБух.Дата >= &Дата";
Запрос.УстановитьПараметр("Дата", НачалоДня(Дата(2013,08,28)));
Выборка = Запрос.Выполнить().Выбрать();
Пока Выборка.Следующий() Цикл
    
    НабЗаписей=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
    НабЗаписей.Отбор.регистратор.Установить(выборка.Ссылка);
    НабЗаписей.Прочитать();
    Для каждого эл из   НабЗаписей цикл
        эл.СубконтоДт.СтатьиДвиженияДенежныхСредств = Неопределено;
        эл.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПрочимиПокупателямиИЗаказчикамиВал;
        БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт, 1, Справочники.Контрагенты.НайтиПоКоду("000000009"));
        БухгалтерскийУчет.УстановитьСубконто(Эл.СчетДт, Эл.СубконтоДт,2, Справочники.ДоговорыКонтрагентов.НайтиПоКоду("000000808"));
        НабЗаписей.Записать();
    КонецЕсли;
КонецЦикла;
НабЗаписей.Записать();
КонецЦикла;

непомогает

не пойму в чем дело..

очисти субконто, а не делай неопределенно

эл.СубконтоДт.Очистить();

потом уже присваивай новый счет и его субконто.

(15) спасибо помогло