************************************************
* LISTE LES CONTRATS DE TRAVAIL / SECTEUR      *
* EN INDIQUANT NOM + PRENOM + AGE              *
*                                              *
* 11/04/01                            STEPHANE *
************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP

W_SECTEUR=""
W_DATEJOUR=DATE()

PRINT "CONVENTION COLLECTIVE"
INPUT W_CCN

PRINT "ENTITE JURIDIQUE"
INPUT W_ENTITE

PRINTER ON

EXECUTE 'SSELECT CONTRAT AVEC 1 = ":W_CCN:'" AND AVEC 2 = "':W_ENTITE:'" AND AVEC 7 <= "':W_DATEJOUR:'" AND AVEC 8 >= "':W_DATEJOUR:'" OR = "" AND AVEC 65 <> "O" PAR SecteurContrat PAR NaissanceAidant PAR NomAidantContrat'

W_FINI=0
LOOP
     READNEXT CLE ELSE W_FINI=1
     UNTIL W_FINI=1 DO

     READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,CLE[1,5] ELSE ENR_CIVILAIDANT=""
     READ ENR_CONTRAT FROM F.CONTRAT,CLE ELSE ENR_CONTRAT=""

     IF W_SECTEUR<>ENR_CIVILAIDANT<31> THEN 
	 IF W_SECTEUR<>"" THEN PAGE
	 READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR=""
	 PRINT "**************************************************"
	 PRINT "SECTEUR = ":ENR_SECTEUR<1>    
	 W_SECTEUR=ENR_CIVILAIDANT<31>
     END
     
     * IMPRESSION LISTE
     W_NOM=ENR_CIVILAIDANT<2>:" ":ENR_CIVILAIDANT<3>
     W_NOM=W_NOM[1,40] "L#40"
     W_AGE=(W_DATEJOUR-ENR_CIVILAIDANT<26>)/365
     W_AGE=INT(W_AGE+1/2)
 
     PRINT W_NOM:" AGE ":W_AGE:" DATE DE NAISSANCE = ":OCONV(ENR_CIVILAIDANT<26>,"D4/")

REPEAT

PRINTER OFF
