Различия

Показаны различия между двумя версиями страницы.

--- wiki:1c:diagnostika [2019/02/28 06:00]
anton создано
+++ wiki:1c:diagnostika [2019/02/28 06:05] (текущий)
anton
@@ Строка 2: / Строка 2: @@
 === Как просмотреть структуру таблиц информационной базы? ===
-[[http://v8.1c.ru/metod/faq2/answer.jsp?id=493
-]Оригинальная информация на ИТС]
+[[http://v8.1c.ru/metod/faq2/answer.jsp?id=493|Оригинальная информация на ИТС]]
+Тест модуля формы обработки на обычных формах
+<code>
+Процедура КнопкаВыполнитьНажатие(Кнопка)
+	МассивИменМетаданных = Новый Массив();
+	ТекстовыйДокумент = ПолучитьСтруктуруТаблицНаСервере(МассивИменМетаданных);
+	ТекстовыйДокумент.Показать("Структура хранения базы данных");
+КонецПроцедуры
+Функция ПолучитьСтруктуруТаблицНаСервере(МассивИменМетаданных)
+	ТекстовыйДокумент = Новый ТекстовыйДокумент;
+	// Таблица значений, содержащая таблицы указанного объекта
+	Таблицы = ПолучитьСтруктуруХраненияБазыДанных(МассивИменМетаданных);
+	Для Каждого Таблица Из Таблицы Цикл
+		ТекстовыйДокумент.ДобавитьСтроку("");
+		ТекстовыйДокумент.ДобавитьСтроку("Таблица: " + Таблица.ИмяТаблицы +
+		                                 ", Имя таблицы хранения: " + Таблица.ИмяТаблицыХранения +
+		                                 ", Назначение: " + Таблица.Назначение);
+		ТекстовыйДокумент.ДобавитьСтроку("- поля: ");
+		ПоляТаблицы = Таблица.Поля;
+		Для Каждого Поле Из ПоляТаблицы Цикл
+			ТекстовыйДокумент.ДобавитьСтроку("   " + Поле.ИмяПоля +
+			" (" + Поле.ИмяПоляХранения + ")");
+		КонецЦикла;
+		ТекстовыйДокумент.ДобавитьСтроку("- индексы: ");
+		ИндексыТаблицы = Таблица.Индексы;
+		Для Каждого Индекс Из ИндексыТаблицы Цикл
+			ТекстовыйДокумент.ДобавитьСтроку("   " + Индекс.ИмяИндексаХранения);
+			СтрокаИндекса = "";
+			СтрокаХраненияИндекса = "";
+			ПоляИндекса = Индекс.Поля;
+			Для Каждого ПолеИндекса Из ПоляИндекса Цикл
+				Если СтрокаИндекса <> "" Тогда
+					СтрокаИндекса = СтрокаИндекса + " + ";
+				КонецЕсли;
+				СтрокаИндекса = СтрокаИндекса + ПолеИндекса.ИмяПоля;
+				Если СтрокаХраненияИндекса <> "" Тогда
+					СтрокаХраненияИндекса = СтрокаХраненияИндекса + " + ";
+				КонецЕсли;
+				СтрокаХраненияИндекса = СтрокаХраненияИндекса + ПолеИндекса.ИмяПоляХранения;
+			КонецЦикла;
+			ТекстовыйДокумент.ДобавитьСтроку("      " + СтрокаИндекса +
+			" (" + СтрокаХраненияИндекса + ")");
+		КонецЦикла;
+	КонецЦикла;
+	Возврат ТекстовыйДокумент;
+КонецФункции
+</code>