Programmierschnittstelle UDS for ELO Universelle ...

Programmierschnittstelle 

UDS for ELO 

Universelle Datenschnittstelle 

für ELO 

Version 2.5 

UDS for ELO wird exklusiv vertrieben durch: 

cns computer & netzwerk service gmbh 

Bahnhofplatz 4 

D-90762 Fürth 

Fon +49 911 76674-55 

Fax +49 911 76674-74 

E-Mail: uds@cns-nuernberg.de 

Internet: www.cns-nuernberg.de 

Seite 1

Programmierschnittstelle 

UDS for ELO - Universelle Datenschnittstelle für ELO 

Autoren: STARCON GmbH / cns computer & netzwerk service gmbh 

Stand: 2005-05-28 

Copyright 2005 STARCON GmbH 

Die Urheberrechte an den Inhalten und der Form des vorliegenden Dokuments liegen 

bei STARCON GmbH. Jede Verwertung außerhalb der engen Grenzen des 

Urheberrechtsgesetzes ist ohne Zustimmung von STARCON GmbH unzulässig und 

strafbar. Alle im Rahmen dieses Dokumentes erwähnten Warenzeichen dienen nur 

der Kenntlichmachung und sind Warenzeichen der jeweiligen Hersteller. Alle Rechte 

vorbehalten. 

Seite 2

Inhalt: 

Übersicht....................................................................................................................................5 

Objekt Main..............................................................................................................................7 

Function callServerScript......................................................................................................7 

Function createDict ...............................................................................................................8 

Sub doLookup........................................................................................................................9 

Function doLookupInvisible..............................................................................................10 

Function getLicInfo .............................................................................................................11 

Function getMeta.................................................................................................................12 

Function isEloOffice............................................................................................................12 

Function lookup...................................................................................................................13 

Function lookupArray ........................................................................................................14 

Function lookupDict ...........................................................................................................15 

Function lookupDict2 .........................................................................................................16 

Function lookupDict3 .........................................................................................................17 

Objekt Meta ............................................................................................................................18 

Function getLookupList .....................................................................................................18 

Objekt MetaLookupList .......................................................................................................19 

Function count .....................................................................................................................19 

Function item .......................................................................................................................19 

Objekt MetaLookup..............................................................................................................20 

Property Datasource ...........................................................................................................20 

Property FieldID..................................................................................................................20 

Property MaskID .................................................................................................................20 

Property Name.....................................................................................................................20 

Function getFilterMapping ................................................................................................21 

Function getFilterMappingCount .....................................................................................21 

Function getOption .............................................................................................................22 

Function getOutputMapping.............................................................................................23 

Function getOutputMappingCount..................................................................................23 

Objekt MetaLookupMapping .............................................................................................24 

Property DBFieldName ......................................................................................................24 

Property FieldID..................................................................................................................24 

Seite 3

Objekt DataDict .....................................................................................................................25 

Sub add .................................................................................................................................25 


Function get..........................................................................................................................26 

Function getName ...............................................................................................................27 

Function getValue ...............................................................................................................27 

Objekt DictArray ...................................................................................................................28 


Function get..........................................................................................................................28 

Anlage 1 – doLookup Skript................................................................................................29 

Anlage 2 – doLookupInvisible Skript................................................................................32 

Seite 4

Übersicht 

Main Das Hauptobjekt, das die Highlevel-Funktionen wie 

doLookup() und doLookupInvisible() zur Verfügung 

stellt. Der Zugriff auf alle anderen Objekte erfolgt in der 

Regel ebenfalls über dieses Objekt. 

Methoden • callServerScript 

• createDict 

• doLookup 

• doLookupInvisible 

• getLicInfo 

• getMeta 

• isEloOffice 

• lookup 

• lookupArray 

• lookupDict 

• lookupDict2 

• lookupDict3 

Meta Beinhaltet alle Metainformationen, die über das Config 

Tool eingestellt wurden. 

Methoden • getLookupList 

MetaLookupList Liste mit allen Lookups, die zu einer bestimmten Maske 

