Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF. Оптимальным решением является установка
Bullzip PDF Printer . После установки в системе появляется виртуальный принтер, с помощью которого можно "печатать" в файл pdf из любого приложения. Программа бесплатная, работает в терминале и имеет поддержку русского языка.
После установки, можно печатать напрямую используя код:
Код 1C v 8.х
Здесь функция
ПолучитьПринтерПоУмолчанию() нужна для того чтобы вернуть печатной форме принтер по умолчанию, т.к. если напечатать без предварительного просмотра то печать пойдет на виртуальный PDF принтер BullzipPDFPrinter.
Код 1C v 8.х //получаем принтер по умолчаниюGet DefaultPrinter()Get DefaultPrinter=vbNullStringGet Object(«»winmgmts:»" _Get DefaultPrinter=objPrinter.NameGet DefaultPrinter»));Печать в PDF используя bioPDF Категория:
Администрирование Подключение к 1С из JavaScript Код //Подключается делает выборку прогоняет по циклу количество записей соответствует истинеget ElementById("message").innerHTML=strdat;
Категория:
COM-объекты, WMI, WSH Функция получения строки с данными из интернета Код 1C v 8.х Функция ПолучитьСИнетаКакСтроку(АдресП) GET ", АдресП, Ложь); Категория:
Работа с Интернет, Почтой (Mail), FTP Перезагрузка сервера 1С:Предприятия Перезагрузка сервера выполняется автоматически, если в течение некоторого времени (обычно 3 минут) к серверу 1С:Предприятия не подсоединен ни один пользователь. Если этого добиться затруднительно, то сервер можно перезагрузить принудительно при помощи утилиты
Start/ Settings/ Control Panel/ Administrative Tools/ Component Services , на том компьютере, на котором установлен сервер 1С:Предприятия. Для этого в ней необходимо найти ветку
Console Root/ Component Services/ Computers/ My Computer/ COM+ Applications/ 1CV8 и выполнить пункт
Shut down ее локального меню.
Перезагрузка сервера может быть выполнена программно. Это можно сделать, например, при помощи следующего кода на встроенном языке 1С:Предприятия 8.0:
Код 1C v 8.х COMPlus = Новый COMОбъект("COMAdmin.COMAdminCatalog");Get Collection("Applications");ВНИМАНИЕ! Если в момент перезагрузки серверного приложения 1CV8 к нему были подсоединены пользователи, то их работа завершится аварийно. При этом какие-то данные могут оказаться не сохраненными.
Категория:
Администрирование Получение списка зарегистрированных на текущем компьютере баз 1С Предприятие 1Cv7 Код 1C v 7.x // Процедура получает из реестра список зарегистрированных ИБ 7.7Get 1CV77Titles()Get Object(""winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv"")Get 1CV77Titles = strInfoGet StringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)Get 1CV77Titles = strInfoGet 1CV77Titles"));
Функция возвращает список значений содержащий список баз установленных на данном компьютаре. В котором в качестве значения указывается путь до базы, а в представлении название базы, так как она отображается в окне выбора баз при запуске 1С. Если баз не обнаруженно то возвращает строку "Error"
Код 1C v 7.x Get ListBase()Get Object(""winmgmts:{impersonationLevel=impersonate}!\\."" &_Get StringValue(RootKey, PathKey, Arr(x), Value)Get ListBase = AnswerGet ListBase"));Еще примеры! Получение списка баз 1С 7.7 из реестра Категория:
Полезные, Универсальные Функции Получение локальных, сетевых, сменных (флешек) дисков компьютера При разработке отчетов или обработок рано или поздно приходится сталкиваться с необходимостью определения имени локального диска, сменного накопителя (флешки), сетевого диска. В данной статье представлены 3 способа получения списка дисков компьютера:
Примеры для 8-ой версии, для того чтобы заработало в 7-ой замените:
Код 1C v 8.х Новый COMОбъект(
на
Код 1C v 7.x СоздатьОбъект( 1-вый способ:
Код 1C v 8.х FSO = Новый COMОбъект("Scripting.FileSystemObject"); 2-ой способ:
Код 1C v 8.х Get Computers() Get Object(""winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2"") Get Computers = disk Get Computers")); 3-ий способ:
Код 1C v 8.х //Попытка подключения к WMI на локальном компьютере
Автор:
Мигачев Евгений Категория:
COM-объекты, WMI, WSH Создание ярлыка программы 1С в автозагрузке Код 1C v 8.х WScript = Новый COMОбъект("WScript.Shell");get Path = "1Cstart"; Категория:
COM-объекты, WMI, WSH Подключение к EXCEL и чтение данных из листа Excel Код 1C v 8.х Ex = Новый COMObject("Excel.Application");Примеры процедур для чтения данных из EXCEL
Код 1C v 8.х Get UpperBound(1);Get Value(НомерКолонки, НомерСтроки);Get Value(КлючИЗначение.Значение, НомерСтроки);Код 1C v 7.x Попытка Категория:
Работа с Microsoft Office и OpenOffice Как импортировать данные из HTML? Код 1C v 7.x ИЕ=СоздатьОбъект("InternetExplorer.Application");get ElementsByTagName("tr"); Категория:
COM-объекты, WMI, WSH Получение списка баз 1С 7.7 из реестра Ниже приведено несколько способов получения списка баз 1С 7.7 из реестра:
Код получения списка баз 1С 7.7 из 8.х
Код 1C v 8.х функция сзПолучитьСписокБаз()Get ListBase()Get Object(""winmgmts:{impersonationLevel=impersonate}!\\."" &_Get StringValue(RootKey, PathKey, Arr(x), Value)Get ListBase = AnswerGet ListBase");
Код для 1С 7.7
Код 1C v 7.x Get ("StdRegProv");Get StringValue "+HKEY_CURRENT_USER+","""+strKeyPath+""","""+Д+""",Value");Get 1CV77Titles()Get Object(""winmgmts:{impersonationLevel=impersonate}!\\."" &_Get StringValue(HKEY_CURRENT_USER,strKeyPath,arrValues(i),Value)Get 1CV77Titles = strInfo Get 1CV77Titles")); Категория:
COM-объекты, WMI, WSH Получение списка компьютеров сети (домена) Код 1C v 7.x Get Computers()Get Object(""WinNT:"") Get Object(""WinNT://"" & Domain.Name) Get Computers = strInfoGet Computers")); Код 1C v 8.х Get Computers()Get Object(""WinNT:"") Get Object(""WinNT://"" & Domain.Name) Get Computers = strInfoGet Computers")); Категория:
COM-объекты, WMI, WSH Как сохранить поле BLOB (image) как файл на диск? Наиболее эффективно это можно сделать с помощью объектов OLE Automation , работа с которыми осуществляется при помощи:
sp_OACreate, sp_OA
Get Property, sp_OASetProperty, sp_OAMethod, sp_OA
Get ErrorInfo, sp_OADestroy (подробное описание есть в http://technet.microsoft.com/ru-ru/library/ms203721(sql.90).aspx).
Рабочий пример процедуры (была написана для сохранения zip-архивов, хранящихся в базе):
Код CREATE PROCEDURE dbo.SaveRequestDataAsFile (
Рекомендуется создать еще пару процедур для внятного описания ошибок в случае их возникновения
Код CREATE PROCEDURE sp_hexadecimalGet ErrorInfo @object, @source OUT, @description OUTGet ErrorInfo failed.'
Категория:
OLE, ActiveX 
Экспорт печатных форм и любых данных из 1С в BMP, JPEG, PCX, PDF, PNG и TIFF. Категория: Администрирование