7.7 Помогите сделать проводку

Здравствуйте,уважаемые профессионалы!Извините, что оскверняю супер-про-форум своей ерундой.
Помогите, пожалуйста,неделю мучаюсь.Нужно создать операцию с проводками Дт 26 Кт19.3.
Оба субконто счета 26-СтатьиОбщехозяственныхРасходов и Подразделения формируются пустыми.Не знаю где ошибка? :angry:

Код:

Процедура Выполнить() 
Док=СоздатьОбъект("Документ.УслугиСтороннихОрганизаций");
СпрХоз=СоздатьОбъект("Справочник.СтатьиОбщехозяйственныхЗатрат");
СпрПроизв=СоздатьОбъект("Справочник.СтатьиОбщепроизводственныхЗатрат");
СпрПодр=СоздатьОбъект("Справочник.Подразделения");
Опер=СоздатьОбъект("Операция");
Опер.Новая();
Опер.ДатаОперации=РабочаяДата();
Опер.Содержание=("Зачет НДС");
Док.ВыбратьДокументы(Дата1,Дата2);
Пока Док.ПолучитьДокумент()>0 Цикл 
Опер.НоваяПроводка();
Док.ВыбратьСтроки();
Если Док.ПолучитьСтроку()>0 тогда
Опер.Дебет.Счет=Док.КоррСчет; 
Если Док.КоррСчет=СчетПоКоду("26") тогда
СпрХоз.НайтиПоКоду("00003");
СпрПодр.НайтиПоКоду("0000000004");
[color=#FF0000]Субконто1=СпрХоз.Наименование; 
Субконто2=СпрПодр.Наименование;
Опер.Дебет.Субконто(1,Субконто1);
Опер.Дебет.Субконто(2,Субконто2);[/color]
КонецЕсли;	
Опер.Сумма=Док.НДС;
КонецЕсли; 	  
Опер.Кредит.Счет=СчетПоКоду("19.3");
Опер.Кредит.Субконто(1,Док.Контрагент);
Опер.Кредит.СчетаФактурыПолученные = Док.ТекущийДокумент();
Опер.СодержаниеПроводки="Спис. НДС по услугам"; 
Опер.НомерЖурнала="НД";
Опер.ПервичныйДокумент=Док.ДатаНомерСчетаФактуры;
Опер.Записать();
КонецЦикла;
Опер.Записать();
КонецПроцедуры

Благодарю заранее!!

Код:

Субконто1=СпрХоз.ТекущийЭлемент();
Субконто2=СпрПодр.ТекущийЭлемент();

Опер.НоваяПроводка(); желательно поставить после Если Док.ПолучитьСтроку()>0 тогда

УРА!!!СПАСИБО!!!ВСЕ ПОЛУЧИЛОСЬ!!!
РЕСПЕКТ- sergejK74!!!! Спасибо!!! :angry:
СУПЕР-ПРО-ФОРУМУ СПАСИБО!!!!!!
:aua: