procedure TF_Material.Button7Click(Sender: TObject);
VAR i,a:INTEGER;
begin
F_ModulDades.Material.Last;
F_ModulDades.Material.First;
F_ModulDades.Material.RecordCount;
a:=F_ModulDades.Material.RecordCount;
Label58.Caption:= inttostr(a);
for i:= 1 to a do
begin
F_ModulDades.Material.Edit;
F_ModulDades.MaterialAUTOI.Value:= i;
F_ModulDades.Material.Post;
F_ModulDades.Material.Next;
end;
end;