12. November 2009 12:27
// Pakete abfragen
IF ScanCompleted THEN
IF CONFIRM('Wollen Sie mehrere Pakete eingeben?',TRUE) THEN BEGIN
SalesHeader.GET("Auftragsnr.");
PaketKorrektur := TRUE;
WHILE PaketKorrektur DO BEGIN
Fenster.OPEN('Geben Sie die Anzahl der Pakete an: #1############');
Fenster.INPUT(1,Paketanzahl);
Fenster.CLOSE;
PaketeErfassen(Paketanzahl, "Auftragsnr.");
PaketKorrektur := CONFIRM('Wollen Sie die Eingabe korrigieren?',FALSE);
CLEAR(Paketanzahl);
END;
END;
// Paketanzahl erfassen
SalesHeader.SETRANGE("No.","Auftragsnr.");
SalesHeader.INIT;
SalesHeader.TRANSFERFIELDS(SalesHeader);
SalesHeader.VALIDATE("Unit Parcel", Paketanzahl);
SalesHeader."Unit Parcel" := Paketanzahl;
12. November 2009 12:54
SalesHeader.GET(1,"Auftragsnr.");
12. November 2009 13:14
12. November 2009 13:18
SalesHeader.MODIFY
12. November 2009 14:35
// Paketanzahl erfassen
IF SalesHeader.GET(1, "Auftragsnr.") THEN BEGIN
SalesHeader.VALIDATE("Unit Parcel", Paketanzahl);
END ELSE BEGIN
SalesHeader."Unit Parcel" := Paketanzahl;
END;
SalesHeader.MODIFY
12. November 2009 14:47
WENN SalesHeader.Gefunden DANN
Validiere eines seiner Felder
SONST
Setzte eines seiner Felder // obwohl nicht gefunden!!!!
IMMER: SalesHeader.MODIFY // Laufzeitfehler, wenn vorher nicht gefunden!!
IF SalesHeader.GET(1, "Auftragsnr.") THEN BEGIN
SalesHeader.VALIDATE("Unit Parcel", Paketanzahl);
SalesHeader.MODIFY
END ELSE BEGIN
// gute Frage, wäre das nicht ein Fehler?
END;