Código Delphi [-]Query2.Close; Query2.SQL.Clear; Query2.SQL.Text:='SELECT (Max(Cod_Ventas) +1) as CV FROM Libreria_Venta'; Query2.Open; CodigoVenta.Caption := query2.FieldByName('CV').AsString ;
Query2.Close; Query2.SQL.Clear; Query2.SQL.Text:='SELECT (Max(Cod_Ventas) +1) as CV FROM Libreria_Venta'; Query2.Open; CodigoVenta.Caption := query2.FieldByName('CV').AsString ;