Event "nach Kd.Auftr.Kopf speichern"

| nEvtNo:P1, oDab000:P2, oDab050:P3, oDab055:P4, oDab010:P5, nWasDBState:P6, oOldDab050:P7 |

// Auftrags-Kopf wurde vollständig gespeichert,
// oDab055 und oDab010 sind nicht(!) positioniert und dürfen editiert werden,
// Transaktion ist noch aktiv!
// nWasDBState - gibt DBState() der oDab050 vor Speicherung an
// oOldDab050  - MemoryTable mit Zustand der oDab050 vor Speicherung

startseq,                 
   if oDab050:TYP <> 'A' then
      if oDab000:MWSTKZ and Empty(oDAB000:UST_IDNR) then
         if empty(oDab000:LANDNR) then
            MessageDlg("Achtung: Für den aktuellen Kunden wurde das Export-Kennzeichen gesetzt" +
                       " und kein Land eingetragen!", mtwarning),
         else
            if oDab000:LANDNR='004' then
               MessageDlg("Achtung: Für den aktuellen Kunden wurde das Export-Kennzeichen" +
                          " gesetzt und 'Deutschland' als Land eingetragen!", mtwarning),
            else
               if lookup(waDIA020, 'DIA021', <code>oDab000:LANDNR</code>, "EG_KZ") = "J" then
                  MessageDlg("Achtung: Für den aktuellen Kunden wurde das Export-Kennzeichen gesetzt" +
                              " und ein EU-Land eingetragen, aber keine UST-ID hinterlegt!", mtwarning),
               endif,
            endif,
         endif,
      endif,
   endif,
onerror,
   MessageDlg("Fehler in Programm '" + ProgName() + "': " + crlf + crlf + GetErrorText(), mterror),
stopseq,