EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","DETAILPREST" TO F.DETAILPREST ELSE STOP
EXECUTE 'SELECT DETAILCALCUL AVEC FonctionContrat = "P" AND AVEC ConvColContratDetailCalcul = "01" AND AVEC PeriodeDetailCalcul = "200605"'
10 READNEXT CLE ELSE STOP
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
DELETE F.DETAILCALCUL,CLE
GOTO 10
