Discussion :

[bouh25]

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
begin
    tfjourp.First;
    Tfjourp.edit;
   while not Tfjourp.EOF Do
     begin
         tfjour.Active:=true;
         Tfjour.edit;
         tfjour.First ;
        while not tfjour.EOF Do
          begin
            if tfjourp.FieldValues['n_prod']=tfjour.Fieldvalues['n_prod'] and chobs.Text=tfjour.FieldValues['n_bs'] then
             begin
              tfjour.Edit;
              tfjour.Fieldvalues['Q_sort']:=tfjour.Fieldvalues['Q_sort']+tfjourp.FieldValues['quantete'];
              tfjour.Post;
             end;
               tfjour.next;
          end;
         Tfjourp.Next ;
    end;

[ShaiLeTroll]

Un indice peut-être !

BDE ? Paradox ?
Pourquoi pas de SQL ?

On ne sait pas ce que cela fait, on ne sait pas ce que cela doit faire, impossible de trouver une erreur !

Pourquoi tous ces Edit inutile avant les First
Pourquoi ce Active en boucle ?

Est-ce qu'il y une relation via MasterSource ?

[SergioMaster]

Merci d'utiliser les balises de Code


Cela devrait en plus se régler par un simple SQL 'UPDATE' de la Table JOUR

Mais : - on n'a pas la structure des tables et comme le dit si joliment Shailetroll

On ne sait pas ce que cela fait, on ne sait pas ce que cela doit faire,

on ne sait même pas de quelle erreur il s'agit

[Rayek]

Quelques remarques :

1- Quand on vient demander de l'aide on doit être un minimum poli donc un bonjour en début et un merci en fin de post n'est pas superflu.

2- Quand on a un problème, on l'explique un minimum, le "Ça marche pas" ne permet à personne de voir où se trouve le(s) soucis.

3- Quand on travail sur les bases de données, il est important d'indiquer aux futurs interlocuteurs la base de données sur laquelle on travail (Oracle, SQL Serveur, MySQL, etc ...)

4- Il est aussi important d'indiquer la version de Delphi qu'on utilise car selon la version il peut y avoir des différences dans le traitement.

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
 
begin
    tfjourp.First;
//    Tfjourp.edit; // Inutile on ne le mets pas à jour et des le premier next on passe en mode DsBrowse
   while not Tfjourp.EOF Do
     begin
        //  tfjour.Active:=true; // Aucun intéret de réouvrir à chaque changement Mieux vaut le faire une fois au début
//         Tfjour.edit; // Inutile dès qu'on fait le first on repasse en mode dsBrowse
         tfjour.First ;
        while not tfjour.EOF Do
          begin
            if tfjourp.FieldValues['n_prod']=tfjour.Fieldvalues['n_prod'] and chobs.Text=tfjour.FieldValues['n_bs'] then
             begin
              tfjour.Edit;
              tfjour.Fieldvalues['Q_sort']:=tfjour.Fieldvalues['Q_sort']+tfjourp.FieldValues['quantete'];
              tfjour.Post;
             end;
               tfjour.next;
          end;
         Tfjourp.Next ;
    end;

[Andnotor]

Code :

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

if (tfjourp.FieldValues['n_prod']=tfjour.Fieldvalues['n_prod']) and (chobs.Text=tfjour.FieldValues['n_bs']) then

[ShaiLeTroll]

Quel œil !


Encore une fois, une balise CODE fournie dès le début (un modo a corrigé depuis) et le message d'erreur du compilateur, on aurait pas eu besoin de 4 intervenants !

[Andnotor]