Discussion :

[Finar]

Bonjour,

Je viens vers vous accompagné d'un joli problème qui me semble de plus en plus insoluble...
J'utilise sur mes tables un Trigger Serveur dont voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
dhMaDateHeure est une DateHeure
QUAND EXCEPTION DANS
 
	{H.NomFichier + ".DateModification", indRubrique} = DateHeureLocaleVersUTC(dhMaDateHeure)
 
FAIRE
 
	HLitPremier(PARAMETRES)
	PARAMETRES.LogErreur += ExceptionInfo(errComplet)
	HModifie(PARAMETRES)
 
FIN

Il est configuré pour se déclencher en Ajout et en Modification d'un enregistrement, ce qui me permet donc d'avoir la date et heure de dernière modification de chaque enregistrement...

Maintenant, voila le problème : Le trigger ne se déclenche pas tout le temps :S
Après de nombreux tests un peu dans tous les sens, il s'avère que par moment, sur un enregistrement des plus simples, le trigger ne se déclenche tout simplement pas...

Et je pense avoir le même problème sur d'autres Triggers un peu plus complexes, sans avoir eu possibilité de le vérifier jusqu'a là...

Est ce que quelqu'un aurait déjà eu à faire face à un problème similaire ?

Finar

[mat__]

...
QUAND EXCEPTION DANS

{H.NomFichier + ".DateModification", indRubrique} = DateHeureLocaleVersUTC(dhMaDateHeure)

FAIRE

HLitPremier(PARAMETRES)
PARAMETRES.LogErreur += ExceptionInfo(errComplet)
HModifie(PARAMETRES)
FIN[/CODE]
...

Bonjour, je ne comprends peut-être pas bien le problème, mais moi je vois un traitement d'exception qui ne se déclenche que si
{H.NomFichier + ".DateModification", indRubrique} = DateHeureLocaleVersUTC(dhMaDateHeure)
crée un exception. Et je ne vois pas pourquoi cela devrait être le cas.

Salutations
Mat

[Finar]

Bonjour,

Il ne s'agit pas de l'exception qui ne se déclenche pas, mais de tout le trigger, exemple :

Soit une table avec IDRubrique, LibRubrique, DateModification.

J'ajoute un enregistrement IDRubrique = 1, LibRubrique = Ajout1, mon trigger se déclenche bien et renseigne mon DateModification.
J'en ajoute un deuxième, IDRubrique = 2, LibRubrique = Ajout2, et la... Mon trigger ne vient pas renseigner mon "DateModification", ni ne génère d'exception, bref, rien du tout, comme si il ne se déclenchait tout simplement pas.

Le phénomène est ponctuel, et sur différents fichiers, et il ne dépends pas des données (deux enregistrements identiques - hormis l'ID - pourront être ajoutés, et le problème surviendra sur l'un d'entre eux seulement par exemple).

Finar

[Finar]

Après de nombreux tests et essais (suppression / recréation du fichier, réindexation, ajout d'un autre trigger, etc etc...) : Toujours le même soucis

Le ST est prévenu, mais j'aime autant ne négliger aucune piste alors... Pas d'idées par ici ?

Finar

[mat__]

Bonjour,

ceci devrait aider

Code :

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

1
2
3
4
5
6
7
8
9
dhMaDateHeure est une DateHeure
QUAND EXCEPTION DANS
 
	{H.NomFichier + ".DateModification", indRubrique} = DateHeureLocaleVersUTC(dhMaDateHeure)
	si pas hModifie(H.NomFichier) alors
           info(hErreurInfo)
        fin
...
FIN

Salutations
Mat

[mat__]

Je viens de faire un petit test avec 10'000 d'ajouts sur plusieurs fichiers et le résultat donne toujours le même nombre de triggers que d'ajouts... je pense le problème se trouve avec hModifie ou un EcranVersFichier qui efface la date écrit auparavant dans la procédure du trigger.

Code :

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

1
2
3
4
5
6
//Initialisation du projet
TriggerResult = HDécritTrigger("*","HAJOUTE","gpTrigger",hTriggerAprès)
SI TriggerResult = Faux ALORS 
	Erreur("Trigger error: "+HErreurInfo)
	RETOUR
FIN

Code :

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

1
2
3
4
//procédure globale
PROCEDURE gpTrigger()
//info("Hello, this is a trigger", h.FileName)
gnTrigger ++

Code :

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

1
2
3
4
5
6
7
8
9
10
//Dans un bouton d'une fenêtre
i est entier
POUR i = 1 A 10000
	HRAZ(monFichier)
	monFichier.IDmonFichier = i
	HAjoute(monFichier)
 
FIN
Info("Trigger: " + gnTrigger)
gnTrigger = 0

[Finar]

Bonjour,

Bonjour,

ceci devrait aider

Code :

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

1
2
3
4
5
6
7
8
9
dhMaDateHeure est une DateHeure
QUAND EXCEPTION DANS
 
	{H.NomFichier + ".DateModification", indRubrique} = DateHeureLocaleVersUTC(dhMaDateHeure)
	si pas hModifie(H.NomFichier) alors
           info(hErreurInfo)
        fin
...
FIN

Salutations
Mat

Nous avons déja essayé ce genre de chose, mais malheureusement, quand le "bug" survient, ca ne donne rien (pas de trace, pas de retour, bref... On dirait vraiment que ca ne passe même pas dans le trigger).

Pour ce qui est d'un EcranVersFichier ou d'un HModifie qui interviendrait après... Nous avons vérifié cela également, mais il n'y en a aucun après l'ajout. Si l'on place un point d'arret juste après le HAjoute et que l'on regarde la valeur en tombant sur un cas problématique : Le champs est à vierge, immédiatement après le HAjoute :-/

Précision... Il s'agit de Trigger Serveur, donc pas de HDecritTrigger, le trigger étant définit directement dans l'analyse.
A ce propos, nous avons aussi vérifié l'état du Trigger juste avant ajout : Il est bien actif.