OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
EXECUTE "SELECT ACTIVITESAIDE"
10 READNEXT CLE ELSE STOP
READ ENR FROM F.ACTIVITESAIDE,CLE ELSE GOTO 10
ENR=REPLACE(ENR,5;"0")
WRITE ENR ON F.ACTIVITESAIDE,CLE
GOTO 10
