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 "","CONTRAT" TO F.CONTRAT ELSE STOP

**********
* SELECTION DES FIPAY
**********

EXECUTE "TSELECT FIPAY"
EXECUTE 'SAUVE-LISTE W_RequeteFipay'
EXECUTE "LISTE W_RequeteFipay" RETURNING MSGCODE

IF MSGCODE<1>#209 THEN
   SELECT F.FIPAY TO W_RequeteFipay

   PUFIPAY="FAUX"
   LOOP
      READNEXT CODE.FIPAY FROM W_RequeteFipay ELSE PUFIPAY="VRAI"
   WHILE PUFIPAY # "VRAI" DO
      READ ENRFIPAY FROM F.FIPAY,CODE.FIPAY ELSE PRINT "FIPAY"
      IF ENRFIPAY<19> # "" THEN
         EXECUTE 'SELECT CONTRAT AVEC @ID = "':ENRFIPAY<60>:']" AND AVEC 1 # "02"'
         EXECUTE 'SAUVE-LISTE W_RequeteContrat'
         EXECUTE "LISTE W_RequeteContrat" RETURNING MSGCODE

         IF MSGCODE<1>#209 THEN
            SELECT F.CONTRAT TO W_RequeteContrat

            PUCONTRAT="FAUX"
            LOOP
               READNEXT CODE.CONTRAT FROM W_RequeteContrat ELSE PUCONTRAT = "VRAI"
            WHILE PUCONTRAT # "VRAI" DO
               READ ENRCONTRAT FROM F.CONTRAT,CODE.CONTRAT ELSE PRINT "CONTRAT"
               ENRCONTRAT<34>=ENRFIPAY<19>
               WRITE ENRCONTRAT ON F.CONTRAT,CODE.CONTRAT
            REPEAT
         END
      END
   REPEAT
END
STOP