Список форумов Акцент Акцент
официальный форум разработчика программы Акцент
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Питання по Акцент-адміністратору 7.4

 
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент-администратор 7.0
Предыдущая тема :: Следующая тема  
Автор Сообщение
Yura



Зарегистрирован: 05.02.2009
Сообщения: 10

СообщениеДобавлено: Пн Июл 21, 2014 12:28 pm    Заголовок сообщения: Питання по Акцент-адміністратору 7.4 Ответить с цитатой

В Акценті 7.4 для кореспондентів був написаний діалог, який являє собою картку клієнта. Тепер є необхідність цей діалог викликати з іншої програми. Без встановленого адміністратора все працює.
Для перевірки використовував такий скрипт:

Dim Dialog
Dim WA
Dim App
Set WA = CreateObject("Accent74.Workarea")
Set App = WA.Application

if WA.OpenDatabase2("E:\Accent\Data\baza.adb") then
Set Dialog = App.CreateDialog("Klient_form.adg")
Dialog.Map("ID") = 2928
Dialog.DoModal
App.Quit
else
MsgDlg "Неможливо відкрити базу даних"
end if

А якщо встановити адміністратор і навіть не включати захист, то дає помилку. Підскажіть як можна запустити акцентівський діалог зовні при встановленому адміністраторі і включеному захисті.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
olimp
Site Admin


Зарегистрирован: 10.03.2005
Сообщения: 2661

СообщениеДобавлено: Вт Июл 22, 2014 7:06 pm    Заголовок сообщения: Re: Питання по Акцент-адміністратору 7.4 Ответить с цитатой

Yura писал(а):
В Акценті 7.4 для кореспондентів був написаний діалог, який являє собою картку клієнта. Тепер є необхідність цей діалог викликати з іншої програми. Без встановленого адміністратора все працює.
Для перевірки використовував такий скрипт:

Dim Dialog
Dim WA
Dim App
Set WA = CreateObject("Accent74.Workarea")
Set App = WA.Application

if WA.OpenDatabase2("E:\Accent\Data\baza.adb") then
Set Dialog = App.CreateDialog("Klient_form.adg")
Dialog.Map("ID") = 2928
Dialog.DoModal
App.Quit
else
MsgDlg "Неможливо відкрити базу даних"
end if

А якщо встановити адміністратор і навіть не включати захист, то дає помилку. Підскажіть як можна запустити акцентівський діалог зовні при встановленому адміністраторі і включеному захисті.


Скорее всего, Акцент выдает на экран сообщение, которое не видно. Попробуйте открыть Акцент вручную и посмотреть, что происходит.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Yura



Зарегистрирован: 05.02.2009
Сообщения: 10

СообщениеДобавлено: Ср Июл 23, 2014 12:00 pm    Заголовок сообщения: Re: Питання по Акцент-адміністратору 7.4 Ответить с цитатой

olimp писал(а):

Скорее всего, Акцент выдает на экран сообщение, которое не видно. Попробуйте открыть Акцент вручную и посмотреть, что происходит.


При встановленому адміністраторі дає таку помилку:

Невозможно создание обекта контейнером AktiveX: 'Accent74.Workarea'
Код: 800А01АD

Я так розумію, що адміністратор не дає прямого доступу для створення Accent74.Workarea. Можливо, для створення потрібно використовувати якісь параметри, на зразок логіну і пароля користувача. Або створювати обєкт не акценту, а адміністратора.
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов Акцент -> Акцент-администратор 7.0 Часовой пояс: GMT + 2
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2005 phpBB Group