Codeblock Onlinehilfe
Codeblock Onlinehilfe
Breadcrumbs

TBeCbCustomBusinessObject

TBeCbCustomBusinessObject

Die Klasse TBeCBCustomBusinessObject ist die Vorgänger-Klasse aller Business-Objekt Klassen.Alle hier aufgeführten Eigenschaften, Felder, Methoden können in den Business-Objekt Klassen verwendet werden.

Eigenschaften

Eigenschaft

Beschreibung

CaptionInfo:O


CbCaptionInfo:O

Caption-Eigenschaften als TBeBoInfoCaption Objekt

CbChanged:N

Zuletzt geändert Datum & Zeit (entspricht GEAENDERT)

CbChangedBy:C

Zuletzt geändert durch (entspricht GEAEND_USR)

CbCheckFieldRights:L


CbCreated:N

Erstellt Datum & Zeit (entspricht ERSTELLT)

CbCreatedBy:C

Erstellt durch (entspricht PLATZ)

CbDataModule:O

Daten-Modul des Business-Objekts. Muss vor der ersten Verwendung des Business Objekts gesetzt werden

CbGUIDStr:C


CbID:N

(nur lesend) ID des Business Objekts, -1 wenn nicht positioniert oder leer

CbReadOnly:L

Business Objekt für Änderungen sperren

CbTable:O

Haupt-Tabelle des Business Objekts, für den Zugriff auf Individual-Felder

CbUseTableAlias:C

Individueller Alias-Name für die Haupt-Tabelle des Business Objekts Hinweis: Durch Verwendung dieser Eigenschaft ist die Tabelle im DatenModul nicht mehr über den Default-Alias-Namen der Tabelle aufzufinden

Name:C


Tag:N


Methoden

Methode

Beschreibung

CbGotoID(aBoID:N)

Business Objekt positionieren

CbInsert()

Neuanlage-Modus

CbEdit()

Edit-Modus

CbCancel()

Edit-Modus verlassen

CbPost()

Änderungen speichern

CbDelete()

Projekt löschen

CbInEditOrInsertMode():L


CbInEditMode():L


CbInInsertMode():L

Neuanlage-Modus aktiv

CbInBrowseMode():L

Neuanlage/Edit Modus nicht aktiv

CbCanRead():L

Darf der aktuelle BO-Inhalt angezeigt werden (besitzt er eine Leseberechtigung)

CbCheckRight_Read():L


CbCheckRight_Insert():L


CbCheckRight_Edit():L


CbCheckRight_Delete():L


CbCheckRight_Validate():L


CbCheckFieldRight_Read(aFieldName:C):L


CbCheckFieldRight_Edit(aFieldName:C):L


CbCheckFieldRight_Validate(aFieldName:C):L


Beispiel 

// siehe Beispiel zu den jeweiligen Business-Objekten

// Beispiel für die Verwendung von UseTableAlias
|oMemoBOSource, oMemoBODest, oDBGet, nSourceID, nDestID|

oDBGet        := CreateObject('TBeDBGet'),
oMemoBOSource := CreateObject('TBeMemoBO'),
oMemoBODest   := CreateObject('TBeMemoBO'),
startseq
   oMemoBOSource.CbDataModule  := oDBGet,
   oMemoBODest.CbDataModule    := oDBGet,
   oMemoBODest.CbUseTableAlias := 'DAB065_DEST',

   oMemoBOSource.WriteLastUsed := False,
   oMemoBODest.WriteLastUsed   := False,

   oMemoBOSource.CbInsertEmptyMemo(0,  bcMemoLinkIDUser, val(c_usr), 0),
   oMemoBOSource.SubjectValue   := 'Quell-Memo',
   // oMemoBOSource.CbTable:X_INDI := 'Quell-Individual-Feld',
   oMemoBOSource.CbPost(),
   nSourceID := oMemoBOSource.CbID,

   oMemoBODest.CbInsertEmptyMemo(0, bcMemoLinkIDUser, val(c_usr), 0),
   oMemoBODest.SubjectValue := 'Ziel-Memo',
   oMemoBODest.CbPost(),
   nDestID := oMemoBODest.CbID,

   writeln('SourceID: ' + Str(nSourceID) + ' | ' + oMemoBOSource.SubjectValue),
   writeln('DestID: '   + Str(nDestID)   + ' | ' + oMemoBODest.SubjectValue),

   // Betreff vom Source-BO in das Dest-BO kopieren
   oMemoBODest.CbEdit(),
   oMemoBODest.SubjectValue   := oMemoBOSource.SubjectValue,
   // oMemoBODest.CbTable:X_INDI := oMemoBOSource.CbTable:X_INDI,
   oMemoBODest.CbPost(),

   writeln('SourceID: ' + Str(nSourceID) + ' | ' + oMemoBOSource.SubjectValue),
   writeln('DestID: '   + Str(nDestID)   + ' | ' + oMemoBODest.SubjectValue),
always
   DestroyObject(oMemoBODest),
   DestroyObject(oMemoBOSource),
   DestroyObject(oDBGet),
stopseq,

Weitere Verknüpfungen