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