1С 7.x : Проверка наличия компонент Бухгалтерский, Оперативный Учеты, Расчет

 

// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия

Попытка

     БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие" + РазделительСтрок

                      +"компоненты Бухгалтерский Учет 1С:Предприятия 7.7!"+ РазделительСтрок

                      +"Повторите запуск программы после проверки"+ РазделительСтрок

                      +"состава установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

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



// При старте проверяем наличие компоненты "Оперативный учет" 1С:Предприятия

Попытка

     ТестовыйРегистр = СоздатьОбъект("Регистр.ВидЛюбогоРегистра");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок

                      +"компоненты Оперативный Учет 1С:Предприятия 7.7!"+ РазделительСтрок

                      +"Повторите запуск программы после проверки состава "+ РазделительСтрок

                      +"установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

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



// При старте проверяем наличие компоненты "Расчет" 1С:Предприятия

Попытка

     ЖЗ = СоздатьОбъект("ЖурналРасчетов.ЛюбойВидЖурналаРасчетов");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок

                      +"компоненты Расчет! Повторите запуск программы после проверки"+ РазделительСтрок

                      +"состава установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

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