Код

Процедура СоздатьТаблицуВидов()
	ОлеДБ = СоздатьОбъект("OLEDBData");
	Рез=ОлеДБ.Соединение("
	|Provider=VFPOLEDB.1;
	//	|Deleted=Yes;
	|Null = Yes;
	|Exclusive = No;
	|SourceType = DBF;
	|Data Source=" + КаталогИБ() + ";
	|Mode=ReadWrite;
	|Extended Properties="""";
	|User ID="""";
	|Password="""";
	|Mask Password=False;
	|Collating Sequence=MACHINE;
	|DSN=""""");
	МД = СоздатьОбъект("MetaDataWork");
	ОлеДБКоманда = ОлеДБ.СоздатьКоманду();
	ОлеДБКоманда.Выполнить("EXECSCRIPT('CREATE CURSOR VidDocument (IDDOCDEF Character(4) ,Vid Character(30),Predstavlenie Character(30)) ')");


	Для ИИ=1 По Метаданные.Документ() Цикл
		ДокИИ=Метаданные.Документ(ИИ);
		Представление=ДокИИ.Представление();
		Идентификатор=ДокИИ.Идентификатор;
		ИДДокумента= МД.ИДДокумента(Идентификатор);  
		//IDDOCDEF=МД.ЧислоВСтроку(ИДДокумента,36);
		IDDOCDEFКратко=СокрЛП(МД.ЧислоВСтроку(ИДДокумента,36));
		ДлинаВида=СтрДлина(IDDOCDEFКратко);
		СтрПробелов="";
		Если ДлинаВида=1 Тогда  СтрПробелов="   ";
		ИначеЕсли ДлинаВида=2 Тогда СтрПробелов="  ";
		ИначеЕсли ДлинаВида=3 Тогда  СтрПробелов=" ";
		КонецЕсли;
		IDDOCDEF=СтрПробелов+IDDOCDEFКратко;
		ТекстЗапроса="INSERT INTO VidDocument (IDDOCDEF,Vid,Predstavlenie )   VALUES ('"+IDDOCDEF+"','"+Идентификатор+"','"+Представление+"')";
		ОлеДБКоманда.Выполнить(ТекстЗапроса);
	КонецЦикла;
//Для истинных ценителей скорости добавим индекс
ОлеДБКоманда.Выполнить("EXECSCRIPT('INDEX ON VidDocument.IDDOCDEF TAG INDIDD')");


//    Тест кому интересно
//	тз=ОлеДБКоманда.ВыполнитьиНСТРУКЦИЮ("Select * from VidDocument ");
//	тз.ВыбратьСтроку();

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