Правлю 68 на 76 , не сбрасывается аналитика 68, ошибка при записи.
НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();    
НаборЗаписей.Отбор.Регистратор.Установить(сс);
НаборЗаписей.Прочитать();    
Для Каждого Запись Из НаборЗаписей Цикл
   Если Запись.СчетКт =  Сч6803 Тогда
       ЧислоСубконто = Запись.СчетКт.ВидыСубконто.Количество();
       Для Сч = 1 По ЧислоСубконто Цикл
           ВидСубк = Запись.СчетКт.ВидыСубконто[Сч-1].ВидСубконто;
           Запись.СубконтоКт.Вставить(ВидСубк,Неопределено);
       КонецЦикла;    
       Запись.СчетКт = ПланыСчетов.Хозрасчетный.НайтиПоКоду("76.К");
   КонецЕсли;
КонецЦикла;
НаборЗаписей.Записать();

смысл цикла поясни

какая ошибка хоть? код во вложенном цикле эммм странный

Форма.Отчет.Форма(111)}: Ошибка при вызове метода контекста (Записать)
           НаборЗаписей.Записать();
по причине:
Запись не верна! Вид субконто "Виды платежей в бюджет (фонды)" не доступен для данной записи! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 5)

чо хочешь? чтоб без субконт было вобще?

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

в отладчике смотрел? значения в цикле сбрасываются??

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

что-то у меня ощущения, что структуру сначала было бы неплохо очистить, а потом уже вставлять

В отладчке все субконто - неопределено

(9) прям вот в отладчике ХХ.Х - 76.К неопределено, неопределено - 100?

Запись.СубконтоКт.Очистить() тоже не вариант?

Maxus43 Спасибо. Запись.СубконтоКт.Очистить()решило проблему.