раздуплился, ....вот как можно вігрузить все справочники
Перем P[200];
Перем nn;
Т=СоздатьОбъект("Текст");
Файл_рез = создатьОбъект("XBASE");
Файл_рез.ДобавитьПоле("spr","S",10,0);
Файл_рез.ДобавитьПоле("spr1","S",70,0);
Файл_рез.ДобавитьПоле("spr2","S",70,0);
Файл_рез.ДобавитьПоле("spr3","S",70,0);
Файл_рез.ДобавитьПоле("spr4","S",70,0);
Файл_рез.ДобавитьПоле("spr5","S",70,0);
Файл_рез.ДобавитьПоле("spr6","S",70,0);
Файл_рез.ДобавитьПоле("spr7","S",70,0);
Файл_рез.ДобавитьПоле("spr8","S",70,0);
Файл_рез.ДобавитьПоле("spr9","S",70,0);
Файл_рез.ДобавитьПоле("spr10","S",70,0);
Файл_рез.ДобавитьПоле("spr11","S",70,0);
Файл_рез.ДобавитьПоле("spr12","S",70,0);
Файл_рез.ДобавитьПоле("spr13","S",70,0);
Файл_рез.ДобавитьПоле("pole1","S",70,0);
Файл_рез.ДобавитьПоле("pole2","S",70,0);
Файл_рез.ДобавитьПоле("pole3","S",70,0);
Файл_рез.ДобавитьПоле("pole4","S",70,0);
Файл_рез.ДобавитьПоле("pole5","S",70,0);
Файл_рез.ДобавитьПоле("pole6","S",70,0);
Файл_рез.ДобавитьПоле("pole7","S",70,0);
Файл_рез.ДобавитьПоле("pole8","S",70,0);
Файл_рез.ДобавитьПоле("pole9","S",70,0);
Файл_рез.ДобавитьПоле("pole10","S",70,0);
Файл_рез.ДобавитьПоле("pole11","S",70,0);
Файл_рез.ДобавитьПоле("pole12","S",70,0);
Файл_рез.СоздатьФайл("C:\rez_spr.dbf");
Для И1=1 По Метаданные.Справочник() Цикл
МетаСпр=Метаданные.Справочник(И1).Идентификатор;
Сообщить(МетаСпр);
Т.ДобавитьСтроку("Справочник = " + И1+".dbf это справочник "+ Метаданные.Справочник(И1) + " Идентификатор его в 7.7 "+Метаданные.Справочник(И1).Идентификатор);
Файл = создатьОбъект("XBASE");
Файл.ДобавитьПоле("KOD","S",10,0);
Файл.ДобавитьПоле("NAME","S",150,0);
Файл.ДобавитьПоле("RODITEL","S",10,0);
//Файл.ДобавитьПоле("VLADELEC","S",10,0);
Для nn = 1 По Метаданные.Справочник(И1).Реквизит() Цикл
П1 = "P_" + nn;
P[nn] = П1;
Если Метаданные.Справочник(И1).Реквизит(nn).Тип = "Число" Тогда
П2 = "N";
ИначеЕсли Метаданные.Справочник(И1).Реквизит(nn).Тип = "Дата" Тогда
П2 = "D";
Иначе
П2 = "S";
КонецЕсли;
П3 = Метаданные.Справочник(И1).Реквизит(nn).Длина+3;
Т.ДобавитьСтроку(" - Поля справочника " +Метаданные.Справочник(И1).Реквизит(nn).Идентификатор + " Поле = " + П2 + " Длина = " + П3);
Файл_рез.Добавить();
Файл_рез.spr =И1 + ".dbf";
Файл_рез.spr1 =Метаданные.Справочник(И1).Идентификатор;
Файл_рез.spr2 =Метаданные.Справочник(И1).Синоним;
Файл_рез.spr3 =Метаданные.Справочник(И1).Комментарий;
Файл_рез.spr4 =Метаданные.Справочник(И1).Владелец;
Файл_рез.spr5 =Метаданные.Справочник(И1).КоличествоУровней;
Файл_рез.spr6 =Метаданные.Справочник(И1).ДлинаКода;
Файл_рез.spr7 =Метаданные.Справочник(И1).ДлинаНаименования;
Файл_рез.spr8 =Метаданные.Справочник(И1).СерииКодов;
Файл_рез.spr9 =Метаданные.Справочник(И1).ТипКода;
Файл_рез.spr10 =Метаданные.Справочник(И1).ОсновноеПредставление;
Файл_рез.spr11 =Метаданные.Справочник(И1).КонтрольУникальности;
Файл_рез.spr12 =Метаданные.Справочник(И1).АвтоНумерация;
Файл_рез.spr13 =Метаданные.Справочник(И1).ГруппыВпереди;
Файл_рез.pole1 =Метаданные.Справочник(И1).Реквизит(nn);
Файл_рез.pole2 =Метаданные.Справочник(И1).Реквизит(nn).Идентификатор;
Файл_рез.pole3 =Метаданные.Справочник(И1).Реквизит(nn).Синоним;
Файл_рез.pole4 =Метаданные.Справочник(И1).Реквизит(nn).Комментарий;
Файл_рез.pole5 =Метаданные.Справочник(И1).Реквизит(nn).Тип;
Файл_рез.pole6 =Метаданные.Справочник(И1).Реквизит(nn).Вид;
Файл_рез.pole7 =Метаданные.Справочник(И1).Реквизит(nn).Длина;
Файл_рез.pole8 =Метаданные.Справочник(И1).Реквизит(nn).Точность;
Файл_рез.pole9 =Метаданные.Справочник(И1).Реквизит(nn).НеОтрицательный;
Файл_рез.pole10 =Метаданные.Справочник(И1).Реквизит(nn).РазделятьТриады;
Файл_рез.pole11 =Метаданные.Справочник(И1).Реквизит(nn).Периодический;
Файл_рез.pole12 =Метаданные.Справочник(И1).Реквизит(nn).Сортировка;
Файл_рез.Записать();
Файл.ДобавитьПоле(П1,П2,П3,2);
КонецЦикла;
Файл.СоздатьФайл("C:\" + И1 + ".dbf");
Спр = СоздатьОбъект("Справочник." + МетаСпр);
Спр.ВыбратьЭлементы();
Пока Спр.ПолучитьЭлемент()=1 Цикл
Файл.Добавить();
Файл.KOD =Спр.Код;
Файл.NAME = Спр.Наименование;
Файл.RODITEL = Спр.Родитель.код;
// Файл.VLADELEC = Спр.Владелец;
Для n =1 По nn-1 Цикл
Рекв = "P_" + n;
РеквВ= Спр.ПолучитьАтрибут(Метаданные.Справочник(И1).Реквизит(n).Идентификатор);
Файл.УстановитьЗначениеПоля(Рекв,РеквВ);
КонецЦикла;
Файл.Записать();
КонецЦикла;
Файл.ЗакрытьФайл();
КонецЦикла;
Т.Записать("C:\rez.txt");
Файл_рез.Записать();
Файл_рез.ЗакрытьФайл();
Сообщить("Конец");