 
**********************
* REMPLI L'ENREGISTREMENT RELANCE DE TEMPO POUR PERMETTRE L'EDITION DES RELANCES CLIENTS
* 16/05/2002 ALAIN
* --
* 01/07/2010 MATTHIEU : Blocage des relances (voir ligne 150)
**********************

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

EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

OPEN "","ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "","ACTIVITESAIDE" TO F.ACTIVITESAIDE ELSE STOP
OPEN "","CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "","COMMUNES" TO F.COMMUNES ELSE STOP
OPEN "","CONTRAT" TO F.CONTRAT ELSE STOP
OPEN "","CONVENTIONCOL" TO F.CONVENTIONCOL ELSE STOP
OPEN "","DETAILECRITUREAUX" TO F.DETAILECRITUREAUX ELSE STOP
OPEN "","DETAILECRITURERELANCE" TO F.DETAILECRITURERELANCE ELSE STOP
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "","ETABLISSEMENT" TO F.ETABLISSEMENT ELSE STOP
OPEN "","JOURNAL" TO F.JOURNAL ELSE STOP
OPEN "","RELANCESLETTRESTYPE" TO F.RELANCESLETTRESTYPE ELSE STOP
OPEN "","RESPONSABLE" TO F.RESPONSABLE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "","TEMPO" TO F.TEMPO ELSE STOP
*-- Modif Matthieu - 19/07/2010
OPEN "","LIENCOMPTA" TO F.LIENCOMPTA ELSE STOP
*-- Fin Modif Matthieu
******************************
* Recuperation des arguments *
******************************

PROCREAD ARGUMENTS ELSE PRINT "Procread"

W_ASSOC = FIELD(ARGUMENTS,"|",2)
W_CODESERVICE = FIELD(ARGUMENTS,"|",3)
W_TYPETRI = FIELD(ARGUMENTS,"|",4)
W_DE = FIELD(ARGUMENTS,"|",5)
W_A = FIELD(ARGUMENTS,"|",6)
W_DATEARRETE = FIELD(ARGUMENTS,"|",7)
W_PLAFOND = FIELD(ARGUMENTS,"|",8)
W_TYPERELANCE = FIELD(ARGUMENTS,"|",9)
W_CODELETTRE = FIELD(ARGUMENTS,"|",10)
W_RELANCE = FIELD(ARGUMENTS,"|",11)
W_IMP = FIELD(ARGUMENTS,"|",12)
W_REQUETE = FIELD(ARGUMENTS,"|",13)
*-- Modif Matthieu - 19/07/2010
W_CSV = FIELD(ARGUMENTS,"|",14)
*-- Fin Modif Matthieu
*********************
* TRAITEMENT GLOBAL *
*********************

TABLETTRE = ""
ENR_TEMPO =""
W_Temp=""
W_RESULTAT=""
W_RESULTAT2=""
W_SauveDegre=""
*-- Modif Matthieu - 19/07/2010
W_AncCompte = ""
*-- Fin Modif

*-- Modif Matthieu - 19/07/2010
ENR_RELANCE = ""
ENR_CSV = ""
*---Anthony 18/11/10
ENR_CSV<-1> = "Code Aid;Titre Aid;Nom Aid;Prnom Aid;Adresse 1 Aid;Adresse 2 Aid;Code postal Aid;Commune Aid;Tel 1 Aid;Tel 2 Aid;E-mail Aid;Nom Fact;Adresse 1 Fact;Adresse 2 Fact;Code postal Fact;Commune Fact;Tel Fact;E-mail Fact;Relation Fact;Niveau de relance;Montant de la relance;"
*---Fin Anthony
*-- Fin Modif Matthieu

WRITE ENR_TEMPO TO F.TEMPO,"RELANCE"

IF W_IMP = "MATRIC" THEN
	W_ESP = "|"
END ELSE
	W_ESP = " "
END

*IF W_TYPERELANCE = "CL" THEN
*	READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,W_CODELETTRE ELSE ENR_RELANCESLETTRES = ""
*	FOR J=2 TO 21
*		TABLETTRE<W_CODELETTRE,J> = ENR_RELANCESLETTRES<J>
*	NEXT J
*	W_SauveDegre=W_CODELETTRE
*END ELSE

	EXECUTE 'SSELECT RELANCESLETTRESTYPE PAR 0'
	EXECUTE 'SAUVE-LISTE W_RESULTAT2' 
	EXECUTE "LISTE W_RESULTAT2" RETURNING MSGCODE

	IF MSGCODE<1> # 209 THEN
		SELECT F.RELANCESLETTRESTYPE TO W_RESULTAT2

		W_FINI = "FAUX"

		LOOP
			READNEXT W_CODE FROM W_RESULTAT2 ELSE W_FINI="VRAI"
		WHILE W_FINI = "FAUX" DO

			READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,W_CODE ELSE ENR_RELANCESLETTRES = ""

			FOR J=2 TO 21
				TABLETTRE<W_CODE,J> = ENR_RELANCESLETTRES<J>
			NEXT J
			W_SauveDegre=W_CODE
		REPEAT

	END ELSE

		ENR_TEMPO = "VIDE"
		WRITE ENR_TEMPO TO F.TEMPO,"RELANCE"
		STOP

	END

*END

W_FINI = "FAUX"
W_CODE = ""
W_CODEAIDE = ""
W_ANCCODE = ""
CUMULCREDIT = 0
CUMULDEBIT = 0
SOLDE = 0
ENR_TEMPO = ""
DEGRELANCE = 0
ENR_LETTRE=""
W_CodeRelance=""
W_Ind=1
I = 1
J = 1
W_CpteBloque = "FAUX"

IF W_PLAFOND = "" THEN
	W_PLAFOND = 1
END

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

IF MSGCODE<1> # 209 THEN
	SELECT F.DETAILECRITUREAUX TO W_RESULTAT
END ELSE
	ENR_TEMPO = "VIDE"
	WRITE ENR_TEMPO TO F.TEMPO,"RELANCE"
	STOP
END

LOOP
	READNEXT W_CODE FROM W_RESULTAT ELSE W_FINI="VRAI"
WHILE W_FINI = "FAUX" DO

	READ ENR_DETAILAUX FROM F.DETAILECRITUREAUX,W_CODE ELSE ENR_DETAILAUX = ""
	READ ENR_JOURNAL FROM F.JOURNAL,W_CODE[1,5] ELSE ENR_JOURNAL = ""

	* MODIF MATTHIEU - 01/07/2010
	* Blocage des relances sur le compte
	* modif vanessa - 07/12/10 - mis en commentaire
	*IF W_AncCompte = "" OR ENR_DETAILAUX<3> # W_AncCompte THEN
	*
	*	W_CpteBloque = "FAUX"
	*	
	*	* On va vrifier si le compte fait l'objet d'un blocage des relances	
	*	W_ReqBlocage = 'SSELECT DETAILECRITURERELANCE AVEC NumCpte = "':ENR_DETAILAUX<3>:'" AND AVEC 1="0"'
	*	
	*	EXECUTE W_ReqBlocage
	*	EXECUTE 'SAUVE-LISTE W_ResBlocage'
	*	EXECUTE "LISTE W_ResBlocage" RETURNING MSGCODE
	*	
	*	IF MSGCODE<1> # 209 THEN
	*		W_CpteBloque = "VRAI"
	*	END
	*	
	*END
	*
	*IF W_CpteBloque = "VRAI" THEN
	*	
	*	ENR_RELANCE = ""
	*	
	*	* -- Si le compte est bloqu on vrifie si un DETAILECRITURERELANCE existe
	*	
	*	READ ENR_RELANCE FROM F.DETAILECRITURERELANCE, W_CODE ELSE
	*	
	*		* -- Si il n'existe pas on le cr lui aussi a l'tat bloqu
	*		ENR_RELANCE<1> = 0
	*		WRITE ENR_RELANCE TO F.DETAILECRITURERELANCE, W_CODE
	*	
	*	END
	*	
	*END
	
	* FIN MODIF MATTHIEU
	
	IF (ENR_DETAILAUX<2> <= W_DATEARRETE) OR (ENR_DETAILAUX<2> > W_DATEARRETE AND ENR_JOURNAL<2>="T") OR (ENR_DETAILAUX<2> > W_DATEARRETE AND ENR_JOURNAL<2>="O") THEN
		W_CODEAIDE = ENR_DETAILAUX<3>

		IF W_ANCCODE # W_CODEAIDE THEN
			IF W_ANCCODE # "" THEN
				* modif vanessa - 07/12/10 
				IF W_CpteBloque = "FAUX" OR W_CSV = "1" THEN
					IF W_CSV = "1" AND W_CpteBloque = "VRAI" THEN
						DEGRELANCE=0
					END ELSE
						READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,DEGRELANCE THEN
							* lettre relance existe
						END ELSE
							W_Passe="FAUX"
							LOOP
							UNTIL W_Passe="VRAI" OR DEGRELANCE=9 DO
								DEGRELANCE=DEGRELANCE+1
								READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,DEGRELANCE THEN
									W_Passe="VRAI"
								END
							REPEAT
							IF DEGRELANCE=9 AND W_Passe="FAUX" THEN
								DEGRELANCE=W_SauveDegre
							END
						END
					END
					
					IF W_CODESERVICE = "" THEN
						SOLDE = CUMULDEBIT - CUMULCREDIT
						IF SOLDE => W_PLAFOND THEN
							IF W_TYPERELANCE = "CL" THEN
								IF DEGRELANCE = W_CODELETTRE THEN
									GOSUB 100
								END
							END ELSE
								GOSUB 100
							END
						END
					END ELSE
						READ ENR_ACTAIDE FROM F.ACTIVITESAIDE,W_ANCCODE ELSE ENR_ACTAIDE = ""
						IACT = 1
						W_ACTIV = "FAUX"
						W_ACTIVITES = 1
						LOOP
						WHILE ENR_ACTAIDE<1,IACT> # "" DO
							IF ENR_ACTAIDE<1,IACT>[1,3] = W_ASSOC THEN
								IF ENR_ACTAIDE<3,IACT> > DATE() OR ENR_ACTAIDE<3,IACT> = "" THEN
									W_ACTIV = "VRAI"
									IF ENR_ACTAIDE<2,IACT> <= ENR_ACTAIDE<2,W_ACTIVITES> THEN
										W_ACTIVITES = IACT
									END
								END
							END ELSE
								IF W_ACTIV = "FAUX" THEN
									W_ACTIVITES = W_ACTIVITES + 1
								END
							END	
							IACT = IACT + 1
						REPEAT
						IF W_ACTIV = "FAUX" THEN
							IACT = 1
							W_ACTIV = "FAUX"
							W_ACTIVITES = 1
							LOOP
							WHILE ENR_ACTAIDE<1,IACT> # "" DO
								IF ENR_ACTAIDE<1,IACT>[1,3] = W_ASSOC THEN
									IF ENR_ACTAIDE<3,IACT> => ENR_ACTAIDE<3,W_ACTIVITES> THEN
										W_ACTIV = "VRAI"
										W_ACTIVITES = IACT
									END
								END ELSE
									IF W_ACTIV = "FAUX" THEN
										W_ACTIVITES = W_ACTIVITES + 1
									END
								END
								IACT = IACT + 1
							REPEAT
						END
						IF W_ACTIV = "VRAI" THEN
							READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_ACTAIDE<1,W_ACTIVITES> ELSE ENR_ACTIVITES = ""
							IF W_CODESERVICE = ENR_ACTIVITES<13> THEN
								SOLDE = CUMULDEBIT - CUMULCREDIT
								IF SOLDE => W_PLAFOND THEN
									IF W_TYPERELANCE = "CL" THEN
										IF DEGRELANCE = W_CODELETTRE THEN
											GOSUB 100
										END
									END ELSE
										GOSUB 100
									END
								END
							END
						END
					END
				END
				J = 1
				
				SOLDE = 0
				ENR_LETTRE = ""
				CUMULDEBIT = 0
				CUMULCREDIT = 0
				DEGRELANCE = 0
				W_CodeRelance=""
				W_Ind=1
				W_CpteBloque = "FAUX"
			END
		END

		W_ANCCODE = W_CODEAIDE

		IF W_TYPETRI="I" AND W_TYPERELANCE="CL" THEN
			ENR_DETAILRELANCE<1> = "NC"
		END ELSE
			READ ENR_DETAILRELANCE FROM F.DETAILECRITURERELANCE,W_CODE ELSE ENR_DETAILRELANCE<1> = "NC"
		END

		IF ENR_DETAILRELANCE<1> = "NC" THEN
			ENR_DETAILRELANCE<1> = 1
			IF W_TYPETRI="I" AND W_TYPERELANCE="CL" THEN ENR_DETAILRELANCE<1> = W_CODELETTRE
			W_CodeRelance<W_Ind>=W_CODE
			W_Ind=W_Ind+1
		END ELSE
			* Modif Matthieu - 01/07/2010
			* modif vanessa - 07/12/10 
			IF ENR_DETAILRELANCE<1> = 0 THEN
				W_CpteBloque = "VRAI"
			END ELSE
				IF W_RELANCE = "MAJ" AND ENR_DETAILRELANCE<1> # 9 AND W_CpteBloque = "FAUX" THEN
					ENR_DETAILRELANCE<1> = ENR_DETAILRELANCE<1> + 1
				END
				W_CodeRelance<W_Ind>=W_CODE
				W_Ind=W_Ind+1
			END
			* Fin Modif
		END

		IF ENR_DETAILRELANCE<1> > DEGRELANCE THEN
			DEGRELANCE = ENR_DETAILRELANCE<1>
		END

		IF ENR_DETAILAUX<6> # "" THEN
			CUMULDEBIT = CUMULDEBIT + ENR_DETAILAUX<6>
		END

		IF ENR_DETAILAUX<7> # "" THEN
			CUMULCREDIT = CUMULCREDIT + ENR_DETAILAUX<7>
		END
	
		FOR K = 1 TO 7
			ENR_LETTRE<J,K> = ENR_DETAILAUX<K>
		NEXT K
		J = J + 1
	END
	
REPEAT

IF W_ANCCODE # "" THEN

	* modif vanessa - 07/12/10 
	IF W_CpteBloque = "FAUX" OR W_CSV = "1" THEN
		IF W_CSV = "1" AND W_CpteBloque = "VRAI" THEN
			DEGRELANCE=0
		END ELSE
			READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,DEGRELANCE THEN
				* lettre relance existe
			END ELSE
				W_Passe="FAUX"
				LOOP
				UNTIL W_Passe="VRAI" OR DEGRELANCE=9 DO
					DEGRELANCE=DEGRELANCE+1
					READ ENR_RELANCESLETTRES FROM F.RELANCESLETTRESTYPE,DEGRELANCE THEN
						W_Passe="VRAI"
					END
				REPEAT
				IF DEGRELANCE=9 AND W_Passe="FAUX" THEN
					DEGRELANCE=W_SauveDegre
				END
			END
		END
		IF W_CODESERVICE = "" THEN
			SOLDE = CUMULDEBIT - CUMULCREDIT
			IF SOLDE => W_PLAFOND THEN
				IF W_TYPERELANCE = "CL" THEN
					IF DEGRELANCE = W_CODELETTRE THEN
						GOSUB 100
					END
				END ELSE
					GOSUB 100
				END
			END
		END ELSE
			READ ENR_ACTAIDE FROM F.ACTIVITESAIDE,W_ANCCODE ELSE ENR_ACTAIDE = ""
			IACT = 1
			W_ACTIV = "FAUX"
			W_ACTIVITES = 1
			LOOP
			WHILE ENR_ACTAIDE<1,IACT> # "" DO
				IF ENR_ACTAIDE<1,IACT>[1,3] = W_ASSOC THEN
					IF ENR_ACTAIDE<3,IACT> > DATE() OR ENR_ACTAIDE<3,IACT> = "" THEN
						W_ACTIV = "VRAI"
						IF ENR_ACTAIDE<2,IACT> <= ENR_ACTAIDE<2,W_ACTIVITES> THEN
							W_ACTIVITES = IACT
						END
					END
				END ELSE
					IF W_ACTIV = "FAUX" THEN
						W_ACTIVITES = W_ACTIVITES + 1
					END
				END
				IACT = IACT + 1
			REPEAT
			IF W_ACTIV = "FAUX" THEN
				IACT = 1
				W_ACTIV = "FAUX"
				W_ACTIVITES = 1
				LOOP
				WHILE ENR_ACTAIDE<1,IACT> # "" DO
					IF ENR_ACTAIDE<1,IACT>[1,3] = W_ASSOC THEN
						IF ENR_ACTAIDE<3,IACT> => ENR_ACTAIDE<3,W_ACTIVITES> THEN
							W_ACTIV = "VRAI"
							W_ACTIVITES = IACT
						END
					END ELSE
						IF W_ACTIV = "FAUX" THEN
							W_ACTIVITES = W_ACTIVITES + 1
						END
					END
					IACT = IACT + 1
				REPEAT
			END
			
			IF W_ACTIV = "VRAI" THEN
				READ ENR_ACTIVITES FROM F.ACTIVITES,ENR_ACTAIDE<1,W_ACTIVITES> ELSE ENR_ACTIVITES = ""
				* Gestion service prestataire
				IF ENR_ACTIVITES<12>="P" THEN
					IF ENR_ACTAIDE<6>=W_CODESERVICE THEN
						SOLDE = CUMULDEBIT - CUMULCREDIT
						IF SOLDE => W_PLAFOND THEN
							IF W_TYPERELANCE = "CL" THEN
								IF DEGRELANCE = W_CODELETTRE THEN
									GOSUB 100
								END
							END ELSE
								GOSUB 100
							END
						END
					END
				END ELSE
					IF W_CODESERVICE = ENR_ACTIVITES<13> THEN
						SOLDE = CUMULDEBIT - CUMULCREDIT
						IF SOLDE => W_PLAFOND THEN
							IF W_TYPERELANCE = "CL" THEN
								IF DEGRELANCE = W_CODELETTRE THEN
									GOSUB 100
								END
							END ELSE
								GOSUB 100
							END
						END
					END
				END
			END
		END
	END
	J = 1
	SOLDE = 0
	ENR_LETTRE = ""
	CUMULDEBIT = 0
	CUMULCREDIT = 0
	DEGRELANCE = 0
