Plantage programme

**scottynou** · 25/05/2009, 00h49

Bonjour,

Je vous demandes votre aide car j'ai un code qui fait planter l'application et je n'arrive pas à trouver d'où ça vient.

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
13
14
15
16
17
18
19
20
21
22
i est un entier
i=0
A1 est un entier
A2 est un entier
AF est un entier
 
HLitPremier(RepTel, IDRepTel)
TANTQUE PAS HEnDehors(RepTel)
SI Droite(RepTel.anniv, 4) = Droite(DateSys(), 4) ALORS
nom..Libellé=RepTel.prenom
A1 = Gauche(DateSys(), 4) 
A2= Gauche(RepTel.anniv, 4)
AF = A1-A2
testt..Libellé =  AF
i++
SINON
HLitSuivant(RepTel,IDRepTel)
FIN
FIN
SI i=0 ALORS
	Ferme()
FIN

Quand je test l'application tout à l'air de bien se dérouler le programme parcours bien la base de donnée il trouve et affiche les bonnes informations mais une fois qu'il les a affiché il plante...

Voilà avec un exemple quand le programme s'exécute:

Comme on peut le voir il compare bien le jour et le mois dans la base de donné avec celui du système quand il trouve une correspondance il affiche le prénom(tette) et soustrait les années pour afficher l'âge et après plantage là obliger de terminer le processus.

Merci de votre aide

**Tober** · 25/05/2009, 08h44

T'as pas oublier de faire "HLitSuivant(RepTel,IDRepTel)" dans ton SI ?

**scottynou** · 25/05/2009, 15h34

Envoyé par Tober

T'as pas oublier de faire "HLitSuivant(RepTel,IDRepTel)" dans ton SI ?

Bein il est dans le sinon car si il trouve une correspondance pas besoin de continuer à lire.

**Tober** · 25/05/2009, 15h42

Bah alors faudrait ptete penser à sortir de la boucle...
Au fait, il existe une exécution pas à pas qui permet de voir ce que ton programme exécute ligne à ligne, c'est magnifique...

**scottynou** · 25/05/2009, 15h48

Envoyé par Tober

Bah alors faudrait ptete penser à sortir de la boucle...
Au fait, il existe une exécution pas à pas qui permet de voir ce que ton programme exécute ligne à ligne, c'est magnifique...

'-_- effectivement en sortant de la boucle ça marche beaucoup mieux.

J'ai passé une heure sur ce minuscule code j'ai même pas tilté

Merci