eines Archivs hinterlegt sind. 

Methoden • count 

• item 

Seite 5

MetaLookup Objekt, das die Lookupinformation für ein bestimmtes 

Feld einer Maske beinhaltet 

Eigenschaften • Datasource 

• FieldID 

• MaskID 

• Name 

Methoden • getFilterMapping 

• getFiltermappingCount 

• getOption 

• getOutputMapping 

• getOutputMappingCount 

MetaLookupMapping Zugriff auf Ausgabe- und Filtermapping Informationen 

einer bestimmten Maske eines Archivs 

Eigenschaften • DBFieldName 

• FieldID 

DataDict Dictionary für Daten und Filterdefinitionen 

Methoden • add 

• count 

• get 

• getName 

• getValue 

DictArray Ein Array mit Dictionary Objecten. 

Methoden • count 

• get 

Für den normalen Einsatz von UDS in ELO sind nur zwei Funktionen des Main 

Objekts notwendig: doLookup und doLookupInvisible. Falls allerdings das 

Standardverhalten geändert werden soll, oder mehrere Datensätze abgerufen werden 

sollen kann direkt über die nachfolgend beschriebenen API Funktionen gearbeitet 

werden. 

Als umfassendes Beispiel für die Programmierung von UDS sind in Anlage 1 und 

Anlage 2 die Skripten angefügt, die normalerweise innerhalb der DLL ausgeführt 

werden wenn Main.doLookup oder Main.doLookupInvisible aufgerufen wird. 

Seite 6

UDS API Objekt Main 

Objekt Main 

Das Main Objekt ist das zentrale Zugriffsobjekt von UDS. Alle Aufrufe werden über 

dieses Objekt initiiert. Um das Main Objekt zu erzeugen, verwenden Sie folgende 

Anweisung: 

set objUDS = CreateObject("eloxUds2Library.Main") 

Function callServerScript 

Seit UDS 2.5 ist es möglich, vom Client aus Skripten auf dem UDS Server ausführen 

zu lassen. 

Es sind dazu folgende Schritte notwendig: 

1. Erstellen Sie auf dem UDS Server im UDS Verzeichnis einen Ordner „ServerScripts“ 

2. Erstellen Sie in diesem Verzeichnis beliebige Skript-Dateien. Die Skripte müssen 

eine Funktion „Process“ besitzen, die als Argument einen String erwartet und als 

Ergebnis einen String zurückliefert (kann auch leer sein). 

3. Fügen Sie in Ihrem Client-Skript einen Aufruf „callServerScript(NameDesSkripts, 

Argument)“ ein. 

Function callServerScript(Name As String, DataIn As String) As String 

Name: Name des Serverscripts (ohne Datei-Endung) 

DataIn: String, der an das Skript übergeben wird 

Rückgabewert: 

Die Ausgabe des Serverscripts 

Seite 7


Beispiel: 

Skript „C:\Programme\ELOxUDS 2 Server\ServerScripts\Logging.VBS“: 

function Process(strInput) 

const cnForAppending = 8 

dim objFSO 

dim objStream 

set objFSO = CreateObject("Scripting.FileSystemObject") 

on error resume next 

set objStream = objFSO.OpenTextFile("C:\temp\UDS.log", cnForAppending, true) 

objStream.WriteLine now() & " - " & strInput 

objStream.Close 

set objStream = nothing 

set objFSO = nothing 

if err.number 0 then 

Process = err.description 

end if 

end function 

Aufruf im Clientscript: 


strRet = objUDS.callServerScript("Logging", "Dokument abgelegt") 

if len(strRet) > 0 then 

msgbox "Beim Schreiben des Logs ist folgender Fehler aufgetreten: " & strRet 

end if 

Function createDict 

Erzeugt ein leeres DataDict Objekt. Dies wird z.B. verwendet, um eigene 

Filterkriterien zu definieren. 

Function createDict() as DataDict 


Ein leeres DataDict Object 

Siehe auch: 

Seite 8


Function lookupDict2 

Sub doLookup 

