Имя: Пароль:
1C
1С v8
v8: Подписка на события
0 zfobo
 
28.02.12
14:51
Как нужно переделать данную процедуру что бы записывалось каждое субконто а не только последнее, а то мозгов уже не хватает =/ :


   Если СчетДвижДох=ПланыСчетов.Хозрасчетный.НайтиПоКоду("86.02") тогда
           //НаборЗап=Источник.Движения.Хозрасчетный.Выгрузить();
           Для каждого УслСтр из источник.Услуги цикл
              Для каждого НаборЗап из Источник.Движения.Хозрасчетный цикл
               //    Для каждого СтрПровод из Источник.Движения.Хозрасчетный цикл
                   НаборЗап.СубконтоКт.ДвиженияЦелевыхСредств=УслСтр.с1_СубСтДвижения;
                   НаборЗап.СубконтоКт.СтатьяучетаЦС=УслСтр.с1_СубСтатьяУчета;
               КонецЦикла;
           //Источник.Движения.Хозрасчетный.Загрузить(НаборЗап);
   КонецЕсли;
1 asady
 
28.02.12
15:05
(0) процедуры нет
источника для подписки нет
понять зачем цикл в цикле не смог....
2 zfobo
 
28.02.12
15:22
Не все скопировал,
Документ: Реализация товаров и услуг, подписка на событие, при проведении стоит. В табличной части есть несколько услуг у каждой свои 3 субконто, а при данной процедуре он только берет данные из последнего и заполняет для всех.
от этого цикла в цикле ищу метод избавиться


Процедура с1_ПриПроведенииРеализацииТоваровИУслугОбработкаПроведения(Источник, Отказ, РежимПроведения) Экспорт
   Если СчетДвижДох=ПланыСчетов.Хозрасчетный.НайтиПоКоду("86.02") тогда
       Для каждого СтрПровод из Источник.Движения.Хозрасчетный цикл
           Для каждого УслСтр из источник.Услуги цикл
               СтрПровод.СубконтоКт.СтатьяУчетаЦС=УслСтр.с1_СубСтатьяУчета;
               СтрПровод.СубконтоКт.ДвиженияЦелевыхСредств=УслСтр.с1_СубСтДвижения;
           КонецЦикла;
       КонецЦикла;
   КонецЕсли;
КонецПроцедуры
3 jump if zero
 
28.02.12
15:24
Индекс= 0;
Для каждого НаборЗап из Источник.Движения.Хозрасчетный цикл
       стр =   источник.Услуги[Индекс];
                 
НаборЗап.СубконтоКт.ДвиженияЦелевыхСредств = стр.с1_СубСтДвижения;
НаборЗап.СубконтоКт.СтатьяучетаЦС= стр.с1_СубСтатьяУчета;
             
Индекс =индекс+1;

КонецЦикла;
4 zfobo
 
28.02.12
15:38
Выручил, спасибо, даже такого в мыслях не было
5 asady
 
28.02.12
16:25
(3) если порядок в НЗ и в ТЧ совпадает сработает если нет - получишь ерунду.
нужна более четкая синхронизация строк между НЗ и ТЧ Услуги
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн