Event "nach Erfassen Prüfschritt"
Event "nach Erfassen Prüfschritt"
Der Aufruf erfolgt nach Erfassen eines Prüfschritts aber noch bevor dieser gespeichert ist (QS-Prüfung Prüfvorgang).
Beispiel
CODE
| nEvtNo:P1, nModus:P2, nAction:P3, oDabPPV:P4, oDabPPE:P5, oDab250:P6, oDab255:P7,
oDab035:P8, oDab240:P9 |
// Berechnung nächste Prüfergebnis-Aktion
// nModus : Prüfplan-Vorlage für
// 1 - Wareneingangs-Position
// 2 - Produktionsauftrags-Position
// nAction : vorberechnete nächste Aktion
// 1 - Prüfung ist abgeschlossen
// 2 - Prüfung fortsetzen
// 3 - Prüfung abbrechen
// 4 - Gesamtprüfung starten
// 5 - Neustart
// oDabPPV : Tabelle Prüfvorgänge im Editmodus
// oDabPPE : Tabelle Prüfergebnisse im Einfügemodus
// oDab250 : Tabelle Wareneingang-Kopfdaten bei nModus=1 ansonsten leer
// oDab255 : Tabelle Wareneingang-Positionsdaten bei nModus=1 ansonsten leer
// oDab035 : Tabelle Produktion-Bestellrückstände bei nModus=2 ansonsten leer
// oDab240 : Tabelle Produktion-Auftragsstücklisten bei nModus=2 ansonsten leer
//
// Rückgabe : nAction
// HINWEIS : - Transaktion aktiv!
// - Rückgabe von 5 führt zur Neuberechnung der nächsten Aktion und löst
// den Codeblock erneut aus. VORSICHT Endlosschleife möglich!
// Meldung ausgeben, dass die Prüfung beendet ist
if nAction = 1 then
Meld('Prüfung ist abgeschlossen!'),
endif,
nAction