Die Funktion wird üblicherweise während des Ereignisses „Beim Bearbeiten der 

Verschlagwortung“ aufgerufen. Innerhalb der Funktion finden folgende Aktionen 

statt: 

1. Prüfen, ob für die aktuelle Maske Lookups definiert wurden 

2. Einfügen von Skriptbuttons hinter allen Feldern, für die ein Lookup definiert wurde 

3. Ausführen der Datenbankabfrage, falls 

- ein Lookup-Feld verlassen wurde 

- der Skriptbutton betätigt wurde 

- die „Übernehmen“ oder „OK“ Schaltfläche der Maske betätigt wurde 

4. War das Ergebnis der Datenbankabfrage nicht eindeutig oder leer, wird der Lookup 

Dialog geöffnet 

5. Bei eindeutigem Ergebnis werden die in Output Mapping definierten Felder befüllt 

6. Wird das Lookup Feld geleert, werden die Werte der Output Mapping Felder 

gelöscht 

7. Wurde festgelegt, dass nur Datenbankwerte zulässig sind, wird das Schließen der 

Maske mit „OK“ nur dann zugelassen, wenn sich ein gültiger Wert im Lookup Feld 

befindet, oder das Feld leer ist. 

Falls die Funktion nicht Ihren Wünschen entspricht, können Sie stattdessen das in 

Anlage 1 aufgeführte Skript „doLookup.VBS“ anpassen und verwenden. 

Sub doLookup() 

Beispiel: 

set objUDS = CreateObject(„eloxUds2Library.Main“) 

objUDS.doLookup() 

Seite 9


Function doLookupInvisible 

Führt ebenfalls einen Datenbank Lookup aus. Allerdings wird bei nicht eindeutigem 

oder leerem Ergebnis kein Dialog geöffnet. Die Funktion liefert true zurück, wenn 

genau ein Datensatz gefunden wurde. 

Wie bei doLookup können Sie als Ersatz für diese Funktion auch ein eigenes Skript 

verwenden (Anlage 2, „doLookupInvisible.VBS“). 

Function doLookupInvisible() As Boolean 


true, falls alle für diese Maske definierten Lookups genau ein Datenbankergebnis 

zurückgeliefert haben, false sonst. 

Beispiel: 


if not objUDS.doLookupInvisible() then 

msgbox "Es wurde kein eindeutiger Datensatz gefunden" 

end if 

Seite 10


Function getLicInfo 

Liefert Informationen zur UDS Lizenz zurück 

Function getLicInfo(Name as String) As String 

Name: Einer der folgenden Strings: 

- appcode 

- code 

- date 

- info 

- modules 

- name 

- type 

- validto 


Der zugehörige Wert. 

Beispiel: 


msgbox objUDS.GetLicInfo("info") 

Seite 11


Function getMeta 

Liefert das Meta Objekt, das die komplette Konfiguration enthält zurück. Auf die 

Informationen zu einzelnen Masken in bestimmten Archiven kann über die 

MetaLookupList zugegriffen werden (siehe Objekt MetaLookup). 

function getMeta() As Meta 


Das Meta-Objekt 

Siehe auch: 

Function getLookupList 

Function isEloOffice 

Prüft, in welchem Kontext UDS aufgerufen wurde. Ist sowohl ELOoffice, als auch 

ELOprofessional gestartet, wird ELOprofessional angenommen. 

function isEloOffic() as Boolean 


True, wenn UDS im Kontext von ELOoffice aufgerufen wurde, sonst false 

(ELOprofesional). 

Seite 12


Function lookup 

Führt einen Lookup durch und liefert den Wert des 1. Feldes der angegebenen 

Datenquelle zurück. Wird kein Filterkriterium angegeben oder ist das Ergebnis 

trotzdem nicht eindeutig, wird der Lookup-Dialog angezeigt (falls Visible = true). 

Als "Query" wird dabei der Name einer Datenquelle verwendet. Das Argument 

"Name" ist ein bestimmtes Feld dieser Quelle, über das "Value" kann ein Filter für 

dieses Feld mitgegeben werden und "Visible " bestimmt, ob bei nicht eindeutigen 

Ergebnissen ein Lookup-Dialog angezeigt werden soll. 

Function lookup (Query as String, [Name As String], [Value As String], [Visible As 

Boolean = true]) As String 

Query: Name einer Datenquelle 

Name (optional): Ein Feld der Datenquelle das gefiltert werden soll 

Value (optional): Der Filter für das mit "Name" angegebene Feld 

Visible (optional): Falls true wird der Lookup-Dialog angezeigt 


Der Wert der ersten Spalte der Datenquelle wenn das Ergebnis eindeutig ist bzw. 

wenn der Benutzer im Lookup-Dialog einen Datensatz ausgewählt hat. 

Wurde Visible = false gesetzt und kein eindeutiger Datensatz gefunden oder hat der 

Benutzer den Lookup-Dialog mit Abbrechen beendet wird ein Leerstring 

zurückgeliefert. 

Beispiel: 


msgbox objUDS.lookup("Bücher", "Titel", "Lehrbuch", false) 

Seite 13


Function lookupArray 

Liefert einen kompletten Dataset zurück, der über eine FOR Schleife durchlaufen 

werden kann. 

Function lookupArray(Query As String, Filter As DataDict) As DictArray 


Filter: Ein DataDict mit Filterbedingungen 


Ein DictArray Objekt mit allen Datensätzen. Wurden keine Datensätze gefunden, 

wird ein leeres Objekt mit Count = 0 zurückgeliefert. 

Es können maximal 500 Datensätze abgerufen werden. Wurde im Config Tool für 

diese Datenquelle eine niedrigere Zahl (Max. Ergebnismenge) festgelegt, so ist diese 

Zahl ausschlaggebend. 

Beispiel: 


set objFilter = objUDS.CreateDict() 

objFilter.Add "ISBN", "3-" 

objFilter.Add "Autor", "A" 

set objResult = objUDS.LookupArray("Bücher", objFilter) 

if objResult.Count = 0 then 

strMsg = "Kein Datensatz gefunden" 

else 

for i = 0 to objResult.Count - 1 

strMsg = strMsg & objResult.get(i).get("ISBN") & ";" 

strMsg = strMsg & objResult.get(i).get("Titel") & ";" 

strMsg = strMsg & objResult.get(i).get("Autor") & vbNewLine 

next 

end if 

msgbox strMsg 

Seite 14


Function lookupDict 

Wie Funktion lookup, liefert allerdings den gesamten Datensatz in einem DataDict 

Objekt zurück. 

Function lookupDict(Query As String, [Name As String], [Value As String], 

[Visible As Boolean = true]) As DataDict 


Name (optional): Ein Feld der Datenquelle das gefiltert werden soll 

Value (optional): Der Filter für das mit "Name" angegebene Feld 



Ein DataDict Objekt mit dem ausgewählten Datensatz. 


Benutzer den Lookup-Dialog mit Abbrechen beendet wird ein DataDict Objekt mit 

Count = 0 zurückgeliefert. 

Beispiel: 


set objDict = objUDS.lookupDict("Bücher", "Titel", "Lehrbuch", false) 

for i = 0 to objDict.Count - 1 

strMsg = strMsg & objDict.getName(i) & "=" & objDict.getValue(i) & vbNewLine 

next 

msgbox strMsg 

Seite 15



Arbeitet ähnlich wie lookupDict, allerdings können hier mehrere Filterkriterien in 

Form eines DataDict Objektes übergeben werden. 

Function lookupDict2(Query As String, Filter As DataDict, [Visible As Boolean = 

true]) As DataDict 





Ein DataDict Objekt mit dem ausgewählten Datensatz. 


Benutzer den Lookup-Dialog mit Abbrechen beendet wird ein DataDict Objekt mit 

Count = 0 zurückgeliefert. 

Beispiel: 


set objFilter = objUDS.createDict() 

objFilter.add "ISBN", "3-15" 

objFilter.add "Titel", "Faust II" 

set objDict = objUDS.lookupDict2("Bücher", objFilter, false) 

for i = 0 to objDict.Count - 1 

strMsg = strMsg & objDict.getName(i) & "=" & objDict.getValue(i) & vbNewLine 

next 

msgbox strMsg 

Seite 16



Wie lookupDict2, liefert aber zusätzlich die Anzahl der gefundenen Datesätze zurück. 

Function lookupDict3(Query As String, Filter As DataDict, Visible As Boolean, 

ResDict As DataDict) As Long 



Visible: Falls true, wird der Lookup-Dialog angezeigt 

ResDict Enthält bei eindeutigem Ergebnis ein DataDict Objekt mit 

dem Datensatz, sonst ein leeres DataDict Objekt 


Anzahl der gefundenen Datensätze. 

Beispiel: 


set objFilter = objUDS.CreateDict() 

objFilter.Add "ISBN", "3-0" 

i = objUDS.LookupDict3("Bücher", objFilter, false, objResult) 

strMsg = "Anzahl Datensätze: " & i & vbNewLine 

if i = 1 then 

strMsg = strMsg & "ISBN: " & objResult.get("ISBN") 

end if 

msgbox strMsg 

Seite 17

UDS API Objekt Meta 

Objekt Meta 

Das Meta Objekt ist die Schnittstelle zum Abrufen der Metainformationen, die über 

das Config Tool eingestellt wurden. 


Liefert eine Liste aller Konfigurationen, die zu einer bestimmten Maske in einem 

bestimmten Archiv existieren. 

Function getLookupList(Archive As String, MaskID As Long) As MetaLookupList 

Archive: Name des Elo Archivs 

MaskID: Masken ID der ELO Verschlagwortungsmaske 


Ein MetaLookupList Objekt das den Zugriff auf alle Lookups ermöglicht, die für diese 

Maske definiert sind 

Beispiel: 

Set objUDS = CreateObject("eloxUds2Library.Main") 

Set objMeta = objUDS.getMeta() 

Set objMetaList = objMeta.getLookupList("Elo4Archiv", "14") 

For i = 0 To objMetaList.count - 1 

strMsg = strMsg & objMetaList.Item(i).Datasource & vbNewLine 

Next 

msgbox strMsg 

Seite 18

UDS API Objekt MetaLookupList 

Objekt MetaLookupList 

Die MetaLookupList ermöglicht den Zugriff auf die einzelnen MetaLookup Objekte. 

Function count 

Gibt die Anzahl der Elemente zurück 

Function count() As Long 


Anzahl der MetaLookup Objekte 

Siehe auch: 


Function item 

Liefert ein einzelnes MetaLookup Objekt zurück. Der Index beginnt bei 0 und endet 

bei MetaLookupList.count - 1 

Function item(Index As Long) As MetaLookup 

Index: 0-basierter Index 


Das MetaLookup Objekt an Position ID 

Siehe auch: 


Seite 19

UDS API Objekt MetaLookup 

Objekt MetaLookup 

Das MetaLookup Objekt korrespondiert mit den Lookups die im Config Tool angelegt 

wurden. 

Property Datasource 

Liefert den Namen der Datenquelle zurück 

Property Datasource As String 

Property FieldID 

ELO Indexnummer des Feldes, das den Lookup auslöst (beginnt bei 0). 

Property FieldID As Long 

Property MaskID 

ELO Nummer der Verschlagwortungsmaske 

Property MaskID As Long 

Property Name 

Name der Lookupkonfiguration 

Property Name As String 

Seite 20


Function getFilterMapping 

Liefert eine Liste mit den Filtermappings (Zuordnungen Elo Maskenfeld – 

Datenbankfeld für das Vorfiltern der Datensätze). 

Function getFilterMapping(Index As Long) As MetaLookupMapping 



Ein MetaLookupMapping Object 

Beispiel: 





for j = 0 to objMetaList.item(i).getFiltermappingCount – 1 

set objFilterMapping = objMetaList.item(i).getFiltermapping(i) 

strMsg = strMsg & objFilterMapping.FieldID & "=" 

strMsg = strMsg & objFilterMapping.DBFieldName & vbNewLine 

next 

Next 

msgbox strMsg 

Function getFilterMappingCount 

Stellt fest, wie viele Filtermappings für eine bestimmte Maske definiert wurden. 

Function getFilterMappingCount() As Long 


Anzahl der Filtermappings 

Siehe auch: 


Seite 21


Function getOption 

Im Augenblick wird nur die Option "dbvaluesonly" unterstützt, die angibt, ob 

ausschließlich Datenbankwerte eingetragen werden dürfen. In Zukunft werden hier 

noch weitere Optionen verfügbar sein. 

Function getOption(Name As String) As String 

Name: Der Name einer bestimmten Konfigurations-Option 

Es wird momentan nur "dbvaluesonly" unterstützt. 


Der Wert dieser Option 

Beispiel: 





strMsg = strMsg & objMetaList.item(i).Name & "=" 

strMsg = strMsg & objMetaList.item(i).getOption("dbvaluesonly") 

Next 

msgbox strMsg 

Seite 22


Function getOutputMapping 

Die Funktion ist analog zu getFilterMapping und liefert eine Liste aller 

Ausgabemappings zurück (Zuordnungen Elo Maskenfeld – Datenbankfeld für das 

Ausgeben der Datensätze) 

Function getOutputMapping(Index As Long) As MetaLookupMapping 



Ein MetaLookupMapping Object 

Siehe auch: 


Function getOutputMappingCount 

Liefert die Anzahl der Ausgabemappings zurück. 

Function getOutputmappingCount() As Long 


Anzahl der Ausgabemappings 

Siehe auch: 


Seite 23

UDS API Objekt MetaLookupMapping 

Objekt MetaLookupMapping 

Das MetaLookupMapping Objekt beinhaltet die Beschreibung, welches ELO- 

Maskenfeld mit welchem Datenquellenfeld verknüpft ist (sowohl bei Filter- als auch 

bei Ausgabemappings). 

Property DBFieldName 

Name des des Datenbankfelds 

Property DBFieldName As String 

Siehe auch 


Property FieldID 

Elo Indexnummer des Maskenfeldes 

Property FieldID As Long 

Siehe auch: 


Seite 24

UDS API Objekt DataDict 

Objekt DataDict 

Das DataDict ist ein Dictionary, das bei der Definition von Filtern oder bei der 

Rückgabe eines Datensatzes verwendet wird. Der lesende Zugriff erfolgt entweder 

assoziativ über den Namen des Eintrags (Function get) oder über die Position 

(Function getName bzw. getValue). 

Sub add 

Fügt einen neuen Eintrag hinzu. Werden mehrere Elemente mit gleichem Namen 

hinzugefügt, wird der vorherige Wert überschrieben. 

Sub add(Name As String, Value As String) 

Name: Eindeutiger Name, über den der Eintrag identifiziert wird 

Value: Wert dieses Eintrags 

Beispiel: 


Set objDict = objUDS.CreateDict() 

objDict.add "ISBN", "0-3" 

objDict.add "Titel", "Lehrbuch" 

objDict.add "Titel", "Schulbuch" 

msgbox objDict.get("Titel") 

Seite 25



Liefert die Anzahl der Einträge des DataDict zurück 



Anzahl der Elemente 

Beispiel: 


Set objDict = objUDS.CreateDict() 

objDict.add "ISBN", "0-3" 

objDict.add "Titel", "Lehrbuch" 

msgbox "Anzahl der Elemente: " & objDict.count() 

Function get 

Liefert den Wert eines Eintrags über dessen Namen zurück 

Function get(Name As String) As String 

Name: Name des Eintrags, dessen Wert zurückgegeben werden soll 


Wert des Eintrags oder der Leerstring, falls der Eintrag nicht vorhanden ist. 

Siehe auch: 

Sub add 

Seite 26


Function getName 

Liefert den Namen eines Eintrags über dessen Position (beginnt bei 0) zurück 

Function getName(Index as Long) As String 



