OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "","DETAILADMIN" TO F.DETAILADMIN ELSE STOP
OPEN "","ACOMPTEDIJON" TO F.ACOMPTEDIJON ELSE STOP
EXECUTE 'SELECT DETAILPREST AVEC 0= "[200611" AND AVEC 5 = "816"'
10 READNEXT CLE ELSE GOTO 20
READ ENR_ACOMPTEDIJON FROM F.ACOMPTEDIJON,CLE ELSE GOTO 10
ACOMPTE=ENR_ACOMPTEDIJON<1>
READ ENR_DETAILPREST FROM F.DETAILPREST,CLE ELSE GOTO 10
I=1
FINRECH="NON"
LOOP
 UNTIL FINRECH="OUI" DO
  IF ENR_DETAILPREST<5,I>="816" AND ENR_DETAILPREST<8,I>=ACOMPTE THEN
   ENR_DETAILPREST=DELETE(ENR_DETAILPREST,5,I)
   ENR_DETAILPREST=DELETE(ENR_DETAILPREST,6,I)
   ENR_DETAILPREST=DELETE(ENR_DETAILPREST,7,I)
   ENR_DETAILPREST=DELETE(ENR_DETAILPREST,8,I)
   ENR_DETAILPREST=DELETE(ENR_DETAILPREST,9,I)
   WRITE ENR_DETAILPREST ON F.DETAILPREST,CLE
   FINRECH="OUI"
  END ELSE
   IF ENR_DETAILPREST<5,I>="" THEN FINRECH="OUI"
  END
  I=I+1
REPEAT
GOTO 10

20 EXECUTE 'SELECT DETAILADMIN AVEC 0 = "[200611" AND AVEC 1 = "816"'
30 READNEXT CLE ELSE STOP
READ ENR_ACOMPTEDIJON FROM F.ACOMPTEDIJON,CLE ELSE GOTO 30
ACOMPTE=ENR_ACOMPTEDIJON<1>
READ ENR_DETAILADMIN FROM F.DETAILADMIN,CLE ELSE GOTO 30
I=1
FINRECH="NON"
LOOP
 UNTIL FINRECH="OUI" DO
  IF ENR_DETAILADMIN<1,I>="816" AND ENR_DETAILADMIN<4,I>=ACOMPTE THEN
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,1,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,2,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,3,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,4,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,5,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,6,I)
   ENR_DETAILADMIN=DELETE(ENR_DETAILADMIN,7,I)
   WRITE ENR_DETAILADMIN ON F.DETAILADMIN,CLE
   FINRECH="OUI"
  END ELSE
   IF ENR_DETAILADMIN<1,I>="" THEN FINRECH="OUI"
  END
  I=I+1
REPEAT
GOTO 30