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

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

EXECUTE 'TSELECT FIPAY AVEC 30 = "3" AND SANS 15'
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"
      CODE.RIBAIDANT=ENRFIPAY<60>
      READ ENRRIBAIDANT FROM F.RIBAIDANT,CODE.RIBAIDANT THEN
         IF ENRFIPAY<33> # ENRRIBAIDANT<5>:" ":ENRRIBAIDANT<6> OR ENRFIPAY<34> # ENRRIBAIDANT<3> OR ENRFIPAY<35> # ENRRIBAIDANT<4> THEN
            PRINT "Code aidant : ":ENRFIPAY<60>:"    Code Fipay : ":CODE.FIPAY
         END
      END ELSE
         PRINT "Pas de rib aidant : ":ENRFIPAY<60>:"    Code Fipay : ":CODE.FIPAY
      END

   REPEAT
END
STOP