19. Администрирование

Запуск 1С:Предприятия из командной строки

Как запустить 1С:Предприятие из командной строки?

"C:\Program Files\1cv8\bin\1cv8.exe" ENTERPRISE /F D:\Конфигурации\Типовые\УпрТорг /N ИмяПользователя /P Пароль

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F D:\Конфигурации\Типовые\УпрТорг /N ИмяПользователя /P Пароль

"C:\Program Files\1cv8\bin\1cv8.exe" ENTERPRISE /S Сервер\База /N ИмяПользователя /P Пароль

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /S Сервер\База /N ИмяПользователя /P Пароль

Как из командной строки заставить 1С:Предприятие сделать выгрузку базы данных?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F D:\Конфигурации\Типовые\УпрТорг /N ИмяПользователя /P Пароль /DumpIB c:\имя.dt

Как из командной строки обновить изменения текущей конфигурации в конфигурации базы данных?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F D:\Конфигурации\Типовые\УпрТорг /N ИмяПользователя /P Пароль /UpdateDBCfg

Как выполнить тестирование и исправление информационной базы без проверки ссылочной целостности в автоматическом режиме?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\Documents and Settings\user\My Documents\1C\DemoTrd2" /N"Федоров (администратор)" /P"" /IBcheckAndRepair -LogIntegrity

Как выполнить проверку конфигурации в автоматическом режиме с выводом результатов проверки в файл?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\Documents and Settings\user\My Documents\1C\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /CheckConfig -ClientServer -Client -ExternalConnectionServer -ExternalConnection -Server -DistributiveModules -IncorrectReferences -ConfigLogicalIntegrity -UnreferenceProcedures -HandlersExistence -EmptyHandlers

Как сократить журнал регистрации программно?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\Documents and Settings\user\My Documents\1C\DemoTrd2" /N"Федоров (администратор)" /P"" /OutD:\my\log.txt /ReduceEventLogSize 2004-12-26 -saveAsC:\OldLog.elf

Как выгрузить модули прикладного решения в виде текстовых файлов из командной строки?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\Documents and Settings\user\My Documents\1C\DemoTrd2" /N"Федоров (администратор)" /P"" /DumpConfigFiles "D:\1\11" -Module

Как загрузить в прикладное решение файлы справки, сохраненные в формате htm?

"C:\Program Files\1cv8\bin\1cv8.exe" CONFIG /F"C:\Documents and Settings\user\My Documents\1C\DemoTrd2" /N"Федоров (администратор)" /P"" /LoadConfigFiles "D:\1\11" -Help

Разное

Как поменять значение рабочей даты?

Если ИспользованиеРабочейДаты = РежимРабочейДаты.Назначать Тогда РабочаяДата = УстанавливаемаяДата; Иначе Сообщить("Рабочая дата не будет сменена. |Необходимо сначала в меню Сервис-Параметры-Общая |снять флажок - Использовать текущую дату компьютера ") КонецЕсли;

Как установить/снять монопольный режим?

Попытка УстановитьМонопольныйРежим(Истина); Исключение Предупреждение("К базе подключены пользователи. Монопольный режим установить невозможно!", 7); КонецПопытки; Если МонопольныйРежим() Тогда Сообщить("Монопольный режим установлен"); КонецЕсли; УстановитьМонопольныйРежим(Ложь);

Как внести запись в журнал регистрации?

ЗаписьЖурналаРегистрации("ОтчетныеДанные.Просмотр", УровеньЖурналаРегистрации.Информация, Метаданные(), ДатаКон,);

Как получить данные о зарегистрированных пользователях информационной базы?

Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); Для Каждого ЭлементМассива Из Выборка Цикл ИмяПользователя = ЭлементМассива.Имя; ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; ЕстьПароль = ЭлементМассива.ПарольУстановлен; Роли = ЭлементМассива.Роли; Для Каждого Роль Из Роли Цикл ИмяРоли = Роль.Имя; КонецЦикла; КонецЦикла;

Как определить общую системную информацию?

Инфо = Новый СистемнаяИнформация; Текст = "Версия 1С:Предприятия 8.0: " + Инфо.ВерсияПриложения; Текст = Текст + Символы.ПС + "Конфигурация: " + Метаданные.Синоним; Текст = Текст + Символы.ПС + "Поставщик: " + Метаданные.Поставщик; Текст = Текст + Символы.ПС + "Операционная система: " + Инфо.ВерсияОС; Текст = Текст + Символы.ПС + "Оперативная память (МБ): " + Инфо.ОперативнаяПамять; Текст = Текст + Символы.ПС + "Процессор: " + Инфо.Процессор; Предупреждение(Текст, , "ДАННЫЕ ТЕКУЩЕГО КОМПЬЮТЕРА И КОНФИГУРАЦИИ");

