********************************************************
* PROGRAMME DE VIDAGE DU CONTENU DES FICHIERS
* (LES EXCEPTIONS SONT DANS LE FICHIER 'EXCEPTION')
*
* JUIN 99                               STEPHANE HERVET
********************************************************
*PRINTER ON

********************************************************
* OUVERTURE DES FICHIERS
********************************************************
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","EXCEPTION" TO F.EXCEPTION ELSE STOP
OPEN "","COMPTEUR" TO F.COMPTEUR ELSE STOP
OPEN "","VOC" TO F.VOC ELSE STOP

********************************************************
* SELECTION DU VOC AVEC F1 = "F"
********************************************************
EXECUTE 'TSELECT VOC AVEC F1 = "F"'

W_REQUETEVIDE="FAUX"

PRINT "LES FICHIERS SUIVANTS ONT ETE VIDES :"

LOOP 
     READNEXT CLE ELSE
	  W_REQUETEVIDE="VRAI"
     END
     UNTIL W_REQUETEVIDE="VRAI" DO

     READ ENR_VOC FROM F.VOC,CLE ELSE ENR_VOC=""
     IF EXTRACT(ENR_VOC,2)=CLE THEN
        IF CLE<>"EXCEPTION" THEN
          * LECTURE FICHIER EXCEPTION POUR VERIF. VIDE FICHIER OU PAS
          READ ENR_EXCEPTION FROM F.EXCEPTION,CLE ELSE
	       PRINT CLE	  
	       EXECUTE 'VIDER-FICHIER ':CLE
          END
        END
     END
REPEAT

* VIDAGE FICHIER COMPTEUR
EXECUTE 'TSELECT COMPTEUR'

W_REQUETEVIDE="FAUX"

PRINT ""
PRINT "LES ARTICLES SUIVANTS ONT ETE VIDES DU FICHIER COMPTEURS"

LOOP 
     READNEXT CLE ELSE
	 W_REQUETEVIDE="VRAI"
     END
     UNTIL W_REQUETEVIDE="VRAI" DO
 
     IF CLE<>"999" THEN
	 DELETE F.COMPTEUR,CLE
	 PRINT CLE
     END ELSE
	 READ ENR_COMPTEUR FROM F.COMPTEUR,"999" ELSE
	      PRINT "ERREUR LECTURE COMPTEUR 999"
	 END
	 ENR_COMPTEUR<2>="000"
	 ENR_COMPTEUR<8>="00000"
	 ENR_COMPTEUR<9>="000"
	 ENR_COMPTEUR<10>="000"
	 ENR_COMPTEUR<11>="00000"
	 ENR_COMPTEUR<12>="00"
	 ENR_COMPTEUR<13>="00"
	 ENR_COMPTEUR<14>="00000"
	 WRITE ENR_COMPTEUR ON F.COMPTEUR,"999"
     END
REPEAT

STOP
