OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","ORGPRISECHARGE" TO F.ORGPRISECHARGE ELSE STOP
EXECUTE 'SELECT ACCORD AVEC PlafDroitOrgChg = "3" AND AVEC TypeOrg = "C"'
10 READNEXT CLE ELSE STOP
READ ENRACCORD FROM F.ACCORD,CLE ELSE GOTO 10
NBMV=DCOUNT(ENRACCORD<14>,CHAR(253))
ALLOUE=EXTRACT(ENRACCORD,9)
FOR I=NBMV TO 1 STEP -1 
 ALLOUE=ALLOUE-EXTRACT(ENRACCORD,16,I)
 ENRACCORD<17,I>=ALLOUE
NEXT I
WRITE ENRACCORD ON F.ACCORD,CLE
GOTO 10
