*******************************************************************
* MOULINETTE POUR  personnes qui ont travaill en soin sur 2000 - infirmiers et aides soignantes titulaire d'un CDI et CDD ( diffrencier) sur entite 001 sur profil paie
*******************************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE PRINT "OUVERTURE CONTRAT" ;* en lecture criture
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE PRINT "OUVERTURE CIVILAIDANT" ;* en lecture criture
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE PRINT "OUVERTURE DETAILCALCUL" ;* en lecture criture


   EXECUTE 'SSELECT CONTRAT AVEC 65 # "O" AND AVEC 26 = "018" OR = "017" AND AVEC 7 < "12420" AND AVEC 8 > "12054" OR = ""  PAR 4'
   EXECUTE 'SAUVE-LISTE W_RESULTAT'
   EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

   IF MSGCODE<1> # 209 THEN
	SELECT F.CONTRAT TO W_RESULTAT



   W_End="FAUX"
   W_CLEANC = ""
   W_COMMUNEANC = ""

   PRINTER ON

   PRINT '                   NOM PRENOM                      TYPE    QUALIFICATION       ANC COEFF   HRES   MONTANT'

   LOOP
	READNEXT W_CLE FROM W_RESULTAT ELSE W_End = "VRAI"
	W_CLEAIDANT = W_CLE[1,5]
   WHILE W_End = "FAUX" DO
	READ ENR_CONTRAT FROM F.CONTRAT ,W_CLE ELSE ENR_CONTRAT = ""	
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT ,W_CLEAIDANT ELSE ENR_CIVILAIDANT = ""
	W_Fin = "FAUX"

	EXECUTE 'SSELECT DETAILCALCUL AVEC 0 = "':W_CLE:']" AND AVEC PeriodeDetailCalcul = "2001]" PAR PeriodeDetailCalcul' 
	
	TOTHRES = 0
	TOTBASE = 0

	LOOP
	   READNEXT W_CLECONT ELSE W_Fin = "VRAI"
	WHILE W_Fin = "FAUX" DO
	   READ ENR_DETAILCALCUL FROM F.DETAILCALCUL ,W_CLECONT ELSE ENR_DETAILCALCUL = ""
	   TOTHRES = TOTHRES + ENR_DETAILCALCUL<6>
	   TOTBASE = TOTBASE + ENR_DETAILCALCUL<7>   
	REPEAT
	
	IMP = ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
	IMP = IMP "L(#51)"
	IMP = IMP:'CD':ENR_CONTRAT<4>:' '
	INTER = ENR_CONTRAT<16>
	INTER = INTER "L(#25)"
	IMP = IMP:INTER
	IF DATE() > ENR_CONTRAT<8> THEN
	   INTER = DATE() - ENR_CONTRAT<21>
	   INTER = INTER/365
	   INTER = INT(INTER)
	END ELSE
	   INTER = ENR_CONTRAT<8> - ENR_CONTRAT<21>
	   INTER = INTER/365
	   INTER = INT(INTER)
	END
	INTER = INTER "L(#3)"
	IMP = IMP:INTER
	INTER = ENR_CONTRAT<22>
	INTER = INTER "L(#3)"
	IMP = IMP:INTER
	HRES = (TOTHRES/100)
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	HRES = (TOTBASE/100)
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	PRINT IMP

   REPEAT

   PRINTER OFF
   PRINTER CLOSE

   END

STOP
