EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","HRESHISTOR" TO F.HRESHISTOR ELSE STOP

PRINT "Periode (AAAAMM) ?"
INPUT PERIODE

IF PERIODE = "" THEN STOP

PRINT "Code association ?"
INPUT W_CodeAsso

IF W_CodeAsso = "" THEN STOP

EXECUTE 'SELECT HRESHISTOR AVEC EntiteAct = "':W_CodeAsso:'" AND AVEC 0 = "[':PERIODE:'"'

PRINT "CONTINUE ??"
INPUT W_REPONSE

IF W_REPONSE = "N" OR W_REPONSE = "n" THEN STOP

W_FIN=0
LOOP
   READNEXT CLE ELSE W_FIN=1
UNTIL W_FIN=1 DO
	DELETE F.HRESHISTOR, CLE
REPEAT
