Programmierschnittstelle UDS for ELO Universelle ...

Empfehlungen

Info

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
UDS API Objekt DictArray 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 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, objDic.get(objOutMapping.DBFieldName) End Select Next End If End If FillFieldsFromLookup = blnRet End Function Seite 37
Seite 1 und 2: Programmierschnittstelle UDS for EL
Seite 3 und 4: Inhalt: Übersicht.................
Seite 5 und 6: Übersicht Main Das Hauptobjekt, da
Seite 7 und 8: UDS API Objekt Main Objekt Main Das
Seite 9 und 10: UDS API Objekt Main Function lookup
Seite 11 und 12: UDS API Objekt Main Function getLic
Seite 19 und 20: UDS API Objekt MetaLookupList Objek
Seite 21 und 22: UDS API Objekt MetaLookup Function
Seite 23 und 24: UDS API Objekt MetaLookup Function
Seite 25 und 26: UDS API Objekt DataDict Objekt Data
Seite 27 und 28: UDS API Objekt DataDict Function ge
Seite 29 und 30: UDS API Objekt DataDict Function lo
Seite 31 und 32: UDS API Objekt DictArray Function l
Seite 33 und 34: UDS API Anlage 1 Anlage 1 - doLooku
Seite 35: UDS API Anlage 1 Select Case objFil

Programmierschnittstelle UDS for ELO Universelle ...

Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.

Template löschen?

Als Template speichern?