Código
begin
q := TZQuery.Create(Application);
with q do begin
Connection := fmDados.ZConnection;
sql.Add('select max(odemcontarec) from conta_receber');
Active := true;
Result := Fields[0].AsInteger + 1;
Active := false;
end;
end;
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009