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

PRINTER OFF

PRINT "Nouvelle annee de facturation ?(AAAA)"
INPUT W_Anne

W_Org = ""
LOOP WHILE LEN(W_Org) # 3
	PRINT "Donner le code organisme ?"
	INPUT W_Org
REPEAT

EXECUTE 'SELECT ACCORD AVEC DateDebAcc <= "01/01/':W_Anne:'" AND AVEC DateFinAcc >= "01/01/':W_Anne:'" AND AVEC DateSortieAideAccord = "" AND AVEC 18 # "O" AND AVEC 1 = "':W_Org:'"'

W_Fini="FAUX"
W_Anne = W_Anne - 1
W_Periode = W_Anne:'12'

LOOP

   READNEXT W_Cle ELSE W_Fini="VRAI"

WHILE W_Fini="FAUX" DO

   READ ENR_ACCORD FROM F.ACCORD,W_Cle ELSE ENR_ACCORD = ""

   ENR_ACCORD<14> = W_Periode
   ENR_ACCORD<15> = "0"
   ENR_ACCORD<16> = "0"
   ENR_ACCORD<17> = "0"
   
   WRITE ENR_ACCORD ON F.ACCORD,W_Cle 

REPEAT

STOP
