Hmm
The errors are located in the FOR NEXT loops,
3 errors in the first FOR NEXT and 3 errors in the second FOR NEXT loop...
A little things corrected, now I have 6 errors instead of 14
Here is the code:
IF SORTO_FLANK THEN
FOR i:= 0 TO 500
IF "ORDER_NUMMER".VARi= 0 THEN
"ORDER_NUMMER".VARi:= 50000;
END_IF;
END_FOR;
REPEAT
SWAP:= FALSE;
FOR index:= 500 TO 1 BY -1 DO
IF "ORDER_NUMMER".VARi[i - 1] > "ORDER_NUMMER".VARi THEN
aux1:= "ORDER_NUMMER".VARi;
"ORDER_NUMMER".VARi:= "ORDER_NUMMER".VARi[i - 1];
"ORDER_NUMMER".VARi[i - 1]:= aux1;
END_IF;
END_FOR;
UNTIL NOT swap
END_REPEAT;
FOR i:= 0 TO 500
IF "ORDER_NUMMER".VARi= 50000 THEN
"ORDER_NUMMER".VARi:= 0;
END_IF;
END_FOR;
END_IF;
The errors are located in the FOR NEXT loops,
3 errors in the first FOR NEXT and 3 errors in the second FOR NEXT loop...
A little things corrected, now I have 6 errors instead of 14
Here is the code:
IF SORTO_FLANK THEN
FOR i:= 0 TO 500
IF "ORDER_NUMMER".VARi= 0 THEN
"ORDER_NUMMER".VARi:= 50000;
END_IF;
END_FOR;
REPEAT
SWAP:= FALSE;
FOR index:= 500 TO 1 BY -1 DO
IF "ORDER_NUMMER".VARi[i - 1] > "ORDER_NUMMER".VARi THEN
aux1:= "ORDER_NUMMER".VARi;
"ORDER_NUMMER".VARi:= "ORDER_NUMMER".VARi[i - 1];
"ORDER_NUMMER".VARi[i - 1]:= aux1;
END_IF;
END_FOR;
UNTIL NOT swap
END_REPEAT;
FOR i:= 0 TO 500
IF "ORDER_NUMMER".VARi= 50000 THEN
"ORDER_NUMMER".VARi:= 0;
END_IF;
END_FOR;
END_IF;
Last edited: