База данных - Инструменты администратора БД
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование | По подписке [?] | Купить один файл | |
|---|---|---|---|
|
Получение данных о компьютере
.epf 6,89Kb
115
|
115 | Скачать (1 SM) | Купить за 1 850 руб. |
При удаленном работе с пользователями (например через R-admin), для подключения к компьютеру необходимо что бы пользователь сообщил свой IP. Можно, конечно, вытянуть эту информацию и стандартными способами, но порой сложно объяснить бухгалтеру как это сделать. Данная обработка позволяет нажатием кнопки получить нужные сведения в режиме 1С.
Кроме того, ее можно рассматривать как пример работы с wscript.network
Инструментарий разработчика Чистка данных Свертка базы Инструменты администратора БД Системный администратор Программист Руководитель проекта Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 Россия Платные (руб)
Инструмент представляет собой обработку для проведения свёртки или обрезки баз данных. Работает на ЛЮБЫХ конфигурациях (УТ, БП, ERP, УНФ, КА и т.д.). Поддерживаются серверные и файловые базы, управляемые и обычные формы. Может выполнять свертку одновременно в несколько потоков. А так же автоматически, без непосредственного участия пользователя. Решение в Реестре отечественного ПО
8400 руб.
20.08.2024 21194 140 80
Инструменты администратора БД Инструментарий разработчика Роли и права Программист Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)
Расширение позволяет без изменения кода конфигурации выполнять проверки при вводе данных, скрывать от пользователя недоступные ему данные, выполнять код в обработчиках. Не изменяет данные конфигурации, легко устанавливается практически на любую конфигурацию на управляемых формах.
15000 руб.
10.11.2023 13110 55 33
Инструменты администратора БД Роли и права Системный администратор Программист Пользователь 8.3.14 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Документооборот 1С:Зарплата и кадры государственного учреждения 3 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)
Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 18.09.2024, версия 1.2
18000 руб.
06.12.2023 11949 52 8
SALE! %
Инструментарий разработчика Инструменты администратора БД Системный администратор Программист Платформа 1С v8.3 Управляемые формы 1C:ERP 1С:УТ 1С:ДО 1С:Бухгалтерия 3.0 1С:ERP. Управление холдингом 1С:Зарплата и Управление Персоналом 3.x 1С:Управление нашей фирмой 3.0 1С:Управление торговлей 11 Россия Платные (руб)
Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.
4800
3840 руб.
14.01.2013 193782 1160 0
Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтер Пользователь Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)
Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).
14400 руб.
29.04.2020 34728 109 152
Архивирование (backup) Инструменты администратора БД Платформа 1С v8.3 Управляемые формы 1C:Бухгалтерия 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:Управление торговлей 11 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Платные (руб)
Данная разработка позволит решить вопрос с резервным копированием Ваших баз в автоматическом режиме, расположенных на сервере 1С. Система умеет ставить блокировки на вход, блокировать фоновые задания, принудительно отключать сеансы пользователей. И все это система делает в автоматически при создании бэкапа (или через команду). Выгрузка происходит в родной формат 1С - .dt. Так же система умеет архивировать данные выгрузки с установкой пароля. Умеет менять расширение файла zip или dt на любое указанное вами, что позволит сохранить выгрузки от шифровальщика. Может удалять старые копии выгрузок, оставляя указанное количество резервных копий, начиная с самой поздней. Только для WINDOWS!
6000 руб.
06.11.2012 74409 630 45
Инструменты администратора БД Пользователь Платформа 1С v8.3 1С:ERP Управление предприятием 2 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Платные (руб)
Многие сталкиваются с проблемой когда изображения, находящиеся в базе разные по объему и размерам. Менеджеры могут добавить файлы в очень высоком разрешении, объемом свыше 20 Мегабайт. База данных становится слишком большой, выгрузка на сайт идёт медленно и требуется много место на хостинге. Как сжать картинки и уменьшить размер базы 1С? Это можно сделать с помощью данной обработки. Существует возможность выбрать различные варианты для того чтобы уменьшить картинки: в разы, в процентах от первоначального объема, а также сделать картинки одинаковой ширины. В результате размер базы 1С значительно сократится (в зависимости от количества и размера картинок), а изображения станут небольшого объема, равными по ширине, почти без потери качества. Работает на управляемых формах для УТ 11, КА, ERP.
3000 руб.
21.07.2022 10482 10 4
Инструменты администратора БД Программист Бухгалтер Платформа 1С v8.3 Управляемые формы 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 Платные (руб)
В процессе работы возникла необходимость управления последовательностями в разрезе измерений. Штатные возможности не позволяют этого сделать. Но бывает очень необходимо восстановить последовательность только по одному измерению (например, подразделению, организации и т.д.). (Возможность покупки за рубли и StartMoney).
2400 руб.
24.08.2018 17582 11 0
// Host,Mac,User,IP
// Для локального компьютера IP_Host = "."
Функция ПолучитьСетевыеПараметры(IP_Host) Экспорт
Попытка
Структура = Новый Структура("Host,Mac,User,IP");
ServicesSet = GetComObject("winmgmts:{impersonationLevel=impersonate}!\\" + СокрЛП(IP_Host) + "\root\cimv2");
// Host, UserName
Items = ServicesSet.ExecQuery("SELECT UserName,Name FROM Win32_ComputerSystem");
Для каждого Item Из Items Цикл
Структура.Host = СокрЛП(Item["Name"]);
Структура.User = СокрЛП(Item["UserName"]);
Прервать;
КонецЦикла;
Если ПустаяСтрока(Структура.Host) Тогда
Возврат Неопределено;
КонецЕсли;
// MACAddress
Items = ServicesSet.ExecQuery("SELECT MACAddress FROM Win32_NetworkAdapter WHERE NetConnectionStatus=2");
Для каждого Item Из Items Цикл
Если СокрЛП(Item["MACAddress"]) <> "" Тогда
Структура.Mac = СокрЛП(Item["MACAddress"]);
Прервать;
КонецЕсли;
КонецЦикла;
// IPAddress
Items = ServicesSet.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress='" + Структура.Mac + "'");
Для Каждого objItem Из Items Цикл
Если ТипЗнч(objItem.IPAddress) = Тип("COMSafeArray") Тогда
Для Каждого Элем Из objItem.IPAddress Цикл
Структура.IP = Элем;
Прервать;
КонецЦикла;
КонецЕсли;
КонецЦикла;
Возврат Структура;
Исключение
Возврат Неопределено;
КонецПопытки;
КонецФункции // ПолучитьСетевыеПараметры()
ПоказатьПроцедура Получить_network()
WSH = Новый COMobject("wscript.network");
ИмяКомпьютера = WSH.ComputerName;
ИмяПользователя = WSH.UserName;
ДоминПользователя = WSH.UserDomain;
КонецПроцедуры
Процедура Получить_ip()
IP = "";
MACAddress = Неопределено;
ИПАдрес = "";
ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
MyItems = ServicesSet.ExecQuery("Sel ect * Fr om Win32_NetworkAdapterConfiguration Where IPEnabled = True");
Для Каждого MyItem Из MyItems Цикл
MACAddress = MyItem.MACAddress;
Если ЗначениеЗаполнено(MACAddress) Тогда
IPAddress = Неопределено;
Для Каждого IPAddress Из MyItem.IPAddress Цикл
Если ЗначениеЗаполнено(IPAddress) Тогда
IP = IPAddress;
прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
Процедура КнопкаВыполнитьНажатие(Кнопка)
// Вставить содержимое обработчика.
Получить_network();
Получить_ip();
КонецПроцедуры Показатьvar wbemFlagReturnImmediately = 0x10;
var wbemFlagForwardOnly = 0x20;
var arrComputers = new Array("LOCALHOST");
for (i = 0; i < arrComputers.length; i++) {
WScript.Echo();
WScript.Echo("==========================================");
WScript.Echo("Computer: " + arrComputers[i]);
WScript.Echo("==========================================");
var objWMIService = GetObject("winmgmts:\\\\" + arrComputers[i] + "\\root\\CIMV2");
var colItems = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterSetting", "WQL",
wbemFlagReturnImmediately | wbemFlagForwardOnly);
var enumItems = new Enumerator(colItems);
for (; !enumItems.atEnd(); enumItems.moveNext()) {
var objItem = enumItems.item();
WScript.Echo("Element: " + objItem.Element);
WScript.Echo("Setting: " + objItem.Setting);
}
} Показать&НаСервере
Процедура ПолучитьНаСервере()
Обб=РеквизитФормыВЗначение("Объект");
Обб.Получить_network();
Обб.Получить_ip();
ЗначениеВРеквизитФормы(Обб,"Объект");
КонецПроцедуры
&НаКлиенте
Процедура Получить(Команда)
ПолучитьНаСервере();
КонецПроцедуры
&НаКлиенте
Процедура Получить_network_Client()
WSH = Новый COMobject("wscript.network");
Объект.ИмяКомпьютера = WSH.ComputerName;
Объект.ИмяПользователя = WSH.UserName;
Объект.ДоминПользователя = WSH.UserDomain;;
КонецПроцедуры
&НаКлиенте
Процедура Получить_ip_Client()
Объект.IP = "";
MACAddress = Неопределено;
ИПАдрес = "";
ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
MyItems = ServicesSet.ExecQuery("Sel ect * Fr om Win32_NetworkAdapterConfiguration Where IPEnabled = True");
Для Каждого MyItem Из MyItems Цикл
MACAddress = MyItem.MACAddress;
Если ЗначениеЗаполнено(MACAddress) Тогда
IPAddress = Неопределено;
Для Каждого IPAddress Из MyItem.IPAddress Цикл
Если ЗначениеЗаполнено(IPAddress) Тогда
Объект.IP = IPAddress;
прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ПолучитьДанныеКомпьютера(Команда)
Получить_network_Client();
Получить_ip_Client();
КонецПроцедуры
В модуле объекта (на сервере):
Процедура Получить_network() Экспорт
WSH = Новый COMobject("wscript.network");
ИмяКомпьютера = WSH.ComputerName;
ИмяПользователя = WSH.UserName;
ДоминПользователя = WSH.UserDomain;
КонецПроцедуры
Процедура Получить_ip()Экспорт
IP = "";
MACAddress = Неопределено;
ИПАдрес = "";
ServicesSet = ПолучитьCOMОбъект("winmgmts:\\localhost\root\cimv2");
MyItems = ServicesSet.ExecQuery("Select * Fr om Win32_NetworkAdapterConfiguration Wh ere IPEnabled = True");
Для Каждого MyItem Из MyItems Цикл
MACAddress = MyItem.MACAddress;
Если ЗначениеЗаполнено(MACAddress) Тогда
IPAddress = Неопределено;
Для Каждого IPAddress Из MyItem.IPAddress Цикл
Если ЗначениеЗаполнено(IPAddress) Тогда
IP = IPAddress;
прервать;
КонецЕсли;
КонецЦикла;
КонецЕсли;
КонецЦикла;
КонецПроцедуры ПоказатьДля получения уведомлений о новых публикациях автора подключите телеграм бот: Инфостарт бот
№ 105590
Создание 24.01.12 09:30
Обновление 24.01.12 11:23
Просмотры 20679
Загрузки 115
Рейтинг
21
Комментарии 42
Код открыт Не указано
Рубрики Инструменты администратора БД
Тип файла Внешняя обработка (ert,epf)
Платформа Платформа 1С v8.3
Конфигурация 1C:Бухгалтерия
Операционная система Не имеет значения
Страна Россия
Отрасль Не имеет значения
Налоги Не имеет значения
Вид учета Не имеет значения
Доступ к файлу Абонемент ($m)
