"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(Соединение); КонецЦикла;