The ActiveX Control 'OXACTIVE'
The ActiveX control oxactive.dll offers methods and objects that allow reading and editing data of the handoff file and the configuration file.
During the installation of enaio®, the control will be installed and registered automatically.
The control can be directly used in the VBScript editor through the VBScript add-on. In other environments, the ActiveX control oxactive.dll is integrated as follows:
CoxHelp |
Interface to support VBScript programming Object creation in VBScript: Dim x Set x = CreateObject('oxactive.CoxHelp') |
Methods
GetProfString()
HRESULT GetProfString(BSTR bstrSec, BSTR bstrKey, BSTR bstrDefault, VARIANT* pvarReturn, BSTR bstrFile)
This function provides the functionality of the Windows API function GetPrivateProfileString.
Input: |
BSTR bstrSec |
the section name in the handoff file |
|
BSTR bstrKey |
the key name in this section |
|
BSTR bstrDefault |
default return value if no value can be determined |
|
BSTR bstrFile |
file name of the handoff file |
Output: |
VARIANT* pVarReturn |
determines key value as string |
Example:
oxhelp.GetProfString "PAGE00","#OSEXP#",-1,rvalue,osfile
If the value cannot be determined, the value of the '#OSEXP#' key in the 'Page00' section is written to the 'rvalue' variable; otherwise '-1'.
WriteProfString()
HRESULT WriteProfString(BSTR bstrSection, BSTR bstrKey, BSTR bstrValue, BSTR bstrFile)
This function provides the functionality of the Windows API function WritePrivateProfileString.
Input: |
BSTR bstrSection |
the section name in the handoff file |
|
BSTR bstrKey |
the key name in the handoff file |
|
BSTR bstrValue |
the key value |
|
BSTR bstrFile |
path and file name of the handoff file |
Output: |
- |
|
The WriteToFile() method must be called prior to the oxhelp.WriteProfString() method can be used.
ExtractString()
HRESULT ExtractString(BSTR strVal, VARIANT* pFieldName, VARIANT* pFieldValue)
This function helps split the string into two parts. As a separator, either the character '\021' or ASCII code '17' must be used.
Input: |
BSTR strVal |
the string that is meant to be separated into two parts |
Output: |
VARIANT* pFieldName |
left part of the string until the separator |
|
VARIANT* pFieldValue |
right part of the string from the separator |
WinExec()
HRESULT WinExec(BSTR strFile, BSTR strParams)
This function allows you start the application and pass the parameter.
Input: |
BSTR strFile |
file name of the application |
|
BSTR strParams |
command line parameter |
Output: |
- |
|
Objects
The ActiveX control oxactive.dll offers the following objects:
-
ASFile Object: allows access to the add-on or the event's handoff file
-
RequestPages object: comprises all registers of an index data form (collection of RequestPage objects)
-
RequestPage Object: a single data sheet
-
ActivePage object: is a RequestPage object, that is, a reference to the active data sheet
-
ASFields Object: comprises all fields of an index data form (collection of all ASField objects)
-
ASField Object: a single field of a form
These objects are used to read and edit the data of the handoff file.
Example:
The value of the 'Year' field can be read with one of the two following variants:
ActivePage.ASFields.Item("Jahr").Value
RequestPages.Item("WF-Protokoll").ASFields.Item("Jahr").Value
Method a) will read the field through the ActivePage object; method b) through the RequestPages collection.
ASFile Object
The ASFile object allows for access to the add-on or the event's handoff file. This handoff file contains information on the index data form.
Properties:
L – read-only
S – write access only
L/S – read and write access
ActivePage |
Returns a RequestPage object of the currently active (top) data sheet |
L |
AddonFields |
For add-ons only Returns a collection of ASField objects of the fields that are connected to the add-on. The first element is exactly the field to which the add-on button is assigned. The other elements of the collection allow access to all fields that are connected with the add-on. |
L |
ErrorMessage |
In connection with the 'ASField.IsErrorField' property, an error text for both events 'BeforeValidate' and 'OnItemClick' can be specified, which will then be shown in an info window. A prerequisite is that the ResultCode is not 0 (see Example 4). |
L/S |
EventAction |
Only for events. Available values are: NEW – a new object will be created UPDATE – an existing object will be modified REQUEST – a search will be performed READONLY – an existing object is open in read-only mode. |
L |
EventCode |
Returns the numerical EventCode (see 'Client-side Events'). |
L |
Filename |
Name of the file that is meant to be used including the full path, usually the file name of the corresponding handoff file. |
L/S |
FOLDERID |
Returns the ID of the folder in which the object is located |
L |
FOLDERTYPE |
Returns the numeric folder type. |
L |
Handle |
Sizing handle of the index data form |
L |
IsErrorField |
Specifies whether or not this field is selected as corrupt on the index data form |
L/S |
REGISTERID |
Returns the ID of the register in which the object is located |
L |
REGISTERTYPE |
Returns the numeric register type |
L |
RequestPages |
Collection of RequestPage objects of all data sheets on the current index data form |
L |
ResultCode |
Only for events. All changes will apply if the value is set to '1'. Default value: '0' |
L/S |
TARGETMAINTYPE |
Reads and writes the main document type. |
L/S |
Methods:
WriteToFile() |
Returns all objects and properties to the handoff file. The file name is provided by the Filename property. Return values: '10' – file does not exist '11' – no file name specified |
RequestPages Object
This object allows for access to a collection of RequestPage objects.
Properties:
L – read-only
S – write access only
L/S – read and write access
Count |
Number of elements in this collection |
L |
Methods:
Item(VARIANT Item) |
Returns an element of this collection Parameters: Item – either the index or the name of the intended element can be specified here. |
RequestPage Object
This object allows you to access a single data sheet of the index data form.
Properties:
L – read-only
S – write access only
L/S – read and write access
Active |
'1' if this page is on top; otherwise '0' |
L |
ASFields |
ASField collection of all fields on this page |
L |
FileCount |
Number of files that belong to a document |
L |
ID |
ID of the object |
L |
Name |
Name of the data sheet |
L |
ObjectType |
Object type of this page |
L |
ASFields Object
This object represents a collection of ASField objects.
Properties:
L – read-only
S – write access only
L/S – read and write access
Count |
Number of elements in this collection |
L |
Methods:
Item(VARIANT Item) |
Returns an element of this collection Parameters: Item – either the index or the name of the intended element can be specified here. |
ASField Object
This object allows you to access a single field of a search form.
Properties:
L – read-only
S – write access only
L/S – read and write access
CtrlPages |
Collection of all registers of a page control |
L |
DBName |
Name of the field in the database |
L |
Enabled |
If set to FALSE, the respective field on the form is read-only. |
L/S |
Required |
If set to 'TRUE', the respective field is a mandatory field. A mandatory field property from enaio® editor cannot be disabled. |
L/S |
GUID |
Returns the GUID of the respective field on the form. |
L |
InternalName |
The internal name of the respective field on the form. |
L |
IsErrorField |
Specifies whether this field of the form is labeled as corrupt (yellow) on the index data form ('TRUE') or not ('FALSE’). (see Example 4) |
L/S |
Length |
Maximum length of the field |
L |
Name |
Name of the field |
L |
Type |
Data type of the field (see below) |
L |
Value |
Value of the field |
L/S |
Visible |
If set to FALSE, the respective field on the form is hidden |
L/S |
TextColor |
Text color, for example: RGB(33,255,59) |
L/S |
Available data types:
Type |
Description |
Database |
# |
Decimal numbers |
DECIMAL |
0 |
Checkboxes |
SHORT |
1 |
Radio button |
SHORT |
9 |
Numbers |
INTEGER |
A |
All characters without numbers |
CHAR |
C |
Page control |
CHAR |
D |
Date |
DATE |
G |
Uppercase letters |
CHAR |
I |
Full-text index |
INTEGER |
L |
All characters |
CHAR |
M |
All characters |
CHAR |
P |
Patient type |
CHAR |
Q |
Yes/no |
CHAR |
S |
male/female/other |
CHAR |
T |
Left/right |
CHAR |
W |
Table element |
CHAR |
X |
All characters |
CHAR |
Z |
Numbers only |
CHAR |
Examples of Use in VBScript
If, in enaio® client, the aforementioned objects are used through an event or the VBScript add-on, neither the ASFile object nor the CoxHelp object need to be created explicitly. Furthermore, the 'Filename' property of the ASFile object will be set automatically.
Example 1
Output the names of all data sheets:
for b = 0 to RequestPages.Count-1
MsgBox(RequestPages.Item(b).Name)
Next
Example 2
Output all field names of the currently active data sheet as well as change the content of a field for an event:
for b = 0 to ActivePage.ASFields.Count-1
MsgBox(ActivePage.ASFields.Item(b).Name)
Next
ActivePage.ASFields.Item(1).Value = 'neuer Wert'
ResultCode = 1
WriteToFile()
Example 3
Output the name of the add-on field as well as its content in the data sheet and then change the content of the add-on field:
MsgBox (AddonFields.Item(0).Name + ' = ' + AddonFields.Item(0).Value)
AddonFields.Item(0).Value = 'neuer Wert'
WriteToFile()
Example 4
Highlight a data sheet's field on a page control in color and activate the respective page and output an error message in the form of a tooltip for the 'OnClickItem' or 'BeforeValidate' event:
ActivePage.ASFields("PageCtrl").CtrlPages(2).Fields.Item(2).IsErrorField = true
ErrorMessage = "Fehlerhafte Eingabe, bitte korrigieren."
ResultCode = -1
WriteToFile()
Example 5
Distinguish whether a query has been performed in expert mode or not by reading the #OSEXP# key of the handoff file:
oxhelp.GetProfString "PAGE00","#OSEXP#",-1,rvalue,osfile
if ( rvalue = "1") then
‘Code für Expertenmodus
else
‘Code für nicht-Expertenmodus
end if