Event "nach Stammdatensatz speichern"

Der Event wird direkt nach dem Speichern eines Stammdatensatzes aus einem BE-Fenster aufgerufen, d.h. nach Speichern des Artikels, Kunden, Zulieferers oder Vertreters.
Bei Ausführung des Events ist keine Transaktion mehr aktiv!

Erweiterung ab V5.0 Build 18:

Dem Event wird als weiterer Parameter die Original-Artikel-/Kunden-/Lieferanten-Nr. übergeben, falls bei der entsprechenden Neuanlage das Kopieren eines Datensatzes gewählt wurde.

Beispiel

CODE

| nEvtNo:P1, oDabMaster:P2, cCopyFrom:P3, oDab010, oDab510, oDM |

// Stammdatensatz (Artikel,Kunde,Zulief.,Vertr.) wurde vollständig gespeichert,
// es ist keine Transaktion aktiv!
// cCopyFrom enthält ggf. als String die Art./Kd./Lief.-Nr. des Original-Datensatzes.

// Zulieferer EK als Standard-EK abspeichern

startseq,
   if oDabMaster.workarea = waDAB510 then
      if Empty(oDM) then
         oDM := Createobject("TbeDBGet",,,,true),
         oDab010 := DBGetTable(oDM,waDAB010,),
         oDab510 := DBGetTable(oDM,waDAB510,),
         oDab010.writeprotocol := true,
      endif,
      if Lookup(waDAB510, 'DAB511',<code>oDabMaster:artnr</code>,"LINR") = oDabMaster:Linr then //wenn Hauptlieferant
         if DBseek({oDabMaster:artnr},oDab010) then
            PRS("Event Stammsatz","Edit"),
            MyEdit(oDAb010),
            oDab010:ekp := EKPEw(oDabMaster:ekpfw,oDabMaster:rabatt1,oDabMaster:rabatt2,
                                 0,false,oDab010:bestelleh,
                                 {oDabMaster:z_kost1,oDabMaster:z_kost2,oDabMaster:z_kost3},
                                 {oDabMaster:z_mode1,oDabMaster:z_mode2,oDabMaster:z_mode3},
                                 true,true,oDab010,oDab510),
            PRS("Event Stammsatz",{"EKP",oDab010:ekp}),
            MyPost(oDab010),
         endif,
      endif,
   endif,
onerror,
   Meld("Fehler im Event 'nach Stammsatz speichern' " + GetErrorText()),
stopseq,