LanceAppli(fCheminCourt(CompleteRep(fRepEnCours()))+"WDModFic.EXE -subdir -noanaguid -nobackup /WDD="+fCheminCourt(CompleteRep(fRepEnCours()))+"MonAnalyse.wdd /DIR="+fCheminCourt(gcRepertoireDesDonnées),exeActif,exeBloquant,fCheminCourt(CompleteRep(fRepEnCours())))

// Monte dans une table la liste des fichiers créés directement de l'analyse dans un répertoire
// contenu dans la globale gcRepDonnée
// Analyse la liste des fichiers logiques et les recherche dans le répertoire
// Si ouverture possible, récupération sdu GUID analyse et GUID fichier.
// Ce sont des GUID qui seront envoyés au rep
PROCEDURE rbREP_Init(pcNomTable,pcListe,pcLibelle="")
SI pcLibelle ALORS {pcLibelle,indChamp}=gcRepDonnees
{pcNomTable,indChamp}..Visible=Faux
TableSupprimeTout(pcNomTable)
Sablier
cListeFichier est une chaîne
cListeFichier = HListeFichier()
iFic est un entier = 1
hFic est un entier
cChemin est une chaîne
cGUID_Ana,cGUID_Fic sont des chaînes
cFichier est une chaîne = ExtraitChaîne(cListeFichier,iFic,RC)
ss est une Source de Données
TANTQUE cFichier<>EOT 
	cChemin=gcRepDonnees+cFichier+".Fic"
	SI fRep(cChemin,frFichier)<>"" ALORS
		hFic=fOuvre(cChemin,foLecture)
		SI hFic <> -1 ALORS
			fPositionne(hFic,20,fpDébut)
			cGUID_Ana = fLit(hFic,32)
			fPositionne(hFic,53,fpDébut)
			cGUID_Fic= fLit(hFic,32)
			fFerme(hFic)
			TableAjouteLigne(pcNomTable,cFichier,cChemin,cGUID_Ana,cGUID_Fic)
			ListeAjoute(pcListe,cChemin)
		FIN
	FIN
	iFic++
	cFichier = ExtraitChaîne(cListeFichier,iFic,RC)
FIN
Sablier(Faux)
{pcNomTable,indChamp}..Visible=Vrai

// récupération des fchiers aliassés
PROCEDURE rbRep_Lst(Repertoire, Nom, Change, Nb)
cChemin est une chaîne =ComplèteRep(Repertoire)+Nom

// le fichier exite déja dans la liste
SI ListeCherche(Liste_rep,cChemin)=-1 ALORS
	// non alors on va l'ajouter
	SI fRep(cChemin,frFichier)<>"" ALORS
		hFic est un entier=fOuvre(cChemin,foLecture)
		SI hFic <> -1 ALORS
			fPositionne(hFic,20,fpDébut)
			cGUID_Ana est une chaîne= fLit(hFic,32)
			fPositionne(hFic,53,fpDébut)
			cGUID_Fic est une chaîne = fLit(hFic,32)
			fFerme(hFic)
//			si (sansespace(cGUID_Ana)+sansespace(cGUID_Fic))<>"" alors
//				trace(nom,cchemin,cGUID_Ana,cguid_fic)
				TableAjouteLigne(TABLE_ALIAS,Nom,cChemin,cGUID_Ana,cGUID_Fic)
//				listeajoute(liste_rep,cchemin)
//			fin
		FIN
	FIN
FIN

RENVOYER Vrai

PROCEDURE rbREP_Construit(pcT1,pcT2)
i est un entier
Ind est un entier
cLogique est une chaîne
cFic est une chaîne = ComplèteRep(fRepEnCours())+gProjetNom+".REP"
eFic est un entier = fOuvre(cFic,foCréation+foEcriture)
cLigne est une chaîne
SI eFic=-1 ALORS RETOUR
POUR i=1 A TableOccurrence(pcT1)
	cLigne=""
	SI i=1 ALORS
		cLigne="ANALYSISGUID="+pcT1[i,3]+TAB+";Analysis GUID"+RC
	FIN  
	cLigne+="LOCALIZATION="+pcT1[i,4]+TAB+pcT1[i,1]+TAB+pcT1[i,2]
	fEcritLigne(eFic,cLigne)
FIN
POUR i=1 A TableOccurrence(pcT2)
	cLigne=""
	Ind = TableCherche(TABLE_REP.TGUIDF,pcT2[i,4])
	SI Ind<>-1 ALORS
		cLigne+="LOCALIZATION="+pcT2[i,4]+TAB+pcT1[Ind,1]+TAB+pcT2[i,2]
		fEcritLigne(eFic,cLigne)
	FIN
FIN
fFerme(eFic)

// récupère les définitions pour les fichier normaux dans le répertoire des données
rbREP_Init(TABLE_REP..Nom,Liste_rep..Nom,LIB_REP..Nom)
// complète avec les fichier issus d'alias
TableSupprimeTout(TABLE_ALIAS)
fListeFichier(gcRepDonnees+"*.fic","rbRep_Lst")
// Génère le REP à partir des données
rbREP_Construit(TABLE_REP..Nom,TABLE_ALIAS..Nom)
Ferme()