combit Relationship Manager Objekt-Referenz - combit GmbH
combit Relationship Manager Objekt-Referenz - combit GmbH combit Relationship Manager Objekt-Referenz - combit GmbH
combit Relationship ManagerObjekt ReferenzÜberprüfung, ob Ansichten aktiv sind (ActiveViews.vbs)Option Explicit' combit Relationship Manager Variablen:Dim oProject, oListViewSet oProject = cRM.CurrentProjectSet oListView = oProject.ActiveViews' Überprüfung, ob Ansichten aktiv sind:If oListView.Count > 0 ThenMsgBox "Es ist/sind: " & oListView.Count & " Ansichten aktiv."ElseMsgBox "Es sind keine Ansichten aktiv."End If' Objekte freigeben:Set oListView = NothingSet oProject = NothingAuf die aktiven Ansichten eines Projektes zugreifen(ActiveView.vbs)Option Explicit' combit Relationship Manager Variablen:Dim oProject, oListViews, oViewSet oProjectSet oListViewsSet oView= cRM.CurrentProject= oProject.ActiveViews= oListViews.ActiveViewMsgBox "Aktive Ansicht: " & oView.Name' .... ....Auf eine konfigurierte Ansicht eines Projektes zugreifen(ConfigView.vbs)Option Explicit' Name der konfigurierten Ansicht:Const sView = "Adressen"' combit Relationship Manager Variablen:Dim oProject, oListViewConfigsSet oProjectSet oListViewConfigs= cRM.CurrentProject= oProject.ViewConfigsDim oView64
combit Relationship ManagerObjekt ReferenzSet oView = oListViewConfigs.ItemByName(CStr(sView))MsgBox "Ansicht: " & oView.Name' .... ....Einen Datensatz in einer konfigurierten Ansicht anlegen(NewDS.vbs)Option Explicit' Name der konfigurierten Ansicht:Const sView = "Adressen"Dim oProject, oListViewConfigsSet oProject= cRM.CurrentProjectSet oListViewConfigs = oProject.ViewConfigsDim oViewSet oView = oListViewConfigs.ItemByName(CStr(sView))Dim oRecordSetSet oRecordSet= oView.CreateRecordSetDim oRecord' Neuer Datensatz anlegen:Set oRecord= oRecordSet.NewRecord' Datensatz sperren:oRecord.Lock' Datensatz schreiben:oRecord.SetContentsByName "Firma", "Script GmbH"oRecord.SetContentsByName "Name", "Mustermann"' Aktuelles Datum Schreiben' internes OLE Datumsformat:' YYYYMMDD - Datum / YYYYMMDDHHMMSS - Datum mit UhrzeitoRecord.SetContentsByName "LPersKont", CStr(ConvertDateTocRMDate(Date ))Dim nUmsatznUmsatz = 1000.52' Numerisches Feld schreiben:oRecord.SetContentsByName "Umsatz_LJ", CStr(nUmsatz)' Logisches Feld setzen:oRecord.SetContentsByName "BonZulaes", CStr("1")' Datensatz speichern und Schreibvorgang prüfen:If oRecord.Save = True ThenMsgBox "Datensatz wurde geschrieben!"Else65
- Seite 14 und 15: combit Relationship ManagerObjekt R
- Seite 16 und 17: combit Relationship ManagerObjekt R
- Seite 18 und 19: combit Relationship ManagerObjekt R
- Seite 20 und 21: combit Relationship ManagerObjekt R
- Seite 22 und 23: combit Relationship ManagerObjekt R
- Seite 24 und 25: combit Relationship ManagerObjekt R
- Seite 26 und 27: combit Relationship ManagerObjekt R
- Seite 28 und 29: combit Relationship ManagerObjekt R
- Seite 30 und 31: combit Relationship ManagerObjekt R
- Seite 32 und 33: combit Relationship ManagerObjekt R
- Seite 34 und 35: combit Relationship ManagerObjekt R
- Seite 36 und 37: combit Relationship ManagerObjekt R
- Seite 38 und 39: combit Relationship ManagerObjekt R
- Seite 40 und 41: combit Relationship ManagerObjekt R
- Seite 42 und 43: combit Relationship ManagerObjekt R
- Seite 44 und 45: combit Relationship ManagerObjekt R
- Seite 46 und 47: combit Relationship ManagerObjekt R
- Seite 48 und 49: combit Relationship ManagerObjekt R
- Seite 50 und 51: combit Relationship ManagerObjekt R
- Seite 52 und 53: combit Relationship ManagerObjekt R
- Seite 54 und 55: combit Relationship ManagerObjekt R
- Seite 56 und 57: combit Relationship ManagerObjekt R
- Seite 58 und 59: combit Relationship ManagerObjekt R
- Seite 60 und 61: combit Relationship ManagerObjekt R
- Seite 62 und 63: combit Relationship ManagerObjekt R
- Seite 66 und 67: combit Relationship ManagerObjekt R
- Seite 68: combit Relationship ManagerObjekt R
<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong><strong>Objekt</strong> <strong>Referenz</strong>Set oView = oListViewConfigs.ItemByName(CStr(sView))MsgBox "Ansicht: " & oView.Name' .... ....Einen Datensatz in einer konfigurierten Ansicht anlegen(NewDS.vbs)Option Explicit' Name der konfigurierten Ansicht:Const sView = "Adressen"Dim oProject, oListViewConfigsSet oProject= cRM.CurrentProjectSet oListViewConfigs = oProject.ViewConfigsDim oViewSet oView = oListViewConfigs.ItemByName(CStr(sView))Dim oRecordSetSet oRecordSet= oView.CreateRecordSetDim oRecord' Neuer Datensatz anlegen:Set oRecord= oRecordSet.NewRecord' Datensatz sperren:oRecord.Lock' Datensatz schreiben:oRecord.SetContentsByName "Firma", "Script <strong>GmbH</strong>"oRecord.SetContentsByName "Name", "Mustermann"' Aktuelles Datum Schreiben' internes OLE Datumsformat:' YYYYMMDD - Datum / YYYYMMDDHHMMSS - Datum mit UhrzeitoRecord.SetContentsByName "LPersKont", CStr(ConvertDateTocRMDate(Date ))Dim nUmsatznUmsatz = 1000.52' Numerisches Feld schreiben:oRecord.SetContentsByName "Umsatz_LJ", CStr(nUmsatz)' Logisches Feld setzen:oRecord.SetContentsByName "BonZulaes", CStr("1")' Datensatz speichern und Schreibvorgang prüfen:If oRecord.Save = True ThenMsgBox "Datensatz wurde geschrieben!"Else65