Discussion :

[directeur]

Bonjour;

j'aimerais déterminer le valeur max d'un compteur d'une voiture pour utiliser comme valeur de départ :
cpintial : valeur du compteur de départ
cpfinal : valeur du compteur de retour d'une mission
distance= cpfinal-cpinitial

a l'ajout d'une mission je dois affiché directement le dernier compteur de la voiture dans le champ cpinitial
pour cela je dois parcourir le fichier quota_service

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE compteur_max()
nTb est un entier = TableOccurrence(Table_service,toAffichée)
nRes est un numérique 
i est un entier
POUR i=1 A nTb
   nRes = Table_service[1]
  SI nRes > Table_service.Cpfinal[i]  ALORS 
nres=table_service.cpfinal[i]; 
		FIN
TableSelectPlus(Table_service,i+1)

cette procedure affiche la valeur max (cpfinal) de la ligne sélectionner

SVP Est ce qu'il une possibilité de correction
Merci

[Nicolas_Jeanneau]

Bonjour,

En supposant que l'on ait dans le tableau uniquement des lignes qui concernent le véhicule en question :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
PROCEDURE compteur_max()
nRes est un numérique
SI TableOccurence(Table_service) > 0 ALORS
     nRes = Table_service.Cpfinal[1]
     POUR TOUTE LIGNE DE Table_service
          SI nRes > Table_service.Cpfinal[i]  ALORS 
               nRes = table_service..Cpfinal[i]
          FIN
     FIN
FIN

Cela ne te permet de retrouver que le dernier compteur enregistré. Dans ce cas, tu devras avoir auparavant gardé en mémoire le compteur de départ. Ce qui devrait te permettre de calculer la distance parcourue.

Bon courage,

Nicolas

[directeur]

Bonjour;
j'ai essayer votre procédure mais elle affiche que le cpfinal de la première ligne
même si on ajoute une deuxième enregistrement, c.à.d une 2ème mission de la même voiture
sachant que l'opération se base sur une seule voiture

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE compteur_max()
nRes est un numérique
SI TableOccurence(Table_service) > 0 ALORS
     nRes = Table_service.Cpfinal[1]
     POUR TOUTE LIGNE DE Table_service
          SI nRes > Table_service.Cpfinal[i]  ALORS 
               nRes = table_service..Cpfinal[i]
          FIN
     FIN
FIN

1ère enregistrement: 2 Bons, valeur de Bons, date du bons; cpinitial=140000
cpfinal=140300; distance=300 Km
2ème enregistrement: cpinitial=dernier cpfinal=143000( en principe automatiquement); cpfinal=140450
3ème enregistrement: cpinitial=140300 au lieu de 140450

[tatayo]

Bonjour,
Je pense qu'il y a une petite coquille dans le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
PROCEDURE compteur_max()
nRes est un numérique
SI TableOccurence(Table_service) > 0 ALORS
     nRes = Table_service.Cpfinal[1]
     POUR TOUTE LIGNE DE Table_service
          SI nRes < Table_service.Cpfinal[i]  ALORS 
               nRes = table_service..Cpfinal[i]
          FIN
     FIN
FIN

Tatayo.

[Nicolas_Jeanneau]

Même plusieurs !!! Il n'y a pas le [i] ....

Code :

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

1
2
3
4
5
6
7
8
9
10
PROCEDURE compteur_max()
nRes est un numérique
SI TableOccurence(Table_service) > 0 ALORS
     nRes = Table_service.Cpfinal[1]
     POUR TOUTE LIGNE DE Table_service
          SI nRes < Table_service.Cpfinal  ALORS 
               nRes = Table_service..Cpfinal
          FIN
     FIN
FIN

désolé pour le temps perdu

[laurent30s]

Je ne suis pas sur de bien comprendre le contexte de ta demande.

Voila ce que je comprends :
- Tu as une liste de missions
- Chaque mission est affectée à un véhicule
- Pour chaque mission tu enregistres les km du compteur de départ et de fin de mission
- Tu calcules la distance en faisant la différence entre les km du compteur de départ et de fin de mission
- Tu veux lors de la création d'une mission proposer les km du compteur de départ avec la valeur maxi des km compteur de fin de mission du véhicule
Je dis proposer par ce que si des km hors missions sont effectués il faut pouvoir changer la valeur.
Le but étant de s'éviter la saisie d'un champ lorsque les missions s’enchaînent.

Si c'est bien ça, il suffit quand tu rentres en saisie d'une nouvelle mission après avoir sélectionné un véhicule, de faire un requête qui retourne la valeur maxi des km compteur de fin de mission du véhicule.

[Hemgé]

Juste pour mettre mon grain de code ...

Code :

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

1
2
        SI nRes < Table_service.Cpfinal  ALORS 
               nRes = Table_service..Cpfinal

peut être remplacé par

Code :

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

        nRes = Max(nRes, Table_service.Cpfinal)

Mais sans prétention, le principal ayant déjà été écrit.

Hemgé

[Atsibat]

Bonjour,

Je te conseille de relire attentivement la réponse de Laurent(+1) car c'est la bonne approche. Avant le CODE il faut que tu arrive à formuler ce que tu as et ce que tu attends. J'avais compris la même chose que lui de ton premier POST et si c'est ce que tu veux alors il t"a donné la réponse.

Bon dev

[directeur]

Bonjour;
merci a tous les amis

les 3 propositions fonctionne correctement

[directeur]

Bonjour,

Je te conseille de relire attentivement la réponse de Laurent(+1) car c'est la bonne approche. Avant le CODE il faut que tu arrive à formuler ce que tu as et ce que tu attends. J'avais compris la même chose que lui de ton premier POST et si c'est ce que tu veux alors il t"a donné la réponse.

Bon dev

Bonjour;
merci de votre conseille Atsibat
j'ai testé les 3 propositions avec plus d'enregistrement
l'utilisation d'une requête qui détermine le max c'est le plus fiable
ainsi je vous remercie tous de nouveau