Как программно добавить пользователя в информационную базу?

НовыйПользователь = ПользователиИнформационнойБазы.СоздатьПользователя(); НовыйПользователь.Имя = "Имя"; НовыйПользователь.ПолноеИмя = "Фамилия Имя Отчество"; НовыйПользователь.АутентификацияСтандартная = Истина; НовыйПользователь.ОсновнойИнтерфейс = Метаданные.Интерфейсы.Администратор; НовыйПользователь.Пароль = "пароль"; НовыйПользователь.Роли.Добавить(Метаданные.Роли.Администратор); НовыйПользователь.ПоказыватьВСпискеВыбора = Ложь; НовыйПользователь.Язык = Метаданные.Языки.Русский; НовыйПользователь.Записать(); Процедура ЗаписатьНовогоПользователя(НовыйПользователь) Экспорт // Проверить наличие роли Администратор у нового пользователя. РольАдминистратор = Метаданные.Роли.Администратор; Если НовыйПользователь.Роли.Содержит(РольАдминистратор) Тогда Сообщить("Добавление пользователя с административными правами запрещено."); Иначе // у нового пользователя нет роли Администратор // Проверить, что текущий пользователь обладает правами Менеджера // или Администратора Если РольДоступна(РольАдминистратор) ИЛИ РольДоступна(Метаданные.Роли.Менеджер) Тогда // Выполнить запись нового пользователя. НовыйПользователь.Записать(); Иначе Сообщить("Недостаточно прав доступа для добавления пользователя."); КонецЕсли; КонецЕсли; КонецПроцедуры

Как создать собственный лог-файл для записи результатов работы внешней обработки?

ФайлРегистрации = Новый ЗаписьТекста("C:\LogFile.txt", КодировкаТекста.ANSI, , Истина); ФайлРегистрации.Записать("Первое сообщение" + Символы.ПФ); ФайлРегистрации.Записать("Второе сообщение"+ Символы.ПФ); ФайлРегистрации.Закрыть();

Как в форме отобразить список пользователей, которые работают с данной информационной базой?

МассивСоединений = ПолучитьСоединенияИнформационнойБазы(); Колонки = Пользователи.Колонки; Колонки.Добавить("Пользователь", , , 10); Колонки.Добавить("Приложение", , , 10); Колонки.Добавить("НачалоРаботы", , , 10); Колонки.Добавить("Компьютер", , , 10); Колонки.Добавить("Соединение", , , 10); Для Каждого Соединение из МассивСоединений Цикл НоваяСтрока = Пользователи.Добавить(); НоваяСтрока.Компьютер = Соединение.ИмяКомпьютера; НоваяСтрока.Приложение = ПредставлениеПриложения(Соединение.ИмяПриложения); НоваяСтрока.НачалоРаботы = Соединение.НачалоСеанса; НоваяСтрока.Соединение = Соединение.НомерСоединения; НоваяСтрока.Пользователь = Соединение.Пользователь.Имя; КонецЦикла; ЭлементыФормы.Пользователи.СоздатьКолонки();

Как выгрузить журнал регистрации в XML-формате?

ВыгрузитьЖурналРегистрации("C:\log.xml"); Пользователи = ПользователиИнформационнойБазы.ПолучитьПользователей(); Для Каждого Пользователь из Пользователи Цикл НовыйЭлемент = СписокПользователей.Добавить(); НовыйЭлемент.Пометка = Истина; НовыйЭлемент.Значение = Пользователь; НовыйЭлемент.Представление = Пользователь.Имя; КонецЦикла; Массив = Новый Массив; Для Каждого Пользователь Из СписокПользователей Цикл Если Пользователь.Пометка Тогда Массив.Добавить(Пользователь); КонецЕсли; КонецЦикла; СтруктураФильтра = Новый Структура; СтруктураФильтра.Вставить("Пользователь", Массив); ВыгрузитьЖурналРегистрации("C:\log.xml", СтруктураФильтра, "Дата, Пользователь, ПредставлениеСобытия");

Как принудительно завершить работу всех пользователей информационной базы в клиент-серверном варианте работы?

Коннектор = Новый COMОбъект("V8.COMConnector"); Сервер = Коннектор.ConnectServer("TestServer"); // Аутентифицироваться с административными правами в нужной базе. Сервер.AddAuthentication("Администратор",""); // Создать объект нужной информационной базы. ИнформационнаяБаза = Сервер.CreateInfoBaseInfo(); ИнформационнаяБаза.Name = "Test_Base"; // Получить соединения базы. СоединенияБазы = Сервер.GetIBConnections(ИнформационнаяБаза); // Разорвать соединения клиентских приложений. Для Каждого Соединение Из СоединенияБазы Цикл Сервер.Disconnect(Соединение); КонецЦикла;