// Пример 1

Для к = 1 по Метаданные.РеквизитПроводки()

    Сообщить(Метаданные.РеквизитПроводки(к).Идентификатор);

КонецЦикла;

  // Пример 2

СписокРеквизитов    = СоздатьОбъект("СписокЗначений");

// реквизиты формы операции   

СписокРеквизитов.ДобавитьЗначение("ДатаОперации");

СписокРеквизитов.ДобавитьЗначение("НомерДок");

СписокРеквизитов.ДобавитьЗначение("СуммаОперации");

СписокРеквизитов.ДобавитьЗначение("Содержание");



// Дополнительные реквизиты операции

Для М1    = 1 По Метаданные.РеквизитОперации() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.РеквизитОперации(М1).Идентификатор);

КонецЦикла;



// Общие реквизиты документов

Для М1    = 1 По Метаданные.ОбщийРеквизитДокумента() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.ОбщийРеквизитДокумента(М1).Идентификатор);

КонецЦикла;  



СписокРеквизитов.ДобавитьЗначение("НомерПроводки");

СписокРеквизитов.ДобавитьЗначение("ПланСчетов");

СписокРеквизитов.ДобавитьЗначение("СчетДт");

СписокРеквизитов.ДобавитьЗначение("СчетКт");

СписокРеквизитов.ДобавитьЗначение("Субконто");

СписокРеквизитов.ДобавитьЗначение("СубконтоДт");

СписокРеквизитов.ДобавитьЗначение("СубконтоКт");



Для М1    = 1 По Метаданные.МаксимальноеКоличествоСубконто Цикл

    СписокРеквизитов.ДобавитьЗначение("Субконто"    + М1);

    СписокРеквизитов.ДобавитьЗначение("СубконтоКт"    + М1);

    СписокРеквизитов.ДобавитьЗначение("СубконтоДт"    + М1);

КонецЦикла; 





СписокРеквизитов.ДобавитьЗначение("Валюта");

СписокРеквизитов.ДобавитьЗначение("Курс");

СписокРеквизитов.ДобавитьЗначение("Количество");

СписокРеквизитов.ДобавитьЗначение("ВалСумма");

СписокРеквизитов.ДобавитьЗначение("Сумма");

СписокРеквизитов.ДобавитьЗначение("НомерСтроки");



// Дополнительные реквизиты проводки

Для М1    = 1 По Метаданные.РеквизитПроводки() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.РеквизитПроводки(М1).Идентификатор);

КонецЦикла;



// журнал операций

СписокРеквизитов.ДобавитьЗначение("ВидДок");

СписокРеквизитов.ДобавитьЗначение("ВремяОперации");



// Дополнительные графы журнала операций

Для М1    = 1 По Метаданные.ГрафаЖурналаОпераций() Цикл

    СписокРеквизитов.ДобавитьЗначение(Метаданные.ГрафаЖурналаОпераций(М1).Идентификатор);

КонецЦикла;

 ПроверитьЗаполнение()    

 &НаКлиенте

Процедура СформироватьБезСКД(Команда)

        // Проверим заполнение обязательных реквизитов

	Если Не ПроверитьЗаполнение() Тогда  	

		Возврат;                         	

	КонецЕсли;     	

	СформироватьСервер();		

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

 Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты) 

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

 Процедура ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)



  Клиент = ПроверяемыеРеквизиты.Найти("Контрагент");



  Если Клиент<>Неопределено тогда



   ПроверяемыеРеквизиты.Удалить(Клиент);



  конецесли;



  ПроверяемыеРеквизиты.Добавить("Склад");



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

 ПроверяемыеРеквизиты.Очистить();



Если Контрагент.ПометкаУдаления Тогда



  Отказ = Истина;



  Сообщение = Новый СообщениеПользователю;



  Сообщение.Текст = "Нельзя указывать контрагента, помеченного на удаление!";



  Сообщение.Поле = "Контрагент";



  Сообщение.УстановитьДанные(ЭтотОбъект);



  Сообщение.Сообщить();





КонецЕсли; 



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

 &НаКлиенте



Процедура Проверить(Команда)



  ПроверитьНаСервере();



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





&НаСервере



Процедура ПроверитьНаСервере()



  Документ = РеквизитФормыВЗначение("Объект");



  Документ.ПроверитьЗаполнение(); 



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

  //СписокРеквизитов - список значений. Элемент списка значений - имена реквизитов для проверки через запятую. 

