*OUVERTURE DE FICHIERS
EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","UTILISATEURS" TO F.UTILISATEURS ELSE STOP
OPEN "","PROFILUTILISATEUR" TO F.PROFILUTILISATEUR ELSE STOP
OPEN "","PROFILGROUPE" TO F.PROFILGROUPE ELSE STOP
OPEN "","DETAILPROFILUTIL" TO F.DETAILPROFILUTIL ELSE STOP
OPEN "","PARAMMAJCD" TO F.PARAMMAJCD ELSE STOP

READ ENR_PARAMMAJCD FROM F.PARAMMAJCD,"1" ELSE ENR_PARAMMAJCD=""

W_LECTEURCD=ENR_PARAMMAJCD<1>
W_LECTEURBASE=ENR_PARAMMAJCD<2>
W_BASE=ENR_PARAMMAJCD<3>
W_CHEMIN=ENR_PARAMMAJCD<4>

* COPIE DES FICHIERS PR DU CD
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PROFILGROUPE ':W_CHEMIN:' /C'
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\DETAILPROFILUTIL ':W_CHEMIN:' /C'
EXECUTE '!XCOPY ':W_LECTEURCD:':\BASEVIERGE\PROFILUTILISATEUR ':W_CHEMIN:' /C'


*EXECUTION DE LA REQUETE
EXECUTE 'SSELECT UTILISATEURS '

	W_FINI="FAUX"

	LOOP
		READNEXT W_Cle ELSE W_FINI="VRAI"
	WHILE W_FINI="FAUX" DO
		*LECTURE DU FICHIER AVEC CHAQUE CLE RECUPERE DANS LA REQUETE
		READ ENR_UTILISATEURS FROM F.UTILISATEURS,W_Cle ELSE PRINT "ENR_UTILISATEURS=":W_Cle

		ENR_PROFILUTILISATEUR<1>="001"
		WRITE ENR_PROFILUTILISATEUR ON F.PROFILUTILISATEUR,W_Cle

	REPEAT
  
STOP
