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 := InttoStr(query2.FieldByName('CV').AsInteger) ;
Query2.Close; Query2.SQL.Clear; Query2.SQL.Text:='SELECT (Max(Cod_Ventas) +1) as CV FROM Libreria_Venta'; Query2.Open; CodigoVenta.Caption := InttoStr(query2.FieldByName('CV').AsInteger) ;