Código Delphi [-] Query1.SQL.Clear; Query1.SQL.Add('Select Max(Numero) From OrdenCompra'); Query1.Open; Numero.Text:= IntToStr(Query1.Fields[0].AsInteger+1);
Query1.SQL.Clear; Query1.SQL.Add('Select Max(Numero) From OrdenCompra'); Query1.Open; Numero.Text:= IntToStr(Query1.Fields[0].AsInteger+1);