Vérification des dates

Version imprimable

Bonjours, j'ai une table qui contient des enregistrements comme suite :
table1 (cd,dateentree,produit,Qt..),
les enregistrement :
01,AA,12/09/2010,
02,BB,20/09/2010,
03,CC,30/09/2010,
mon problème se pose au niveau de la modification des dates ?
premier cas :
si la table contient un seul enregistrement
Code:

1 2 3 4 5 6 7 8 9 if ((emodif.Text='m' ) and ( erecno.Text='1')and (dttrt.Date< dm1.trtmaldattrt.value)) // erecno.text : un tedit qui reçoit la valeur du recno then begin messagedlg ('**Date du Traitement doit étre supérieure ou égale à la date de la derniere remise de traitement ....',mterror,[mbOk],0,); dttrt.Date:=dm1.trtmaldattrt.Value; dttrt.SetFocus; exit; end;
sa marche très biens , le problème se pose lors de la modification des autres enregistrements celui qui est au milieu et le dernier enregistrement ? :(

19/10/2010, 09h10
ShaiLeTroll

regarde IsEmpty pour ignorer le contrôle
19/10/2010, 11h53
redoran

salut ;@shaile ; mon problème comment faire pour que je fais la modification des date qui se trouve en milieu et en dernier.
j'ai essayé avec prior et last et sa me pose problème.
définition du problème:
deuxième cas:
dans le cas ou l'enregistrement se trouve en milieu des enregistrement la date qui doit être modifiée doit étre supérieure a la date localisé par prior et en même temps inférieure a la date localisé par last
troisième cas:
dans le cas ou la date a modifiée se trouve dans le dernier enregistrement.

une idée :|

voila pour le troisième cas j'ai testé ce code mais apparemment sa marche pas, j'entre dans la boucle mais sans résultat !!!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 if ((emodif.Text='m' ) and (dm1.trtmal.RecordCount=strtoint(erecno.Text))) //si le nombre d'enregistrement est égal au recno de la table = dernier enregistrement ( méthode testé est vrai dans tous mes teste) then begin dm1.trtmal.Prior;// je localise l'enregistrement précèdent if (dttrt.Date < dm1.trtmaldattrt.value) then begin messagedlg ('Date de Traitement doit étre supérieure à la date de la dernière remise de traitement ....',mterror,[mbOk],0,); dm1.trtmal.Next;// localisé l'enregistrement en modification pour recupéré la date dttrt.Date:= dm1.trtmaldattrt.Value;// recupération de la date a modifiée dttrt.SetFocus; exit; end;
exemple :
les enregistrement :
01,AA,12/09/2010,
02,BB,20/09/2010,
03,CC,30/09/2010,
lors de la modification de la date du 30/09/2010 par une date tel que 19/09/2010 pour simulé une erreur de saisie alors:
dttrt.date=19/09/2010 et dm1.trtmaldattrt.value = 20/09/2010 ,
sa passe pas malgré que dttrt.date < dm1.trtmaldattrt.value ,
j'ai testé l'affichage des deux valeurs c'est bon mais la condition sa fonctionne pas :calim2:
même avec le formatage des deux dates
Code:

1 2 3 FormatDatetime('dd/MM/yyyy', dm1.trtmaldattrt.value); FormatDatetime('dd/MM/yyyy', dttrt.Date);

19/10/2010, 14h30
Hocinov3

Ma réponse

Dsl mais ta mal exposé ton pb, tu doit nous expliquer la nature de la modification! , dans quel cas !?, et sa apporte sur quelle table de ta BDD !?
19/10/2010, 14h42
redoran

salut;@Hocinov je crois que j'ai été très simple dans l'exposition de mon problème , une modification c'est une modification : la date a modifier dépend de sa position par rapport a d'autre enregistrement ;)
pour le SGBD ta raison [D7+access] et merci pour votre disponibilité:coucou:
19/10/2010, 14h46
Linkin

Comment modifies-tu cette date? A partir d'un appui sur un bouton ou dans une grille d'affichage?
19/10/2010, 15h03
redoran

salut Linkin ; la modification se fait avec un bouton de validation après avoir affiché les données du dbgrid sur une forme a plusieurs champs dont la date fait partie.
19/10/2010, 15h25
Linkin

Je n'ai jamais utilisé Prior.

As-tu essayé avec un Locate sur l'élément précédent (cela suppose que tu aies un identifiant pour chaque enregistrement), je pense que cela simplifiera le code, surtout pour tester les bornes (premier et dernier).

Et plutôt que Value, essayes un AsDateTime.
19/10/2010, 15h31
redoran
avec prior sa marche et j'ai la localisation de l'enregistrement et je récupère bien ma date précédente , le problème se pose la
Code:

1 2 3 4 ................... if (dttrt.Date < dm1.trtmaldattrt.value) then begin
j'arrive pas a entré dans la boucle malgré que la condition est vraie :
(dttrt.Date < dm1.trtmaldattrt.value)
:(

Citation:

Et plutôt que Value, essayes un AsDateTime.

aussi avec asdatetime sa marche pas sachant que le résultat retourne la date de l'enregistrement précèdent.

voila j'ai ajouté une ligne de contrôle pour voir la date retournée par prior

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
if ((emodif.Text='m' ) and (dm1.trtmal.RecordCount=strtoint(erecno.Text)))
    then
    begin
    dm1.trtmal.Prior;
    showmessage(datetostr(dm1.trtmaldattrt.AsDateTime));// résultat correcte
            if (dttrt.Date < dm1.trtmaldattrt.AsDateTime) // condition vrai mais y'a pas de repense (message d'erreur)
            then
            begin
            messagedlg ('Date de Traitement doit étre supérieure à la date de la dernière remise de traitement ....',mterror,[mbOk],0,);
            dm1.trtmal.Next;
            dttrt.Date:= dm1.trtmaldattrt.AsDateTime;
            dttrt.SetFocus;
            exit;
            end;
 
    end;

:sm:

20/10/2010, 08h44
redoran

Bonjour ; enfin tard hier sans solution , alors j'ai procédé a la solution suivante :
je savais que mon code été correcte dans le fonctionnement , j'ai lancé un nouveau projet ensuite testé mon code et sa marche impeccablement,
sa paré bête , j'ai changé le datetimepicker et touts et rentrés dans l'ordre.
merci :ccool:
NB / après un entretiens avec un membre de notre focus groupe il a vu que j'ai très sèrai le contrôle de validité des données donc on s'est mis d'accord que le programme vérifie rien que la date de traitement par rapport a la date de déclaration voila pour ceux qui veulent s'inspirer de mon code.;)