Заказ звонка

Закрыть

*
*
*

Новый QueryViewer

Страницы: 1
RSS
Новый QueryViewer
Здравствуйте!

TCS 5.5.2.
Есть у меня простой скрипт, который я запускаю из режима Номенклатурные справочники для проверки работы QueryViewer.

Sub FormMacro_QueryViewer(TCSActiveModule) 'QueryViewer
QueryText = "SEL ECT [V_MEASURES].[ID] as [ID], [V_MEASURES].[NOTE] as [Обозначение], [V_MEASURES].[NAME] as [Наименование] FR OM V_MEASURES"
'Настройки
Const FormCaption = "Справочник единиц измерения"
Const ShowType = 1
Const StatusText = ""
Const IsEnabledbtnQueryEditor = False
Const RefreshButtonVisible = True
Const SaveButtonVisible = True
Const PrintButtonVisible = True
Const SelectButtonVisible = False
Const ShowTypeButtonVisible = False
Const ShowGroupPanel = True
Const View = 6
Const dModule = Nothing
Const FormWindowState = "Normal"
Const Width = 1024
Const Height = 768

LogObject.ScriptTimeOut = 0
Dim comDll X
'On Error Resume Next
Set comDll = CreateObject("QueryViewer")
If comDll Is Nothing Then
Call TCSApp.ShowErrorMessage("Отсутствует или не зарегистрирована библиотека QueryViewer.dll")
Else
Call comDll.ShowViewer( tcsApp, QueryText, FormCaption, ShowType, StatusText, IsEnabledbtnQueryEditor, RefreshButtonVisible, SaveButtonVisible, _
PrintButtonVisible, SelectButtonVisible, ShowTypeButtonVisible, ShowGroupPanel, View, dModule, FormWindowState, Width, Height )
End If
Set comDll = Nothing

End Sub
Этот скрипт выполняется правильно, если до него пустить какой-нибудь другой скрипт.
Если же запустить его первым при входе в TCS, то выйдет ошибка,см. файл.
Osh_Q_V.rar (258.49 КБ) [ Скачать ]
Поставьте первой строкой в процедуре
Код
Call TCSApp.HideProgressMessage
Страницы: 1
Читают тему (гостей: 1, пользователей: 0, из них скрытых: 0)