****************************************************************
*
* MOULINETTE DE GENERATION DU FICHIER DETAILPREST A PARTIR
* DU FICHIER MODS
*
* MAI 2000                                  DIDIER
****************************************************************
PROCREAD VARIABLES ELSE STOP
MODULE=FIELD(VARIABLES," ",2)
OPEN "","VOC" TO F.VOC ELSE STOP
ENRVOC=""
ENRVOC=REPLACE(ENRVOC,1;"F")
CHEMIN="D:\TRANSFERT\":MODULE
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\P.AIDEES")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_P.AIDEES")
WRITE ENRVOC ON F.VOC,"P.AIDEES"
OPEN "DICT","P.AIDEES" TO F.PAIDEES ELSE STOP
ENREG=""
ENREG=REPLACE(ENREG,1;'D')
ENREG=REPLACE(ENREG,2;'30')
ENREG=REPLACE(ENREG,4;'CONJOINT')
ENREG=REPLACE(ENREG,5;'10R')
ENREG=REPLACE(ENREG,6;'M')
WRITE ENREG ON F.PAIDEES,"CONJOINT"

**********
* OUVERTURE DES FICHIERS
**********
OPEN "","P.AIDEES" TO F.PAIDEES ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP

**********
* SELECTION DES CONJOINTS
**********
EXECUTE "TSELECT P.AIDEES AVEC CONJOINT"

10 READNEXT CODEPB ELSE STOP

READ ENRPAIDEES FROM F.PAIDEES,CODEPB ELSE GOTO 10
CODECONJ=EXTRACT(ENRPAIDEES,30)
IF CODECONJ[1,1]="C" THEN CODECONJ=CODECONJ[2,4]
NOUVCODEPB=EXTRACT(ENRPAIDEES,50)
READ ENRPAIDEESCONJ FROM F.PAIDEES,CODECONJ ELSE GOTO 10
NOUVCODECONJ=EXTRACT(ENRPAIDEESCONJ,50)
NOMPATROCONJ=EXTRACT(ENRPAIDEESCONJ,8)
NOMCONJ=EXTRACT(ENRPAIDEESCONJ,2)
POS=INDEX(NOMCONJ," ",2)
PRENOMCONJ=NOMCONJ[POS+1,20]
DATENAISCONJ=EXTRACT(ENRPAIDEESCONJ,9)
NUMAFFILCONJ=EXTRACT(ENRPAIDEESCONJ,10)

READ ENRCIVILAIDE FROM F.CIVILAIDE,NOUVCODEPB ELSE GOTO 10
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,26;NOMPATROCONJ)
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,27;PRENOMCONJ)
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,28;DATENAISCONJ)
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,33;NUMAFFILCONJ)
ENRCIVILAIDE=REPLACE(ENRCIVILAIDE,45;NOUVCODECONJ)
WRITE ENRCIVILAIDE ON F.CIVILAIDE,NOUVCODEPB
GOTO 10

