Discussion :

[redoran]

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 :

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

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 ?

[ShaiLeTroll]

regarde IsEmpty pour ignorer le contrôle

[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

[redoran]

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 :

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

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
même avec le formatage des deux dates

Code :

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

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

[Hocinov3]

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 !?

[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é

[Linkin]

Comment modifies-tu cette date? A partir d'un appui sur un bouton ou dans une grille d'affichage?

[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.

[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.

[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 :

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

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)

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.