Programmierschnittstelle UDS for ELO Universelle ...

UDS API Objekt DictArray
Anlage 2 – doLookupInvisible Skript
Dieses Skript wird innerhalb der DLL ausgeführt, wenn die Methode
Main.doLookupInvisible aufgerufen wird.
Option Explicit
Dim mobjUDS ' As eloxUdsLibrary.Main
Dim mobjElo ' As Object
'------------------------------------------------------------------------------
' Einstigsfunktion
'------------------------------------------------------------------------------
Public function doLookupInvisible() ' As Boolean
Dim objMeta ' As eloxUdsLibrary.Meta
Dim objMetaList ' As eloxUdsLibrary.MetaLookupList
Dim i ' As Long
dim blnRet ' As Boolean
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()
If Not objMeta Is Nothing then
Set objMetaList = objMeta.getLookupList(mobjElo.GetArcName(),
mobjElo.GetObjMaskNo())
If Not objMetaList Is Nothing Then
blnRet=true
For i = 0 To objMetaList.Count - 1
blnRet = blnRet and FillFieldsFromLookup(objMetaList.Item(i))
Next
End If
End If
Set mobjUDS = Nothing
Set mobjElo = Nothing
doLookupInvisible=blnRet
End function
'------------------------------------------------------------------------------
' Befüllt die Felder. Liefert True zurück, wenn ein eindeutiger Datensatz
' gefunden wurde
'------------------------------------------------------------------------------
Private Function FillFieldsFromLookup(objLookup) ' As Boolean
Dim objDic ' As eloxUdsLibrary.DataDict
Dim objFilterMapping ' As eloxUdsLibrary.MetaLookupMapping
Dim objOutMapping ' As eloxUdsLibrary.MetaLookupMapping
Dim objFilterDic ' As eloxUdsLibrary.DataDict
Dim i ' As Long
Dim blnRet ' As Boolean
blnRet = false
Set objFilterDic = mobjUDS.createDict
For i = 0 To objLookup.getFiltermappingCount - 1
Seite 36