
**********************
* REMPLI L'ENREGISTREMENT SUIVCONTRAT DE TEMPO POUR PERMETTRE L'EDITION DES SUIVI DE CONTRAT
* 19/04/2001 ALAIN
**********************

* Michael, Avril - mai - juin 04 : install la gestion de la prospective.
* Nb : Les procdures 10000, 110 et 310 ne sont pas utilises,
* mais pourraient l'tre dans le cadre d'une mise en place des ditions type lettre / liste avec dtail...

***************************
* Ouvertures des fichiers *
***************************

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","AIDANTTTE" TO F.AIDANTTTE ELSE STOP
OPEN "","TEMPO" TO F.TEMPO ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "","COMMUNES" TO F.COMMUNES ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONVENTIONCOL" TO F.CONVENTIONCOL ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","ETABLISSEMENT" TO F.ETABLISSEMENT ELSE STOP
OPEN "","SUIVCONTRATPROSP" TO F.SUIVCONTRATPROSP ELSE STOP
OPEN "","STATAIDANT" TO F.STATAIDANT ELSE STOP

OPEN "","GRILLESCC" TO F.GRILLESCC ELSE STOP

******************************
* Recuperation des arguments *
******************************
PROCREAD ARGUMENTS ELSE PRINT "Procread"

W_ASSOC = FIELD(ARGUMENTS,"|",2)
W_CODEIMP = FIELD(ARGUMENTS,"|",3)
W_PERIODE = FIELD(ARGUMENTS,"|",4)
W_CODESELECTION = FIELD(ARGUMENTS,"|",5)
W_TYPESELECTION = FIELD(ARGUMENTS,"|",6)
W_CODCONVCOL = FIELD(ARGUMENTS,"|",7)
W_CONTRATMODULE = FIELD(ARGUMENTS,"|",8)
W_CODAIDANT = FIELD(ARGUMENTS,"|",9)
W_FaireProspective = FIELD(ARGUMENTS,"|",10)
IF W_FaireProspective = "" THEN
	W_FaireProspective = "N"
END
IF W_FaireProspective="O" THEN
	W_TriSecondaire=FIELD(ARGUMENTS,"|",11)
END ELSE
	W_TriSecondaire=""
END
W_TypeSuivi= FIELD(ARGUMENTS,"|",12)
W_Edition=FIELD(ARGUMENTS,"|",13)
W_User=FIELD(ARGUMENTS,"|",14)

IF W_FaireProspective = "O" THEN
	OPEN "DICT","CONTRAT" TO F.DICTCONTRAT ELSE STOP
	READ ENR_DICT FROM F.DICTCONTRAT, "HresDiffProsp":W_PERIODE[5,2] ELSE ENR_DICT = ""
	ENR_DICT<1> = "V"
	ENR_DICT<2> = "OCONV(SUBR('-CATS',@ID,'":W_PERIODE
	ENR_DICT<2> = ENR_DICT<2>:"'),@VM:"
	ENR_DICT<2> = ENR_DICT<2>:'"TSUIVCONTRATPROSP;X;;5")'
	ENR_DICT<3> = ""
	ENR_DICT<4> = "Hres Diff ":W_PERIODE
	ENR_DICT<5> = "5R"
	ENR_DICT<6> = "S"
	WRITE ENR_DICT ON F.DICTCONTRAT, "HresDiffProsp":W_PERIODE[5,2]
	
END

*********************
* TRAITEMENT GLOBAL *
*********************
ENR_TEMPO =""
W_RESULTAT=""
W_REGUL=0
WRITE ENR_TEMPO TO F.TEMPO,"SUIVCONTRAT":W_User

W_SELECTION = ""
W_ASSOCIATION=W_ASSOC

IF W_CODESELECTION = "" THEN
	IF W_TYPESELECTION = "C" THEN
		W_SELECTION = 'AND AVEC LibCommuneAidant # "" PAR LibCommuneAidant'
	END ELSE
		IF W_TYPESELECTION = "S" THEN
			W_SELECTION = 'AND AVEC CodSecteurContrat # "" PAR LibSecteurContrat PAR DernCatGrilleWContrat'
		END ELSE
			OPEN "","SOUSSECTEUR" TO F.SOUSSECTEUR ELSE STOP
			IF W_TYPESELECTION = "SS" THEN
				W_SELECTION = 'AND AVEC CodSsSecteurContrat # "" PAR LibSecteurContrat PAR CodSsSecteurContrat'
			END ELSE
			   IF W_TYPESELECTION = "Q" THEN
				OPEN "","QUARTIER" TO F.QUARTIER ELSE STOP
				
				W_SELECTION = 'AND AVEC CodQuartierContrat # "" PAR LibSecteurContrat PAR CodQuartierContrat'
			   END ELSE
				W_SELECTION = 'AND AVEC NomPrenomAidantContrat # ""'
			   END
			END
		END
	END
END ELSE
	IF W_TYPESELECTION = "C" THEN
		W_SELECTION = 'AND AVEC LibCommuneAidant = "':W_CODESELECTION:'"'
	END ELSE
		IF W_TYPESELECTION = "S" THEN
			W_SELECTION = 'AND AVEC CodSecteurContrat = "':W_CODESELECTION:'"'	
		END ELSE
			OPEN "","SOUSSECTEUR" TO F.SOUSSECTEUR ELSE STOP
			IF W_TYPESELECTION = "SS" THEN
				W_SELECTION = 'AND AVEC CodSecteurContrat = "':W_CODESELECTION:'" PAR LibSecteurContrat PAR CodSsSecteurContrat'
			END ELSE
			   IF W_TYPESELECTION = "Q" THEN
				OPEN "","QUARTIER" TO F.QUARTIER ELSE STOP
				W_SELECTION = 'AND AVEC CodSecteurContrat = "':W_CODESELECTION:'" PAR LibSecteurContrat PAR CodQuartierContrat'
			   END ELSE
				W_SELECTION = 'AND AVEC CodSecteurContrat = "':W_CODESELECTION:'"'
			   END
			END
		END
	END
END

**** RAJOUT CONTRAT MODULES
IF W_CONTRATMODULE=1 THEN W_SELECTION = 'AND AVEC 68 = "1" AND AVEC 5 = "M" ':W_SELECTION
IF W_FaireProspective="O" AND W_TriSecondaire#"A" THEN
	W_SELECTION = W_SELECTION:' PAR HresDiffProsp':W_PERIODE[5,2]
END
W_SELECTION = W_SELECTION:' PAR NomPrenomAidantContrat'

IF W_FaireProspective="O" THEN
	W_SELECTION = 'AND AVEC 58 >= "':W_PERIODE:'" OR = "" ':W_SELECTION
END

MOIS = W_PERIODE[5,2]
AN = W_PERIODE[1,4]
ANF = AN

MOISDEB = MOIS
MOISFIN = MOIS + 1	

IF MOISDEB > 12 THEN
	MOISDEB = MOISDEB - 12
	AN = AN + 1
END

IF MOISFIN > 12 THEN
	MOISFIN = MOISFIN - 12
	ANF = ANF + 1
END

MOISDEB = MOISDEB "R(%2)"
MOISFIN = MOISFIN "R(%2)"	

W_DATEDEB = ICONV("01/":MOISDEB:"/":AN,"D4/")
W_DATEFIN = ICONV("01/":MOISFIN:"/":ANF,"D4/")
W_DATEFIN= W_DATEFIN - 1

IF W_CODAIDANT = "" THEN 
   IF W_CODCONVCOL = "02" THEN	
	EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_CODCONVCOL:'" AND AVEC 3 # "" AND AVEC 6 = "P" AND AVEC 7 <= "':W_DATEFIN:'" AND AVEC 8 = "" OR => "':W_DATEDEB:'" AND AVEC 65 <> "O" ':W_SELECTION
   END ELSE
	EXECUTE 'SSELECT CONTRAT AVEC 1 = "':W_CODCONVCOL:'" AND AVEC 3 = "':W_ASSOC:'" AND AVEC 6 = "P" AND AVEC 7 <= "':W_DATEFIN:'" AND AVEC 8 = "" OR => "':W_DATEDEB:'" AND AVEC 65 <> "O" ':W_SELECTION
   
   ENR_GREG=""
   ENR_GREG='SSELECT CONTRAT AVEC 1 = "':W_CODCONVCOL:'" AND AVEC 3 = "':W_ASSOC:'" AND AVEC 6 = "P" AND AVEC 7 <= "':W_DATEFIN:'" AND AVEC 8 = "" OR => "':W_DATEDEB:'" AND AVEC 65 <> "O" ':W_SELECTION
   WRITE ENR_GREG ON F.STATAIDANT, "Select.txt"
   END
END ELSE
   EXECUTE 'SSELECT CONTRAT AVEC 0 = "':W_CODAIDANT:']" AND AVEC 1 = "':W_CODCONVCOL:'" AND AVEC 6 = "P" AND AVEC 3 = "':W_ASSOC:'" AND AVEC 7 <= "':W_DATEFIN:'" AND AVEC 8 = "" OR => "':W_DATEDEB:'" AND AVEC 65 <> "O" ':W_SELECTION
END 

EXECUTE 'SAUVE-LISTE W_RESULTAT' 
EXECUTE "LISTE W_RESULTAT" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN

	W_CritereTri = ""
	
	W_TotalTriHresContrat = 0
	W_TotalTriCumulHresContrat = 0
	W_TotalTriHresAbs = 0
	W_TotalTriCumulHresAbs = 0
	W_TotalTriHresForfait = 0
	W_TotalTriCumulHresForfait = 0
	W_TotalTriHresReelles = 0
	W_TotalTriCumulHresReelles = 0
	W_TotalTriHresEcart = 0
	W_TotalTriCumulHresEcart = 0
	W_TotalTriCumulHresEcartNeg = 0
	W_TotalTriCumulHresRegul = 0
	W_TotalTriCumulJourCal=0
	W_TotalTriCumulSDJF=0
	W_TotalTriCumulPotJour=0	
	W_TotalTriCumulTTE=0	
	
	W_TotalTriJourAbs=0
	W_TotalTriPotJour=0
	W_TotalTriPotHre=0
	W_TotalTriTTE=0
	
	W_TotalGeneHresContrat = 0
	W_TotalGeneCumulHresContrat = 0
	W_TotalGeneHresAbs = 0
	W_TotalGeneCumulHresAbs = 0
	W_TotalGeneHresForfait = 0
	W_TotalGeneCumulHresForfait = 0
	W_TotalGeneHresReelles = 0
	W_TotalGeneCumulHresReelles = 0 
	W_TotalGeneHresEcart = 0
	W_TotalGeneCumulHresEcart = 0
	W_TotalGeneCumulHresEcartNeg = 0
	W_TotalGeneCumulHresRegul = 0
	W_TotalGeneJourAbs=0
	W_TotalGenePotJour=0
	W_TotalGenePotHre=0
	W_TotalGeneTTE=0
	W_TotalGeneCumulJourCal=0
	W_TotalGeneCumulSDJF=0
	W_TotalGeneCumulPotJour=0	
	W_TotalGeneCumulTTE=0
	
	W_Ecart=0
	W_SauveEcart=0
	
	IF W_CODCONVCOL = "02" THEN
		MOITRAIT = "01"
	END ELSE
		READ ENR_ETAB FROM F.ETABLISSEMENT,W_ASSOC ELSE ENR_ETAB = ""
		MOITRAIT = ENR_ETAB<24>
		IF MOITRAIT = "12" THEN
			W_MODFIN = W_PERIODE[1,4]:"12"
			W_MODDEB = W_PERIODE[1,4]:"01"
		END ELSE
			IF MOITRAIT => W_PERIODE[5,2] THEN
				W_MODFIN = W_PERIODE[1,4]:MOITRAIT
				MOITRAIT = MOITRAIT + 1
				MOITRAIT = MOITRAIT "R(%2)"
				W_MODDEB = (W_PERIODE[1,4]-1):MOITRAIT
			END ELSE
				W_MODFIN = (W_PERIODE[1,4]+1):MOITRAIT
				MOITRAIT = MOITRAIT + 1
				MOITRAIT = MOITRAIT "R(%2)"
				W_MODDEB = W_PERIODE[1,4]:MOITRAIT
			END
		END
	END 
	
	W_FINI = "FAUX"	
	J = 0	
	IF W_TYPESELECTION = "O" AND W_CODEIMP # "LETTRE" THEN
		ENR_TEMPO<1> = "#TOTALITE"
		J = 1
	END
	
	W_AIDE=""
	CLE.CONTRAT=""
	
	SELECT F.CONTRAT TO W_RESULTAT
	
	LOOP
