************************************************
* LISTE LES CONTRATS DE TRAVAIL / SECTEUR      *
* EN INDIQUANT NOM + PRENOM + ANCIENNETE       *
*                                              *
* 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()

PRINTER ON

EXECUTE 'SSELECT CONTRAT AVEC 1 = "01" AND AVEC 2 = "001" AND AVEC 7 <= "':W_DATEJOUR:'" AND AVEC 8 >= "':12114:'" OR = "" PAR SecteurContrat PAR 7 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_CONTRAT<7>)/365
     W_AGE=INT(W_AGE+1/2)
 
     PRINT W_NOM:" DATE ANCIENNETE = ":OCONV(ENR_CONTRAT<7>,"D4/"):" ANCIENNETE SUR CE CONTRAT = ":W_AGE

REPEAT

PRINTER OFF
