Месяц: Июнь 2016

При переносе данных с одного компьютера на другой иногда необходимо без запуска 1С узнать список баз, которые отображаются при запуске 1С. Список баз хранится в обычном текстовом файле ibases.v8i. Для каждого пользователя 1С создает свой файл, поэтому необходимо знать имя пользователя, пусть это будет MyUser, пути к файлу указаны ниже:

Версия 1С 8.1

Win XP:
C:\Documents and Settings\MyUser\Application Data\1C\1Cv81\ibases.v8i

Vista, 7, 8:
C:\Users\MyUser\AppData\Roaming\1C\1Cv81t\ibases.v8i

Версия 1С 8.2, 8.3

Win XP:
C:\Documents and Settings\MyUser\Application Data\1C\1CEStart\ibases.v8i

Vista, 7, 8:
C:\Users\MyUser\AppData\Roaming\1C\1CEStart\ibases.v8i

Проверять принадлежность элемента справочника вышестоящему элементу или группе можно двумя способами:
1. Запросом
2. Программно

Допустим надо проверить принадлежность некоторого элемента ПодчиненныйКонтрагент справочника Контрагенты элементу ГлавныйКонтрагент этого же справочника.

Запросом

Наличие хотя бы одной записи в запросе говорит о том, что элемент ПодчиненныйКонтрагент подчинен элементу или группе ГлавныйКонтрагент:

Запрос = новый Запрос(«Выбрать
|Контрагенты.Ссылка
|    из
|Справочник.Контрагенты как Контрагенты
|    где
|Контрагенты.Ссылка в Иерархи(&ГлавныйКонтрагент) и Контрагенты.Ссылка |= &ПодчиненныйКонтрагент»);

Запрос.УстановитьПараметр(«ГлавныйКонтрагент», ГлавныйКонтрагент);
Запрос.УстановитьПараметр(«ПодчиненныйКонтрагент», ПодчиненныйКонтрагент);
Если Запрос.Выполнить().Выбрать().Следующий() тогда
    Сообщить(«Элемент подчинен»);
Иначе
    Сообщить(«Элемент НЕ подчинен»);
КонецЕсли;

Программно

Легче данную операцию сделать программно, для этого используется процедура ПринадлежитЭлементу элемента справочника:

Если ПодчиненныйКонтрагент.ПринадлежитЭлементу(ГлавныйКонтрагент) тогда
    Сообщить(«Элемент подчинен»);
Иначе
    Сообщить(«Элемент НЕ подчинен»);
КонецЕсли;

Примечание:
Выражение ГлавныйКонтрагент.ПринадлежитЭлементу(ГлавныйКонтрагент) вернет ЛОЖЬ.