Здравствуйте!
Ситуация такая: нужно из операций удалить количество и субконто (по номенклатуре).
http://www.mista.ru/tutor_1c/buh_oper.htm - здесь все внимательно прочитано ))

Делаю так:

Док=СоздатьОбъект("Документ.Операция");
Док.ВыбратьДокументы(ВыбНачПериода,ВыбКонПериода);
Номенклатура=СоздатьОбъект("Справочник.Номенклатура");
Пока Док.ПолучитьДокумент()=1 Цикл

Опер = СоздатьОбъект("Операция");
Опер.НайтиОперацию(Док.ТекущийДокумент());


//Опер.ИспользоватьСубконто(ВидыСубконто.Номенклатура,);
Опер.ВыбратьПроводки();
//Опер.ИспользоватьСубконто(ВидыСубконто.Номенклатура,Номенклатура.ТекущийЭлемент());
//Опер.ВыбратьПоЗначению(,,ВидыСубконто.Номенклатура,);
Пока Опер.ПолучитьПроводку() = 1 Цикл
Попытка
   КодДебет=Опер.Дебет.Субконто().Код;
   КодКредит=Опер.Кредит.Субконто().Код;
   Если Номенклатура.НайтиПоКоду(КодДебет,0)=1 Тогда Сообщить(Опер.Дебет.Субконто().Код+"  "+Опер.Дебет.Субконто()+"  "+Опер.ТекущийДокумент());
       Опер.УстановитьАтрибут("Количество", 0);
       Опер.УстановитьАтрибут("Дебет.Субконто", "");    
   КонецЕсли;
   Если Номенклатура.НайтиПоКоду(КодКредит,0)=1 Тогда Сообщить(Опер.Кредит.Субконто().Код+"  "+Опер.Кредит.Субконто()+"    "+Опер.ТекущийДокумент());
    Опер.УстановитьАтрибут("Количество", 0);
    Опер.УстановитьАтрибут("Кредит.Субконто", "");
    Иначе //Сообщить("Вот она  "+Опер.Кредит.Субконто())
   КонецЕсли;
   
Исключение

КонецПопытки;    
Опер.Записать();
КонецЦикла;

КонецЦикла;

Так странно ищу субконто по номенклатуре потому что не получается с фильтром Опер.ИспользоватьСубконто(ВидыСубконто.Номенклатура,) всяко перепробовал.

Все это произошло когда не той обработкой из ТиС выгрузили в бухию данные стандартной выгрузкой,должны были только суммы перебросить.

Самое главное!!: Как подправить субконто и количество, а именно их удалить (почистить)? Если заходить в операции, то вручную не дает через shift+f4.


Подскажите, пож-та!

>>>     КодДебет=Опер.Дебет.Субконто().Код;
>>>     КодКредит=Опер.Кредит.Субконто().Код;
>>>     Если Номенклатура.НайтиПоКоду(КодДебет,0)=1 Тогда Сообщить(Опер.Дебет.Субконто().Код+"  "+Опер.Дебет.Субконто()+"  "+Опер.ТекущийДокумент());

Ну и изврат

Так а отладчиком ты хоть заходинь в свои условия ? И почему бы не так проверять

Если Опер.Дебет.Субконто(1).Вид() = "Номенклатура" Тогда

и всё остальное тоже в топку

А еще лучше проверяй счет дебета, кредита.

нужно всего-лишь проверить тип субконто

(0) И ты точно уверен что Номенклатура у тебя это первое субконто ?

И устанавливать

Опер.Дебет.Субконто(1,ПолучитьПустоеЗначение("Справочник.Номенклатура")) ;

Можно конечно и "", но так понятнее.

Я понимаю что изврат, но дело то не в изврате (спасибо за подсказки),
само субконто не правиться, нужно еще по субконто наверное отдельно пробежаться, хотя у меня оно везде первое почти стоит.
Самое главное!! не подправляет операцию???

Так выкинь ты свои УстановитьАтрибут и устанавливай номрально. Как ты думаешь вот эта строка что делает "Опер.УстановитьАтрибут("Дебет.Субконто", "");" Я так подозреваю что ошибку дает.

И еще вставь.

Исключение
    Сообщить("Где-то я таки лоханулся");
КонецПопытки;

(0) учоис умеет делать сабж