* met une date de fin d'accord

OPEN "","ACCORD" TO F.ACCORD ELSE PRINT "OUVERTURE ACCORD" ;* en lecture criture

PRINT "Date de fin (jj/mm/aaaa)"
INPUT W_Date

PRINT "Caisse"
INPUT W_Caisse 

W_Date=ICONV(W_Date,"D4/")

	EXECUTE 'SELECT ACCORD AVEC 18 = "" AND AVEC 1 = "':W_Caisse:'" AND AVEC 6 > "':W_Date:'"'
 
	W_End="FAUX"

	LOOP
		READNEXT W_Cle ELSE W_End = "VRAI"
	WHILE W_End = "FAUX" DO
		READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD=""
		
		IF ENR_ACCORD<5> > W_Date THEN
			ENR_ACCORD<18>="O"
		END ELSE
			ENR_ACCORD<6>=W_Date
		END
		WRITE ENR_ACCORD ON F.ACCORD,W_Cle
		
	REPEAT

	
STOP