*****************************************
*	IMPORTATION RESP SECTEUR		  	*
*   FR CHATEAUROUX 						*
* -------------------------------------	*
* VANESSA               SEPTEMBRE 2016 	*
*****************************************

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

OPEN "","RESPONSABLE" TO F.RESPONSABLE ELSE STOP
OPEN "","SECTEUR" TO F.SECTEUR ELSE STOP
OPEN "","SOUSSECTEUR" TO F.SOUSSECTEUR ELSE STOP
OPEN "","QUARTIER" TO F.QUARTIER ELSE STOP
OPEN "","COMPTEUR" TO F.COMPTEUR ELSE STOP
OPEN "","FUSION" TO F.FUSION ELSE STOP
OPEN "","ASSOCIATION" TO F.ASSOCIATION ELSE STOP

*********************
* A RENSEIGNER

*********************

READ ENR_FUSION FROM F.FUSION, "SECTEUR.csv" THEN
	ENR_FUSION=CONVERT(CHAR(130),"e",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(131),"a",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(135),"c",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(137),"e",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(138),"e",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(139),"i",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(140),"i",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(248),CHAR(186),ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(133),"a",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(150),"u",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(147),"o",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(136),"e",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(151),"u",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(144),"E",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(224),"a",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(233),"e",ENR_FUSION)
	ENR_FUSION=CONVERT(CHAR(232),"e",ENR_FUSION)	
END ELSE
	PRINT "ERREUR OUVERTURE FICHIER <SECTEUR.csv>"
	STOP
END

READ ENR_ASSO FROM F.FUSION, "ASSO.csv" THEN
	OPEN "","CORRESPSECT" TO F.CORRESPSECT THEN
	
	END ELSE
		EXECUTE "CREER-FICHIER CORRESPSECT 3,1"
		OPEN "","CORRESPSECT" TO F.CORRESPSECT ELSE STOP
	END
	ENR_CORRESPSECT=""
	
	FOR i=2 TO DCOUNT(ENR_ASSO,CHAR(254))
	
		W_CodeAsso=FIELD(ENR_ASSO<i>,";",1) "R%3"
		W_CodeSecteur=FIELD(ENR_ASSO<i>,";",2) "R%3"
		READ ENR_CORRESPSECT FROM F.CORRESPSECT, W_CodeSecteur THEN
			W_Ind=DCOUNT(ENR_CORRESPSECT,CHAR(254))+1	
		END ELSE		
			ENR_CORRESPSECT=""
			W_Ind=1
		END
		
		ENR_CORRESPSECT<W_Ind>=W_CodeAsso
		
		WRITE ENR_CORRESPSECT ON F.CORRESPSECT,W_CodeSecteur

	NEXT i
END

PRINT "CODE SECTEUR A IMPORTER (3N - SI VIDE : TOUS LES SECTEURS)"
INPUT W_SECTEUR
   
W_SauveResp=""

FOR i=2 TO DCOUNT(ENR_FUSION,CHAR(254))

	ENR_RESPONSABLE=""
	ENR_SECTEUR=""
	ENR_SOUSSECTEUR=""
	ENR_QUARTIER=""	
	
	W_Code=FIELD(ENR_FUSION<i>,";",1) "R%3"
	W_NomGroup=ICONV(FIELD(ENR_FUSION<i>,";",2),"MCU")
	W_ATC=ICONV(FIELD(ENR_FUSION<i>,";",3),"MCU")
	
	IF (W_SECTEUR # "" AND W_Code=W_SECTEUR) OR W_SECTEUR= "" THEN	
		ENR_RESPONSABLE<1>=W_ATC
		
		WRITE ENR_RESPONSABLE ON F.RESPONSABLE,W_Code
		
		IF W_SauveResp="" THEN
			W_SauveResp=W_Code
		END ELSE
			IF W_Code > W_SauveResp THEN
				W_SauveResp=W_Code
			END
		END
		
		ENR_SECTEUR<1>=W_NomGroup
		ENR_SECTEUR<21>=""
		WRITE ENR_SECTEUR ON F.SECTEUR,W_Code
		
		READ ENR_CORRESPSECT FROM F.CORRESPSECT, W_Code THEN
			W_Count=DCOUNT(ENR_CORRESPSECT,CHAR(254))
			W_CodeSousSecteur="01"
			FOR j=1 TO W_Count
				READ ENR_ASSOCIATION FROM F.ASSOCIATION, ENR_CORRESPSECT<j> THEN
					ENR_SOUSSECTEUR<1>=ENR_ASSOCIATION<1>
					WRITE ENR_SOUSSECTEUR ON F.SOUSSECTEUR,W_Code:W_CodeSousSecteur
					
					ENR_QUARTIER<1>=ENR_ASSOCIATION<1>
					ENR_QUARTIER<2>="001001"
					WRITE ENR_QUARTIER ON F.QUARTIER,W_Code:W_CodeSousSecteur:"01"	
					W_CodeSousSecteur=W_CodeSousSecteur+1 "R%2"
				END
			NEXT j
		END
	END
	
NEXT i

READ ENR_COMPTEUR FROM F.COMPTEUR,"999" THEN

	ENR_COMPTEUR<9>=W_SauveResp "R%3"
	
	WRITE ENR_COMPTEUR ON F.COMPTEUR,"999"	
	
END

STOP