Name des Eintrags. Wird auf einen Index zugegriffen, der nicht existiert, wird ein 

"List index out of bounds" Fehler erzeugt. 

Siehe auch: 

Seite 27



Function getValue 

Liefert den Wert eines Eintrags über dessen Position (beginnt bei 0) zurück 

Function getValue (Index as Long) As String 



Wert des Eintrags. Wird auf einen Index zugegriffen, der nicht existiert, wird ein "List 

index out of bounds" Fehler erzeugt. 

Siehe auch: 

Seite 28



Seite 29

UDS API Objekt DictArray 

Objekt DictArray 

Das DictArray wird für den Zugriff auf Datensätze verwendet, die von der Funktion 

Main.lookupArray zurück geliefert werden. 


Liefert die Anzahl der Einträge des DictArray zurück 



Anzahl der Elemente 

Siehe auch: 

Seite 30



Function get 

Liefert den Wert eines Eintrags über dessen Position (beginnt bei 0) zurück 

Function get(Index as Long) As DataDict 



Ein DataDict Objekt . Wird auf einen Index zugegriffen, der nicht existiert, wird ein 

"List index out of bounds" Fehler erzeugt. 

Siehe auch: 

Seite 31



Seite 32

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 blnRet ' As Boolean 

blnDBValuesOnly = objLookup.getOption("dbvaluesonly") 

'blnValidateOnExit = objLookup.getOption("validateonexit") 

lngActionKey = mobjElo.ActionKey 

Seite 33


' Feststellen, ob Suchmaske 

If lngActionKey > cnSearchMask Then 

blnIsSearchMask = True 

lngActionKey = lngActionKey - cnSearchMask 

End If 

' Bei Bedarf Anlegen eines Nachschlagebuttons 

If lngActionKey = 24 Then 

If mobjElo.TextParam = "" Then ' Es existiert noch kein Button 

strTextMask = "0000" 

For i = 0 To objLookup.FieldID - 1 

strTextMask = strTextMask & "0" 

Next 

strTextMask = strTextMask & "1" 

mobjElo.TextParam = strTextMask 

Else 

strTextMask = mobjElo.TextParam 

lenTM = Len(strTextMask) 

If lenTM < objLookup.FieldID + 4 Then 

strMaskFiller = Space((objLookup.FieldID + 4) - lenTM) 

strMaskFiller = Replace(strMaskFiller, " ", "0") 

strTextMask = strTextMask & strMaskFiller 

End If 

mobjElo.TextParam = Left(strTextMask, objLookup.FieldID + 4) & "1" & 

Mid(strTextMask, objLookup.FieldID + 6) 

End If 

End If 

' Bei Betätigen des Buttons 

If lngActionKey = (3000 + objLookup.FieldID) Then 

Call FillFieldsFromLookup(objLookup, True, blnIsSearchMask) 

End If 

If Not blnIsSearchMask Then 

' Bei Verlassen des Feldes 

If lngActionKey = (2000 + objLookup.FieldID) Then 

If Trim(mobjElo.GetObjAttrib(objLookup.FieldID)) = "" Then 

Call ClearMappingFields(objLookup) 

Else 

blnFieldsOK = FillFieldsFromLookup(objLookup, False, False) 

If blnDBValuesOnly And Not blnFieldsOK Then 

MsgBox "Sie müssen entweder einen gültigen Wert eingeben oder 

das Feld leer lassen." 

mobjElo.ScriptActionKey = 1000 + objLookup.FieldID 

End If 

End If 

End If 

End If 

End Sub 

'------------------------------------------------------------------------------ 

' Befüllt die Felder. Liefert True zurück, wenn der Anwender einen korrekten 

Datensatz gewählt hat 

'------------------------------------------------------------------------------ 

'Function FillFieldsFromLookup(objLookup As eloxUds2Library.MetaLookup, 

blnVisible As Boolean, blnIsSearchMask As Boolean) As Boolean 

Private Function FillFieldsFromLookup(objLookup, blnVisible, blnIsSearchMask) 

Dim objDic ' As eloxUds2Library.DataDict 

