Taty,
já tentou um backup e restore da tua base?
[ ]´s
Mario Scavoni
----- Original Message -----
From: "T a t y S a n t a n a" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Saturday, April 09, 2005 10:16 AM
Subject: Re: [delphi-br] Duvida, contador.
Olá mário bom dia, abaixo está minha rotina. To utilizando i INTERBASE.
Construí todo o banco utilizando o IbExpert. O problema não pode ser na
rotina, pq na máquina de amigos meus e na faculdade funciona. Só aqui em
casa não funciona.
Um abraço
Taty
A rotina é:
public
{ Public declarations }
function MaxCodigo(strTabela,StrCampo:string):integer;
end;
var
DM: TDM;
implementation
{$R *.dfm}
function TDM.MaxCodigo(strTabela,strCampo:String):integer;
var
iCodigo:integer;
begin
iCodigo:=0;
With sqlQuery, SQL do
begin
Close;
Clear;
Add('SELECT max(');
Add(strCampo);
Add(')');
Add('as CODIGOATUAL FROM');
Add(strTabela);
ExecQuery;
try
iCodigo := StrToInt(FieldByName('CODIGOATUAL').AsString);
except
iCodigo := 0;
end;
if( iCodigo = 0) then
result:=1
else
result:=iCodigo+1;
end;
end;
procedure TDM.TClienteNewRecord(DataSet: TDataSet);
begin
TCliente.FieldByName('COD_CLIENTE').AsInteger:=Maxcodigo('CLIENTE','COD_CLIE
NTE'); ( Chamada da tabela)
end;
----- Original Message -----
From: Mario Scavoni
To: delphi-br@yahoogrupos.com.br
Sent: Saturday, April 16, 2005 12:21 AM
Subject: Re: [delphi-br] Duvida, contador.
Taty,
qual o banco q vc usa?
poste, se possível, a tua rotina...
[ ]´s
Mario Scavoni
----- Original Message -----
From: "T a t y S a n t a n a" <[EMAIL PROTECTED]>
To: "Grupo de Delphi" <delphi-br@yahoogrupos.com.br>
Sent: Friday, April 08, 2005 10:59 PM
Subject: [delphi-br] Duvida, contador.
Olá, boa noite a todos. Já não sei mais o que fazer com um erro que me
apareceu. Desenvolvi uma pequena rotina pra um contador. Pra utilizar em
campo tipo código a ser gerado automaticamente. O que acontece é que
quando
eu já tenho uma tabela no meu banco, o contador funciona blz, mais se
excluo
todos os dados e quer inserir o primeiro registro aí vem o erro. E não sei
mais o que fazer pq na máquina de alguns amigos meu sistema funciona blz
até
pra inserção do primeiro registro já aqui na minha máquina dá o tal erro.
Será que isso pode ser do delphi 6 ? Ou da minha máquina. Abaixo vou
anexar
a telinha de erro. Se alguém puder me ajudar eu agradeço. Dependo desse
sistema pra me formar.
Antecipadamente grata
Tatiane Santana
Bom novamente não foi. A figura não apareceu na mensagem. Abaixo está a
mensagem por escrito.
"Project Lavanderia.exe raised exception class EconvertError with message
"is not a valid integer value'. Process stopped. Used Step or Run to
continue."
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
--
<<<<< 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]
Yahoo! Grupos, um serviço oferecido por:
São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< 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
--
<<<<< 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
