Event "nach Prod.Fertigmeldung"

Dieser Event wird aufgerufen, nachdem in den offenen Aufträgen der Produktionsverwaltung ein Produktiosauftrag teilweise oder komplett fertiggemeldet wird.

Beispiel

CODE

| nEvtNo:P1, oDab035:P2, nFertig:P3, nAusschuss:P4, lEndfertigmeldung:P5,
  oDab720:DB := 'waDAB720, DAB721', oDab730:DB := 'waDAB730, DAB731', nRecNo, cBestPos |

// oDab035 befindet sich auf dem aktuell fertiggemeldeten Auftrag
// Versions-Nr. aus der dab035 in die SerNr Tabelle speichern

startseq,
   if LookUp(waDAB010, 'DAB011',<code>oDab035:artnr</code>, "platz_ver") = "S" then
      cBestPos := SubStr(oDab035:bestposnr, 1, 6),
      PRS("Event Fertig", cBestPos),
      DBScope({"F", oDab035:artnr, cBestPos}, {"F", oDab035:artnr, cBestPos}, oDab720),
      DBGoTop(oDab720),
      PRS("Event Fertig 720", {oDab720:artnr, oDab720:kommiss}),
      if DBSeek({oDab720:artnr, oDab720:kommiss}, oDAb730) then
         PRS("Event Fertig 730", {oDab730:kommiss}),
         DBStartTrans(),
         startseq,
            MyEdit(oDab730),
            oDab730:version := e2v(oDab035:x_version, lookup(wadAB010, 'DAB011', <code>oDab035:artnr</code>, "nonstd_012")),
            MyPost(oDab730),
            DBCommit(),
         onerror,
           DBRollBack(),
         stopseq,
      endif,
   endif,
onerror,
  Meld("Fehler im Event 'nach Fertigmeldung'" + " " + GetErrorText()),
stopseq,