*******************************************************************
*					PRMOUL ANONYME				*
* Ce programme remplace les donnes confidentielles des fichiers 	*
* d'une base INFOLOGIS par des donnes gnres automatiquement.	*
*											*
* MISE EN GARDE : Les donnes d'origine sont perdues,			*
* et d'autre part l'auteur ne garantit pas d'effacer la totalit	*
* des donnes sensibles de la base.	Restent notamment les fichiers*
* RESPONSABLE, SECTEUR, ORGPRISECHARGE et ORGANISMESOCIAL.		*
* 											*
* Le 06/03/2003							MICHAEL	*
*******************************************************************


EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "", "CIVILAIDANT" TO F.CIVILAIDANT ELSE STOP
OPEN "", "CIVILAIDE" TO F.CIVILAIDE ELSE STOP
OPEN "", "ELTSFACTAIDE" TO F.ELTSFACTAIDE ELSE STOP
OPEN "", "ASSOCIATION" TO F.ASSOCIATION ELSE STOP
OPEN "", "ACTIVITES" TO F.ACTIVITES ELSE STOP
OPEN "", "ETABLISSEMENT" TO F.ETABLISSEMENT ELSE STOP


EXECUTE 'SELECT ELTSFACTAIDE'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ELTSFACTAIDE FROM F.ELTSFACTAIDE, W_Cle THEN
		ENR_ELTSFACTAIDE<2>  = "NOMADRFACT":W_Cle
		ENR_ELTSFACTAIDE<3>  = ""
		ENR_ELTSFACTAIDE<4>  = ""
		ENR_ELTSFACTAIDE<5>  = ""
		ENR_ELTSFACTAIDE<6>  = "VOIEADRFACT":W_Cle
		ENR_ELTSFACTAIDE<7>  = ""
		ENR_ELTSFACTAIDE<9>  = "CHATEAUROUX"
		ENR_ELTSFACTAIDE<8>  = "36000"
		ENR_ELTSFACTAIDE<10>  = "0"
		ENR_ELTSFACTAIDE<11>  = ""
		ENR_ELTSFACTAIDE<12>  = "01 01 01 01 01"
		ENR_ELTSFACTAIDE<14>  = "01 01 01 01 01"
		ENR_ELTSFACTAIDE<18>  = "00000"
		ENR_ELTSFACTAIDE<19>  = "00000"
		ENR_ELTSFACTAIDE<20>  = "00000000000"
		ENR_ELTSFACTAIDE<21>  = "00"
		ENR_ELTSFACTAIDE<22>  = ""
		ENR_ELTSFACTAIDE<23>  = ""
	WRITE ENR_ELTSFACTAIDE ON F.ELTSFACTAIDE, W_Cle
	END
REPEAT
PRINT "ELTSFACTAIDE Modifi"

EXECUTE 'SELECT CIVILAIDE'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CIVILAIDE FROM F.CIVILAIDE, W_Cle THEN
		ENR_CIVILAIDE<2> = "NOMAIDE":W_Cle
		ENR_CIVILAIDE<3> = "PRENOMAIDE":W_Cle
		ENR_CIVILAIDE<4> = "NOMPATROAIDE":W_Cle
		ENR_CIVILAIDE<5> = ""
		ENR_CIVILAIDE<6> = ""
		ENR_CIVILAIDE<8>  = "VOIEAIDE":W_Cle
		ENR_CIVILAIDE<9>  = ""
		ENR_CIVILAIDE<10>  = "CHATEAUROUX"
		ENR_CIVILAIDE<11>  = "36000"
		ENR_CIVILAIDE<12>  = "0"
		ENR_CIVILAIDE<13>  = ""
		ENR_CIVILAIDE<14>  = "01 01 01 01 01"
		ENR_CIVILAIDE<16>  = "01 01 01 01 01"
		ENR_CIVILAIDE<18>  = "1 11 11 11 111 111"
		ENR_CIVILAIDE<19>  = "20"
		ENR_CIVILAIDE<26> = "NOMCONJ":W_Cle
		ENR_CIVILAIDE<27> = "PRENOMCONJ":W_Cle
		ENR_CIVILAIDE<29> = "1 11 11 11 111 111"
		ENR_CIVILAIDE<30> = "20"
		ENR_CIVILAIDE<33> = ""
		i = 1
		LOOP
			i = i + 1
		WHILE ENR_CIVILAIDE<34,i> # ""
			ENR_CIVILAIDE<34,i> = "NOMPERSCHG":i:W_Cle
			ENR_CIVILAIDE<35,i> = "PRENOMPERSCHG":i:W_Cle
		REPEAT
		ENR_CIVILAIDE<20> = "-1018"
	WRITE ENR_CIVILAIDE ON F.CIVILAIDE, W_Cle
	END
