Pegar proximo codigo com SQL - MAX

Delphi

15/11/2004

Olá amigos, tenho o código abaixo para descobrir o código do próximo usuário caso o digitador não informe o mesmo. só que não me retorna o valor mais alto. há outra forma de obtë-lo?

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;


Utilizo delphi 7 e fire

Um grande abraço

Mario


Aldus

Aldus

Curtidas 0

Respostas

Torres Delphi

Torres Delphi

15/11/2004

Tente assim:

´SELECT Max(CodUsu) as ProxCod FROM Usuarios WHERE CodEmp=:vCodEmp´

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

[]´s


GOSTEI 0
POSTAR