*PR d'apuration des fichiers AIDANTSARCHIVEBULL, AIDESARCHIVEBULL, AIDESARCHIVEFACT, ARCHIVEBULL et ARCHIVEFACT


EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","AIDANTSARCHIVEBULL" TO F.AIDANTSARCHIVEBULL ELSE STOP
OPEN "","AIDESARCHIVEBULL" TO F.AIDESARCHIVEBULL ELSE STOP
OPEN "","AIDESARCHIVEFACT" TO F.AIDESARCHIVEFACT ELSE STOP
OPEN "","ARCHIVEBULL" TO F.ARCHIVEBULL ELSE STOP
OPEN "","ARCHIVEFACT" TO F.ARCHIVEFACT ELSE STOP


PRINT "Annee de debut ?"
INPUT W_AnneeDebut
PRINT "Annee de fin ?"
INPUT W_AnneeFin

W_ReqAidantArchive = ""
W_ReqAideArchiveBull = "" 
W_ReqAideArchiveFact = ""
W_ReqArchiveBull = ""
W_ReqArchiveFact = "" 
W_Cle = ""
W_Resultat = "" 

******************************
* FICHIER AIDANTSARCHIVEBULL *
******************************
W_ReqAidantArchive = 'SELECT AIDANTSARCHIVEBULL AVEC AnneeArchBull >="':W_AnneeDebut:'" AND AVEC AnneeArchBull <="':W_AnneeFin :'"' 

EXECUTE W_ReqAidantArchive
EXECUTE 'SAUVE-LISTE W_Resultat'
EXECUTE 'LISTE W_Resultat ' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.AIDANTSARCHIVEBULL TO W_Resultat
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Resultat ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   DELETE F.AIDANTSARCHIVEBULL,W_Cle
   	REPEAT
END
EXECUTE 'EFFACER-LISTE W_Resultat'

******************************
* FICHIER AIDESARCHIVEBULL   *
******************************
W_ReqAideArchiveBull = 'SELECT AIDESARCHIVEBULL AVEC AnneeArchBull >="':W_AnneeDebut:'" AND AVEC AnneeArchBull <="':W_AnneeFin :'"' 
EXECUTE W_ReqAideArchiveBull
EXECUTE 'SAUVE-LISTE W_Resultat'
EXECUTE 'LISTE W_Resultat ' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.AIDESARCHIVEBULL TO W_Resultat
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Resultat ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   DELETE F.AIDESARCHIVEBULL,W_Cle
   	REPEAT
END
EXECUTE 'EFFACER-LISTE W_Resultat'

******************************
* FICHIER AIDESARCHIVEFACT   *
******************************
W_ReqAideArchiveFact = 'SELECT AIDESARCHIVEFACT AVEC AnneeArchFact >="':W_AnneeDebut:'" AND AVEC AnneeArchFact <="':W_AnneeFin :'"' 
EXECUTE W_ReqAideArchiveFact 
EXECUTE 'SAUVE-LISTE W_Resultat'
EXECUTE 'LISTE W_Resultat ' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.AIDESARCHIVEFACT TO W_Resultat
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Resultat ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   DELETE F.AIDESARCHIVEFACT,W_Cle
   	REPEAT
END
EXECUTE 'EFFACER-LISTE W_Resultat'

******************************
* FICHIER ARCHIVEBULL	     *
******************************
W_ReqArchiveBull = 'SELECT ARCHIVEBULL AVEC AnneeArchive >="':W_AnneeDebut:'" AND AVEC AnneeArchive <="':W_AnneeFin :'"' 
EXECUTE W_ReqArchiveBull 
EXECUTE 'SAUVE-LISTE W_Resultat'
EXECUTE 'LISTE W_Resultat ' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.ARCHIVEBULL TO W_Resultat
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Resultat ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   DELETE F.ARCHIVEBULL,W_Cle
   	REPEAT
END
EXECUTE 'EFFACER-LISTE W_Resultat'

******************************
* FICHIER ARCHIVEBULL	     *
******************************
W_ReqArchiveFact = 'SELECT ARCHIVEFACT AVEC AnneeArchive >="':W_AnneeDebut:'" AND AVEC AnneeArchive <="':W_AnneeFin :'"' 
EXECUTE W_ReqArchiveFact 
EXECUTE 'SAUVE-LISTE W_Resultat'
EXECUTE 'LISTE W_Resultat ' RETURNING MSGCODE

IF MSGCODE<1> # "209" THEN
	SELECT F.ARCHIVEFACT TO W_Resultat
	W_Fin = "Faux"
	LOOP
	   READNEXT W_Cle FROM W_Resultat ELSE W_Fin = "Vrai"
	WHILE W_Fin = "Faux" DO
	   DELETE F.ARCHIVEFACT,W_Cle
   	REPEAT
END
EXECUTE 'EFFACER-LISTE W_Resultat'
STOP   
