[waldbauer.com]

So - auch 30.000 ist zuviel - ab 100.000 macht er dauernd mucken. Ich habs jetzt auf unglaubliche 5 !!! reduziert.....*grml*

local bool ok=true 
local view daten=from kaputt 
use daten
while ok 

      local view ziel=from neu
      use ziel 
      local int bpoint=5 
      local int start=count(ziel) 
      bpoint=bpoint+start 
      find daten start 
      local int total=count(daten)
      put at 1,1, do clear screen 
      put at 1,5 "Gesamt Datensätze   : "&string(total)
      
      while recno(daten)>0
      put at 1,7 "Bearbeite Datensatz : "&string(recno(daten))
      if recno(daten)>start 
            record ziel = daten 
            insert ziel
      else 
            put at 1,9 "Skipping Datensatz  : "&string(recno(daten))&" nächster Break bei "&string(bpoint) 
      end if 
      find daten next 
      if recno(daten) = bpoint 
            put at 1,9 "Break bei Datensatz : "&string(recno(daten))
      break
      end if 
      end while

end while 
use daten end 
use ziel end