Мастер-Центр оплат.Установка

Материал из Megatec
Версия от 12:07, 30 октября 2013; Borzenkov (обсуждение | вклад) (Новая страница: «Для установки программы необходимо просто прописать библиотеку pc2mt.dll как COM-сервер в сис…»)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск

Для установки программы необходимо просто прописать библиотеку pc2mt.dll как COM-сервер в системе. 1. Создайте удобную для Вас папку, например: C:\Program Files\Megatec\pc2mt\ 2. Скопируйте туда библиотеку pc2mt.dll 3. В командной строке выполните команду: regsvr32 "C:\Program Files\Megatec\pc2mt\pc2mt.dll" Для того, чтобы сделать эту операцию, Вы должны обладать соответствующими правами в системе. После того, как программа пропишется в системе, Вы можете ее вызывать из 1С.

Вызов pc2mt происходит следующим образом:

Перем mProgId; Перем глМастерТурКомпонента; mProgId = "pc2mt.1"; Попытка ПодключитьВнешнююКомпоненту(mProgId); глМастерТурКомпонента=Новый("AddIn.pc2mt"); Исключение Предупреждение("Не удалось создать объект глМастерТурКомпонента" + ОписаниеОшибки()); КонецПопытки;


На разных этапах подключения и работы pc2mt выдает разнообразные сообщения в строку состояния 1С.



Вызов pc2mt в 1С 7-й версии производится следующим образом:

Перем mProgId; Перем глМастерТурКомпонента; mProgId = "pc2mt.1"; Попытка ПодключитьВнешнююКомпоненту(mProgId); глМастерТурКомпонента=CreateObject("AddIn.pc2mt"); Исключение Предупреждение("Не удалось создать объект глМастерТурКомпонента" + ОписаниеОшибки()); КонецПопытки;


После этого используя переменную глМастерТурКомпонента можно вызывать соответствующие функции, например найдем путевку по коду: ТЗ=Новый "ТаблицаЗначений"; (ТЗ=СоздатьОбъект("ТаблицаЗначений");) ТЗ=глМастерТурКомпонента.ВыбратьПутевкиЗаПериод(ДатаНачала,ДатаКонца,1,СтрокаКодПутевки);

Но прежде чем вызывать разнообразные функции, Вы должны установить подключение к базе данных Мастер-Тур. Это делается с помощью функции Подключиться РезультатПодключения=глМастерТурКомпонента.Подключиться(Сервер,БазаДанных,Логин,Пароль,"00",СтрокаDBGUID);