I have put this code in a .prg and modified it a bit. This also gives the violation. Can anyone explain it?

open database zodata\zodata
close tables all

set deleted on

use indiziek
select indiziek
lnDummy=cursorsetprop("Buffering",5)

delete from indiziek where upper(clientnr+indicnr+kd_ziekte)==upper("944450 1B1.4 ")

? _tally &&This gives 1

SELECT IndiZiek
APPEND BLANK

REPLACE Clientnr WITH "944450",;
Indicnr WITH " 1",;
kd_Ziekte WITH "B1.4 ",;
Kd_Bron WITH "",;
BronAnders WITH "",;
Kd_Progn WITH "",;
Mate WITH "",;
Toelichtng WITH "",;
Datum_Diag WITH { - - }


set order to ix1
seek UPPER("944450 1B1.4 ") &&Here it generates index violation

close tables all
close databases all