MODULE="PAIE-DEPANN"
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 "","INFOSAIDANT" TO F.INFOSAIDANT ELSE STOP
OPEN "","BLOCNOTAIDANT" TO F.BLOCNOTAIDANT 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"
      NOUVCODE=EXTRACT(ENRFIPAY,60)
      ATT8=""
      RMI=EXTRACT(ENRFIPAY,23)
      IF RMI="O" THEN
         ATT8="03"
      END ELSE      
         ANPE=EXTRACT(ENRFIPAY,26)
         IF ANPE="O" THEN
            ATT8="01"
         END
      END
      IF ATT8#"" THEN
         READ ENRINFOSAIDANT FROM F.INFOSAIDANT,NOUVCODE ELSE ENRINFOSAIDANT=""
         ENRINFOSAIDANT<4>="0"
         ENRINFOSAIDANT=REPLACE(ENRINFOSAIDANT,8;ATT8)
         ENRINFOSAIDANT<9>=""
         WRITE ENRINFOSAIDANT ON F.INFOSAIDANT,NOUVCODE
      END
      CHOMAGE=EXTRACT(ENRFIPAY,24)
      LIBCHOMAGE=""
      IF CHOMAGE="A" THEN LIBCHOMAGE="INDEMNITE CHOMAGE EN COURS"
      IF CHOMAGE="B" THEN LIBCHOMAGE="INDEMNITE CHOMAGE EPUISEE"
      IF CHOMAGE="C" THEN LIBCHOMAGE="INDEMNITE CHOMAGE PAS OUVERTE"
      IF LIBCHOMAGE#"" THEN
         READ ENRBLOCNOTAIDANT FROM F.BLOCNOTAIDANT,NOUVCODE ELSE ENRBLOCNOTAIDANT=""
         ENRBLOCNOTAIDANT=REPLACE(ENRBLOCNOTAIDANT,1;LIBCHOMAGE)
         WRITE ENRBLOCNOTAIDANT ON F.BLOCNOTAIDANT,NOUVCODE
      END      

   REPEAT
END
STOP