1С Бух77 Не заполняется субконто в строке документа Бухгалтерская справка

"Здравствуйте!
Не могу понять что делаю не правильно?!
Создаю внешнюю обработку, которая создает новый документ Бух справка и добавляет в неё новую строку.
Счета в проводку проставляются, а субконто нет! Выложу текст:

Процедура Сформировать()
  Док = СоздатьОбъект("Документ.БухгалтерскаяСправка");
  Док.Новый();
   СпрЗаказ = СоздатьОбъект("Справочник.ВидыНоменклатуры");
СпрЗаказ.НайтиПоКоду("23");
   Заказ = СпрЗаказ.ТекущийЭлемент();

 Док.НоваяСтрока();
 Док.СчетДт = СчетПоКоду("40");  
 Док.СубконтоДт1 = Заказ;
         Док.СчетКт = СчетПоКоду("25");
   
Док.Записать();
ОткрытьФорму(Док.ТекущийДокумент());

КонецПроцедуры


Подскажите, пожалуйста, как правильно заполнить субконто."

типовую смотрите!
З,Ы там еще надо установить тип реквизита,если не ошибаюсь!

"Добавила строчку
Док.НазначитьТип("СубконтоДт1","Справочник.ВидыНоменклатуры");
Помогло, Спасибо!"

Вот видишь, не зря же люди пишут конфигурацию!

"надо назначить ещё вид субконто для этих полей. В типовой есть процедура ПриВыбореСчета()
Взглянув на неё видим, что там написано:
Счет = ПолучитьАтрибут(ИдентификаторКолонки);
ИмяАтрибутаСубконто = СтрЗаменить(ИдентификаторКолонки, "Счет", "Субконто");
НазначитьТип(ИмяАтрибутаСубконто + "1", Счет.ВидСубконто(1));
НазначитьТип(ИмяАтрибутаСубконто + "2", Счет.ВидСубконто(2));
НазначитьТип(ИмяАтрибутаСубконто + "3", Счет.ВидСубконто(3));

т.е. для нашей обработки делаем так:
Док.НоваяСтрока();
Док.СчетДт = СчетПоКоду("40");  
Док.НазначитьТип("СубконтоДт1", Док.СчетДт.ВидСубконто(1));
Док.НазначитьТип("СубконтоДт2", Док.СчетДт.ВидСубконто(2));
Док.НазначитьТип("СубконтоДт3", Док.СчетДт.ВидСубконто(3));
Док.СубконтоДт1 = Заказ;
Док.СчетКт = СчетПоКоду("25");
Док.НазначитьТип("СубконтоКт1", Док.СчетКт.ВидСубконто(1));
Док.НазначитьТип("СубконтоКт2", Док.СчетКт.ВидСубконто(2));
Док.НазначитьТип("СубконтоКт3", Док.СчетКт.ВидСубконто(3));
"

Большое спасибо! Очень подробно и понятно!Все получилось, Ура!!!