Пример кода конфигурации Учет компьютеров

 Печать E-mail
//----------------------------------------------------------------------------
//    Сравнивает все реквизиты кроме периодических
Функция глЭлементыИдентичны(пЭлемент1, пЭлемент2) Экспорт
    Если пЭлемент1<>пЭлемент2 Тогда Возврат 0; КонецЕсли;
    Если пЭлемент1.Код<>пЭлемент2.Код Тогда Возврат 0; КонецЕсли;
    Если пЭлемент1.Наименование<>пЭлемент2.Наименование Тогда Возврат 0; КонецЕсли;
    
    лМетаСправочник=Метаданные.Справочник(пЭлемент2.Вид());
    Для лИнд=1 По лМетаСправочник.Реквизит() Цикл
        Если лМетаСправочник.Реквизит(лИнд).Периодический=1 Тогда Продолжить; КонецЕсли;
        лИдРеквизита=лМетаСправочник.Реквизит(лИнд).Идентификатор;
        Если пЭлемент1.ПолучитьАтрибут(лИдРеквизита)<>пЭлемент2.ПолучитьАтрибут(лИдРеквизита) Тогда Возврат 0; КонецЕсли;
    КонецЦикла;
    Возврат 1;
КонецФункции
 
Вернуться

Нас выбрали:

Другие клиентыНаши партнеры