Мне необходимо в проводках счетов 302.11-302.13 за данный период изменить субконта кредита - на заданные ОГС и контрагента. При попытке записи в субконта, они тупо обнуляются, они становятся пустыми. Вот полный код:
   ОГС = СоздатьОбъект("Справочник.ОГС");
   Контр = СоздатьОбъект("Справочник.Контрагенты");
   СпрОГС.НайтиПоКоду("730");
     СпрКонтр.НайтиПоКоду("300140");
   Опер = СоздатьОбъект("Операция");
   Опер.ВыбратьОперации(НачДата, КонДата);    
   Пока Опер.ПолучитьОперацию() = 1 Цикл
       Опер.НайтиОперацию(Опер.Документ);
       Опер.ВыбратьПроводки();  
       Пока  Опер.ПолучитьПроводку() =1 цикл
           Если (Лев(Опер.Кредит.Счет.Код,6) = "302.11") или
           (Лев(Опер.Кредит.Счет.Код,6) = "302.12") или
           (Лев(Опер.Кредит.Счет.Код,6) = "302.13") Тогда    
                 Опер.Кредит.Субконто(ВидыСубконто.ОГС,СпрОГС);
                 Опер.Кредит.Субконто(ВидыСубконто.Контрагенты,СпрКонтр);
             КонецЕсли;
         КонецЦикла;  
         Опер.Записать();
   КонецЦикла;

Проблема в этих строчках:
Опер.Кредит.Субконто(ВидыСубконто.ОГС,СпрОГС);
                 Опер.Кредит.Субконто(ВидыСубконто.Контрагенты,СпрКонтр);
Помогите решить проблему. Прога не сложная, а бьюсь над этим субконто уже больше часа.

На ошибки в именах элементов справочника не обращайте внимания=)
В момент записи в субконта СпрОГС и СпрКонтр не пусты, они находятся.

(0) пользуйся типовыми обработками и не изобретай велик

.ТекущийЭлемент()

Типовые не подходят, уж больно долго работают. На перезапись слишком много времени потрачу, уже пробовал=)

(4) Типовые подходят, ты просто не знаешь какие.
"уж больно долго работают" - бред

(3) если имеется ввиду строка
Опер.ТекущийЭлемент().Записать();,
то не получается
(5)Вы про обработку UChoice? Я не знаю почему, но за заданное число у неё один только отбор шел около 15 минут! Может подскажите другие обработки?=)

во, тупой...

                  Опер.Кредит.Субконто(ВидыСубконто.ОГС,СпрОГС.ТекущийЭлемент());
                  Опер.Кредит.Субконто(ВидыСубконто.Контрагенты,СпрКонтр.ТекущийЭлемент());

что за контора ?

(7) Спасибо огромное=)

(6) акция разовая, за час который ты протупил с текущимэлементов давно бы всё поменялось

(8) ГазПром... Шутка=) не обращайте внимания, я просто учусь=)

(10) Честно говоря, пишу не ради результата, а ради изучения 7ки.

(12) изучать бюджетку на клюшках - это утопия