Fórum Pegar proximo codigo com SQL - MAX #258468

if EditCodigo.Text = ´´ then
      begin

        DM.SQL_Usuarios.Close ;
        DM.SQL_Usuarios.CommandText := ´SELECT Max(CodUsu) FROM Usuarios WHERE CodEmp=:vCodEmp´ ;
        DM.SQL_Usuarios.ParamByName(´vCodEmp´).AsInteger := fMenu.CodEmpSelec ;
        DM.SQL_Usuarios.Open ;

        NovoUsu := DM.CDS_Usuarios.FieldByName(´CodUsu´).asInteger + 1;

        EditCodigo.Text := IntToStr(NovoUsu);


      end;