v7: Программное заполнение бух справки

КОнфигурация Бух учет, релиз 7.70.578
Код заполнения бух справки:
Процедура СформироватьБухСправку(ТЗ)

    Склад=СоздатьОбъект("Справочник.МестаХранения");
    Медикаменты=СоздатьОбъект("Справочник.Материалы");
    Склад.НайтиПоКоду("00002");  // Аптека
    Медикаменты.НайтиПоКоду("000001184");

    БухСправка = СоздатьОбъект("Документ.БухгалтерскаяСправка");
    БухСправка.Новый();

    БухСправка.ДатаДок = Дата("31.07.14");
    БухСправка.СодержаниеОперации = "Пренос остатков по медикаментам";
    БухСправка.Записать();
    ТЗ.ВыбратьСтроки();
    Если  БухСправка.Выбран() = 1 Тогда
        Пока ТЗ.ПолучитьСтроку() = 1 Цикл
            БухСправка.НоваяСтрока();
            БухСправка.СчетДт = СчетПоКоду("10.2", ПланыСчетов.Основной);
            БухСправка.СчетКт = СчетПоКоду("10.2", ПланыСчетов.Основной);

            БухСправка.НазначитьТип("СубконтоДт1", "Справочник.Материалы");
            БухСправка.СубконтоДт1 = Медикаменты.ТекущийЭлемент();
            БухСправка.НазначитьТип("СубконтоДт2", "Справочник.МестаХранения");
            БухСправка.СубконтоДт2 = Склад.ТекущийЭлемент();

            БухСправка.НазначитьТип("СубконтоКт1", "Справочник.Материалы");
            БухСправка.СубконтоКт1 = ТЗ.Материал;
            БухСправка.НазначитьТип("СубконтоКт2", "Справочник.МестаХранения");
            БухСправка.СубконтоКт2 = Склад.ТекущийЭлемент();

            БухСправка.Количество = ТЗ.КолВо;
            БухСправка.Сумма = ТЗ.Сумма;

        КонецЦикла ;
        БухСправка.Провести();

    КонецЕсли;

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

В отладчике все заполняется, при открытии бух справки она пустая. Почему?