Dim objFilterMapping ' As elox2UdsLibrary.MetaLookupMapping 

Dim objOutMapping ' As eloxUds2Library.MetaLookupMapping 

Dim objFilterDic ' As eloxUds2Library.DataDict 

Dim arrFields, arrNameValue, Field 

Dim strOldValue ' As String 


Dim blnRet ' As Boolean 

Set objFilterDic = mobjUDS.createDict 

For i = 0 To objLookup.getFiltermappingCount - 1 

Set objFilterMapping = objLookup.getFilterMapping(i) 

Seite 34


Select Case objFilterMapping.FieldID 

Case 1001 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjShort 

Case 1002 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjXDate 

Case 1003 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjMemo 

Case Else 

objFilterDic.Add objFilterMapping.DBFieldName, 

mobjElo.GetObjAttrib(objFilterMapping.FieldID) 

End Select 

Next 

If blnVisible Then 

Set objDic = mobjUDS.lookupDict2(objLookup.DataSource, objFilterDic, 

True) 

Else 


False) 

End If 

If objDic.Count = 0 And Not blnVisible Then 


True) 

End If 

If objDic.Count > 0 Then 

blnRet = True 

If blnIsSearchMask Then 

Set objOutMapping = objLookup.getOutputMapping(0) 

mobjElo.SetObjAttrib objLookup.FieldID, 

objDic.get(objOutMapping.DBFieldName) 

Else 

For i = 0 To objLookup.getOutputmappingCount - 1 

Set objOutMapping = objLookup.getOutputMapping(i) 

Select Case objOutMapping.FieldID 

Case 1001 

mobjElo.ObjShort = objDic.get(objOutMapping.DBFieldName) 

Case 1002 

mobjElo.ObjXDate = objDic.get(objOutMapping.DBFieldName) 

Case 1003 

mobjElo.ObjMemo = objDic.get(objOutMapping.DBFieldName) 

Case Else 

mobjElo.SetObjAttrib objOutMapping.FieldID, 


End Select 

Next 

End If 

End If 

FillFieldsFromLookup = blnRet 

End Function 

'------------------------------------------------------------------------------ 

' Löscht alle gemappten Felder 

'------------------------------------------------------------------------------ 

'Sub ClearMappingFields(objLookup As eloxUdsLibrary.MetaLookup) 

Sub ClearMappingFields(objLookup) 

Dim objOutMapping ' As eloxUds2Library.MetaLookupMapping 




mobjElo.SetObjAttrib objOutMapping.FieldID, "" 

Next 

End Sub 

Seite 35


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 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 blnRet ' As Boolean 

blnRet = false 

Set objFilterDic = mobjUDS.createDict 

For i = 0 To objLookup.getFiltermappingCount - 1 

Seite 36


Set objFilterMapping = objLookup.getFilterMapping(i) 

Select Case objFilterMapping.FieldID 

Case 1001 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjShort 

Case 1002 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjXDate 

Case 1003 

objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjMemo 

Case Else 

objFilterDic.Add objFilterMapping.DBFieldName, 

mobjElo.GetObjAttrib(objFilterMapping.FieldID) 

End Select 

Next 

Set objDic = mobjUDS.lookupDict2(objLookup.DataSource, objFilterDic, False) 

If Not objDic Is Nothing then 

If objDic.Count > 0 Then 

blnRet = true 



Select Case objOutMapping.FieldID 

Case 1001 

mobjElo.ObjShort = objDic.get(objOutMapping.DBFieldName) 

Case 1002 

mobjElo.ObjXDate = objDic.get(objOutMapping.DBFieldName) 

Case 1003 

mobjElo.ObjMemo = objDic.get(objOutMapping.DBFieldName) 

Case Else 

mobjElo.SetObjAttrib objOutMapping.FieldID, 


End Select 

Next 

End If 

End If 

FillFieldsFromLookup = blnRet 

End Function 

Seite 37

Programmierschnittstelle UDS for ELO Universelle ...

Erfolgreiche ePaper selbst erstellen

Template löschen?

Als Template speichern?