*******************************************************
*                  PR D'EXPORTATION                  *
*                     Mars 2013                       *
*                      Alexandre                      *
*                  SPECIF ASMADCHTX					  *
*******************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"

***************************************************************************
***						Ouverture des fichiers							***
***************************************************************************
OPEN "","CIVILAIDE" TO F.CIVILAIDE ELSE W_Sortie="ERREUR OUVERTURE CIVILAIDE"
OPEN "","ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE W_Sortie="ERREUR OUVERTURE ELTSFACTAIDE"
OPEN "","LIENCOMPTA" TO F.LIENCOMPTA ELSE W_Sortie="ERREUR OUVERTURE LIENCOMPTA"

***************************************************************************
***						Rcupration des arguments						***
***************************************************************************
PROCREAD ARGUMENTS ELSE PRINT "PROCREAD"

W_DateRef = FIELD(ARGUMENTS," ", 2) ;*Au format JJMMAAAA
W_NomFicGen = FIELD(ARGUMENTS," ",3) 

***************************************************************************
***						Initialisation des variables					***
***************************************************************************
W_Date=""
W_DateReq=""
W_Requete=""
W_Temp=""
W_Cle=""
W_Ligne=""
ENR_CIVILAIDE=""
ENR_ELTSFACTAIDE=""
W_TabDonnees=""

***************************************************************************
***						    Dbut du traitement 						***
***************************************************************************
***************************************************************************
***						    Traitement des aids 						***
***************************************************************************
W_DateReq=W_DateRef[1,2]:"/":W_DateRef[3,2]:"/":W_DateRef[5,4]
W_DateReq=ICONV(W_DateReq,"D4/")
W_Temp='SELECT CIVILAIDE AVEC 43 >= "':W_DateReq:'" OR ="" PAR 0'

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

IF MSGCODE<1> # 209 THEN
	SELECT F.CIVILAIDE TO W_Requete
	*Ligne d'entte
   	W_Date=OCONV(DATE(),"D4/")
   	W_Date=ICONV(W_Date,"MCN")	
	W_DateHeure=W_Date:INT(TIME()/3600):INT(MOD(TIME(),3600)/60)"R%2"
	W_TabDonnees<1>="!"
	
	W_Fini="FAUX"
	LOOP
		READNEXT W_Cle FROM W_Requete ELSE W_Fini="VRAI"
		W_Ligne=""
		W_CodeAideZero=""
		W_NomPrenom=""
		W_Adresse1=""
		W_Adresse2=""
		W_Ville=""
		W_CodePostal=""
		W_Rib=""
		W_Telephone1=""
		W_Telephone2=""
		W_Commentaire = ""
		WHILE W_Fini="FAUX" DO
		READ ENR_CIVILAIDE FROM F.CIVILAIDE,W_Cle THEN	
			W_NomPrenom=ENR_CIVILAIDE<2>:" ":ENR_CIVILAIDE<3>
			W_NomPrenom=W_NomPrenom "L#35"
			READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE,W_Cle THEN
				IF ENR_ELTSFACTAIDE<2> <> "" AND ENR_ELTSFACTAIDE<8> <> "" THEN
					W_Adresse1=ENR_ELTSFACTAIDE<3>:" ":ENR_ELTSFACTAIDE<4>:" ":ENR_ELTSFACTAIDE<5>:" ":ENR_ELTSFACTAIDE<6>
					W_Adresse1= TRIM(W_Adresse1[1,35]) "L#35"
					W_CodePostal = ENR_ELTSFACTAIDE<8>
					W_Adresse2=ENR_ELTSFACTAIDE<7> "L#35"
					W_Commentaire = ENR_ELTSFACTAIDE<2>[1,35] "L#35"
				
					W_Ville=ENR_ELTSFACTAIDE<9> "L#35"
				END ELSE
					W_Adresse1=ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>
					W_Adresse1= TRIM(W_Adresse1[1,35]) "L#35"
					W_CodePostal = ENR_CIVILAIDE<10>
					W_Adresse2=ENR_CIVILAIDE<9> "L#35"
					W_Commentaire = SPACE(35)
				
					W_Ville=ENR_CIVILAIDE<11> "L#35"
				END
				

				IF ENR_ELTSFACTAIDE<20>#"" AND ENR_ELTSFACTAIDE<25>="" THEN
					W_TypePrelev="P01"
				END ELSE
					W_TypePrelev="D01"
				END
			END ELSE
				W_Adresse1=ENR_CIVILAIDE<5>:" ":ENR_CIVILAIDE<6>:" ":ENR_CIVILAIDE<7>:" ":ENR_CIVILAIDE<8>
				W_Adresse1= TRIM(W_Adresse1[1,35]) "L#35"
				
				W_Adresse2=ENR_CIVILAIDE<9> "L#35"
				W_Commentaire = SPACE(35)
				W_CodePostal = ENR_CIVILAIDE<10>
				
				W_Ville=ENR_CIVILAIDE<11> "L#35"

				W_TypePrelev="D01"
			END
			
			W_Telephone1=ENR_CIVILAIDE<14> "L#25"
				
			W_Telephone2=ENR_CIVILAIDE<16> "L#25"
			W_CodeSecteur=ENR_CIVILAIDE<40>[1,3]
			IF W_CodeSecteur = "" THEN
				W_CodeSecteur="001"
			END
			
			*Ecriture de la ligne
			W_Ligne = "***CAE":W_Cle:SPACE(12):W_NomPrenom
			
			W_Ligne = W_Ligne:"CLIX411110000":SPACE(8):SPACE(17):W_CodeSecteur:SPACE(167)
			
			W_Ligne = W_Ligne:W_Adresse1:W_Adresse2:SPACE(35):W_CodePostal:SPACE(4):W_Ville
			
			W_Ligne = W_Ligne:SPACE(74):W_Telephone1:W_Telephone2:SPACE(3):W_TypePrelev:W_Commentaire
			W_Ligne = W_Ligne:SPACE(299):"001":SPACE(159)

			*Ecriture final
			W_TabDonnees<-1>=W_Ligne
		END
	REPEAT
END

WRITE W_TabDonnees ON F.LIENCOMPTA,W_NomFicGen
W_Sortie="Le fichier ":W_NomFicGen:" a t gnr dans le rpertoire LIENCOMPTA."

EXECUTE 'EFFACER-LISTE W_Requete'

RETURN
