EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","ACCORD" TO F.ACCORD ELSE STOP
OPEN "","FACTURAIDE" TO F.FACTURAIDE ELSE STOP
EXECUTE 'SELECT FACTURAIDE AVEC PeriodeCleFactAide = "200707" AND AVEC 1 < "200707"'
EXECUTE 'SAUVE-LISTE W_ReqFact'
EXECUTE 'LISTE W_ReqFact' RETURNING MSGCODE
IF MSGCODE<1> # "209" THEN
Result = ""
SELECT F.FACTURAIDE TO W_ReqFact
W_Fin = "F"
LOOP
READNEXT W_Cle FROM W_ReqFact ELSE W_Fin ="V"
WHILE W_Fin = "F"
READ ENR FROM F.FACTURAIDE, W_Cle THEN
i =0
	LOOP
	i = i + 1
	WHILE ENR<2,i> # ""
		IF ENR<1,i> < "200707" THEN
			GOSUB 10	
			i = 100
		END
	REPEAT
END
REPEAT
PRINT Result
END
STOP
10
W_Liste = ""
EXECUTE 'SELECT ACCORD AVEC 0 = "':W_Cle[1,5]:']" AND AVEC 1 = "159" AND AVEC 18 # "O"'
W_FinAcc = "F"
LOOP
READNEXT W_Cle ELSE W_FinAcc = "V"
WHILE W_FinAcc = "F"
W_Liste<-1>=W_Cle
REPEAT
IF W_Liste # "" THEN
	Result<-1>= W_Liste<1>
END
RETURN
