[Erledigt] Repeat vorzeitig verlassen

Hallo Zusammen

Ich möchte den Repeat Schlaufe verlassen an den zwei Punkten unten wie ist der befehl dies zu verlassen ?
Danke Euch
Dany

Code:

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;

Zuletzt geändert von riffaquarium am 20. Mai 2019 15:28, insgesamt 1-mal geändert.

Leg dir ne Boolean Variable an und frag diese in der Until Bedingung mit ab

Code:

IF lrecVerkaufszeilen.FINDFIRST THEN REPEAT
  RepeatVerlassen := false;
  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 ))         
      RepeatVerlassen := true;
    END ELSE BEGIN
      rAnzeigeFarbe:= 'Unfavorable';   //rot
      ((hier REPEAT verlassen ))
      RepeatVerlassen := true;

    END;
  END;
UNTIL (lrecVerkaufszeilen.NEXT = 0) or not(RepeatVerlassen);

* du solltest kein FindFirst in zusammenhang mit repeat benutzen

Hey,

Ich habe jetzt nicht genauer in deinen Quellcode geschaut.
Aber um den Schleifendurchlauf unter bestimmten Bedingungen abzubrechen kannst du die BREAK-Funktion nutzen:
https://docs.microsoft.com/en-us/dynami ... -statement

P.S.:
Wie von Ted richtig angemerkt nicht FINDFIRST, sondern FIND('-') für den Schleifendurchlauf benutzen.
FINDFIRST sollte genutzt werden, wenn du nur den ersten Datensatz verarbeitest.

Gruß

Danke Euch allen für Eure Tipps
Grüsse
Dany