1С Бух 7.7. Туплю - не записывется документ -(

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

Цель-поменять второе субконто в проведенном документе. Но что-то не меняется"

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

+ смотри на метод Опции, который даёт возможность выбора проведённых документов

"1. Возможно эта строка лишняя: ДокТек = Док.ТекущийДокумент();  
2. Вставь Сообщить() после "Если ДокТек.Субконто2 = ВыбСубконто1 Тогда", будешь видеть находит ли и записывает ли.
"