Event "nach Kd.Auftr. entsperren"

Der Event wird aufgerufen, nachdem ein Kundenauftrag im Auftragsverwaltungsfenster entsperrt wurde (ähnlich der Kalkulation der Gruppen-Rabatte für einen Auftrag).

Beispiel

CODE

//==============================================================================
// Feld 'TYP' in Kundenstamm autom. auf 'K' setzen
//==============================================================================

| nEvtNo:P1, nKdNr:P2, nANummer:P3, oDM, oDAB000, oDAB050 |

// Aufruf erfolgt nach dem Entsperren eines Kunden-Auftrags in der Auftragsverwaltung

//******************************************************************************
//Kundentyp ändern
//******************************************************************************
function ChangeDAB000Typ()
   startseq,
      MyEdit(oDAB000),
      oDAB000:TYP := 'K',
      MyPost(oDAB000),
   onerror,
      SetError("Fehler in Funktion 'ChangeKundTyp()':" + CRLF + GetErrorText()),
   stopseq,
end,

//******************************************************************************
//Hauptprogramm
//******************************************************************************
startseq,
   // DM und  Tabelle aufmachen
   if Empty(oDM) then
      oDM     := CreateObject('TBeDBGet',,,,true),
      oDab000 := DBGetTable(oDM,waDAB000),
      oDab050 := DBGetTable(oDM,waDAB050),
   endif,

   // Tabellen richtig positionieren
   if !DBSeek({Str(nANummer)},oDAB050) then
      SetError("Auftrag "<span style="text-decoration: underline;">Str(nANummer)</span>" wurde nicht gefunden!"),
   endif,
   if !DBSeek({nKdNr},oDAB000) then
      SetError("Kunde "<span style="text-decoration: underline;">Str(nKdNr)</span>" wurde nicht gefunden!"),
   endif,

   // Kundentyp aktualisieren
   if oDAB050:TYP <> 'A' and oDAB000:TYP == 'I' then
      ChangeDAB000Typ(),
   endif,
onerror,
   MessageDlg("Fehler in Event 'Nach Kd.Auftr. Entsperren - Kundentyp ändern': " +
              CRLF + GetErrorText()),
stopseq,