Files
roaauto/program1.prg

10 lines
208 B
Plaintext

select id, count(*) as nr from ips_voyages group by id having count(*)>1 into cursor tt
select tt
scan
sele ips_voyages
locate for id = tt.id
if found()
delete in ips_voyages
endif
endscan