EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
EXECUTE 'SELECT DETAILPREST AVEC 0 = "[200204"'
10 READNEXT CLE ELSE STOP
READ ENR_DETAILPREST FROM F.DETAILPREST,CLE ELSE GOTO 10
READ ENRCONTRAT FROM F.CONTRAT,CLE[1,8] ELSE GOTO 10
IF EXTRACT(ENRCONTRAT,58)<="200204" THEN GOTO 10
READ ENR_DETAILPRESTBIS FROM F.DETAILPREST,CLE[1,8]:"200205" THEN GOTO 10
W_NBRUB = DCOUNT(ENR_DETAILPREST<3>,CHAR(253))
IF W_NBRUB >0 THEN
 FOR IRUB=1 TO W_NBRUB
  ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,3,IRUB;"000")
 NEXT IRUB
END
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,5;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,6;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,7;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,8;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,9;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,10;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,11;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,12;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,13;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,14;"")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,15;"")
WRITE ENR_DETAILPREST ON F.DETAILPREST,CLE[1,8]:"200205"
GOTO 10
