EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "ARCHIVEBORDCAISSE" TO F.ARCHIVE ELSE STOP
OPEN "", "DNT" TO F.DNT ELSE STOP

PRINT "Priode : "
INPUT W_PERIODE
EXECUTE 'SELECT ARCHIVEBORDCAISSE AVEC 0 = "001P157':W_PERIODE:']"'

W_Fini = "Faux"
ENR_DNT=""
W_MEMOIREINDICERESULTAT=2
W_ENTETEECRIT= "Faux"
LOOP

	READNEXT W_Cle ELSE W_Fini = "Vrai"

WHILE W_Fini = "Faux"

	READ ENR_ARCHIVE FROM F.ARCHIVE,W_Cle ELSE STOP	
	
		

	W_LU = "Faux"
	i=1
	LOOP
	WHILE W_LU = "Faux"
	
		IF ENR_ARCHIVE<i>="#2" AND W_ENTETEECRIT= "Faux" THEN
			GOSUB 100
		END
		IF ENR_ARCHIVE<i>="#3" THEN
			GOSUB 200
		END

		i = i+1
	REPEAT
	
	
REPEAT

WRITE ENR_DNT ON F.DNT,"CRAM.txt"

STOP


********************************
* Ecriture de l'en-tete
********************************
100
ENR_TEMP=""
i = i+1
LOOP WHILE ENR_ARCHIVE<i> # "#3"
	
	W_COUNT=DCOUNT(ENR_ARCHIVE<i>, CHAR(253))
	t=1
	LOOP WHILE t <= W_COUNT
		ENR_TEMP<t>=ENR_TEMP<t>:ENR_ARCHIVE<i,t>
		t = t+1
	REPEAT
	i = i+1
	
REPEAT
t=1
LOOP WHILE t <= W_COUNT
	ENR_DNT<1>=ENR_DNT<1>:ENR_TEMP<t>
	IF t < W_COUNT THEN
		ENR_DNT<1>=ENR_DNT<1>:"|"
	END
	t = t+1
REPEAT
W_ENTETEECRIT = "Vrai"
RETURN

*******************************
* Ecriture des donnees 
*******************************
200
i=i+1
W_RETARDINDICE=i
LOOP 

WHILE ENR_ARCHIVE<i> # "#4" AND ENR_ARCHIVE<i> # "#5"
	
	W_COUNT=DCOUNT(ENR_ARCHIVE<i>, CHAR(253))
	ENR_ARCHIVE<i,t>=CONVERT(".","",ENR_ARCHIVE<i,t>)
	t=1
	LOOP WHILE t <= W_COUNT
		IF t>=6 THEN
			***************** Champs numriques : supprimer le point sparateur de milliers
			ENR_ARCHIVE<i,t>=CONVERT(".","",ENR_ARCHIVE<i,t>)
		END
		ENR_DNT<i-W_RETARDINDICE+W_MEMOIREINDICERESULTAT>=ENR_DNT<i-W_RETARDINDICE+W_MEMOIREINDICERESULTAT>:ENR_ARCHIVE<i,t>
		IF t< W_COUNT THEN
			ENR_DNT<i-W_RETARDINDICE+W_MEMOIREINDICERESULTAT>=ENR_DNT<i-W_RETARDINDICE+W_MEMOIREINDICERESULTAT>:"|"
		END
		
		t = t+1

	REPEAT
	
	i = i+1
	
REPEAT

W_MEMOIREINDICERESULTAT=i-W_RETARDINDICE+W_MEMOIREINDICERESULTAT 
******** = Indice du prochain enregistrement

W_LU = "Vrai"
RETURN

STOP
