Programmierschnittstelle UDS for ELO Universelle ...

UDS API Anlage 1
Anlage 1 – doLookup Skript
Dieses Skript wird innerhalb der DLL ausgeführt, wenn die Methode Main.doLookup
aufgerufen wird.
Option Explicit
Dim mobjUDS ' As eloxUds2Library.Main
Dim mobjElo ' As Object
'------------------------------------------------------------------------------
' Einstiegsprozedur
'------------------------------------------------------------------------------
Public Sub DoLookup()
Dim objMeta ' As eloxUds2Library.Meta
Dim objMetaList ' As eloxUds2Library.MetaLookupList
Dim i ' As Long
Set mobjUDS = CreateObject("eloxUds2Library.Main")
If mobjUDS.isEloOffice Then
Set mobjElo = CreateObject("ELO.Office")
Else
Set mobjElo = CreateObject("ELO.Professional")
End If
Set objMeta = mobjUDS.getMeta()
Set objMetaList = objMeta.getLookupList(mobjElo.GetArcName(),
mobjElo.GetObjMaskNo())
For i = 0 To objMetaList.Count - 1
Call UDSLookup(objMetaList.Item(i))
Next
Set mobjUDS = Nothing
Set mobjElo = Nothing
End Sub
'------------------------------------------------------------------------------
' Hauptprozedur
'------------------------------------------------------------------------------
'Private Sub UDSLookup(objLookup As eloxUdsLibrary.MetaLookup)
Private Sub UDSLookup(objLookup)
Const cnSearchMask = 32768 ' = &H8000
Dim lngMaskNo ' As Long
Dim lngActionKey ' As Long
Dim blnIsSearchMask ' As Boolean
Dim blnDBValuesOnly ' As Boolean
Dim blnValidateOnExit ' As Boolean
Dim blnFieldsOK ' As Boolean
Dim strTextMask ' As String
Dim strMaskFiller ' As String
Dim lenTM ' As Long
Dim i ' As Long
dim blnRet ' As Boolean
blnDBValuesOnly = objLookup.getOption("dbvaluesonly")
'blnValidateOnExit = objLookup.getOption("validateonexit")
lngActionKey = mobjElo.ActionKey
Seite 33