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; |
Partager