Процедура УложитьТаблицу(пТЗ, ИмяТаб, Колонки="", ПервичныйКлюч="") Экспорт
Перем ТЗ;
Если ПустаяСтрока(Колонки)=1 Тогда
ТЗ=пТЗ;
Иначе
пТЗ.Выгрузить(ТЗ,,,Колонки);
КонецЕсли;
СтрCreate="create table %Имя% (/*column_definition*/ /*pk*/)";
СтрInsert="insert into %Имя% values(/*?*/)";
Тип="";
Длина="";
Точность="";
ФорматнаяСтрока="";
КолонкиЕсть=0;
Для Тек=1 По ТЗ.КоличествоКолонок() Цикл
Идентификатор=ТЗ.ПолучитьПараметрыКолонки(Тек,Тип,Длина,Точность,,,ФорматнаяСтрока);
Если (ПустаяСтрока(Колонки)=0)И(Найти(Колонки,Идентификатор)=0) Тогда
Продолжить;
КонецЕсли;
КолонкиЕсть=1;
Если ПустаяСтрока(ФорматнаяСтрока)=0 Тогда
SQL_тип=ФорматнаяСтрока;
рс.ДобПараметр(1,);
ИначеЕсли ПустаяСтрока(Тип)=1 Тогда
SQL_тип="char(9)";
рс.ДобПараметр(1,14,9,0);
ИначеЕсли Тип="Число" Тогда
Если Длина=0 Тогда
Длина=38;
Точность=10;
КонецЕсли;
SQL_тип="numeric(%p%,%s%)";
SQL_тип=СтрЗаменить(SQL_тип,"%p%",Длина);
SQL_тип=СтрЗаменить(SQL_тип,"%s%",Точность);
рс.ДобПараметр(1,11,Длина,Точность);
ИначеЕсли Тип="Строка" Тогда
Если Длина=0 Тогда
SQL_тип="varchar(%n%)";
SQL_тип=СтрЗаменить(SQL_тип,"%n%",255);
рс.ДобПараметр(1,15,255,0);
Иначе
SQL_тип="char(%n%)";
SQL_тип=СтрЗаменить(SQL_тип,"%n%",Длина);
рс.ДобПараметр(1,14,Длина,0);
КонецЕсли;
ИначеЕсли Тип="Дата" Тогда
SQL_тип="datetime";
рс.ДобПараметр(1,10,8,0);
ИначеЕсли Найти(Тип,".")>0 Тогда
SQL_тип="char(9)";
рс.ДобПараметр(1,14,9,0);
Иначе
SQL_тип="char(13)";
рс.ДобПараметр(1,14,13,0);
КонецЕсли;
СтрCreate=СтрЗаменить(СтрCreate,"/*,*/",", ");
СтрCreate=СтрЗаменить(СтрCreate,"/*column_definition*/",Идентификатор+" "+SQL_тип+"/*,*//*column_definition*/");
СтрInsert=СтрЗаменить(СтрInsert,"/*,*/",", ");
СтрInsert=СтрЗаменить(СтрInsert,"/*?*/","?/*,*//*?*/");
КонецЦикла;
Если ПустаяСтрока(ПервичныйКлюч)=0 Тогда
СтрCreate=СтрЗаменить(СтрCreate,"/*pk*/","primary key clustered ("+ПервичныйКлюч+")");
КонецЕсли;
Если КолонкиЕсть=1 Тогда
ТекстЗапроса="
|set nocount on
|if exists (select * from tempdb..sysobjects where id=object_id('tempdb..%Имя%') and sysstat & 0xf = 3 )
| drop table %Имя%;
|"+СтрCreate+"
|";
рс=СоздатьОбъект("ODBCRecordset");
рс.ВыполнитьИнструкцию(СтрЗаменить(ТекстЗапроса,"%Имя%",ИмяТаб));
рс.Подготовить(СтрЗаменить(СтрInsert,"%Имя%",ИмяТаб));
рс.ВыполнитьSQL_ИзТЗ(ТЗ,100);
рс.Закрыть();
КонецЕсли;
КонецПроцедуры
МД = СоздатьОбъект("MetaDataWork")
тзп_Объекты = ""; зпт = "";
тз.ВыбратьСтроки();
Пока тз.ПолучитьСтроку() = 1 Цикл
идОбъект = МД.ЗначениеВСтрокуБД(тз.Объект);
тзп_Объекты = тзп_Объекты + зпт + "select '"+идОбъект+"' Объект";
зпт = "
|union all
|";
КонецЦикла;
ТекстЗапроса = "
|SELECT
| Объекты.Объект
|FROM
| ("+тзп_Объекты+") Объекты
|";