**************************************************************
*  mise en place pour chaque contrat de travail du personnel *
*  mandataire de la gestion des provisions de congs en      *
*  calculant, par couple aidant/aid, la provision de congs *
*  acquise      								 *
*  										 *
*  FANNY                                 23/05/2005          *
**************************************************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","DETAILCALCUL" TO F.DETAILCALCUL ELSE STOP
OPEN "","ELTSPARTEMP" TO F.ELTSPARTEMP ELSE STOP
OPEN "","PROFIL" TO F.PROFIL ELSE STOP
OPEN "","RUBCHARGE" TO F.RUBCHARGE ELSE STOP
 

**********************************************************
* Selection des contrats de travail mandataires non      *
* supprims actif au 1er juin 2005 et tris par aid     *
**********************************************************
W_Requete = ""
W_Cle = ""
W_CodeAide = ""


W_Requete = 'SELECT CONTRAT AVEC 65 = "" AND AVEC 8 >= "13667" OR = "" AND AVEC 1 ="02" PAR 3'


EXECUTE W_Requete
EXECUTE 'SAUVE-LISTE W_Requete'
EXECUTE 'LISTE W_Requete' RETURNING MSGCODE


IF MSGCODE<1> # "209" THEN

	SELECT F.CONTRAT TO W_Requete
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Requete ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   W_DroitAcquisition = 0
	   W_BrutBulletin = 0 
	   W_Taux = 0
	   W_ChargePatronale = 0
	   W_CodeProfil = ""

	   READ ENR_CONTRAT FROM F.CONTRAT,W_Cle THEN
		******************************************************************************
		* Modification du fichier ELTSPARTEMP avec attribut 13 = 01 pour chaque aid *
		******************************************************************************

		IF W_CodeAide <> ENR_CONTRAT<3> THEN
		   READ ENR_ELTSPARTEMP FROM F.ELTSPARTEMP, ENR_CONTRAT<3> ELSE ENR_ELTSPARTEMP=""
		   IF ENR_ELTSPARTEMP # "" THEN
			ENR_ELTSPARTEMP<13> = "01"
			WRITE ENR_ELTSPARTEMP ON F.ELTSPARTEMP, ENR_CONTRAT<3> 
		   END 
		END
		
		***************************************************************
		* modifications des attributs 28, 31 et 94 du fichier CONTRAT *
		***************************************************************
		ENR_CONTRAT<28> = 1
		ENR_CONTRAT<31> = 0
		ENR_CONTRAT<94> = 1 

		**********************************************
		* montant des droits en cours d'acquisition  *
		**********************************************
		W_DroitAcquisition = ENR_CONTRAT<46>

		****************************************************************************************************************
		* lecture de DETAILCALCUL pour rcuprer le montant brut du bulletin de mai 2005 car on a besoin de 10% du brut*
		****************************************************************************************************************
		READ ENR_DETAILCALCUL FROM F.DETAILCALCUL, W_Cle:"200505" ELSE ENR_DETAILCALCUL = ""
		IF ENR_DETAILCALCUL # "" THEN
		   W_BrutBulletin = INT((ENR_DETAILCALCUL<7>*0.1)+1/2)  
		END

		*********************************
		* charges patronales affrentes *
		*********************************
		IF ENR_CONTRAT<26> = "013" THEN
		   W_CodeProfil = "011"
		END ELSE
		   W_CodeProfil = ENR_CONTRAT<26>
		END

		READ ENR_PROFIL FROM F.PROFIL, W_CodeProfil ELSE ENR_PROFIL = ""
		IF ENR_PROFIL # "" THEN
		   i=0
		   FOR i=1 TO DCOUNT(ENR_PROFIL<3>,CHAR(253))
			READ ENR_RUBCHARGE FROM F.RUBCHARGE, ENR_PROFIL<3,i> THEN
			   W_Taux= W_Taux + ENR_RUBCHARGE<14>
			END			
		   NEXT i
		END 
		IF ENR_CONTRAT<29> # "" THEN
		   W_Taux= W_Taux + 2425
		END 

		W_ChargePatronale = INT(((W_Taux/100000)*(W_BrutBulletin+W_DroitAcquisition))+1/2)

		************************************************
		* enregistrement dans l'attribut 86 de CONTRAT *
		************************************************
		ENR_CONTRAT<86> = W_DroitAcquisition + W_BrutBulletin + W_ChargePatronale 

		********************************************
		* criture des enregistements dans CONTRAT *
		********************************************
		WRITE ENR_CONTRAT ON F.CONTRAT,W_Cle

	   END
   	W_CodeAide = ENR_CONTRAT<3>
	REPEAT
END

STOP   
