Skip to main content
Skip table of contents

TBeContactBusinessController

TBeContactBusinessController

Die Klasse TBeContactBusinessController kapselt wichtige Funktionen zum Erstellen und Löschen der Datensätze eines TBecontactBusinessObjects.

Funktionen

FunktionParameterBeschreibung

CbInsertContact:N

Erstellt einen neuen Kontakt und bleibt im Edit-Modus



aType:CKontakt-Typ K(Kunde), V(Verteter) oder Z(Zulieferer)
aPersNo:NNummer des Kunden, Vertreter oder Zulieferers
aContactBO:OVerwendetes Kontakt-BO

CbDeleteContact:L

Löscht den aktuellen Kontakt

aContactBO:OVerwendetes Kontakt-BO

CbPostContact:L

Speichert die aktuellen Änderungen am Kontakt

aContactBO:OVerwendetes Kontakt-BO

Beispiel

CODE
//##############################################################################
//##############################################################################
// Beschreibung: TBeContactBO
//               BusinessObject zum Auslesen der Kontakt-Daten
//               BusinessController zum Erstellen neuer Kontakte
//##############################################################################
//##############################################################################

| m_oContactBO, m_oContactBusinessController |

//******************************************************************************
// Datensatz einfügen
//******************************************************************************
function InsertPostContact()
| cType, nPersNo |
   nPersNo := 255,
   cType   := 'K',
   DBStartTrans(m_oContactBO.CbDataModule.ADSConnection),
   startseq
      m_oContactBusinessController.CbInsertContact(cType, nPersNo, m_oContactBO),
      m_oContactBusinessController.CbPostContact(m_oContactBO),

      DBCommit(m_oContactBO.CbDataModule.ADSConnection),

   always
      if DBInTrans(m_oContactBO.CbDataModule.ADSConnection) then
         DBRollback(m_oContactBO.CbDataModule.ADSConnection),
      endif,
   stopseq
end,

//******************************************************************************
// Datensatz auslesen
//******************************************************************************
function ReadContactInformation(),
   // Schreibt die Informationen des aktuellen Datensatzes
   WriteLn('Der Typ des aktuellen Kontakts ist: ' + m_oContactBO.CbMasterType),
   WriteLn('Der Kontakt ist der Nummer zugeordnet: ' + Str(m_oContactBO.CbMasterID)),
end,

//******************************************************************************
// Datensatz löschen
//******************************************************************************
function DeleteContact()
   DBStartTrans(m_oContactBO.CbDataModule.ADSConnection),
   startseq
      m_oContactBusinessController.CbDeleteContact(m_oContactBO),

      DBCommit(m_oContactBO.CbDataModule.ADSConnection),

   always
      if DBInTrans(m_oContactBO.CbDataModule.ADSConnection) then
         DBRollback(m_oContactBO.CbDataModule.ADSConnection),
      endif,
   stopseq
end,

//******************************************************************************
// Hauptfunktion
//******************************************************************************
function InsertDeleteContact()
   m_oContactBO := CreateObject('TBeContactBO'),
   startseq
      m_oContactBusinessController := CreateObject('TBeContactBusinessController'),
      startseq
         m_oContactBusinessController.CbDataModule := m_oContactBO.CbDataModule,
         InsertPostContact(),
         ReadContactInformation(),
         DeleteContact(),
      always
         DestroyObject(m_oContactBusinessController),
      stopseq
   always
      DestroyObject(m_oContactBO),
   stopseq
end,

//******************************************************************************
// Aufruf der Hauptfunktion
//******************************************************************************
InsertDeleteContact()

Weitere Verknüpfungen


JavaScript errors detected

Please note, these errors can depend on your browser setup.

If this problem persists, please contact our support.