Как нужно переделать данную процедуру что бы записывалось каждое субконто а не только последнее, а то мозгов уже не хватает =/ :


   Если СчетДвижДох=ПланыСчетов.Хозрасчетный.НайтиПоКоду("86.02") тогда
           //НаборЗап=Источник.Движения.Хозрасчетный.Выгрузить();
           Для каждого УслСтр из источник.Услуги цикл
              Для каждого НаборЗап из Источник.Движения.Хозрасчетный цикл
               //    Для каждого СтрПровод из Источник.Движения.Хозрасчетный цикл
                   НаборЗап.СубконтоКт.ДвиженияЦелевыхСредств=УслСтр.с1_СубСтДвижения;
                   НаборЗап.СубконтоКт.СтатьяучетаЦС=УслСтр.с1_СубСтатьяУчета;
               КонецЦикла;
           //Источник.Движения.Хозрасчетный.Загрузить(НаборЗап);
   КонецЕсли;

(0) процедуры нет
источника для подписки нет
понять зачем цикл в цикле не смог....

Не все скопировал,
Документ: Реализация товаров и услуг, подписка на событие, при проведении стоит. В табличной части есть несколько услуг у каждой свои 3 субконто, а при данной процедуре он только берет данные из последнего и заполняет для всех.
от этого цикла в цикле ищу метод избавиться


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

Индекс= 0;
Для каждого НаборЗап из Источник.Движения.Хозрасчетный цикл
       стр =   источник.Услуги[Индекс];
                 
НаборЗап.СубконтоКт.ДвиженияЦелевыхСредств = стр.с1_СубСтДвижения;
НаборЗап.СубконтоКт.СтатьяучетаЦС= стр.с1_СубСтатьяУчета;
             
Индекс =индекс+1;

КонецЦикла;

Выручил, спасибо, даже такого в мыслях не было

(3) если порядок в НЗ и в ТЧ совпадает сработает если нет - получишь ерунду.
нужна более четкая синхронизация строк между НЗ и ТЧ Услуги