REPEAT
PRINT "CIVILAIDE MODIFIE"

EXECUTE 'SELECT CIVILAIDANT'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_CIVILAIDANT FROM F.CIVILAIDANT, W_Cle THEN
		ENR_CIVILAIDANT<2>  = "NOMAIDANT":W_Cle
		ENR_CIVILAIDANT<3>  = "PRENOMAIDANT":W_Cle
		ENR_CIVILAIDANT<4>  = "NOMPATROAIDANT":W_Cle
		ENR_CIVILAIDANT<5>  = ""
		ENR_CIVILAIDANT<6>  = ""
		ENR_CIVILAIDANT<7>  = ""
		ENR_CIVILAIDANT<8>  = "VOIEAIDANT":W_Cle
		ENR_CIVILAIDANT<9>  = ""
		ENR_CIVILAIDANT<10>  = "36000"
		ENR_CIVILAIDANT<11>  = "CHATEAUROUX"
		ENR_CIVILAIDANT<12>  = "01 01 01 01 01"
		ENR_CIVILAIDANT<14>  = "01 01 01 01 01"
		ENR_CIVILAIDANT<17>  = "1 11 11 11 111 111"
		ENR_CIVILAIDANT<18>  = "20"
		i = 1
		LOOP
			i = i + 1
		WHILE ENR_CIVILAIDANT<22,i> # ""
			ENR_CIVILAIDANT<22,i> = "NOMPERSCHG":i:W_Cle
			ENR_CIVILAIDANT<23,i> = "PRENOMPERSCHG":i:W_Cle
		REPEAT
		ENR_CIVILAIDANT<26> = "2601"
	WRITE ENR_CIVILAIDANT ON F.CIVILAIDANT, W_Cle
	END
REPEAT
PRINT "CIVILAIDANT Modifi"


EXECUTE 'SELECT ASSOCIATION'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ASSOCIATION FROM F.ASSOCIATION, W_Cle THEN
		ENR_ASSOCIATION<1>  = "INFOLOGIS":W_Cle
		ENR_ASSOCIATION<2>  = "ASSOCIATION DE SERVICE POUR LE MAINTIEN A DOMICILE"
		ENR_ASSOCIATION<3>  = ""
		ENR_ASSOCIATION<4>  = ""
		ENR_ASSOCIATION<5>  = ""
		ENR_ASSOCIATION<6>  = "ESPACE ENTREPRISE LAFAYETTE"
		ENR_ASSOCIATION<7>  = "Z. I. La Martinerie"
		ENR_ASSOCIATION<8>  = "36130"
		ENR_ASSOCIATION<9>  = "DIORS"
		ENR_ASSOCIATION<10>  = "0"
		ENR_ASSOCIATION<11>  = ""
		ENR_ASSOCIATION<12>  = "02 54 27 08 80"
		ENR_ASSOCIATION<13>  = "02 54 08 70 89"
		ENR_ASSOCIATION<14>  = "41123376000023"
		ENR_ASSOCIATION<15>  = "INFOLOGIS"
		
		ENR_ASSOCIATION<16>  = "BANQUE"
		ENR_ASSOCIATION<17>  = "00000"
		ENR_ASSOCIATION<18>  = "00000"
		ENR_ASSOCIATION<19>  = "00000000000"
		
		ENR_ASSOCIATION<20>  = "00"
		ENR_ASSOCIATION<21>  = "000000"
		ENR_ASSOCIATION<22>  = "000000"



		ENR_ASSOCIATION<23>  = "XXXXXXXXXXXX"
		ENR_ASSOCIATION<24>  = "12055"
		ENR_ASSOCIATION<30>  = "Mr le responsable des paies"
		
		ENR_ASSOCIATION<33>  = "CHATEAUROUX"
		ENR_ASSOCIATION<21>  = "000000000000000"
		ENR_ASSOCIATION<23>  = "Infologis@Wanadoo.fr"

	WRITE ENR_ASSOCIATION ON F.ASSOCIATION, W_Cle
	END
