Ich möchte den Repeat Schlaufe verlassen an den zwei Punkten unten wie ist der befehl dies zu verlassen ?
Danke Euch
Dany
- Code: Alles auswählen
IF lrecVerkaufszeilen.FINDFIRST THEN REPEAT
gAktuelleMenge := gAktuelleMenge + lrecVerkaufszeilen."Outstanding Quantity";
IF lrecVerkaufszeilen."Document No." = paZeile."Document No." THEN BEGIN
IF gMaxBestand > gAktuelleMenge THEN BEGIN
rAnzeigeFarbe:= 'Favorable' //grĂĽn
((hier REPEAT verlassen ))
END ELSE BEGIN
rAnzeigeFarbe:= 'Unfavorable'; //rot
((hier REPEAT verlassen ))
END;
END;
UNTIL lrecVerkaufszeilen.NEXT = 0;