****** VIDAGE DES FICHIERS DANS D:\BASECLIENT QUI SONT
****** TRAVAILLES LORS DE LA MIGRATION
*
EXECUTE "VIDER-FICHIER DATA ERREURSMIGR"

EXECUTE "VIDER-FICHIER DATA ABSENCESAIDANT"
EXECUTE "VIDER-FICHIER DATA TEMPAIDANT"
EXECUTE "VIDER-FICHIER DATA CIVILAIDANT"
EXECUTE "VIDER-FICHIER DATA RIBAIDANT"
EXECUTE "VIDER-FICHIER DATA CAPIMPAIDANT"
EXECUTE "VIDER-FICHIER DATA FORMEXPAIDANT"
EXECUTE "VIDER-FICHIER DATA HISTORINDEM"
EXECUTE "VIDER-FICHIER DATA CONTRAT"
EXECUTE "VIDER-FICHIER DATA HISTORCUMUL"
EXECUTE "VIDER-FICHIER DATA BLOCNOTAIDANT"
EXECUTE "VIDER-FICHIER DATA DETAILPREST"
EXECUTE "VIDER-FICHIER DATA DETAILCALCUL"

EXECUTE "VIDER-FICHIER DATA CIVILAIDE"
EXECUTE "VIDER-FICHIER DATA ACCORD"
EXECUTE "VIDER-FICHIER DATA ORGPRISECHARGE"
EXECUTE "VIDER-FICHIER DATA DETAILCHGPARTEMP"
EXECUTE "VIDER-FICHIER DATA DEMANDACC"
EXECUTE "VIDER-FICHIER DATA ELTSFACTAIDE"
EXECUTE "VIDER-FICHIER DATA ELTSPARTEMP"
EXECUTE "VIDER-FICHIER DATA ENVIRONAIDE"
EXECUTE "VIDER-FICHIER DATA ACTIVITESAIDE"
EXECUTE "VIDER-FICHIER DATA HRESHISTOR"
EXECUTE "VIDER-FICHIER DATA HRESATTENTE"
EXECUTE "VIDER-FICHIER DATA AGGIRAIDE"
EXECUTE "VIDER-FICHIER DATA BLOCNOTAIDE"
EXECUTE "VIDER-FICHIER DATA BESOINSAIDE"
EXECUTE "VIDER-FICHIER DATA RESSOURCESAIDE"
EXECUTE "VIDER-FICHIER DATA TEMPAIDE"
EXECUTE "VIDER-FICHIER DATA STATACTAIDE"
EXECUTE "VIDER-FICHIER DATA HRESATTENTE"

*EXECUTE "VIDER-FICHIER DATA RESPONSABLE"
*EXECUTE "VIDER-FICHIER DATA SECTEUR"
*EXECUTE "VIDER-FICHIER DATA SOUSSECTEUR"
*EXECUTE "VIDER-FICHIER DATA QUARTIER"

OPEN "","COMPTEUR" TO F.COMPTEUR ELSE STOP
READ ENRCOMPTEUR FROM F.COMPTEUR,"999" ELSE STOP
ENRCOMPTEUR=REPLACE(ENRCOMPTEUR,8;"00000")
*ENRCOMPTEUR=REPLACE(ENRCOMPTEUR,9;"000")
ENRCOMPTEUR=REPLACE(ENRCOMPTEUR,10;"000")
ENRCOMPTEUR=REPLACE(ENRCOMPTEUR,11;"00000")
ENRCOMPTEUR=REPLACE(ENRCOMPTEUR,14;"00000")
WRITE ENRCOMPTEUR ON F.COMPTEUR,"999"
STOP
