combit Relationship Manager Objekt-Referenz - combit GmbH
combit Relationship Manager Objekt-Referenz - combit GmbH
combit Relationship Manager Objekt-Referenz - combit GmbH
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong><strong>Objekt</strong> <strong>Referenz</strong>MsgBox "Datensatz konnte nicht geschrieben werden!"End If' Datensatz entsperren:oRecord.Unlock' <strong>Objekt</strong>e freigeben:Set oRecordSet = NothingSet oView= NothingSet oListViewConfigs = NothingSet oProject= Nothing'--------------------------------------------------------------------' Funktion: Konvertierung eines 8-stelligen Datums' in das interne cRM OLE DatumsformatFunction ConvertDateTocRMDate (myDate)'--------------------------------------------------------------------ConvertDateTocRMDate = Mid(myDate,7,4) & Mid(myDate,4,2) &Left(myDate,2)End FunctionErstellen eines Filters (Filter.vbs)Option Explicit' <strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong> Variablen:Dim oProject, oActiveView, oCurrentRecordSet, oCurrentRecord, bFilter' <strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong> <strong>Objekt</strong>e:Set oProject = cRM.CurrentProjectSet oActiveView = oProject.ActiveViews.ActiveViewSet oCurrentRecordSet = oActiveView.CurrentRecordSet' Filter erstellen für alle Datensätze im Postleitzahlenbereich 70000- 80000:bFilter = oCurrentRecordSet.SetFilter("upper([PLZZ]) >=upper('70000') AND upper([PLZZ])
Change language