Discussion :

[LeNainBerbe]

Bonjour a tous,

On ma demander de créer un bouton pouvant ouvrir un fichier journal mais je ne trouve rien a ce sujet
quelqu'un pourrai me fenir en aide
je devrai je pense depuis un fichier sélectionner pouvoir ouvrir sont fichier de journal

genre fichier Client => ouvrir fichier journal client.jnl

[frenchsting]

Bonjour,

1. Mettre un bouton
2. Mettre du code derrière, genre : POUR TOUT Journal / Afficher les données dans une table / FIN

[LeNainBerbe]

salut j'y avais penser a le lire commen n'importe quelle fichier de données et afficher c'est donnée dans un tableau
mais n'y a t'il pas moyen d'ouvrire le fichier comme on ferrai pour ouvrir un pdf ?

[frenchsting]

Oui : en écrivant une appli qui le fera

[LeNainBerbe]

j'ai finalement trouver un moyen pour ouvrire le fichier de journalisation d'un fichier de donnée précis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
 
SI fFichierExiste(RepJournal+"\"+Connexion_bdd..BaseDeDonnées+"\"+nomFichier+"JNL.FIC") = Vrai ALORS
	HDéclareExterne(RepJournal+"\"+Connexion_bdd..BaseDeDonnées+"\"+nomFichier+"JNL.FIC", nomFichier+"JNL")
 
	//liste les rubrique du fichier
	listeRubrique = HListeRubrique({ nomFichier+"JNL"})
	//réinitialise le tableau pour le fichier actuel
	TableauSupprimeTout(tableauRubrique)
	// pour chaque rubrique on clone une colonne par rubrique et on la renomme avec le nom de la rubrique
	POUR TOUTE CHAÎNE rub DE listeRubrique SÉPARÉE PAR RC
		SI rub <> "User_ID" ET rub <> "IDJNL"  ET rub <> "Server_Time" ET rub <> "WLFunction_Id" ALORS
			xChamp est un Champ
			xChamp <- ChampClone(COL_ColModel, "COL_" + rub)
			xChamp.Largeur	= COL_ColModel.Largeur
			xChamp.Libellé	= rub
			xChamp..Visible = Vrai
			TableauAjoute(tableauRubrique,rub)
		FIN
 
	FIN
 
 
	/// on rempli le champ table
	HLitPremier({nomFichier+"JNL"})
	SI HTrouve({nomFichier+"JNL"}) ALORS
		TANTQUE PAS HEnDehors({ nomFichier+"JNL"}) 
			nligne  = TableAjouteLigne(TABLE_SansNom1,{ nomFichier+"JNL.IDJNL"},{ nomFichier+"JNL.User_ID"},{ nomFichier+"JNL.Server_Time"},{ nomFichier+"JNL.WLFunction_Id"})
			POUR TOUTE rubrique DE tableauRubrique
				{"TABLE_SansNom1["+nligne+"].COL_" + rubrique} = { nomFichier+"JNL."+rubrique}
			FIN
		soit resDeclare =	HDéclareExterne(RepJournal+"\JNL_USERS.FIC",JNL_USER)
			HLitPremier({JNL_USER,indFichier})
			SI HTrouve({JNL_USER}) ALORS
				TANTQUE PAS HEnDehors({JNL_USER})
					SI TABLE_SansNom1[nligne].COL_User_Id = {JNL_USER+".User_ID"} ALORS
						TABLE_SansNom1[nligne].COL_User_Id = {JNL_USER+".Login"}+" "+{JNL_USER+".WorkStation_Name"}
 
					FIN
					HLitSuivant({JNL_USER})
				FIN
			FIN
			HFerme({JNL_USER})
			HAnnuleDéclaration({JNL_USER})
			HLitSuivant({ nomFichier+"JNL"})
		FIN
 
	FIN
	HFerme({ nomFichier+"JNL"})
	HAnnuleDéclaration({ nomFichier+"JNL"})
 
 SINON
 
Info("aucun fichier journal n'as était trouvé")
 
FIN

je pense qu'il y as peut etre plus simple mais voila pour ceux qui recherche a faire de meme voila ^^

[frenchsting]

2 choses :
1.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
HLitPremier({nomFichier+"JNL"})
SI HTrouve({nomFichier+"JNL"}) ALORS
// peut être remplacé par :
SI HLitPremier({nomFichier+"JNL"}) ALORS

2. Lorsque tu utilises des indirections, il est intéressant de mettre le type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SI HLitPremier({nomFichier+"JNL", indfichier}) ALORS

Cela permet d'avoir des traitements plus rapides.