Discussion :

[bastion]

Bonjour;
ya t'il quelqu'un qui peut corrigé ma procédure;
je possede 2 tables
T1(Matricule,Annee,Mois,MontPret,AncienSolde,Retenue,Nouveausolde)
T2(Matricule,Nouveausolde,TotRemb,Nbrmois)
sur la form j'utilise un CheckListBox(j'affiche l'ensemble des employés qui ont beneficie d'un pret et ainsi pour avoir le choix de la sélection)
2 comboBox pour l'année et le mois +1Edit pour la Retenue;
je voudrais avoir un resultat dans cette forme:

T1
Mat-Annee-Mois-AncienSolde-Retenue-Nouveausolde
101 2006 05 900 100 800
101 2006 06 800 100 700
102 2006 06 800 50 750

T2
Mat-NouveauSolde-TotRemb-Nbrmois
101 700 200 2
102 750 50 1

mon probleme c'est dans le resultat de t2 sa n'incrémente pas

ma procedure elle se présente comme suit:

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
procedure TFficheselect.Button1Click(Sender: TObject);
VAR s:real; s1:real; s2:real;
    nl,i: Integer;
 
 begin
 t1.Open;
 t2.open;
 
   if messagedlg('Attention....Etes Vous Sure De Vouloir Corriger les Soldes',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin
 
 
    nl:=clbox1.items.count-1;
    for i:= 0 to nl do
    begin
 
     s:=800000;//strtofloat(e11.text);
     s1:=800000;//strtofloat(e11.text);
     s2:=t1.FieldByName('Retenue').asfloat;
 
    t2.first;
    t1..First;
    while not t1.eof do
    begin
 
    T1.Edit;
    t2.Edit;
    if(t1.fieldbyname('Mat').asstring)=(copy(clbox1.items[i],0,4)) then
    begin
    t1.fieldbyname('Anciensld').AsFloat:=(s);
 
     if clbox1.checked[i] then
     begin
   t1.FieldByName('Nouvsld').asfloat:= t1.fieldbyname('Anciensld').AsFloat-t1.fieldbyname('Retenue').asfloat;
 s:=t1.FieldByName('Nouvsld').asfloat;
 t2.FieldByName('Nouvsld').asfloat:=s;
 t2.fieldbyname('TotRemb').asfloat:=s1-s;
 t2.fieldbyname('Nbrmois').asfloat:= t2.fieldbyname'TotRemb').asfloat/s2;
      t1.Post;
       t2.post;
        end;
           end;
          t1.next;
              end;
                 end;
                   end;

vous m'excusé si j'été trop long mais je doit m' éxpliqué pour voir claire.

[macumba]

Petite remarque la tabultation c'est pas fait pour faire plus beau et tu aurais pu donner le vrai code de ta procédure car ce que tu as publié ne peux pas compiler, cf en rouge et j'en oublie peut-être...
- Avec une tabulation normale on voit tout de suite que les edit de tes tables ne sont pas faits au bon endroit.
- On constate que le T2 est toujours positionné sur le premier enreg!!
- Tu balayes systématiquement tout l'ensemble de données pour chaque élément du checkbox.

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
23
24
25
26
27
28
29
30
for i:= 0 to nl do
    begin
      s:=800000;//strtofloat(e11.text);
      s1:=800000;//strtofloat(e11.text);
      s2:=t1.FieldByName('Retenue').asfloat;

      t2.first;
      t1..First;
      while not t1.eof do
      begin
        T1.Edit;
        t2.Edit;
        if(t1.fieldbyname('Mat').asstring)=(copy(clbox1.items[i],0,4)) then
        begin
          t1.fieldbyname('Anciensld').AsFloat:=(s);

          if clbox1.checked[i] then
          begin
            t1.FieldByName('Nouvsld').asfloat:= t1.fieldbyname('Anciensld').AsFloat-t1.fieldbyname('Retenue').asfloat;
            s:=t1.FieldByName('Nouvsld').asfloat;
            t2.FieldByName('Nouvsld').asfloat:=s;
            t2.fieldbyname'TotRemb').asfloat:=s1-s;
            t2.fieldbyname('Nbrmois').asfloat:= t2.fieldbyname('TotRemb').asfloat/s2;
            t1.Post;
            t2.post;
          end;
        end;
        t1.next;
      end;
    end;

La structure de ta procédure devrait ressembler à quelque chose de ce genre :

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
23
24
25
26
27
28
29
30
31
32
33
  for i:= 0 to nl do
    begin
      s:=800000;//strtofloat(e11.text);
      s1:=800000;//strtofloat(e11.text);
      s2:=t1.FieldByName('Retenue').asfloat; // d'où ca sort ca? on ne sait pas sur quel enreg on est positionné!!!
 
      t1.filtered := false;
      t1.filter := 'Mat = ''' + copy(clbox1.items[i]+ '''';
      t1.filtered := true;
      t1.first;
 
      while not t1.eof do 
      begin
        t1.Edit;
        t1.fieldbyname('Anciensld').AsFloat:=(s);
 
        if clbox1.checked[i] then
        begin
          t1.FieldByName('Nouvsld').asfloat:= t1.fieldbyname('Anciensld').AsFloat-t1.fieldbyname('Retenue').asfloat;
          s:=t1.FieldByName('Nouvsld').asfloat;
          if t2.locate('Mat',copy(clbox1.items[i],0,4),0) then
          begin
            t2.edit;
            t2.FieldByName('Nouvsld').asfloat:=s;
            t2.fieldbyname('TotRemb').asfloat:=s1-s;
            t2.fieldbyname('Nbrmois').asfloat:= t2.fieldbyname('TotRemb').asfloat/s2;
            t2.post;
          end;
        end;
        t1.Post;
        t1.Next;
      end;
    end;

Je n'ai par ailleurs pas vérifier tes affectations qui me semblent assez curieuses, mais l'important est surtout de structurer correctement ta procédure..