-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
function MaxCodigo(const strTabela,strCampo:String):integer;
var
icodigo:integer;
begin
result:=0;
if (Length(strTabela)=0) or (Length(strTabela)=0) then
raise Exception.Create('É necessário passar os parâmetros
corretamente.');
with Query do
begin
Close;
Sql.Clear;
Sql.Add('select max('+ strCampo +') as maxcod from '+ strTabela);
Open;
icodigo:=FieldByName('maxcod').AsInteger;
Close;
end;
Result:=icodigo+1;
//Não vejo necessidade de colocar if icod=0 then...
//0+1 também é 1.
end;
- --
Oséias.
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.1 (MingW32)
iD8DBQFCYXVuHKYDdGAIQkURAkyyAJ9VPuroWl0pFcbl8QhtpEg77H1bAgCfVRHc
IWD3mS70t8MUzT6cLdbP/ak=
=vbEM
-----END PGP SIGNATURE-----
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
