Skip to main content
Skip table of contents

TBePurchaseDispositionBusinessController

TBePurchaseDispositionBusinessController

Dieser Business-Controller stellt Funktionen und Methoden zur Bearbeitung von Einkauf-Dispositionen bereit.
Achtung: Dieser BusinessController ist veraltet. Bitte verwenden Sie stattdessen den TBePurchaseDispositionBC

Eigenschaften

Eigenschaft Beschreibung

CbDataModule:O

Daten-Modul, für alle Funktionen und Methoden. Zum ändern / erzeugen von Daten muss auf diesem Daten-Modul eine Transaktion gestartet werden.

Funktionen

Funktion ParameterBeschreibung

CbCreateDisposition:L

Erstelle eine neue Einkauf-Disposition und verbleibt im Bearbeitungs-Modus
Rückgabe: True - falls Neuanlage erfolgreich




aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO)
aArtNo:CArtikel für welchen die Disposition angelegt werden soll
aQuantPurch:NMenge in Einkaufs-Einheit
aSupplierNo:N

Lieferant für welchen die Disposition angelegt werden soll 0 bedeutet das kein direkter Lieferant vorhanden ist

CbEditDisposition:L

Versetzt eine bestehende Einkauf-Disposition in den Bearbeitungs-Modus

aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO) (auf Disposition positioniert)

CbDeleteDisposition:L

Löscht eine bestehende Einkauf-Diposition
Rückgabe: True - falls Löschung erfolgreich

aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO) (auf Disposition positioniert)

CbPostDisposition:L

Speichert eine im Bearbeitungs-Modus befindende Einkauf-Disposition
Rückgabe: True - falls Speicherung erfolgreich

aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO) (auf Disposition positioniert)

CbCancelDisposition:L

Abbruch des Bearbeitungs-Modus
Rückgabe: True - falls Abbruch erfolgreich

aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO) (auf Disposition positioniert)

CbChangeQuantityAndRecalc:L

Ändert die Menge der Disposition und lädt ggf. die Staffelpreise neu

aBO:OEinkauf Disposition Business-Objekt (TBePurchaseDispositionBO) (auf Disposition positioniert)
aQuantity:NNeue Menge

Beispiel

CODE
|oDispoBO, oDispoController, oDBGet, nID1, nID2,
 cArtNo:C:='TEST', nSuppNo:N:=1000|

oDBGet           := CreateObject('TBeDBGet'),
oDispoController := CreateObject('TBePurchaseDispositionBusinessController'),
oDispoBO         := CreateObject('TBePurchaseDispositionBO'),
startseq
   oDispoController.CbDataModule := oDBGet,
   oDispoBO.CbDataModule         := oDBGet,

   DbStartTrans(oDBGet.AdsConnection),
   startseq
      // neue Disposition anlegen
      if oDispoController.CbCreateDisposition(oDispoBO, cArtNo, 2, nSuppNo) then
         oDispoBO.CbQuantity := 8, // -> berechnet die Menge_EK neu falls eine Umrechnung vorhanden ist
         oDispoBO.CbCommiss  := 'TEST1',
         oDispoController.CbPostDisposition(oDispoBO),
         nID1 := oDispoBO.CbID,
         writeln('Einkauf-Disposition angelegt ID: ' + Str(oDispoBO.CbID)),
      endif,

      // neue Disposition anlegen
      if oDispoController.CbCreateDisposition(oDispoBO, cArtNo, 3, nSuppNo) then
         oDispoBO.CbCommiss  := 'TEST2',
         oDispoController.CbPostDisposition(oDispoBO),
         nID2 := oDispoBO.CbID,
         writeln('Einkauf-Disposition angelegt ID: ' + Str(oDispoBO.CbID)),
      endif,

      // erste Disposition ändern
      oDispoBO.CbGotoID(nID1),
      if oDispoController.CbEditDisposition(oDispoBO) then
         oDispoBO.CbCommiss    := 'Neu',
         oDispoBO.CbQuantPurch := oDispoBO.CbQuantPurch + 3, // Menge aus zweiter Diposition addieren
         oDispoController.CbPostDisposition(oDispoBO),
         writeln('Einkauf-Disposition geändert ID: ' + Str(oDispoBO.CbID)),
      endif,

      // zweite Disposition wieder löschen
      oDispoBO.CbGotoID(nID2),
      oDispoController.CbDeleteDisposition(oDispoBO),
      writeln('Einkauf-Disposition gelöscht ID: ' + Str(nID2)),

      DbCommit(oDBGet.AdsConnection),
   always
      if DbInTrans(oDBGet.AdsConnection) then
         DbRollback(oDBGet.AdsConnection),
      endif,
   stopseq,
always
   DestroyObject(oDispoBO),
   DestroyObject(oDispoController),
   DestroyObject(oDBGet),
stopseq,

Weitere Verknüpfungen


JavaScript errors detected

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

If this problem persists, please contact our support.