Initial commit — sursa ROAAUTO

This commit is contained in:
2026-07-09 21:57:44 +03:00
commit a0c05ee85e
226 changed files with 23911 additions and 0 deletions

10
program1.prg Normal file
View File

@@ -0,0 +1,10 @@
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