//Если представление заполнено - считается, что передаются реквизиты табличной части.  Пример:

СписокРеквизитовДляПроверки=Новый СписокЗначений;

СписокРеквизитовДляПроверки.Добавить("Контрагент,МестоХранения,ВидОперации");

СписокРеквизитовДляПроверки.Добавить("Номенклатура,Единица,Цена,Количество","ПолнаяТаблица");

СписокРеквизитовДляПроверки.Добавить("ВидОтклонений,Номенклатура,Единица,Серия,Цена,Количество","ТаблицаОтклонений");

        

Если Не глРеквизитыОбъектаЗаполнены(Источник,СписокРеквизитовДляПроверки) Тогда

     Отказ=Истина;

     Возврат;

КонецЕсли;



Функция глРеквизитыОбъектаЗаполнены(Объект,СписокРеквизитов) Экспорт

    МетаданныеОбъекта=Объект.Метаданные();

    МетаданныеТабличныеЧасти=МетаданныеОбъекта.ТабличныеЧасти;

    

    РеквизитыЗаполнены=Истина;

    

    СтрокаДляВыполнения="";

    

    Для каждого НаборРеквизитов Из СписокРеквизитов Цикл

        НаименованиеТаблицы=НаборРеквизитов.Представление;

        РеквизитыДляПроверки=СтрЗаменить(НаборРеквизитов.Значение,",",Символы.ПС);

        

        ДлинаСпискаРеквизитов=СтрЧислоСтрок(РеквизитыДляПроверки);

        

        Если НаименованиеТаблицы<>"" Тогда

            МетаданныеТаблица=МетаданныеТабличныеЧасти[НаименованиеТаблицы];

            МетаданныеРевизитыТаблицы=МетаданныеТаблица.Реквизиты;

            

            ТаблицаОбъекта=Объект[НаименованиеТаблицы];

            

            Для СчетчикСтрокРевизитов=1 По ДлинаСпискаРеквизитов Цикл

                ИдентРеквизита=СтрПолучитьСтроку(РеквизитыДляПроверки,СчетчикСтрокРевизитов);

                

                МетаданныеРеквизит=МетаданныеРевизитыТаблицы[ИдентРеквизита];

                ОписаниеТиповРеквизита=МетаданныеРеквизит.Тип;

                ТипыЗначенийРеквизита=ОписаниеТиповРеквизита.Типы();

                

                СтрокаПоиска=ТаблицаОбъекта.Найти(глПолучитьПустоеЗначениеТипа(ТипыЗначенийРеквизита[0]),ИдентРеквизита);

                Если СтрокаПоиска=Неопределено Тогда

                    Продолжить;

                КонецЕсли; 

                

                Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+МетаданныеРеквизит.Синоним+""" Табличная часть строка "+СтрокаПоиска.НомерСтроки);

            КонецЦикла;

        Иначе

            Для СчетчикСтрокРевизитов=1 По ДлинаСпискаРеквизитов Цикл

                ИдентРеквизита=СтрПолучитьСтроку(РеквизитыДляПроверки,СчетчикСтрокРевизитов);

                

                Если Не ЗначениеЗаполнено(Объект[ИдентРеквизита]) Тогда

                    МетаданныеРевизитыШапки=МетаданныеОбъекта.Реквизиты;

                    Попытка

                        Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+МетаданныеРевизитыШапки[ИдентРеквизита].Синоним+"""");

                    Исключение

                        Возврат глВозвратЛожьССообщением("Не заполнен реквизит """+ИдентРеквизита+"""");

                    КонецПопытки; 

                КонецЕсли;

            КонецЦикла;

        КонецЕсли; 

    КонецЦикла; 

    

    Возврат Истина;

КонецФункции   

 // Ярослав Волохов aka YVolohov

// Функция проверяет заполнение шапки или табличной части справочника, документа или плана, бизнес-процесса, задачи

// Параметры:

// пИмяТаблицы (строка) - имя табличной части объекта, если не указано то будет проверятся шапка объекта

// пИменаПолей (массив строк) - имена проверяемых реквизитов объекта

// пВыводитьСообщения - если это свойство установлено в "Истина" то будут выводится сообщения в табло о

//     незаполненных реквизитах таблицы, если не установлено - то не будут

// пСсылка (ссылка) - ссылка на элемент справочника или плана, документ, по которому будет произведена проверка

// Возвращаемое значение:

// Истина - если все реквизиты найдены и заполнены

// Ложь - если хоть один реквизит не заполнен, табличная часть не найдена

// или хоть один реквизит не найден



Функция ПроверитьЗаполнениеТаблицыОбъекта(пИмяТаблицы = Неопределено,

    пИменаПолей, пВыводитьСообщения = Истина, пСсылка) Экспорт



    МассивСообщений   = Новый Массив;

    ЗначениеВозврата  = Истина;

    МетаданныеОбъекта = пСсылка.Метаданные();



    Если НЕ(пИмяТаблицы = Неопределено) Тогда

        МетаданныеТаблицы = МетаданныеОбъекта.ТабличныеЧасти.Найти(пИмяТаблицы);

    Иначе

        МетаданныеТаблицы = МетаданныеОбъекта;

    КонецЕсли;



    // Проверка существования табличной части

    Если НЕ(МетаданныеТаблицы = Неопределено) Тогда



        МассивМетаданныхРеквизитов  = Новый Массив;

        МетаданныеРеквизитов        = МетаданныеТаблицы.Реквизиты;



        // Проверка существования полей

        Для Каждого ИмяПоля Из пИменаПолей Цикл



            МетаданныеРеквизита = МетаданныеРеквизитов.Найти(ИмяПоля);



            Если НЕ(МетаданныеРеквизита = Неопределено) Тогда

                МассивМетаданныхРеквизитов.Добавить(МетаданныеРеквизита);

            Иначе



                Если пИмяТаблицы = Неопределено Тогда

                    МассивСообщений.Добавить("Реквизит шапки с именем '" + ИмяПоля + "' не найден !!!");

                Иначе

                    МассивСообщений.Добавить("Реквизит табличной части '" + пИмяТаблицы + "' с именем '" +

                    ИмяПоля + "' не найден !!!");

                КонецЕсли;



                ЗначениеВозврата = Ложь;

            КонецЕсли;



        КонецЦикла;



        // Проверка заполнения полей

        КоличествоСтрокТаблицы = ?(НЕ(пИмяТаблицы = Неопределено), пСсылка[пИмяТаблицы].Количество(), 1);

        КоличествоСтрокТаблицы = ?(МассивМетаданныхРеквизитов.Количество() > 0, КоличествоСтрокТаблицы, 0);



        // Обход строк таблицы

        Для НомерСтрокиТаблицы = 1 По КоличествоСтрокТаблицы Цикл



            СтрокаТаблицы = ?(НЕ(пИмяТаблицы = Неопределено),

            пСсылка[пИмяТаблицы].Получить(НомерСтрокиТаблицы - 1), пСсылка);



            // Обход списка проверяемых реквизитов

            Для Каждого ЭлементМетаданныхРеквизитов Из МассивМетаданныхРеквизитов Цикл



                // Получение значения ячейки и проверка ее заполнения

                ЗначениеЯчейкиТЧ = СтрокаТаблицы[ЭлементМетаданныхРеквизитов.Имя];

                ЯчейкаПустая     = НЕ(ЗначениеЗаполнено(ЗначениеЯчейкиТЧ));



                // Если значение пустое, добавляем сообщение в массив сообщений

                Если ЯчейкаПустая Тогда



                    Если пИмяТаблицы = Неопределено Тогда

                        МассивСообщений.Добавить("Реквизит шапки с именем '" + ЭлементМетаданныхРеквизитов.Имя + "' не заполнен !!!");

                    Иначе

                        МассивСообщений.Добавить("В строке № " + НомерСтрокиТаблицы + " табличной части '" +

                        пИмяТаблицы + "' не заполнен реквизит с именем '" + ЭлементМетаданныхРеквизитов.Имя + "' !!!");

                    КонецЕсли;



                    ЗначениеВозврата = Ложь;



                КонецЕсли;



            КонецЦикла;



        КонецЦикла;



    Иначе

        МассивСообщений.Добавить("Табличная часть с именем '" + пИмяТаблицы + "' не найдена !!!");

        ЗначениеВозврата = Ложь;

    КонецЕсли;



    // Здесь выводим все сообщения

    Если пВыводитьСообщения Тогда



        Для Каждого ТекстСообщения Из МассивСообщений Цикл

            Сообщить(ТекстСообщения, СтатусСообщения.Важное);

        КонецЦикла;



    КонецЕсли;



    Возврат ЗначениеВозврата;



КонецФункции   

 //Перебор Основных Реквизитов формы

	Для Каждого Рек из ЭтаФорма.Метаданные().Реквизиты Цикл

		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));

	КонецЦикла;

	// или так

	Для Каждого Рек из Метаданные().Реквизиты Цикл

		Сообщить(рек.Имя+" - "+рек.Синоним+" - "+Строка(рек.Тип));

	КонецЦикла;

	

	//Реквизиты формы - Надписи, Поля Ввода и т.д

	//можно и через ЭтаФорма.ЭлементыФормы

	Для Каждого Рек из ЭлементыФормы Цикл

		Сообщить(Строка(рек)+" - "+рек.имя);

    КонецЦикла;    

  //функция создаёт список реквизитов документа

Процедура гСписокРеквизитовДокумента(Список,Документ,ФлагПредставление=0) Экспорт

     //Шапка

     Для i=1 По Метаданные.Документ(Документ).РеквизитШапки() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитШапки(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Ш: "+Представление);

     КонецЦикла;

     //Табличная часть

     Для i=1 По Метаданные.Документ(Документ).РеквизитТабличнойЧасти() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитТабличнойЧасти(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Т: "+Представление);

     КонецЦикла;

     //Общие

     Для i=1 По Метаданные.ОбщийРеквизитДокумента() Цикл

          Ж=Метаданные.ОбщийРеквизитДокумента(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"О: "+Представление);

     КонецЦикла;

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

  //ЭлементыФормы.ОбъектПоиска - Поле Выбора на форме

	СписокВыбора = ЭлементыФормы.ОбъектПоиска.СписокВыбора;

	Для Каждого Документ Из Метаданные.Документы Цикл

		//Проверим, есть ли права на просмотр? Да- добавляем, Нет - пропускаем

		Если ПравоДоступа("Просмотр", Документ) Тогда

			ИмяДокумента = Документ.Синоним;

			Если ИмяДокумента = "" Тогда

				ИмяДокумента = Документ.Имя;

			КонецЕсли;

			Структура = Новый Структура;

			Структура.Вставить("Тип", "Документ");

			Структура.Вставить("Объект", Документ);

			СписокВыбора.Добавить(Структура, ИмяДокумента, ,ЭлементыФормы.КартинкаДокумента.Картинка);

		КонецЕсли;

	КонецЦикла;    

 //Выведем список всех документов в окно сообщений

	Для Индекс=1 По Метаданные.Документ() Цикл

		Значение = Метаданные.Документ(Индекс).Идентификатор;

		Представление = Метаданные.Документ(Индекс).Представление();

		Комментарий = Метаданные.Документ(Индекс).Комментарий;

		Сообщить(значение+"  "+Представление+"  "+Комментарий);

	КонецЦикла;

    // Выведем Список документов, ФормРегистр - Поле со списком на форме

	ФормРегистр.УдалитьВсе();

	Для ъ=1 По Метаданные.Регистр() Цикл

		ФормРегистр.ДобавитьЗначение(Метаданные.Регистр(ъ).Идентификатор, Метаданные.Регистр(ъ).Представление());

	КонецЦикла;

	Если ФормРегистр.РазмерСписка()>0 Тогда

		ФормРегистр.ТекущаяСтрока(1);

	КонецЕсли;

	

	//функция создаёт список реквизитов документа

Процедура гСписокРеквизитовДокумента(Список,Документ,ФлагПредставление=0) Экспорт

     //шапка

     Для i=1 По Метаданные.Документ(Документ).РеквизитШапки() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитШапки(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Ш: "+Представление);

     КонецЦикла;

     //многострочка

     Для i=1 По Метаданные.Документ(Документ).РеквизитТабличнойЧасти() Цикл

          Ж=Метаданные.Документ(Документ).РеквизитТабличнойЧасти(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"Т: "+Представление);

     КонецЦикла;

     //общий

     Для i=1 По Метаданные.ОбщийРеквизитДокумента() Цикл

          Ж=Метаданные.ОбщийРеквизитДокумента(i);

          Если ФлагПредставление=0 Тогда

               Представление=Ж.Идентификатор;

          Иначе

               Представление=Ж.Представление();

          КонецЕсли;

          Список.ДобавитьЗначение(Ж.Идентификатор,"О: "+Представление);

     КонецЦикла;

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