END
IF ENR_TEMPO = "" THEN
	ENR_TEMPO = "VIDE"
END

IF W_CSV = "1" AND DCOUNT(ENR_CSV,CHAR(254)) > 1 THEN

	W_Heure=TIMEDATE()
	W_NomFichier = "RELANCES-":W_ASSOC:"-":OCONV(DATE(),"D4/")[1,2]:OCONV(DATE(),"D4/")[4,2]:OCONV(DATE(),"D4/")[7,4]:"-":W_Heure[1,2]:W_Heure[4,2]:".csv"
	WRITE ENR_CSV TO F.LIENCOMPTA, W_NomFichier
	WRITE W_NomFichier TO F.TEMPO, "RELANCECSV"
	
END

WRITE ENR_TEMPO TO F.TEMPO,"RELANCE"

W_RESULTAT2 = ""

EXECUTE 'SSELECT DETAILECRITURERELANCE AVEC Lettrage # ""'
EXECUTE 'SAUVE-LISTE W_RESULTAT2' 
EXECUTE "LISTE W_RESULTAT2" RETURNING MSGCODE

IF MSGCODE<1> # 209 THEN
	SELECT F.DETAILECRITURERELANCE TO W_RESULTAT2
END ELSE
	STOP
END

W_End = "FAUX"
W_Cle = ""
LOOP
	READNEXT W_Cle FROM W_RESULTAT2 ELSE W_End="VRAI"
WHILE W_End = "FAUX" DO
      READ ENR_DETAILECRITURERELANCE FROM F.DETAILECRITURERELANCE ,W_Cle ELSE ENR_DETAILECRITURERELANCE=""
	DELETE F.DETAILECRITURERELANCE ,W_Cle
REPEAT

STOP

*****************************************************
* ENREGISTREMENT DES DONNEES NECESSAIRE A L EDITION *
*****************************************************

100

* modif vanessa 21/12/10
W_Temp=""

W_Count=DCOUNT(W_CodeRelance,CHAR(254))
FOR W_Ind=1 TO W_Count
	READ ENR_DETAILRELANCE FROM F.DETAILECRITURERELANCE,W_CodeRelance<W_Ind> ELSE ENR_DETAILRELANCE<1> = "NC"
	IF W_TYPETRI="I" AND W_TYPERELANCE="CL" THEN 
		IF W_RELANCE = "MAJ" THEN
			ENR_DETAILRELANCE<1> = W_CODELETTRE
			WRITE ENR_DETAILRELANCE TO F.DETAILECRITURERELANCE,W_CodeRelance<W_Ind>
		END
	END ELSE
		IF ENR_DETAILRELANCE<1> = "NC" THEN
	 		ENR_DETAILRELANCE<1> = 1
			WRITE ENR_DETAILRELANCE TO F.DETAILECRITURERELANCE,W_CodeRelance<W_Ind>
		END ELSE
			IF W_RELANCE = "MAJ" THEN
				IF ENR_DETAILRELANCE<1> # 9 THEN
					ENR_DETAILRELANCE<1> = ENR_DETAILRELANCE<1> + 1
					WRITE ENR_DETAILRELANCE TO F.DETAILECRITURERELANCE,W_CodeRelance<W_Ind>
				END
			END
		END
	END
NEXT W_Ind

READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_ANCCODE ELSE ENR_CIVILAIDE = ""
READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,W_ANCCODE ELSE ENR_ELTSFACTAIDE = ""

IF ENR_ELTSFACTAIDE<9> # "" THEN
	W_Temp<1,1> = ENR_ELTSFACTAIDE<2>
	IF ENR_ELTSFACTAIDE<3> # "" THEN
		W_Temp<1,2> = ENR_ELTSFACTAIDE<3>:' '
	END
	IF ENR_ELTSFACTAIDE<4> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_ELTSFACTAIDE<4>:' '
	END
	IF ENR_ELTSFACTAIDE<5> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_ELTSFACTAIDE<5>:' '
	END
	IF ENR_ELTSFACTAIDE<6> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_ELTSFACTAIDE<6>
	END
	IF ENR_ELTSFACTAIDE<9> # "" THEN
		W_Temp<1,3> = ENR_ELTSFACTAIDE<7>
	END
	IF ENR_ELTSFACTAIDE<8> # "" OR ENR_ELTSFACTAIDE<9> # "" THEN
		IF ENR_ELTSFACTAIDE<8> # "" THEN
			W_Temp<1,4> = ENR_ELTSFACTAIDE<8>:' '
		END
		IF ENR_ELTSFACTAIDE<9> # "" THEN
			W_Temp<1,4> = W_Temp<1,4>:ENR_ELTSFACTAIDE<9>
		END
	END
END ELSE
	W_Temp<1,1> = ENR_CIVILAIDE<1>:' ':ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>
	IF ENR_CIVILAIDE<5> # "" THEN
		W_Temp<1,2> = ENR_CIVILAIDE<5>:' '
	END
	IF ENR_CIVILAIDE<6> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_CIVILAIDE<6>:' '
	END
	IF ENR_CIVILAIDE<7> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_CIVILAIDE<7>:' '
	END
	IF ENR_CIVILAIDE<8> # "" THEN
		W_Temp<1,2> = W_Temp<1,2>:ENR_CIVILAIDE<8>
	END
	IF ENR_CIVILAIDE<9> # "" THEN
		W_Temp<1,3> = W_Temp<1,3>:ENR_CIVILAIDE<9>
	END
	IF ENR_CIVILAIDE<10> # "" OR ENR_CIVILAIDE<11> # "" THEN
		IF ENR_CIVILAIDE<10> # "" THEN
			W_Temp<1,4> = ENR_CIVILAIDE<10>:' '
		END
		IF ENR_CIVILAIDE<11> # "" THEN
			W_Temp<1,4> = W_Temp<1,4>:ENR_CIVILAIDE<11>:' '
		END
	END
END

W_NomPrenom=ENR_CIVILAIDE<2>:' ':ENR_CIVILAIDE<3>
W_Temp<1,5> = W_NomPrenom[1,23]
W_Temp<1,6> = W_ANCCODE

BEGIN CASE
	CASE W_TYPETRI="S" OR W_TYPETRI="I" OR W_TYPETRI="T"
		READ ENR_SECTEUR FROM F.SECTEUR,ENR_CIVILAIDE<40>[1,3] ELSE ENR_SECTEUR = ""
		W_Temp<1,7> = " Secteur      : ":ENR_SECTEUR<1>
	CASE W_TYPETRI="R"
		READ ENR_RESPONSABLE FROM F.RESPONSABLE,ENR_CIVILAIDE<39> ELSE ENR_RESPONSABLE = ""
		W_Temp<1,7> = " Responsable  : ":ENR_RESPONSABLE<1>
	CASE W_TYPETRI="C"
		W_Temp<1,7> = " Commune      : ":ENR_CIVILAIDE<11>
END CASE 

W_Temp<1,8> = " N relance   : ":DEGRELANCE

W_Temp<1,9> = TABLETTRE<DEGRELANCE,2>
W_Temp<1,10> = TABLETTRE<DEGRELANCE,3>
W_Temp<1,11> = TABLETTRE<DEGRELANCE,4>
W_Temp<1,12> = TABLETTRE<DEGRELANCE,5>
W_Temp<1,13> = TABLETTRE<DEGRELANCE,6>
W_Temp<1,14> = TABLETTRE<DEGRELANCE,7>
W_Temp<1,15> = TABLETTRE<DEGRELANCE,8>
W_Temp<1,16> = TABLETTRE<DEGRELANCE,9>
W_Temp<1,17> = TABLETTRE<DEGRELANCE,10>
W_Temp<1,18> = TABLETTRE<DEGRELANCE,11>

CUMDEB = 0
CUMCRED = 0
K = 10
L = 1
X = 1

FOR L=1 TO (J-1)

	IF (J-L) <= K THEN

		X = X + 1
		W_Temp<1,19,X> = W_ESP:OCONV(ENR_LETTRE<L,2>,"D4/")
		INTER = (ENR_LETTRE<L,4>[1,30]):SPACE(30-LEN((ENR_LETTRE<L,4>[1,30])))
		W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:INTER

		IF ENR_LETTRE<L,5> # "" THEN
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:ENR_LETTRE<L,5>:SPACE(10-LEN(ENR_LETTRE<L,5>))
		END ELSE
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:SPACE(10)
		END

		IF ENR_LETTRE<L,6> = "" THEN
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:SPACE(11)
		END ELSE
			INTER = (ENR_LETTRE<L,6>/100)
			INTER = INTER "R2"
			INTER = INTER "R(#11)"
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:INTER
		END

		IF ENR_LETTRE<L,7> = "" THEN
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:SPACE(11):W_ESP
		END ELSE
			INTER = (ENR_LETTRE<L,7>/100)
			INTER = INTER "R2"
			INTER = INTER "R(#11)"
			W_Temp<1,19,X> = W_Temp<1,19,X>:W_ESP:INTER:W_ESP
		END

	END ELSE
		K = 9
		W_Temp<1,19,X> = W_Temp<1,19,X> + (ENR_LETTRE<L,6> - ENR_LETTRE<L,7>)
		CUMDEB = CUMDEB + ENR_LETTRE<L,6>
		CUMCRED = CUMCRED + ENR_LETTRE<L,7>
	END
NEXT L

IF K = 9 THEN
	IF CUMDEB > 0 AND CUMCRED > 0 THEN
		INTER = CUMDEB/100
		INTER = INTER "R2"
		INTER = INTER "R(#11)"
		W_Temp<1,19,1> = W_ESP:SPACE(10):W_ESP:'Cumul antrieur':SPACE(15):W_ESP:SPACE(10):W_ESP:INTER
		INTER = CUMCRED/100
		INTER = INTER "R2"
		INTER = INTER "R(#11)"
		W_Temp<1,19,1> = W_Temp<1,19,1>:W_ESP:INTER:W_ESP
	END ELSE
		IF CUMDEB > 0 THEN
			INTER = CUMDEB/100
			INTER = INTER "R2"
			INTER = INTER "R(#11)"
			W_Temp<1,19,1> = W_ESP:SPACE(10):W_ESP:'Cumul antrieur':SPACE(15):W_ESP:SPACE(10):W_ESP:INTER:W_ESP:SPACE(11):W_ESP
		END ELSE
			INTER = CUMCRED/100
			INTER = INTER "R2"
			INTER = INTER "R(#11)"
			W_Temp<1,19,1> = W_ESP:SPACE(10):W_ESP:'Cumul antrieur':SPACE(15):W_ESP:SPACE(10):W_ESP:SPACE(11):W_ESP:INTER:W_ESP
		END
	END
END

W_Temp<1,20> = SOLDE
W_Temp<1,21> = TABLETTRE<DEGRELANCE,12>
W_Temp<1,22> = TABLETTRE<DEGRELANCE,13>
W_Temp<1,23> = TABLETTRE<DEGRELANCE,14>
W_Temp<1,24> = TABLETTRE<DEGRELANCE,15>
W_Temp<1,25> = TABLETTRE<DEGRELANCE,16>
W_Temp<1,26> = TABLETTRE<DEGRELANCE,17>
W_Temp<1,27> = TABLETTRE<DEGRELANCE,18>
W_Temp<1,28> = TABLETTRE<DEGRELANCE,19>
W_Temp<1,29> = TABLETTRE<DEGRELANCE,20>
W_Temp<1,30> = TABLETTRE<DEGRELANCE,21>

IF W_CpteBloque = "FAUX" THEN
	ENR_TEMPO<I>=W_Temp
	I = I + 1
END

*-- Modif Matthieu - 19/07/2010
	IF W_CSV = "1" THEN
			W_AdresseAide = ENR_CIVILAIDE<5>
			IF ENR_CIVILAIDE<6> # "" THEN
				W_AdresseAide = W_AdresseAide:" ":ENR_CIVILAIDE<6>
			END
			W_AdresseAide = W_AdresseAide:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>
*---Anthony 18/11/10
		IF ENR_ELTSFACTAIDE<9> # "" THEN
			W_AdresseFact = ENR_ELTSFACTAIDE<3>
			IF ENR_ELTSFACTAIDE<4> # "" THEN
				W_AdresseFact = W_AdresseFact:" ":ENR_ELTSFACTAIDE<4>
			END 
			W_AdresseFact = W_AdresseFact:" ":ENR_ELTSFACTAIDE<5>:" ":ENR_ELTSFACTAIDE<6>

			ENR_CSV<-1> = W_ANCCODE:";":ENR_CIVILAIDE<1>:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>:";":W_AdresseAide:";":ENR_CIVILAIDE<9>:";":ENR_CIVILAIDE<10>:";":ENR_CIVILAIDE<11>:";":ENR_CIVILAIDE<14>:";":ENR_CIVILAIDE<16>:";":ENR_CIVILAIDE<51>:";":ENR_ELTSFACTAIDE<2>:";":W_AdresseFact:";":ENR_ELTSFACTAIDE<7>:";":ENR_ELTSFACTAIDE<8>:";":ENR_ELTSFACTAIDE<9>:";":ENR_ELTSFACTAIDE<12>:";":ENR_ELTSFACTAIDE<26>:";":ENR_ELTSFACTAIDE<15>:";":DEGRELANCE:";":SOLDE/100
*---Fin Anthony		
		END ELSE
			ENR_CSV<-1> = W_ANCCODE:";":ENR_CIVILAIDE<1>:";":ENR_CIVILAIDE<2>:";":ENR_CIVILAIDE<3>:";":W_AdresseAide:";":ENR_CIVILAIDE<9>:";":ENR_CIVILAIDE<10>:";":ENR_CIVILAIDE<11>:";":ENR_CIVILAIDE<14>:";":ENR_CIVILAIDE<16>:";":ENR_CIVILAIDE<51>:";;;;;;;;;":DEGRELANCE:";":SOLDE/100
		
		END
	END
*-- Fin Modif Matthieu

RETURN