REPEAT
PRINT "ASSOCIATION Modifi"


EXECUTE 'SELECT ETABLISSEMENT'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ETABLISSEMENT FROM F.ETABLISSEMENT, W_Cle THEN
		ENR_ETABLISSEMENT<1>  = "ETAB. INFOLOGIS":W_Cle
		ENR_ETABLISSEMENT<2>  = "ETAB. DE SERVICE POUR LE MAINTIEN A DOMICILE"
		ENR_ETABLISSEMENT<3>  = ""
		ENR_ETABLISSEMENT<4>  = ""
		ENR_ETABLISSEMENT<5>  = ""
		ENR_ETABLISSEMENT<6>  = "ESPACE ENTREPRISE LAFAYETTE"
		ENR_ETABLISSEMENT<7>  = "Z. I. La Martinerie"
		ENR_ETABLISSEMENT<8>  = "36130"
		ENR_ETABLISSEMENT<9>  = "DIORS"
		ENR_ETABLISSEMENT<10>  = "0"
		ENR_ETABLISSEMENT<11>  = ""
		ENR_ETABLISSEMENT<12>  = "02 54 27 08 80"
		ENR_ETABLISSEMENT<13>  = "02 54 08 70 89"
		ENR_ETABLISSEMENT<14>  = "41123376000023"
		ENR_ETABLISSEMENT<20>  = "00000000000000"
		ENR_ETABLISSEMENT<21>  = "0000"
		ENR_ETABLISSEMENT<23>  = "CHATEAUROUX"
	WRITE ENR_ETABLISSEMENT ON F.ETABLISSEMENT, W_Cle
	END
REPEAT
PRINT "ETABLISSEMENT Modifi"

EXECUTE 'SELECT ACTIVITES'
W_Fin = "F"
LOOP
	READNEXT W_Cle ELSE W_Fin = "V"
WHILE W_Fin = "F"
	READ ENR_ACTIVITE FROM F.ACTIVITES, W_Cle THEN
		ENR_ACTIVITE<3>  = ""
		ENR_ACTIVITE<4>  = ""
		ENR_ACTIVITE<5>  = ""
		ENR_ACTIVITE<7>  = ""
		ENR_ACTIVITE<6>  = ""
		ENR_ACTIVITE<8>  = ""
		ENR_ACTIVITE<9>  = ""
		ENR_ACTIVITE<10>  = ""
	WRITE ENR_ACTIVITE ON F.ACTIVITES, W_Cle
	END
REPEAT
PRINT "ACTIVITES Modifi"

*** On vide les RIB aidants
EXECUTE 'VIDER-FICHIER RIBAIDANT'

*** On vide les rpertoires qui peuvent contenir des donnes sensibles
EXECUTE 'VIDER-FICHIER DADSCRC'
EXECUTE 'VIDER-FICHIER DADSTDS'
EXECUTE 'VIDER-FICHIER DNT'
EXECUTE 'VIDER-FICHIER ETIQCODBAR'
EXECUTE 'VIDER-FICHIER FACTURATION'
EXECUTE 'VIDER-FICHIER LECTUREOPT'
EXECUTE 'VIDER-FICHIER LIENCOMPTA'
EXECUTE 'VIDER-FICHIER PRELEVEMENT'
EXECUTE 'VIDER-FICHIER PREVOYANCE'
EXECUTE 'VIDER-FICHIER VIREMENT'


STOP
