*****************************************************
*
* MOULINETTE DE TRANSFERT DES FIPAY VERS CIVILAIDANT
*
* PREVOIR DESC. NOM SUR ATT.2 DE CIVILAIDANT
*
* OCTOBRE 98                                  GILBERT
*****************************************************
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:"\FIPAY")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_FIPAY")
WRITE ENRVOC ON F.VOC,"FIPAY"

**********
* OUVERTURE DES FICHIERS
**********
OPEN "","FIPAY" TO F.FIPAY ELSE STOP

OPEN "","BLOCNOTAIDANT" TO F.BLOCNOTAIDANT ELSE STOP

**********
* SELECTION DES FIPAY
**********
EXECUTE "TSELECT FIPAY"
10 READNEXT CODE.FIPAY ELSE STOP
READ ENRFIPAY FROM F.FIPAY,CODE.FIPAY ELSE GOTO 10
IF EXTRACT(ENRFIPAY,15)#"" THEN GOTO 10
NOUVCODE=EXTRACT(ENRFIPAY,60)
TAILLEGANTS=EXTRACT(ENRFIPAY,29)
IF TAILLEGANTS="" THEN GOTO 10
IF TAILLEGANTS MATCH "0N" THEN NULL ELSE GOTO 10
ENRBLOCNOTAIDANT=""
LIBELLE="GANTS : ":TAILLEGANTS
ENRBLOCNOTAIDANT<1>=LIBELLE
WRITE ENRBLOCNOTAIDANT ON F.BLOCNOTAIDANT,NOUVCODE
GOTO 10