v7: Выгрузка в dbf из 1с 77

Процедура Выполнить()
ИмяФайла = "tov.dbf";
Каталог = СоздатьОбъект("ФС");
Каталог.СоздатьКаталог("c:\");
ПутьФайла = "c:\";
Файл = СоздатьОбъект("Xbase");
Файл.ОткрытьФайл(ПутьФайла+ИмяФайла);
Если Файл.Открыта() = 0 тогда

Файл.ДобавитьПоле("Code",1,9,0);
Файл.ДобавитьПоле("Name",2,50,0);
Файл.ДобавитьПоле("Roditel",2,25,0);
Файл.ДобавитьПоле("StatZatrat",2,10,0);
Файл.ДобавитьПоле("Articul",2,10,0);
Файл.ДобавитьПоле("BazEdIzm",2,10,0);
Файл.ДобавитьПоле("Ves",2,25,0);
Файл.ДобавитьПоле("VesK",2,25,0);
Файл.ДобавитьПоле("PartUchet",2,25,0);
Файл.ДобавитьПоле("SerialUchet",2,25,0);
Файл.ДобавитьПоле("HaractUchet",2,25,0);
Файл.ДобавитьПоле("EdRasch",2,25,0);
Файл.ДобавитьПоле("EdOst",2,25,0);
Файл.ДобавитьПоле("Komment",2,25,0);
Файл.ДобавитьПоле("Nabor",2,25,0);
Файл.ДобавитьПоле("PolnNaim",2,50,0);
Файл.ДобавитьПоле("Gr",2,8,0);
Файл.ДобавитьПоле("NomerGTD",2,25,0);
Файл.ДобавитьПоле("OsnIzobr",2,25,0);
Файл.ДобавитьПоле("OsnPostav",2,25,0);
Файл.ДобавитьПоле("OtvMeneger",2,25,0);
Файл.ДобавитьПоле("StavkaNDS",2,25,0);
Файл.ДобавитьПоле("StranaProish",2,25,0);
Файл.ДобавитьПоле("Usluga",2,50,0);
Файл.ДобавитьПоле("NomenGruppaZatrat",2,25,0);
Файл.ДобавитьПоле("VidNomenkl",2,25,0);
Файл.ДобавитьПоле("VestiSerialN",2,25,0);
Файл.ДобавитьПоле("Komplekt",2,25,0);
Файл.ДобавитьПоле("CenovGruppa",2,25,0);
Файл.ДобавитьПоле("EdIzmMest",2,25,0);
Файл.ДобавитьПоле("DopOpisanieN",2,25,0);
//////////////////////////////////////////////////////
Файл.ДобавитьПоле("kod1",1,8,0);
Файл.ДобавитьПоле("gruppa1",2,50,0);
Файл.ДобавитьПоле("kod2",1,8,0);
Файл.ДобавитьПоле("gruppa2",2,50,0);
Файл.ДобавитьПоле("kod3",1,8,0);
Файл.ДобавитьПоле("gruppa3",2,50,0);
Файл.ДобавитьПоле("kod4",1,8,0);
Файл.ДобавитьПоле("gruppa4",2,50,0);
/////////////////////////////////////////////////////
Файл.СоздатьФайл(ПутьФайла+ИмяФайла);
иначе
Файл.ОчиститьФайл();
КонецЕсли;
// Заполнение файла выгрузки
Спр = СоздатьОбъект("Справочник.Товары");
Спр.ВыбратьЭлементы(1);
Пока Спр.ПолучитьЭлемент() > 0 цикл
состояние("Обрабатывается товар " + спр.наименование);
Если Спр.ЭтоГруппа() = 0 Тогда
Файл.Добавить();
Файл.УстановитьЗначениеПоля("Code",Спр.Код);
Файл.УстановитьЗначениеПоля("Name",Спр.Наименование);
/////////////////////////////////////////////////////
Файл.УстановитьЗначениеПоля("BazEdIzm","шт");
Файл.УстановитьЗначениеПоля("VidNomenkl","Товар");
Файл.УстановитьЗначениеПоля("Articul",Спр.Артикул);
Файл.УстановитьЗначениеПоля("Gr", Спр.Родитель.Наименование);
// Определение вида номенклатуры
//Файл.УстановитьЗначениеПоля("Type",Спр.апТип.Идентификатор());
//Файл.УстановитьЗначениеПоля("Ed",Спр.асОсновнаяУпаковка.Код);
//Файл.УстановитьЗначениеПоля("FullName",Спр.сПолнНаименование);
// Определение ставки НДС
//Файл.УстановитьЗначениеПоля("StavkaNDS",Спр.чПроцентНдс);
//Файл.УстановитьЗначениеПоля("StavkaNP",Спр.чПроцентНП);

// Определим группы
Если Спр.Родитель.Уровень() = 1 тогда
Файл.УстановитьЗначениеПоля("kod1",Спр.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa1",Спр.Родитель.Наименование);
КонецЕсли;
Если Спр.Родитель.Уровень() = 2 тогда
Файл.УстановитьЗначениеПоля("kod2",Спр.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa2",Спр.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod1",Спр.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa1",Спр.Родитель.Родитель.Наименование);
КонецЕсли;
Если Спр.Родитель.Уровень() = 3 тогда
Файл.УстановитьЗначениеПоля("kod3",Спр.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa3",Спр.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod2",Спр.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa2",Спр.Родитель.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod1",Спр.Родитель.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa1",Спр.Родитель.Родитель.Родитель.Наименование);
КонецЕсли;
Если Спр.Родитель.Уровень() = 4 тогда
Файл.УстановитьЗначениеПоля("kod4",Спр.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa4",Спр.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod3",Спр.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa3",Спр.Родитель.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod2",Спр.Родитель.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa2",Спр.Родитель.Родитель.Родитель.Наименование);
Файл.УстановитьЗначениеПоля("kod1",Спр.Родитель.Родитель.Родитель.Родитель.Код);
Файл.УстановитьЗначениеПоля("gruppa1",Спр.Родитель.Родитель.Родитель.Родитель.Наименование);
КонецЕсли;
Файл.Записать();
КонецЕсли;
КонецЦикла;

Сообщить("В файл выгрузки скопировано записей "+ Файл.КоличествоЗаписей());
Файл.ЗакрытьФайл();
КонецПроцедуры