OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
OPEN "","DETAILADMIN" TO F.DETAILADMIN ELSE STOP
EXECUTE "CREER-FICHIER ACOMPTEDIJON 3,1"
OPEN "","ACOMPTEDIJON" TO F.ACOMPTEDIJON ELSE STOP
EXECUTE 'SELECT DETAILCALCUL AVEC FonctionContrat = "P" AND AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul = "200611"'
10 READNEXT CLE ELSE GOTO 20
READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE GOTO 10
NETAPAYER=ENR_DETAILCALCUL<21>
READ ENR_DETAILPREST FROM F.DETAILPREST,CLE ELSE GOTO 10
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,5,-1;"816")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,6,-1;"0")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,7,-1;"0")
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,8,-1;NETAPAYER)
ENR_DETAILPREST=REPLACE(ENR_DETAILPREST,9,-1;"001001")
WRITE ENR_DETAILPREST ON F.DETAILPREST,CLE
ENR_ACOMPTEDIJON=""
ENR_ACOMPTEDIJON<1>=NETAPAYER
WRITE ENR_ACOMPTEDIJON ON F.ACOMPTEDIJON,CLE
*DELETE F.DETAILCALCUL,CLE
GOTO 10

20 EXECUTE 'SELECT DETAILCALCUL AVEC FonctionContrat = "A" AND AVEC ConvColContratDetailCalcul # "02" AND AVEC PeriodeDetailCalcul = "200611"'
30 READNEXT CLE ELSE STOP
READ ENR_DETAILCALCUL FROM F.DETAILCALCUL,CLE ELSE GOTO 30
NETAPAYER=ENR_DETAILCALCUL<21>
READ ENR_DETAILADMIN FROM F.DETAILADMIN,CLE ELSE ENR_DETAILADMIN=""
I=DCOUNT(EXTRACT(ENR_DETAILADMIN,1),CHAR(253))
I=I+1
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,1,I;"816")
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,2,I;"0")
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,3,I;"0")
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,4,I;NETAPAYER)
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,5,I;"NON")
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,6,I;"")
ENR_DETAILADMIN=REPLACE(ENR_DETAILADMIN,7,I;"")
WRITE ENR_DETAILADMIN ON F.DETAILADMIN,CLE
ENR_ACOMPTEDIJON=""
ENR_ACOMPTEDIJON<1>=NETAPAYER
WRITE ENR_ACOMPTEDIJON ON F.ACOMPTEDIJON,CLE
*DELETE F.DETAILCALCUL,CLE
GOTO 30