*PARAMETRES*
*Mise en place de la mutuelle obligatoire*
*Entit juridique (3N - facultatif) |3X|TXT|N*
*Convention collective (2N) |2X|TXT|O*
*Mois de prise en compte (AAAAMM) |6X|TXT|O*
*Type Contrat (D=CDD, I=CDI - facultatif)|1X|TXT|N*
*Code rubrique mutuelle (3N) |3X|TXT|O*
*FIN PARAMETRES*

SUBROUTINE MAJCONTRATSMUT(RETURNVAL,PARAMETRES,W_Sortie)
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "", "FUSION" TO F.FUSION ELSE STOP
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "", "CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP


*** Rcupration des paramtres
W_Asso = PARAMETRES<1>
W_ConvCol = PARAMETRES<2>
W_DatePc = PARAMETRES<3>
W_TypeContrat = PARAMETRES<4>
W_CodeRubMut = PARAMETRES<5>

W_DatePcSauv=W_DatePc
W_DatePc = "01/":W_DatePc[5,2]:"/":W_DatePc[1,4]
W_DatePc=ICONV(W_DatePc,"D4/")

Result = ""

IF W_Asso="" THEN
	IF W_TypeContrat # "" THEN
		EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_ConvCol:'" AND AVEC WypeContrat = "':W_TypeContrat:'" AND AVEC 65 # "O" AND AVEC 7 <= "':W_DatePc:'" AND AVEC 8 >= "':W_DatePc:'" OR = ""'
	END ELSE
		EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_ConvCol:'" AND AVEC 65 # "O" AND AVEC 7 <= "':W_DatePc:'" AND AVEC 8 >= "':W_DatePc:'" OR = ""'	
		END
END ELSE
	IF W_TypeContrat # "" THEN
		EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_ConvCol:'" AND AVEC TypeContrat = "':W_TypeContrat:'" AND AVEC 2 = "':W_Asso:'" AND AVEC 65 # "O" AND AVEC 7 <= "':W_DatePc:'" AND AVEC 8 >= "':W_DatePc:'" OR = ""'
	END ELSE
		EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_ConvCol:'" AND AVEC 2 = "':W_Asso:'" AND AVEC 65 # "O" AND AVEC 7 <= "':W_DatePc:'" AND AVEC 8 >= "':W_DatePc:'" OR = ""'
	END
END

Result<1> = "Code;Titre aidant;Nom aidant;Prenom aidant;NIR;Secteur;Libelle secteur;Date naissance;Type contrat;Date debut;Date fin;Adresse;Compl. adresse;Code postal;Commune"

W_Fin = "F"
W_DernCont = ""
LOOP
READNEXT W_Cle ELSE W_Fin ="V" 
WHILE W_Fin = "F"
	
	READ ENR_CONTRAT FROM F.CONTRAT, W_Cle THEN
	
		ENR_CONTRAT<32>=0
		ENR_CONTRAT<33>=0
		ENR_CONTRAT<61>=W_CodeRubMut
		WRITE ENR_CONTRAT ON F.CONTRAT, W_Cle
		
		GOSUB 100
	END
	
REPEAT

WRITE Result ON F.FUSION, "Contrats ":W_Asso:"-":W_ConvCol:"-":W_DatePcSauv:"-":W_CodeRubMut:".csv"
W_Sortie = 'Le fichier "Contrats ':W_Asso:'-':W_ConvCol:'-':W_DatePcSauv:'-':W_CodeRubMut:'.csv" a t gnr dans le rpetoire FUSION'
RETURN

**********************************************************************************************************
100

	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle[1,5] ELSE ENR_CIVILAIDANT = ""
	READ ENR_SECTEUR FROM F.SECTEUR, ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR= ""

	* sortie 1 = coef, sortie 2 = taux hor...
	IF ENR_CONTRAT<8> = "" THEN
		W_datefin = ""
	END ELSE
		W_datefin = OCONV(ENR_CONTRAT<8>,"D4/")
	END

	W_Adresse=""
	IF ENR_CIVILAIDANT<5><>"" THEN W_Adresse = ENR_CIVILAIDANT<5>:" "
	IF ENR_CIVILAIDANT<6><>"" THEN W_Adresse = W_Adresse:ENR_CIVILAIDANT<6>:" "
	IF ENR_CIVILAIDANT<7><>"" THEN W_Adresse = W_Adresse:ENR_CIVILAIDANT<7>:" "
	IF ENR_CIVILAIDANT<8><>"" THEN W_Adresse = W_Adresse:ENR_CIVILAIDANT<8>
	W_Adresse=TRIM(W_Adresse)

	*Result<1> = "Code;          Titre aidant          ;Nom aidant            ;Prenom aidant                       ;NIR                                  ;Secteur        ;Libelle secteur        ;Date naissance                    ;Type contrat             ;Date debut             ;Date fin        ;Adresse    ;Compl. adresse            ;Code postal             ;Commune"	
	Result<-1>= W_Cle[1,5]:";":ENR_CIVILAIDANT<1>:";":ENR_CIVILAIDANT<2>:";":ENR_CIVILAIDANT<3>:";":ENR_CIVILAIDANT<17>:" ":ENR_CIVILAIDANT<18>:";":ENR_CIVILAIDANT<31>:";":ENR_SECTEUR<1>:";":OCONV(ENR_CIVILAIDANT<26>,"D4/"):";":ENR_CONTRAT<4>:";":OCONV(ENR_CONTRAT<7>,"D4/"):";":W_datefin:";":W_Adresse:";":ENR_CIVILAIDANT<9>:";":ENR_CIVILAIDANT<10>:";":ENR_CIVILAIDANT<11>

RETURN