Programmierschnittstelle UDS for ELO Universelle ...
Programmierschnittstelle UDS for ELO Universelle ...
Programmierschnittstelle UDS for ELO Universelle ...
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
<strong>UDS</strong> API Anlage 1<br />
Select Case objFilterMapping.FieldID<br />
Case 1001<br />
objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjShort<br />
Case 1002<br />
objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjXDate<br />
Case 1003<br />
objFilterDic.Add objFilterMapping.DBFieldName, mobjElo.ObjMemo<br />
Case Else<br />
objFilterDic.Add objFilterMapping.DBFieldName,<br />
mobjElo.GetObjAttrib(objFilterMapping.FieldID)<br />
End Select<br />
Next<br />
If blnVisible Then<br />
Set objDic = mobj<strong>UDS</strong>.lookupDict2(objLookup.DataSource, objFilterDic,<br />
True)<br />
Else<br />
Set objDic = mobj<strong>UDS</strong>.lookupDict2(objLookup.DataSource, objFilterDic,<br />
False)<br />
End If<br />
If objDic.Count = 0 And Not blnVisible Then<br />
Set objDic = mobj<strong>UDS</strong>.lookupDict2(objLookup.DataSource, objFilterDic,<br />
True)<br />
End If<br />
If objDic.Count > 0 Then<br />
blnRet = True<br />
If blnIsSearchMask Then<br />
Set objOutMapping = objLookup.getOutputMapping(0)<br />
mobjElo.SetObjAttrib objLookup.FieldID,<br />
objDic.get(objOutMapping.DBFieldName)<br />
Else<br />
For i = 0 To objLookup.getOutputmappingCount - 1<br />
Set objOutMapping = objLookup.getOutputMapping(i)<br />
Select Case objOutMapping.FieldID<br />
Case 1001<br />
mobjElo.ObjShort = objDic.get(objOutMapping.DBFieldName)<br />
Case 1002<br />
mobjElo.ObjXDate = objDic.get(objOutMapping.DBFieldName)<br />
Case 1003<br />
mobjElo.ObjMemo = objDic.get(objOutMapping.DBFieldName)<br />
Case Else<br />
mobjElo.SetObjAttrib objOutMapping.FieldID,<br />
objDic.get(objOutMapping.DBFieldName)<br />
End Select<br />
Next<br />
End If<br />
End If<br />
FillFieldsFromLookup = blnRet<br />
End Function<br />
'------------------------------------------------------------------------------<br />
' Löscht alle gemappten Felder<br />
'------------------------------------------------------------------------------<br />
'Sub ClearMappingFields(objLookup As eloxUdsLibrary.MetaLookup)<br />
Sub ClearMappingFields(objLookup)<br />
Dim objOutMapping ' As eloxUds2Library.MetaLookupMapping<br />
Dim i ' As Long<br />
For i = 0 To objLookup.getOutputmappingCount - 1<br />
Set objOutMapping = objLookup.getOutputMapping(i)<br />
mobjElo.SetObjAttrib objOutMapping.FieldID, ""<br />
Next<br />
End Sub<br />
Seite 35
Change language