111
		READNEXT CLE.CONTRAT FROM W_RESULTAT ELSE W_FINI="VRAI"
	WHILE W_FINI = "FAUX"
		READ ENR_CONTRAT FROM F.CONTRAT,CLE.CONTRAT ELSE ENR_CONTRAT = ""
		
		ENR_GRILLE=""
		READ ENR_GRILLE FROM F.GRILLESCC, ENR_CONTRAT<20,DCOUNT(ENR_CONTRAT<20>,CHAR(253))> ELSE ENR_GRILLE=""
		W_Categorie=ENR_GRILLE<7>
		
		IF W_CONTRATMODULE=1 THEN
			X = 1
			LOOP
			WHILE ENR_CONTRAT<14,X> # ""
				X = X + 1
			REPEAT
			X = X - 1
			IF ENR_CONTRAT<68,X> # "1" THEN
				GOTO 111
			END		
		END
		
		W_AIDE = CLE.CONTRAT[1,5]
		READ ENR_CIVILAIDANT FROM F.CIVILAIDANT,W_AIDE ELSE ENR_CIVILAIDANT = ""
		IF W_TypeSuivi="R" THEN
			IF ENR_CONTRAT<76,1> = "" THEN
				IF ENR_CONTRAT<71,1> <= W_MODFIN AND ENR_CONTRAT<71,1> >= W_MODDEB THEN
					LIG = 71
					W_REGUL = 99
				END ELSE
				   IF W_FaireProspective = "N" THEN
					GOTO 111
				   END ELSE
					LIG = 76
					W_REGUL = 100
				   END
				END
			END ELSE
				IF ENR_CONTRAT<76,1> <= W_MODFIN AND ENR_CONTRAT<76,1> >= W_MODDEB THEN
					LIG = 76
					W_REGUL = 100
				END ELSE
					IF ENR_CONTRAT<71,1> <= W_MODFIN AND ENR_CONTRAT<71,1> >= W_MODDEB THEN
						LIG = 71
						W_REGUL = 99
					END ELSE
						IF W_FaireProspective = "N" THEN
							GOTO 111
					   	END ELSE
							LIG = 76
							W_REGUL = 100
				   		END
					END
				END
			END
		END ELSE
			IF W_PERIODE[5,2] > W_MODFIN[5,2] THEN
				READ ENR_AIDANTTTE FROM F.AIDANTTTE ,CLE.CONTRAT:W_PERIODE[1,4]+1 ELSE ENR_AIDANTTTE= ""	
			END ELSE
				READ ENR_AIDANTTTE FROM F.AIDANTTTE ,CLE.CONTRAT:W_PERIODE[1,4] ELSE ENR_AIDANTTTE= ""	
			END
			ENR_CONTRAT<LIG>=ENR_AIDANTTTE<1>
		END
		
		NBRMOIS = 0
		CUMUL = 0
		CUMULABS = 0
		CUMULHRES = 0
		CUMULREEL = 0
		CUMULFORFAIT = 0
		CUMULREGUL = 0
		CUMULTTE = 0
		CUMULECART = 0
		CUMULJOURCAL=0
		CUMULSDJF=0
		CUMULPOTJOUR=0
		
		I = 0
		MOIS = MOISDEB	
		
		IF W_FaireProspective # "N" THEN
			IF W_PERIODE > ENR_CONTRAT<LIG,DCOUNT(ENR_CONTRAT<LIG>,CHAR(253))> THEN
			
				W_LectureOk = "V"
				GOSUB 2000
				IF W_LectureOk = "F" THEN
					GOTO 111
				END
				FINTRAIT="TRUE"
				
			END ELSE
				FINTRAIT = "FALSE"
			END
		END ELSE
			FINTRAIT = "FALSE"
		END
		
		LOOP
			I = I+1
		WHILE FINTRAIT # "TRUE" AND ENR_CONTRAT<LIG,I> # ""
		
			NBRMOIS = NBRMOIS + 1
			
			IF W_TypeSuivi="R" THEN
				CUMULHRES = CUMULHRES + ENR_CONTRAT<(LIG+1),I>
				CUMULABS = CUMULABS + ENR_CONTRAT<(LIG+2),I>
				CUMULREEL = CUMULREEL + ENR_CONTRAT<(LIG+3),I>
				CUMUL = CUMUL + ENR_CONTRAT<(LIG+4),I>
				CUMULFORFAIT = CUMULFORFAIT + (ENR_CONTRAT<(LIG+1),I> - ENR_CONTRAT<(LIG+2),I>)
				CUMULREGUL = CUMULREGUL + ENR_CONTRAT<W_REGUL,I>
			END ELSE
				W_PotJour=(ENR_AIDANTTTE<3,I>*100)-((ENR_AIDANTTTE<4,I>+ENR_AIDANTTTE<5,I>)*100)
				W_PotJour=W_PotJour-(ENR_AIDANTTTE<6,I>+ENR_AIDANTTTE<7,I>+ENR_AIDANTTTE<8,I>)
				W_Forfait = (W_PotJour * ENR_AIDANTTTE<2,I>)
				W_Forfait = W_Forfait/100
				W_Forfait = INT(W_Forfait +(1/2))
				CUMULFORFAIT = CUMULFORFAIT + W_Forfait
				CUMULTTE = CUMULTTE + ENR_AIDANTTTE<9,I>
				CUMULECART = CUMULECART + (ENR_AIDANTTTE<9,I>-W_Forfait)
				CUMULREGUL = CUMULREGUL + ENR_AIDANTTTE<10,I>
				CUMULJOURCAL=CUMULJOURCAL+ENR_AIDANTTTE<3,I>
				CUMULSDJF=CUMULSDJF+(ENR_AIDANTTTE<4,I>+ENR_AIDANTTTE<5,I>)
				CUMULABS=CUMULABS+(ENR_AIDANTTTE<6,I>+ENR_AIDANTTTE<7,I>+ENR_AIDANTTTE<8,I>)
				CUMULPOTJOUR=CUMULPOTJOUR+W_PotJour
				
			END
			
			IF W_CODEIMP = "LETTRE" THEN
			
				IF I = 1 THEN
				   J = J+1
				   ENR_TEMPO<J,1> = ENR_CIVILAIDANT<1>:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
					
				   ADR = ""
					
				   IF ENR_CIVILAIDANT<5> # "" THEN
				  	ADR = ENR_CIVILAIDANT<5>:' '
				   END
					
				   IF ENR_CIVILAIDANT<6> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<6>:' '
				   END
					
				   IF ENR_CIVILAIDANT<7> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<7>:' '
				   END
					
				   IF ENR_CIVILAIDANT<8> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<8>:' '
				   END
					
				   ENR_TEMPO<J,2> = ADR
					
				   IF ENR_CIVILAIDANT<9> # "" THEN
					ENR_TEMPO<J,3> = ENR_CIVILAIDANT<9>
					AD = 4
				   END ELSE
					AD = 3
				   END
				   
				   ENR_TEMPO<J,AD> = ENR_CIVILAIDANT<10>:' ':ENR_CIVILAIDANT<11>
					
				END
				
				IMP = SPACE(1)
				GOSUB 100
				
				ENR_TEMPO<J,I+AD>=IMP
			END	
			
			MOIS = MOIS-1
			
			IF MOIS = 0 THEN
				MOIS = 12
			END
			
			IF W_PERIODE =< ENR_CONTRAT<LIG,I> THEN
				FINTRAIT = "TRUE"
			END
			
		REPEAT
		
		I = I-1
		IF W_CODEIMP = "LISTECUM" OR W_CODEIMP = "LISTE" THEN
		
			IF W_TYPESELECTION = "C" THEN
				IF ENR_CIVILAIDANT<11> # W_CritereTri THEN
					IF W_CritereTri # "" THEN
						* Impression total sect prcdent
						GOSUB 2500
					END
					* Raz var tri
					W_TotalTriHresContrat = 0
					W_TotalTriCumulHresContrat = 0
					W_TotalTriHresAbs = 0
					W_TotalTriCumulHresAbs = 0
					W_TotalTriHresForfait = 0
					W_TotalTriCumulHresForfait = 0
					W_TotalTriHresReelles = 0
					W_TotalTriCumulHresReelles = 0
					W_TotalTriHresEcart = 0
					W_TotalTriCumulHresEcart = 0
					W_TotalTriCumulHresEcartNeg = 0
					W_TotalTriCumulHresRegul = 0
					W_TotalTriCumulJourCal=0
					W_TotalTriCumulSDJF=0
					W_TotalTriCumulPotJour=0	
					W_TotalTriCumulTTE=0
					W_TotalTriJourAbs=0
					W_TotalTriPotJour=0
					W_TotalTriPotHre=0
					W_TotalTriTTE=0
					
					W_CritereTri = ENR_CIVILAIDANT<11>
					J = J+1       
					ENR_TEMPO<J> = "#":W_CritereTri
					
				END ELSE
				
					* Nada
				END
				*ENR_TEMPO<J,2>= ENR_CIVILAIDANT<11>
			END ELSE
				READ ENR_SECTEUR FROM F.SECTEUR ,ENR_CIVILAIDANT<31> ELSE ENR_SECTEUR = ""
				IF W_TYPESELECTION = "S" THEN
					ENR_SECTEUR<1>=ENR_SECTEUR<1>:' - Cat. ':W_Categorie
					IF ENR_SECTEUR<1> # W_CritereTri THEN
						IF W_CritereTri # "" THEN
							* Impression total sect prcdent
							GOSUB 2500
						END
						* Raz var tri
						W_TotalTriHresContrat = 0
						W_TotalTriCumulHresContrat = 0
						W_TotalTriHresAbs = 0
						W_TotalTriCumulHresAbs = 0
						W_TotalTriHresForfait = 0
						W_TotalTriCumulHresForfait = 0
						W_TotalTriHresReelles = 0
						W_TotalTriCumulHresReelles = 0
						W_TotalTriHresEcart = 0
						W_TotalTriCumulHresEcart = 0
						W_TotalTriCumulHresEcartNeg = 0
						W_TotalTriCumulHresRegul = 0
						W_TotalTriCumulJourCal=0
						W_TotalTriCumulSDJF=0
						W_TotalTriCumulPotJour=0	
						W_TotalTriCumulTTE=0						
						W_TotalTriJourAbs=0
						W_TotalTriPotJour=0
						W_TotalTriPotHre=0
						W_TotalTriTTE=0
						
						W_CritereTri = ENR_SECTEUR<1>       
						J = J+1
						ENR_TEMPO<J> = "#":W_CritereTri
						
					END ELSE
					
						* Nada
					END
				*ENR_TEMPO<J,2>= ENR_SECTEUR<1>
				END ELSE
					READ ENR_SOUSSECTEUR FROM F.SOUSSECTEUR ,ENR_CIVILAIDANT<32> ELSE ENR_SOUSSECTEUR = ""
					IF W_TYPESELECTION = "SS" THEN
					
						IF ENR_SECTEUR<1>:" \ ":ENR_SOUSSECTEUR<1> # W_CritereTri THEN
							IF W_CritereTri # "" THEN
								* Impression total sect prcdent
								GOSUB 2500
							END
							* Raz var tri
							W_TotalTriHresContrat = 0
							W_TotalTriCumulHresContrat = 0
							W_TotalTriHresAbs = 0
							W_TotalTriCumulHresAbs = 0
							W_TotalTriHresForfait = 0
							W_TotalTriCumulHresForfait = 0
							W_TotalTriHresReelles = 0
							W_TotalTriCumulHresReelles = 0
							W_TotalTriHresEcart = 0
							W_TotalTriCumulHresEcart = 0
							W_TotalTriCumulHresEcartNeg = 0
							W_TotalTriCumulHresRegul = 0
							W_TotalTriCumulJourCal=0
							W_TotalTriCumulSDJF=0
							W_TotalTriCumulPotJour=0	
							W_TotalTriCumulTTE=0							
							W_TotalTriJourAbs=0
							W_TotalTriPotJour=0
							W_TotalTriPotHre=0
							W_TotalTriTTE=0
							
							W_CritereTri = ENR_SECTEUR<1>:" \ ":ENR_SOUSSECTEUR<1>
							J = J+1
							ENR_TEMPO<J> = "#":W_CritereTri
							
						END ELSE
						
							* Nada
						END
						*ENR_TEMPO<J,2>= ENR_SECTEUR<1> : " \ " : ENR_SOUSSECTEUR<1> 
						
					END ELSE
					
						IF W_TYPESELECTION = "Q" THEN
							READ ENR_QUARTIER FROM F.QUARTIER ,ENR_CIVILAIDANT<33> ELSE ENR_QUARTIER = ""
							IF ENR_SECTEUR<1> : " \ " : ENR_SOUSSECTEUR<1> : " \ " : ENR_QUARTIER<1> # W_CritereTri THEN
								IF W_CritereTri # "" THEN
									* Impression total sect prcdent
									GOSUB 2500
								END
								* Raz var tri
								W_TotalTriHresContrat = 0
								W_TotalTriCumulHresContrat = 0
								W_TotalTriHresAbs = 0
								W_TotalTriCumulHresAbs = 0
								W_TotalTriHresForfait = 0
								W_TotalTriCumulHresForfait = 0
								W_TotalTriHresReelles = 0
								W_TotalTriCumulHresReelles = 0
								W_TotalTriHresEcart = 0
								W_TotalTriCumulHresEcart = 0
								W_TotalTriCumulHresEcartNeg = 0
								W_TotalTriCumulHresRegul = 0
								W_TotalTriCumulJourCal=0
								W_TotalTriCumulSDJF=0
								W_TotalTriCumulPotJour=0	
								W_TotalTriCumulTTE=0								
								W_TotalTriJourAbs=0
								W_TotalTriPotJour=0
								W_TotalTriPotHre=0
								W_TotalTriTTE=0
								
								W_CritereTri = ENR_SECTEUR<1> : " \ " : ENR_SOUSSECTEUR<1> : " \ " : ENR_QUARTIER<1>
								J = J+1
								ENR_TEMPO<J> = "#":W_CritereTri
								
							END ELSE
							
								* Nada
							END
							*ENR_TEMPO<J,2>= ENR_SECTEUR<1> : " \ " : ENR_SOUSSECTEUR<1> : " \ " : ENR_QUARTIER<1>
						END ELSE
							*IF ENR_SECTEUR<1> # W_CritereTri THEN
							*	IF W_CritereTri # "" THEN
							*		* Impression total sect prcdent
							*		GOSUB 2500
							*	END
							*	* Raz var tri
							*	W_TotalTriHresContrat = 0
							*	W_TotalTriCumulHresContrat = 0
							*	W_TotalTriHresAbs = 0
							*	W_TotalTriCumulHresAbs = 0
							*	W_TotalTriHresForfait = 0
							*	W_TotalTriCumulHresForfait = 0
							*	W_TotalTriHresReelles = 0
							*	W_TotalTriCumulHresReelles = 0
							*	W_TotalTriHresEcart = 0
							*	W_TotalTriCumulHresEcart = 0
							*	W_TotalTriCumulHresRegul = 0
							
							*	W_CritereTri = ENR_SECTEUR<1>       
							*	ENR_TEMPO<J> = "#":W_CritereTri
							*	J = J + 1
							*END ELSE
							
							*	* Nada
							*END
							*ENR_TEMPO<J,2>= ENR_SECTEUR<1>
						END
						
					END
				END
			END
			
			IMP = W_AIDE:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
			IMP = IMP[1,41]
			IMP = IMP "L(#42)"
			
			IF W_CODEIMP = "LISTE" THEN
				GOSUB 100
			END ELSE
				GOSUB 400
			END
			J = J+1
			
			ENR_TEMPO<J>=IMP
			
		END ELSE
		
			IF ENR_CONTRAT<LIG,I> = "" THEN
				J = J+1
				ENR_TEMPO<J,1> = ENR_CIVILAIDANT<1>:' ':ENR_CIVILAIDANT<2>:' ':ENR_CIVILAIDANT<3>
				
				ADR = ""
				
				IF ENR_CIVILAIDANT<5> # "" THEN
				  	ADR = ENR_CIVILAIDANT<5>:' '
				END
				
				IF ENR_CIVILAIDANT<6> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<6>:' '
				END
				
				IF ENR_CIVILAIDANT<7> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<7>:' '
				END
				
				IF ENR_CIVILAIDANT<8> # "" THEN
					ADR = ADR:ENR_CIVILAIDANT<8>:' '
				END
				
				ENR_TEMPO<J,2> = ADR
				
				IF ENR_CIVILAIDANT<9> # "" THEN
					ENR_TEMPO<J,3> = ENR_CIVILAIDANT<9>
					AD = 4
				END ELSE
					AD = 3
				END
				
				ENR_TEMPO<J,AD> = ENR_CIVILAIDANT<10>:' ':ENR_CIVILAIDANT<11>
				
			END
		END
		
	REPEAT
	IF W_TYPESELECTION # "O" AND  W_CODEIMP # "LETTRE" THEN 
		GOSUB 2500
	END ELSE
		W_TotalGeneHresContrat = W_TotalGeneHresContrat + W_TotalTriHresContrat
		W_TotalGeneCumulHresContrat = W_TotalGeneCumulHresContrat + W_TotalTriCumulHresContrat 
		W_TotalGeneHresAbs = W_TotalGeneHresAbs + W_TotalTriHresAbs
		W_TotalGeneCumulHresAbs = W_TotalGeneCumulHresAbs + W_TotalTriCumulHresAbs
		W_TotalGeneHresForfait = W_TotalGeneHresForfait + W_TotalTriHresForfait
		W_TotalGeneCumulHresForfait = W_TotalGeneCumulHresForfait + W_TotalTriCumulHresForfait
		W_TotalGeneHresReelles = W_TotalGeneHresReelles + W_TotalTriHresReelles
		W_TotalGeneCumulHresReelles = W_TotalGeneCumulHresReelles + W_TotalTriCumulHresReelles
		W_TotalGeneHresEcart = W_TotalGeneHresEcart + W_TotalTriHresEcart
		W_TotalGeneCumulHresEcart = W_TotalGeneCumulHresEcart + W_TotalTriCumulHresEcart
		W_TotalGeneCumulHresEcartNeg = W_TotalGeneCumulHresEcartNeg + W_TotalTriCumulHresEcartNeg
		W_TotalGeneCumulHresRegul = W_TotalGeneCumulHresRegul + W_TotalTriCumulHresRegul
		W_TotalGeneCumulJourCal=W_TotalGeneCumulJourCal+W_TotalTriCumulJourCal
		W_TotalGeneCumulSDJF=W_TotalGeneCumulSDJF+W_TotalTriCumulSDJF
		
		W_TotalGeneJourAbs = W_TotalGeneJourAbs + W_TotalTriJourAbs
		W_TotalGeneCumulJourAbs= W_TotalGeneCumulJourAbs + W_TotalTriJourAbs
		W_TotalGenePotJour = W_TotalGenePotJour + W_TotalTriPotJour
		W_TotalGenePotHre = W_TotalGenePotHre + W_TotalTriPotHre
		W_TotalGeneCumulPotHre= W_TotalGeneCumulPotHre + W_TotalTriPotHre
		W_TotalGeneTTE = W_TotalGeneTTE + W_TotalTriTTE
		IF W_CODEIMP # "LISTECUM" THEN
			W_TotalGeneCumulPotJour= W_TotalGeneCumulPotJour + W_TotalTriPotJour
			W_TotalGeneCumulTTE= W_TotalGeneCumulTTE + W_TotalTriTTE
		END ELSE
			W_TotalGeneCumulPotJour=W_TotalGeneCumulPotJour+W_TotalTriCumulPotJour
			W_TotalGeneCumulTTE=W_TotalGeneCumulTTE+W_TotalTriCumulTTE
		END
	END
	
	IF W_CODEIMP # "LETTRE" THEN
		GOSUB 3000
	END
	
END

WRITE ENR_TEMPO TO F.TEMPO,"SUIVCONTRAT":W_User

IF W_Edition="G" THEN
	GOSUB 3500
END

EXECUTE 'EFFACER-LISTE W_RESULTAT'

STOP

********************
* ECRITURE PERIODE *
********************

100
IF W_CODEIMP = "LETTRE" THEN
	IF ENR_CONTRAT<LIG,I>[5,2]= "" THEN
		MOISTEST = MOIS
		ANTEST = AN
	END ELSE
		MOISTEST = ENR_CONTRAT<LIG,I>[5,2]
		ANTEST = ENR_CONTRAT<LIG,I>[1,4]
	END
	
	BEGIN CASE
		CASE MOISTEST MATCHES "01"
			IMP = IMP:'JANVIER   ':ANTEST
 		CASE MOISTEST MATCHES "02"
			IMP = IMP:'FEVRIER   ':ANTEST
		CASE MOISTEST MATCHES "03"
			IMP = IMP:'MARS      ':ANTEST
		CASE MOISTEST MATCHES "04"
			IMP = IMP:'AVRIL     ':ANTEST
		CASE MOISTEST MATCHES "05"
			IMP = IMP:'MAI       ':ANTEST
		CASE MOISTEST MATCHES "06"
			IMP = IMP:'JUIN      ':ANTEST
		CASE MOISTEST MATCHES "07"
			IMP = IMP:'JUILLET   ':ANTEST
		CASE MOISTEST MATCHES "08"
			IMP = IMP:'AOUT      ':ANTEST
		CASE MOISTEST MATCHES "09"
			IMP = IMP:'SEPTEMBRE ':ANTEST
		CASE MOISTEST MATCHES "10"
			IMP = IMP:'OCTOBRE   ':ANTEST
		CASE MOISTEST MATCHES "11"
			IMP = IMP:'NOVEMBRE  ':ANTEST
		CASE MOISTEST MATCHES "12"
			IMP = IMP:'DECEMBRE  ':ANTEST
	END CASE
END

IF W_PERIODE = ENR_CONTRAT<LIG,I> AND W_CODEIMP = "LISTE" THEN
	GOSUB 300
END ELSE
	IF W_CODEIMP = "LETTRE" THEN
		GOSUB 300
	END ELSE
		IMP = IMP:SPACE(50)
	END
END
IF W_CODEIMP = "LISTE" THEN

	HRES = (CUMULFORFAIT/100)
	W_TotalTriCumulHresForfait = W_TotalTriCumulHresForfait + CUMULFORFAIT
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	
	IF W_TypeSuivi="R" THEN
		HRES = (CUMULREEL/100)
		W_TotalTriCumulHresReelles = W_TotalTriCumulHresReelles + CUMULREEL
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (CUMULREGUL/100)
		W_TotalTriCumulHresRegul = W_TotalTriCumulHresRegul + CUMULREGUL
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES			
		HRES = (CUMUL/100)-(CUMULREGUL/100)
		IF CUMUL-CUMULREGUL > 0 THEN
			W_TotalTriCumulHresEcart = W_TotalTriCumulHresEcart + (CUMUL-CUMULREGUL)
		END ELSE
			W_TotalTriCumulHresEcartNeg = W_TotalTriCumulHresEcartNeg + (CUMUL-CUMULREGUL)
		END
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
	END ELSE
		HRES = (CUMULTTE/100)
		W_TotalTriCumulHresReelles = W_TotalTriCumulHresReelles + CUMULTTE
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (CUMULREGUL/100)
		W_TotalTriCumulHresRegul = W_TotalTriCumulHresRegul + CUMULREGUL
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES		
		HRES = (CUMULECART/100)-(CUMULREGUL/100)
		IF CUMULECART-CUMULREGUL > 0 THEN
			W_TotalTriCumulHresEcart = W_TotalTriCumulHresEcart + (CUMULECART-CUMULREGUL)
		END ELSE
			W_TotalTriCumulHresEcartNeg = W_TotalTriCumulHresEcartNeg + (CUMULECART-CUMULREGUL)
		END
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
	END
	

	
END ELSE

	IF W_TypeSuivi="R" THEN
		HRES = (CUMUL/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES		
		HRES = (ENR_CONTRAT<W_REGUL,I>/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = ((CUMUL-(CUMULREGUL))/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
	END ELSE
		HRES = W_Ecart+W_SauveEcart
		W_SauveEcart=HRES
		HRES = HRES/100	
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES		
		HRES = ENR_AIDANTTTE<10,I>/100
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = ENR_AIDANTTTE<11,I>/100
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES	
	END
	
END

RETURN

********************************
* ECRITURE PERIODE PROSPECTIVE *
********************************

*	110
*	IF W_CODEIMP = "LETTRE" THEN
*	
*		MOISTEST = W_Sortie<W_LigneDsTab,1>[4,2]
*		ANTEST = W_Sortie<W_LigneDsTab,1>[7,4]
*	
*		BEGIN CASE
*			CASE MOISTEST MATCHES "01"
*				IMP = IMP:'JANVIER   ':ANTEST
*			CASE MOISTEST MATCHES "02"
*				IMP = IMP:'FEVRIER   ':ANTEST
*			CASE MOISTEST MATCHES "03"
*				IMP = IMP:'MARS      ':ANTEST
*			CASE MOISTEST MATCHES "04"
*				IMP = IMP:'AVRIL     ':ANTEST
*			CASE MOISTEST MATCHES "05"
*				IMP = IMP:'MAI       ':ANTEST
*			CASE MOISTEST MATCHES "06"
*				IMP = IMP:'JUIN      ':ANTEST
*			CASE MOISTEST MATCHES "07"
*				IMP = IMP:'JUILLET   ':ANTEST
*			CASE MOISTEST MATCHES "08"
*				IMP = IMP:'AOUT      ':ANTEST
*			CASE MOISTEST MATCHES "09"
*				IMP = IMP:'SEPTEMBRE ':ANTEST
*			CASE MOISTEST MATCHES "10"
*				IMP = IMP:'OCTOBRE   ':ANTEST
*			CASE MOISTEST MATCHES "11"
*				IMP = IMP:'NOVEMBRE  ':ANTEST
*			CASE MOISTEST MATCHES "12"
*				IMP = IMP:'DECEMBRE  ':ANTEST
*		END CASE
*	END
*
*	IF W_PERIODE = ENR_CONTRAT<LIG,I> AND W_CODEIMP = "LISTE" THEN
*		GOSUB 310
*	END ELSE
*		IF W_CODEIMP = "LETTRE" THEN
*			GOSUB 310
*		END ELSE
*			IMP = IMP:SPACE(50)
*		END
*	END
*	IF W_CODEIMP = "LISTE" THEN
*		HRES = (CUMULFORFAIT/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = (CUMULREEL/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = (CUMUL/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = (CUMULREGUL/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*	END ELSE
*		HRES = (CUMUL/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = (ENR_CONTRAT<W_REGUL,I>/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = ((CUMUL-(CUMULREGUL))/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*	END
*
*	RETURN
*
*
*************************
* MISE EN FORME VALEURS *
*************************

300

HRES = ""

IF W_CODEIMP = "LETTRE" THEN

	IF W_TypeSuivi="R" THEN
		HRES = ((ENR_CONTRAT<(LIG+1),I>)/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+2),I>)/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = (ENR_CONTRAT<(LIG+1),I>)-(ENR_CONTRAT<(LIG+2),I>)
		HRES = (HRES/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+3),I>)/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+4),I>)/100)
		HRES = HRES "R2"
		HRES = HRES "R(#9)"
		IMP = IMP:HRES
	END ELSE
		W_JourOuvre=ENR_AIDANTTTE<3,I>-ENR_AIDANTTTE<4,I>-ENR_AIDANTTTE<5,I>
		W_Temp = W_JourOuvre "R(#6)"
		IMP = IMP:W_Temp
		W_JourAbs=ENR_AIDANTTTE<6,I>+ENR_AIDANTTTE<7,I>+ENR_AIDANTTTE<8,I>
		W_Temp = W_JourAbs/100 "R24,(#7)"
		IMP = IMP:W_Temp
		W_PotJour=(W_JourOuvre*100)-W_JourAbs
		W_Temp = W_PotJour/100 "R24,(#7)"
		IMP = IMP:W_Temp
		W_PotHre=(W_PotJour*ENR_AIDANTTTE<2,I>)/100
		W_PotHre=INT(W_PotHre +(1/2))
		W_Temp = W_PotHre/100 "R24,(#8)"
		IMP = IMP:W_Temp
		W_TTE=ENR_AIDANTTTE<9,I>/100
		W_Temp = W_TTE "R24,(#8)"
		IMP = IMP:W_Temp
		W_Ecart=ENR_AIDANTTTE<9,I>-W_PotHre
		W_Temp = W_Ecart/100 "R24,(#8)"
		IMP = IMP:W_Temp
	END
	
END ELSE

	IF W_TypeSuivi="R" THEN
		HRES = ((ENR_CONTRAT<(LIG+1),I>)/100)
		W_TotalTriHresContrat = W_TotalTriHresContrat + ENR_CONTRAT<(LIG+1),I>
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+2),I>)/100)
		W_TotalTriHresAbs = W_TotalTriHresAbs + ENR_CONTRAT<(LIG+2),I>
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (ENR_CONTRAT<(LIG+1),I>)-(ENR_CONTRAT<(LIG+2),I>)
		W_TotalTriHresForfait = W_TotalTriHresForfait + ENR_CONTRAT<(LIG+1),I> - ENR_CONTRAT<(LIG+2),I>
		HRES = (HRES/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+3),I>)/100)
		W_TotalTriHresReelles = W_TotalTriHresReelles + ENR_CONTRAT<(LIG+3),I>
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = ((ENR_CONTRAT<(LIG+4),I>)/100)
		W_TotalTriHresEcart = W_TotalTriHresEcart + ENR_CONTRAT<(LIG+4),I>
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
	END ELSE
		W_HreJour = ((ENR_AIDANTTTE<2,I>)/100)
		W_TotalTriHresContrat = W_TotalTriHresContrat + ENR_AIDANTTTE<2,I>
		HRES  = W_HreJour "R24,(#10)"
		IMP = IMP:HRES 
		
		W_JourMois = ENR_AIDANTTTE<3,I>
		HRES = W_JourMois "R(#4)"
		IMP = IMP:HRES 
		
		W_JourSDJF=ENR_AIDANTTTE<4,I>+ENR_AIDANTTTE<5,I>
		HRES = W_JourSDJF "R(#4)"
		IMP = IMP:HRES
		
		W_JourAbs = ENR_AIDANTTTE<6,I>+ENR_AIDANTTTE<7,I>+ENR_AIDANTTTE<8,I>
		W_TotalTriJourAbs = W_TotalTriJourAbs + W_JourAbs
		HRES = (W_JourAbs/100)
		HRES = HRES "R24,(#8)"
		IMP = IMP:HRES
		
		W_PotJr = (W_JourMois*100)-(W_JourSDJF*100)-W_JourAbs
		W_TotalTriPotJour = W_TotalTriPotJour + W_PotJr
		HRES = W_PotJr/100 "R24,(#7)"
		IMP = IMP:HRES
		
		W_PotHre=(W_PotJr*ENR_AIDANTTTE<2,I>)/100
		W_PotHre=INT(W_PotHre +(1/2))		
		W_TotalTriPotHre = W_TotalTriPotHre + W_PotHre
		HRES = W_PotHre/100 "R24,(#9)"
		IMP = IMP:HRES	
		
		W_TTE=ENR_AIDANTTTE<9,I>
		W_TotalTriTTE=W_TotalTriTTE+W_TTE
		W_Temp = W_TTE/100 "R24,(#8)"
		IMP = IMP:W_Temp		
		
	END
	
END
RETURN

*************************************
* MISE EN FORME VALEURS PROSPECTIVE *
*************************************

*	310
*
*	 HRES = ""
*
*	IF W_CODEIMP = "LETTRE" THEN
*		HRES = ((W_Sortie<W_LigneDsTab,2>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = ((W_Sortie<W_LigneDsTab,3>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = W_Sortie<W_LigneDsTab,4>
*		HRES = (HRES)
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = W_Sortie<W_LigneDsTab,5>
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*		HRES = ((W_Sortie<W_LigneDsTab,6>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#9)"
*		IMP = IMP:HRES
*	END ELSE
*		HRES = ((W_Sortie<W_LigneDsTab,2>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = ((W_Sortie<W_LigneDsTab,3>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = W_Sortie<W_LigneDsTab,4>
*		HRES = (HRES/100)
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = ((W_Sortie<W_LigneDsTab,5>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*		HRES = ((W_Sortie<W_LigneDsTab,6>))
*		HRES = HRES "R2"
*		HRES = HRES "R(#10)"
*		IMP = IMP:HRES
*	END
RETURN

***********************************
* MISE EN FORME VALEURS DE CUMULS *
***********************************

400

IF W_TypeSuivi="R" THEN
	HRES = ""
	HRES = (CUMULHRES/100)
	W_TotalTriCumulHresContrat = W_TotalTriCumulHresContrat + CUMULHRES
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	HRES = (CUMULABS/100)
	W_TotalTriCumulHresAbs = W_TotalTriCumulHresAbs + CUMULABS
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	HRES = (CUMULFORFAIT/100)
	W_TotalTriCumulHresForfait = W_TotalTriCumulHresForfait + CUMULFORFAIT
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	HRES = (CUMULREEL/100)
	W_TotalTriCumulHresReelles = W_TotalTriCumulHresReelles + CUMULREEL
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES
	HRES = (CUMULREGUL/100)
	W_TotalTriCumulHresRegul = W_TotalTriCumulHresRegul + CUMULREGUL
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES	
	HRES = (CUMUL/100)-(CUMULREGUL/100)
	IF CUMUL-CUMULREGUL >= 0 THEN
	W_TotalTriCumulHresEcart = W_TotalTriCumulHresEcart + (CUMUL-CUMULREGUL)
	END ELSE
	W_TotalTriCumulHresEcartNeg = W_TotalTriCumulHresEcartNeg + (CUMUL-CUMULREGUL)
	END
	HRES = HRES "R2"
	HRES = HRES "R(#10)"
	IMP = IMP:HRES

END ELSE
	HRES = ""
	HRES = CUMULJOURCAL
	W_TotalTriCumulJourCal = W_TotalTriCumulJourCal + CUMULJOURCAL
	HRES = HRES "R(#6)"
	IMP = IMP:HRES
	HRES = CUMULSDJF
	W_TotalTriCumulSDJF = W_TotalTriCumulSDJF + CUMULSDJF
	HRES = HRES "R(#4)"
	IMP = IMP:HRES	
	HRES = (CUMULABS/100)
	W_TotalTriCumulHresAbs = W_TotalTriCumulHresAbs + CUMULABS
	HRES = HRES "R2"
	HRES = HRES "R(#8)"
	IMP = IMP:HRES
	HRES = (CUMULPOTJOUR/100)
	W_TotalTriCumulPotJour = W_TotalTriCumulPotJour + CUMULPOTJOUR
	HRES = HRES "R2"
	HRES = HRES "R(#9)"
	IMP = IMP:HRES	
	HRES = (CUMULFORFAIT/100)
	W_TotalTriCumulHresForfait = W_TotalTriCumulHresForfait + CUMULFORFAIT
	HRES = HRES "R2"
	HRES = HRES "R(#8)"
	IMP = IMP:HRES	
	HRES = (CUMULTTE/100)
	W_TotalTriCumulTTE = W_TotalTriCumulTTE + CUMULTTE
	HRES = HRES "R2"
	HRES = HRES "R(#9)"
	IMP = IMP:HRES
	HRES = (CUMULREGUL/100)
	W_TotalTriCumulHresRegul = W_TotalTriCumulHresRegul + CUMULREGUL
	HRES = HRES "R2"
	HRES = HRES "R(#7)"
	IMP = IMP:HRES	
	HRES = (CUMULECART/100)-(CUMULREGUL/100)
	IF CUMULECART-CUMULREGUL >= 0 THEN
	W_TotalTriCumulHresEcart = W_TotalTriCumulHresEcart + (CUMULECART-CUMULREGUL)
	END ELSE
	W_TotalTriCumulHresEcartNeg = W_TotalTriCumulHresEcartNeg + (CUMULECART-CUMULREGUL)
	END
	HRES = HRES "R2"
	HRES = HRES "R(#9)"
	IMP = IMP:HRES

END

READ ENR_CONVENTIONCOL FROM F.CONVENTIONCOL,ENR_CONTRAT<1> ELSE ENR_CONVENTIONCOL = ""

IF W_TypeSuivi="R" THEN
	TIERFORFAIT = CUMULFORFAIT * (2/3)
	DEPASLEGAL = (((CUMULREEL + CUMULABS)*12)/(52*NBRMOIS))
	DEPASLEGAL = INT(DEPASLEGAL)
	DEPAS10 = (CUMULFORFAIT*(110/100))
	DEPASCONT = (CUMULFORFAIT*((100+(3333/100))/100))

	IF DEPASLEGAL > 3500 THEN
		IMP = IMP:'  DEPASSEMENT HORAIRE LEGAL'
	END ELSE
		IF CUMULREEL > DEPASCONT THEN
			IMP = IMP:'  > A 133% DU CONTRAT'
		END ELSE
			IF CUMULREEL > DEPAS10 THEN
				IMP = IMP:'  > A 110% DU CONTRAT'
			END ELSE
				IF CUMULREEL < TIERFORFAIT THEN
					IMP = IMP:'  < A 66% DU CONTRAT'
				END
			END
		END
	END
END ELSE
	MSG=""
	IF ENR_CONVENTIONCOL<46> # "" THEN
		W_Temp=CUMULFORFAIT*ENR_CONVENTIONCOL<46>/10000
		W_Temp=INT(W_Temp+(1/2))
		IF W_Temp > CUMULTTE THEN
			MSG = '  INFERIEUR A LA LIMITE BASSE'
		END
	END
	IF ENR_CONVENTIONCOL<48> # "" THEN
		W_Temp=CUMULFORFAIT*ENR_CONVENTIONCOL<48>/10000
		W_Temp=INT(W_Temp+(1/2))
		IF W_Temp < CUMULTTE THEN
			MSG = '  SUPERIEUR A LA LIMITE HAUTE'
		END
	END
	W_Temp=CUMULPOTJOUR*7
	IF W_Temp < CUMULTTE THEN
		MSG = '  DEPASSEMENT HORAIRE LEGAL'	
	END
	IMP = IMP:MSG
END

RETURN

*10000
*******************************************************************
*    		Lecture  du suivi de contrat de prospective		*
*******************************************************************
*	W_DebProsp = W_DernPeriodePriseEnCompte + 1
*	IF W_DebProsp[5,2] = 13 THEN
*		W_DebProsp = W_DebProsp[1,4] + 1
*		W_DebProsp= W_DebProsp:"01"
*	END
*	W_FinProsp = W_PERIODE
*	W_ParamCalculProsp = ""
*	W_ParamCalculProsp = CLE.CONTRAT:"|":W_DebProsp:"|":W_FinProsp
*	CALL CalcSuivContratProsp("",W_ParamCalculProsp,W_Sortie)
*	W_LigneDsTab = 1
*	FOR W_IndiceMoisProsp = W_DebProsp TO W_FinProsp 
*   
*	   NBRMOIS = NBRMOIS + 1
*	   CUMULHRES = CUMULHRES + W_Sortie<W_LigneDsTab,2>*100
*	   CUMULABS = CUMULABS + W_Sortie<W_LigneDsTab,3>*100
*	   CUMULREEL = CUMULREEL + W_Sortie<W_LigneDsTab,5>*100
*
*	   CUMUL = CUMUL + W_Sortie<W_LigneDsTab,6>*100
*
*	   CUMULFORFAIT = CUMULFORFAIT + W_Sortie<W_LigneDsTab,4>*100
*
*	   CUMULREGUL = CUMULREGUL + W_Sortie<W_LigneDsTab,8>*100
*
*	   IMP = SPACE(1)
*	   GOSUB 110
*   
*	   ENR_TEMPO<J,I+AD + W_LigneDsTab>=IMP
*	   W_LigneDsTab = W_LigneDsTab + 1	
*
*	NEXT W_IndiceMoisProsp
*	
*	RETURN

2000 **************************************************************
* 			Traitement de prospective				*
*******************************************************************
READ ENR_SUIVCONTRATPROSP FROM F.SUIVCONTRATPROSP, CLE.CONTRAT:W_PERIODE THEN
	NBRMOIS = ENR_SUIVCONTRATPROSP<7>
	CUMULHRES = ENR_SUIVCONTRATPROSP<1>*100
	*W_TotalTriCumulHresContrat = W_TotalTriCumulHresContrat + ENR_SUIVCONTRATPROSP<1>*100
	CUMULABS = ENR_SUIVCONTRATPROSP<2>*100
	*W_TotalTriCumulHresAbs = W_TotalTriCumulHresAbs + ENR_SUIVCONTRATPROSP<2>*100
	CUMULREEL = ENR_SUIVCONTRATPROSP<4>*100
	*W_TotalTriCumulHresReelles = W_TotalTriCumulHresReelles + ENR_SUIVCONTRATPROSP<4>*100
	CUMUL = ENR_SUIVCONTRATPROSP<5>*100
	*W_TotalTriCumulHresEcart = W_TotalTriCumulHresEcart + ENR_SUIVCONTRATPROSP<5>*100
	CUMULFORFAIT = ENR_SUIVCONTRATPROSP<3>*100
	*W_TotalTriCumulHresForfait = W_TotalTriCumulHresForfait + ENR_SUIVCONTRATPROSP<3>*100
	CUMULREGUL = ENR_SUIVCONTRATPROSP<6>*100
	*W_TotalTriCumulHresRegul = W_TotalTriCumulHresRegul + ENR_SUIVCONTRATPROSP<6>*100
	
END ELSE
	W_LectureOk = "F"
END
RETURN

2500 **************************************************************
*    			Etablissement des totaux gnraux			*
*******************************************************************

	W_TotalGeneHresContrat = W_TotalGeneHresContrat + W_TotalTriHresContrat
	W_TotalGeneCumulHresContrat = W_TotalGeneCumulHresContrat + W_TotalTriCumulHresContrat 
	W_TotalGeneHresAbs = W_TotalGeneHresAbs + W_TotalTriHresAbs
	W_TotalGeneCumulHresAbs = W_TotalGeneCumulHresAbs + W_TotalTriCumulHresAbs
	W_TotalGeneHresForfait = W_TotalGeneHresForfait + W_TotalTriHresForfait
	W_TotalGeneCumulHresForfait = W_TotalGeneCumulHresForfait + W_TotalTriCumulHresForfait
	W_TotalGeneHresReelles = W_TotalGeneHresReelles + W_TotalTriHresReelles
	W_TotalGeneCumulHresReelles = W_TotalGeneCumulHresReelles + W_TotalTriCumulHresReelles
	W_TotalGeneHresEcart = W_TotalGeneHresEcart + W_TotalTriHresEcart
	W_TotalGeneCumulHresEcart = W_TotalGeneCumulHresEcart + W_TotalTriCumulHresEcart
	W_TotalGeneCumulHresEcartNeg = W_TotalGeneCumulHresEcartNeg + W_TotalTriCumulHresEcartNeg
	W_TotalGeneCumulJourCal=W_TotalGeneCumulJourCal+W_TotalTriCumulJourCal
	W_TotalGeneCumulSDJF=W_TotalGeneCumulSDJF+W_TotalTriCumulSDJF
	
	W_TotalGeneCumulHresRegul = W_TotalGeneCumulHresRegul + W_TotalTriCumulHresRegul
	
	W_TotalGeneJourAbs = W_TotalGeneJourAbs + W_TotalTriJourAbs
	W_TotalGeneCumulJourAbs= W_TotalGeneCumulJourAbs + W_TotalTriJourAbs
	W_TotalGenePotJour = W_TotalGenePotJour + W_TotalTriPotJour
	W_TotalGenePotHre = W_TotalGenePotHre + W_TotalTriPotHre
	W_TotalGeneCumulPotHre= W_TotalGeneCumulPotHre + W_TotalTriPotHre
	W_TotalGeneTTE = W_TotalGeneTTE + W_TotalTriTTE
	
	IF W_CODEIMP # "LISTECUM" THEN
		W_TotalGeneCumulPotJour= W_TotalGeneCumulPotJour + W_TotalTriPotJour
		W_TotalGeneCumulTTE= W_TotalGeneCumulTTE + W_TotalTriTTE
	END ELSE
		W_TotalGeneCumulPotJour=W_TotalGeneCumulPotJour+W_TotalTriCumulPotJour
		W_TotalGeneCumulTTE=W_TotalGeneCumulTTE+W_TotalTriCumulTTE
	END	
	
	IMP ="TOTAL ":W_CritereTri
	IMP = IMP[1,41]
	IMP = IMP "L(#42)"
	
	IF W_CODEIMP = "LISTE" THEN
	
		IF W_TypeSuivi="R" THEN
			* Periode
			HRES = ((W_TotalTriHresContrat)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriHresAbs)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalTriHresForfait)
			HRES = (HRES/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriHresReelles)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriHresEcart)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
		END ELSE
			* Periode
			HRES = ((W_TotalTriHresContrat)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriJourAbs)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#16)"
			IMP = IMP:HRES
			HRES = (W_TotalTriPotJour)
			HRES = (HRES/100)
			HRES = HRES "R2"
			HRES = HRES "R(#7)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriPotHre)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES
			HRES = ((W_TotalTriTTE)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES
		END
		* Cumuls
		HRES = (W_TotalTriCumulHresForfait/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (W_TotalTriCumulHresReelles/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (W_TotalTriCumulHresRegul/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES			
		HRES = (W_TotalTriCumulHresEcart/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		
		
	END ELSE
		* Liste cumule	
		IF W_TypeSuivi="R" THEN	
			HRES = ""
			HRES = (W_TotalTriCumulHresContrat/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulHresAbs/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulHresForfait/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulHresReelles/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulHresRegul/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES			
			HRES = (W_TotalTriCumulHresEcart/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES

		END ELSE
			HRES = ""
			HRES = (W_TotalTriCumulJourCal)
			HRES = HRES "R(#6)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulSDJF)
			HRES = HRES "R(#4)"
			IMP = IMP:HRES			
			HRES = (W_TotalTriCumulHresAbs/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulPotJour/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES			
			HRES = (W_TotalTriCumulHresForfait/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulTTE/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES
			HRES = (W_TotalTriCumulHresRegul/100)
			HRES = HRES "R2"
			HRES = HRES "R(#7)"
			IMP = IMP:HRES				
			HRES = (W_TotalTriCumulHresEcart/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES
	
		END
	END
	J = J + 1
	ENR_TEMPO<J> = IMP
	
*	IMP ="TOTAL ":W_CritereTri
*	IMP = IMP[1,41]
*	IMP = IMP "L(#42)"
	IMP = SPACE(42)
	
	IF W_CODEIMP = "LISTE" THEN
	
		* Periode
		*HRES = ((W_TotalTriHresContrat)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalTriHresAbs)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalTriHresForfait)
		*HRES = (HRES/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalTriHresReelles)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalTriHresEcart)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(50)
		
		* Cumuls
		*HRES = (W_TotalTriCumulHresForfait/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresReelles/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(30)
		
		HRES = (W_TotalTriCumulHresEcartNeg/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresRegul/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
	END ELSE
		* Liste cumule
		*HRES = ""
		*HRES = (W_TotalTriCumulHresContrat/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresAbs/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresForfait/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresReelles/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(50)		
		
		HRES = (W_TotalTriCumulHresEcartNeg/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		*HRES = (W_TotalTriCumulHresRegul/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
	END
	
	J = J + 1
	ENR_TEMPO<J> = IMP
	
RETURN

3000 **************************************************************
*				Total General					*
*******************************************************************
	IMP ="TOTAL GENERAL"
	IMP = IMP[1,41]
	IMP = IMP "L(#42)"
	
	IF W_CODEIMP = "LISTE" THEN
		IF W_TypeSuivi="R" THEN
			* Periode
			HRES = ((W_TotalGeneHresContrat)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalGeneHresAbs)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneHresForfait)
			HRES = (HRES/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalGeneHresReelles)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalGeneHresEcart)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
		END ELSE
			* Periode
			HRES = ((W_TotalGeneHresContrat)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = ((W_TotalGeneJourAbs)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#16)"
			IMP = IMP:HRES
			HRES = (W_TotalGenePotJour)
			HRES = (HRES/100)
			HRES = HRES "R2"
			HRES = HRES "R(#7)"
			IMP = IMP:HRES
			HRES = ((W_TotalGenePotHre)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9"
			IMP = IMP:HRES
			HRES = ((W_TotalGeneTTE)/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES		
		END
		
		* Cumuls
		HRES = (W_TotalGeneCumulHresForfait/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (W_TotalGeneCumulHresReelles/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		HRES = (W_TotalGeneCumulHresRegul/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES		
		HRES = (W_TotalGeneCumulHresEcart/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		
	END ELSE
		* Liste cumule
		IF W_TypeSuivi="R" THEN		
			HRES = ""
			HRES = (W_TotalGeneCumulHresContrat/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulHresAbs/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulHresForfait/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulHresReelles/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulHresRegul/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES			
			HRES = (W_TotalGeneCumulHresEcart/100)
			HRES = HRES "R2"
			HRES = HRES "R(#10)"
			IMP = IMP:HRES

		END ELSE
			HRES = ""
			HRES = (W_TotalGeneCumulJourCal)
			HRES = HRES "R(#6)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulSDJF)
			HRES = HRES "R(#4)"
			IMP = IMP:HRES			
			HRES = (W_TotalGeneCumulHresAbs/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulPotJour/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES			
			HRES = (W_TotalGeneCumulHresForfait/100)
			HRES = HRES "R2"
			HRES = HRES "R(#8)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulTTE/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES
			HRES = (W_TotalGeneCumulHresRegul/100)
			HRES = HRES "R2"
			HRES = HRES "R(#7)"
			IMP = IMP:HRES				
			HRES = (W_TotalGeneCumulHresEcart/100)
			HRES = HRES "R2"
			HRES = HRES "R(#9)"
			IMP = IMP:HRES

		END
	END
	
	J = J + 1
	ENR_TEMPO<J> = IMP
	
	*IMP ="TOTAL GENERAL"
	*IMP = IMP[1,41]
	*IMP = IMP "L(#42)"
	IMP=SPACE(42)
	
	IF W_CODEIMP = "LISTE" THEN
	
		* Periode
		*HRES = ((W_TotalGeneHresContrat)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalGeneHresAbs)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalGeneHresForfait)
		*HRES = (HRES/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalGeneHresReelles)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = ((W_TotalGeneHresEcart)/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(50)
		
		* Cumuls
		*HRES = (W_TotalGeneCumulHresForfait/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalGeneCumulHresReelles/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(30)
		
		HRES = (W_TotalGeneCumulHresEcartNeg/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		
		*HRES = (W_TotalGeneCumulHresRegul/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
	END ELSE
		* Liste cumule
		*HRES = ""
		*HRES = (W_TotalGeneCumulHresContrat/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalGeneCumulHresAbs/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalGeneCumulHresForfait/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		*HRES = (W_TotalGeneCumulHresReelles/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
		IMP=IMP:SPACE(50)
		
		HRES = (W_TotalGeneCumulHresEcartNeg/100)
		HRES = HRES "R2"
		HRES = HRES "R(#10)"
		IMP = IMP:HRES
		
		*HRES = (W_TotalGeneCumulHresRegul/100)
		*HRES = HRES "R2"
		*HRES = HRES "R(#10)"
		*IMP = IMP:HRES
		
	END
	
	J = J + 1
	ENR_TEMPO<J> = IMP
	
RETURN

**************************************************************
* gnration fichier graphique			
3500

	W_Tab=ENR_TEMPO

	W_Rupture="FAUX"
	W_NomRupt=""
	IF W_Tab<1> # "#TOTALITE" THEN
		W_Rupture="VRAI"
	END
	
	W_Count=DCOUNT(W_Tab,CHAR(254))
	FOR i = 1 TO W_Count
		IF W_Rupture="VRAI" AND W_Tab<i>[1,1]="#" THEN
			W_NomRupt=W_Tab<i>[2,LEN(W_Tab<i>)-1]
		END
		
		IF W_Tab<i>[1,5] # "TOTAL" AND W_Tab<i>[1,1] # "#" AND TRIM(W_Tab<i>)[1,1] # "-" THEN
			W_Aide=W_Tab<i>[1,5]:";":TRIM(W_Tab<i>[7,35])
			W_Tab<i>=TRIM(W_Tab<i>[42,LEN(W_Tab<i>)])
			W_Tab<i>=CONVERT(" ",";",W_Tab<i>)
			W_Tab<i>=CONVERT("_"," ",W_Tab<i>)
			W_Tab<i>=W_Aide:";":W_Tab<i>
			IF W_NomRupt # "" THEN
				W_Tab<i>=W_NomRupt:";":W_Tab<i>
			END
		END ELSE
			W_Tab=DELETE(W_Tab,i)
			i=i-1
			W_Count=W_Count-1
		END
	NEXT i
	
	IF W_TypeSuivi = "R" THEN
		W_Cle="SUIVCONTRAT":W_ASSOC:W_CODCONVCOL:W_PERIODE
		IF W_CODEIMP="LISTE" THEN
			W_Entete="Code;Nom prnom;Heures contrat priode;Heures absences priode;Heures forfait priode;Heures relles priode;Ecart priode;Heures forfait cumuls;Heures relles cumuls;Rgul modul cumuls;Solde cumuls"
		END ELSE
			W_Entete="Code;Nom prnom;Heures contrat cumuls;Heures absences cumuls;Heures forfait cumuls;Heures relles cumuls;Rgul modul cumuls;Solde cumuls;Observation"
		END
	END ELSE
		W_Cle="SUIVCONTRATTTE":W_ASSOC:W_CODCONVCOL:W_PERIODE
		IF W_CODEIMP="LISTE" THEN
			W_Entete="Code;Nom prnom;Heures contrat priode;Jour mois priode;S/D/JF priode;Jour abs priode;Potentiel jours priode;Potentiel heures priode;TTE priode;Heures forfait cumuls;TTE cumuls;Rgul modul cumuls;Solde cumuls"
		END ELSE
			W_Entete="Code;Nom prnom;Jours calendaires cumuls;S/D/JF cumuls;Absences cumuls;Potentiel jours cumuls;Potentiel heures cumuls;TTE cumuls;Rgul modul cumuls;Solde cumuls;Observation"
		END
	END
	W_Entete=W_Entete:';Categorie'
	IF W_Rupture="VRAI" THEN
		IF W_TYPESELECTION="C" THEN
			W_Entete="Commune;":W_Entete
		END ELSE
			IF W_TYPESELECTION="S" THEN
				W_Entete="Secteur;":W_Entete		
			END
		END
	END
	W_Tab=INSERT(W_Tab,1;W_Entete)
	
	W_Ordre=1
	READ ENR_STATAIDANT FROM F.STATAIDANT,W_Cle:W_Ordre:".csv" ELSE ENR_STATAIDANT=""
	LOOP
	UNTIL ENR_STATAIDANT=""
		W_Ordre=W_Ordre+1
	    READ ENR_STATAIDANT FROM F.STATAIDANT,W_Cle:W_Ordre:".csv" ELSE ENR_STATAIDANT=""
	REPEAT
	
	WRITE W_Tab TO F.STATAIDANT,W_Cle:W_Ordre:".csv"
	
	ENR_TEMPO=W_Cle:W_Ordre:".csv"
	WRITE ENR_TEMPO TO F.TEMPO,"SUIVCONTRAT":W_User
	
RETURN