Разбираюсь с загрузкой данных из dbf-файла

Есть dbf-файлик след. структуры:
Дата документа
Номер документа
Дебет Счет
Дебет Код подразделения
Дебет Наименование подразделения
Дебет УНП Контрагента
Дебет Наименование Контрагента
Кредит Счет
Кредит Код подразделения
Кредит Наименование подразделения
Кредит УНП Контрагента
Кредит Наименование Контрагента
Сумма
Дата начала периода выгрузки
Дата окончания периода выгрузки
Дебет Код статьи затрат
Кредит Код статьи затрат
Дебет Наименование статьи затрат
Кредит Наименование статьи затрат
Дебет Ставка НДС
Кредит Ставка НДС
Внутренний идентификатор документа
Название типа документа
код типа документа

Необходимо выгрузить его в 1С-ку. Файл открываю, строчки перебираю и в ТЗшку записываю, все хорошо, но дальше какой-то ступор, не знаю как остатки записать в регистр бухгалтерии. Листинг кода:

Процедура КнопкаВыполнитьНажатие(Кнопка)

    ФД = Новый XBase;
    ФД.ОткрытьФайл("D:\Задания\Зегам\ENTRYS.dbf");
    ФД.Кодировка = КодировкаXBase.OEM;

    Сообщение = Новый СообщениеПользователю();

    Если ФД.Открыта()=0 Тогда
        Сообщить("Не удалось открыть файл!");
    КонецЕсли;

    тзПеренос =  Новый ТаблицаЗначений;
    тзПеренос.Колонки.Добавить("ДатаДок", Новый ОписаниеТипов("Строка"),8);
    тзПеренос.Колонки.Добавить("НомерДок", Новый ОписаниеТипов("Строка"),60);
    тзПеренос.Колонки.Добавить("ДебетСчет", Новый ОписаниеТипов("Строка"),30);
    тзПеренос.Колонки.Добавить("ДебетКодПодразделения", Новый ОписаниеТипов ("Строка"),18);
    тзПеренос.Колонки.Добавить("ДебетНаименованиеПодразделения",Новый ОписаниеТипов("СТрока"),80);
    тзПеренос.Колонки.Добавить("ДебетУНПКонтрагента", Новый ОписаниеТипов("Строка"),60);
    тзПеренос.Колонки.Добавить("ДебетНаименованиеКонтрагента", Новый ОписаниеТипов("Строка"),100);
    тзПеренос.Колонки.Добавить("КредитСчет", Новый ОписаниеТипов("Строка"),30);
    тзПеренос.Колонки.Добавить("КредитКодПодразделения", Новый ОписаниеТипов("Строка"),18);
    тзПеренос.Колонки.Добавить("КредитНаименованиеПодразделения", Новый ОписаниеТипов("Строка"),80);
    тзПеренос.Колонки.Добавить("КредитУНПКонтрагента", Новый ОписаниеТипов("Строка"),60);
    тзПеренос.Колонки.Добавить("КредитНаименованиеКонтрагента", Новый ОписаниеТипов("Строка"),100);
    тзПеренос.Колонки.Добавить("Сумма", Новый ОписаниеТипов("Число"),19.4);
    тзПеренос.Колонки.Добавить("ДатаНачалаПериодаВыгрузки", Новый ОписаниеТипов("Строка"),8);
    тзПеренос.Колонки.Добавить("ДатаОкончанияПериодаВыгрузки", Новый ОписаниеТипов("Строка"),8);
    тзПеренос.Колонки.Добавить("ДебетКодСтатьиЗатрат", Новый ОписаниеТипов("Строка"),40);
    тзПеренос.Колонки.Добавить("КредитКодСтатьиЗатрат", Новый ОписаниеТипов("Строка"),40);
    тзПеренос.Колонки.Добавить("ДебетНаименованиеСтатьиЗатрат", Новый ОписаниеТипов("Строка"),60);
    тзПеренос.Колонки.Добавить("КредитНаименованиеСтатьиЗатрат", Новый ОписаниеТипов("Строка"),60);
    тзПеренос.Колонки.Добавить("ДебетСтавкаНДС", Новый ОписаниеТипов("Число"),15.4);
    тзПеренос.Колонки.Добавить("КредитСтавкаНДС", Новый ОписаниеТипов("Число"),15.4);
    тзПеренос.Колонки.Добавить("ВнутреннийИдентификаторДокумента", Новый ОписаниеТипов("Число"));
    тзПеренос.Колонки.Добавить("НазваниеТипаДкумента", Новый ОписаниеТипов("Строка"),80);
    тзПеренос.Колонки.Добавить("КодТипаДокумента", Новый ОписаниеТипов("Число"));

    ФД.Первая();

    Пока НЕ ФД.ВКонце() Цикл

        Если ФД.ЗаписьУдалена() Тогда
            ФД.Следующая();
            Продолжить;
        КонецЕсли;

        НовСтрока = тзПеренос.Добавить();
        НовСтрока.ДатаДок    = СокрЛП(ФД.DOCDATE);
        НовСтрока.НомерДок   = СокрЛП(ФД.DOCNUM);
        НовСтрока.ДебетСчет  = СокрЛП(ФД.DBALIAS);
        НовСтрока.ДебетКодПодразделения = СокрЛП(ФД.DBDEPCODE);
        НовСтрока.ДебетНаименованиеПодразделения = СокрЛП(ФД.DBDEPNAME);
        НовСтрока.ДебетУНПКонтрагента = СокрЛП(ФД.DBCONTAXID);
        НовСтрока.ДебетНаименованиеКонтрагента = СокрЛП(ФД.DBCONNAME);
        НовСтрока.КредитСчет = СокрЛП(ФД.CRALIAS);
        НовСтрока.КредитКодПодразделения = СокрЛП(ФД.CRDEPCODE);
        НовСтрока.КредитНаименованиеПодразделения = СокрЛП(ФД.CRDEPNAME);
        НовСтрока.КредитУНПКонтрагента = СокрЛП(ФД.CRCONTAXID);
        НовСтрока.КредитНаименованиеКонтрагента = СокрЛП(ФД.CRCONNAME);
        НовСтрока.Сумма = СокрЛП(ФД.SUMNCU);
        НовСтрока.ДатаНачалаПериодаВыгрузки = СокрЛП(ФД.BEGDATE);
        НовСтрока.ДатаОкончанияПериодаВыгрузки = СокрЛП(ФД.ENDDATE);
        НовСтрока.ДебетКодСтатьиЗатрат = СокрЛП(ФД.DBEXPENS);
        НовСтрока.КредитКодСтатьиЗатрат = СокрЛП(ФД.CREXPENS);
        НовСтрока.ДебетНаименованиеСтатьиЗатрат = СокрЛП(ФД.DBEXPENSN);
        НовСтрока.КредитНаименованиеСтатьиЗатрат = СокрЛП(ФД.CREXPENSN);
        НовСтрока.ДебетСтавкаНДС = СокрЛП(ФД.DBVAT);
        НовСтрока.КредитСтавкаНДС = СокрЛП(ФД.CRVAT);
        НовСтрока.ВнутреннийИдентификаторДокумента = СокрЛП(ФД.DOCID);
        НовСтрока.НазваниеТипаДкумента = СокрЛП(ФД.DOCTYPE);
        НовСтрока.КодТипаДокумента = СокрЛП(ФД.DTYPEID);

        ФД.Следующая();

    КонецЦикла;

        Пока Истина Цикл
        Сообщение.Текст = "Выгрузка успешно завершена!";
        Сообщение.Сообщить();
        Если Не ФД.Следующая() Тогда
            Прервать;
        КонецЕсли;
    КонецЦикла;

    ФД.ЗакрытьФайл();

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

p.s. Восьмерку только осваиваю, так что сильно не бейте...