****************************************************************
*
* MOULINETTE DE TRANSFERT DU FICHIER MULTEMPLOI VERS BLOCNOTAIDANT
*
* 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:"\FIPAY")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_FIPAY")
WRITE ENRVOC ON F.VOC,"FIPAY"
ENRVOC=REPLACE(ENRVOC,2;CHEMIN:"\MULTEMPLOI")
ENRVOC=REPLACE(ENRVOC,3;CHEMIN:"\D_MULTEMPLOI")
WRITE ENRVOC ON F.VOC,"MULTEMPLOI"

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

**********
* SELECTION MULTEMPLOI
**********
EXECUTE "TSELECT MULTEMPLOI"
10 READNEXT CODE ELSE STOP
READ ENRFIPAY FROM F.FIPAY,CODE[1,5] ELSE GOTO 10
NOUVCODE=EXTRACT(ENRFIPAY,60)
READ ENRMULTEMPLOI FROM F.MULTEMPLOI,CODE ELSE GOTO 10
ADRESSE1=EXTRACT(ENRMULTEMPLOI,1)
ADRESSE2=EXTRACT(ENRMULTEMPLOI,2)
ADRESSE3=EXTRACT(ENRMULTEMPLOI,3)
ADRESSE4=EXTRACT(ENRMULTEMPLOI,4)
HEURES=EXTRACT(ENRMULTEMPLOI,5)
READ ENRBLOCNOTAIDANT FROM F.BLOCNOTAIDANT,NOUVCODE ELSE ENRBLOCNOTAIDANT=""
LIBELLE=""
IF ENRBLOCNOTAIDANT#"" THEN
 LIBELLE=EXTRACT(ENRBLOCNOTAIDANT,1) 
 LIBELLE=LIBELLE:CHAR(13):CHAR(10)
END ELSE
 LIBELLE=""
END
ADRESSE1=TRIM(ADRESSE1)
IF ADRESSE1#"" AND ADRESSE1#" " THEN LIBELLE=LIBELLE:ADRESSE1
ADRESSE2=TRIM(ADRESSE2)
IF ADRESSE2#"" AND ADRESSE2#" " THEN LIBELLE=LIBELLE:"-":ADRESSE2
ADRESSE3=TRIM(ADRESSE3)
IF ADRESSE3#"" AND ADRESSE3#" " THEN LIBELLE=LIBELLE:"-":ADRESSE3
ADRESSE4=TRIM(ADRESSE4)
IF ADRESSE4#"" AND ADRESSE4#" " THEN LIBELLE=LIBELLE:"-":ADRESSE4
HEURES=TRIM(HEURES)
HEURES=HEURES "R26,"
IF HEURES#"" AND HEURES#" " THEN LIBELLE=LIBELLE:"- HEURES MENSUELLES ":HEURES
ENRBLOCNOTAIDANT<1>=LIBELLE
WRITE ENRBLOCNOTAIDANT ON F.BLOCNOTAIDANT,NOUVCODE
GOTO 10