1С 8.3 Как программно получить основную организацию

Данные > Примеры кода 1С > 1С 8.3 Типовые (БП3, ЗУП, УТ)

ПРИМЕРЫ КОДА 1С

Перейти в раздел примеры кода 1С 8.3:

1С 8.3 Типовые

Программно получить по умолчанию осн.организацию в 1С 8.3 Бухгалтерия предприятия:

Процедура ПолучитьОсновнаяОрганизация() Экспорт

         ОсновнаяОрганизация = БухгалтерскийУчетПереопределяемый.ПолучитьЗначениеПоУмолчанию("ОсновнаяОрганизация");
         //ОсновнаяОрганизация = Справочники.Организации.ОрганизацияПоУмолчанию(Пользователь);
         //ОсновнаяОрганизация = глЗначениеПеременной("ОсновнаяОрганизация");

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

Функция ПолучитьОсновнаяОрганизация() Экспорт

         ОсновнаяОрганизация = Справочники.Организации.ПустаяСсылка();

         Запрос = Новый Запрос;
         Запрос.Текст =
        "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 2
        |    Организации.Ссылка КАК Организация
        |ИЗ
        |    Справочник.Организации КАК Организации
        |ГДЕ
        |    НЕ Организации.ПометкаУдаления
        |    И НЕ Организации.Предопределенный";

         Выборка = Запрос.Выполнить().Выбрать();
         Если Выборка.Следующий() И Выборка.Количество() = 1 Тогда
             ОсновнаяОрганизация = Выборка.Организация;
         КонецЕсли;

         Возврат ОсновнаяОрганизация;

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

комментарии

____________________

Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник