EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "PLANCOMPTABLE" TO F.PLANCOMPTABLE ELSE STOP
OPEN "", "ASSOCIATION" TO F.ASSOCIATION ELSE STOP
OPEN "", "LIENCOMPTA" TO F.LIENCOMPTA ELSE STOP
LOOP
PRINT "Code entit juridique ?"
INPUT W_CodeAsso 
READ ENR_ASSOCIATION FROM F.ASSOCIATION,W_CodeAsso ELSE W_CodeAsso = ""
WHILE W_CodeAsso = ""
REPEAT

LOOP
PRINT "Nom du fichier  gnrer ?"
INPUT W_NomFic
READ ENR_LIENCOMPTA FROM F.LIENCOMPTA, W_NomFic THEN
	PRINT "Ce fichier existe dj. Voulez vous le remplacer ?"
	INPUT W_Rep
	IF W_Rep # "o" AND W_Rep # "O" THEN
		W_NomFic = ""
	END  
END
WHILE W_NomFic = ""
REPEAT


EXECUTE 'SELECT PLANCOMPTABLE = "':W_CodeAsso:']" AVEC 9 = "0" PAR @ID'

W_Fin = "F"
W_Anomalies = ""
W_IndAnomalies = 1
ENR_LIENCOMPTA = ""
W_IndLienCompta = 1
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_PLANCOMPTABLE FROM F.PLANCOMPTABLE, W_Cle THEN
		IF W_Cle[13,1] # "0" THEN
			W_Anomalies<W_IndAnomalies> = "Compte n ":W_Cle[4,10]:" - ":ENR_PLANCOMPTABLE<1>
			W_IndAnomalies = W_IndAnomalies + 1	
		END
		W_Code = W_Cle[4,9]
		ENR_LIENCOMPTA<W_IndLienCompta> = W_Code:";":ENR_PLANCOMPTABLE<1>
		W_IndLienCompta = W_IndLienCompta + 1

	END
REPEAT
WRITE ENR_LIENCOMPTA ON F.LIENCOMPTA, W_NomFic

IF W_Anomalies<1> # "" THEN
	W_Count = DCOUNT(W_Anomalies, CHAR(254))
	PRINT W_Count:" comptes dont le numro fait plus de 9 chiffres ont t trouvs."
	PRINT "Les numros de ces comptes ont t tronqus. Voulez vous imprimer la liste de ces comptes ?"
	INPUT W_Rep
	IF W_Rep = "o" OR W_Rep = "O" THEN
		
		PRINTER ON
		PRINT "Liste des comptes dont le numro comporte plus de 9 chiffres"
		PRINT " "
		FOR i = 1 TO W_Count
			PRINT W_Anomalies<i>
		NEXT i 
		PRINTER OFF
	END
	PRINT W_Anomalies
END

PRINT "Voulez vous gnrer un autre fichier ?"
INPUT W_Rep
IF W_Rep = "O" OR W_Rep = "o" THEN
	EXECUTE 'RUN PRMOUL GENEPLANCOMPTA'
END
STOP
