Erro em rotina de auto incremento.

Question

Boa Tarde amigos,Tenho uma pequena aplica��o onde controla um numero sequencial em um campo chave. Uso ACCESS com ADO e coloquei a procedure abaixo no evento ONNEWRECORD da tabela DESPESAS_DIARIAS do ...

Gandalf.nho · Answer

Voc� est� inserindo um valor na tabela e ao mesmo tempo indo no �ltimo registro dela sem completar o registro rec�m-inserido. Tente fazer sua pesquisa do �ltimo valor num dataset separado para evitar problemas. Outra sugest�o, em vez de dar LAST para obter o valor, tente usar uma query do tipo SELECT MAX(campo_chave) FROM tabela.

Alexsandro · Answer

Oi Gandalf,Entendo que coloquei esta rotina no evento ON NEW RECORD da tabela e este evento � chamado no momento de eu pressionar o bot�o �+� do navegador certo? O que voc� est� me dizendo � que neste momento eu ja�estou com aquela famosa linha em aberto (com * indicando novo registro) e que n�o posso me mover para o ultimo por que ele valida a chave primaria vazia. LEGAL: Entendi tudo...S� n�o consigo entender por que muitas pessoas aqui do f�rum colocam rotinas simples, sem a necessidade de usar QUERY, como a de baixo e dizem que ela funciona. O que preciso fazer para ela funcionar? Seria um outro evento? Sem usar o DBNAGIVATOR? Resumindo: Eu gostaria de fazer a rotina funcionar sem a necessidade de query. Agrade�o mais coment�rios...Veja o c�digo abaixo que encontrei no F�rum:�Caro amigo, esperimente fazer assim, no momento de adicionar um novo registro, sem a necessidade da query: var cod:integer; //criar a variavel cod begin TBCandidatos.last; //ultimo registro da tabela cod:=TBCandidatosCodCandidato.value; //pega o valor do �ltimo c�digo inc(cod); //incrementa 1 DBEdit1.text:=inttostr(cod); //define DBEdit1�Onde coloco este evento? � poss�vel us�-lo com o DBNAVIGATOR?Muito Obrigado,Alexsandro �fio...

Gandalf.nho · Answer

Tente p�r Required=False nos TFields do seu dataset e al�m disso, n�o atribua valores para outros campos (como o campo tipo DATE em seu c�digo) antes de fazer o LAST para obter o �ltimo valor. Deve ser isso que est� causando o problema.

Alexsandro · Answer

GEEENNNNIALL GANDALF,Foi so tirar a inicializa��o da Data que funcionou...Agora o problema est� com o evento .INSERT que est� chamando a routina ONNEWRECORD novamente...tipo ficando em LOOP...Provavlemnete isso acontece porque o bot�o �+� do DBNAVIGATOR j� chamou a rotina INSERT certo? Voc� teria alguma sugest�o....????? POis sem o evento .INSERT, no momento que vou atribuir o novo c�digo ao campo do Data Module ele d� um erro dizendo que a tabela n�o est� em INSERT ou EDIT???Alex...

Gandalf.nho · Answer

Nos meus antigos programas em Paradox eu usava o evento BeforeInsert para buscar o valor do novo registro. (testando antes se o campo j� est� preenchido ou n�o)...

Alexsandro · Answer

Oi Gandalf,Sei que t� perto de resolver este mist�rio, mas ainda n�o foi dessa vez. Estou em um �Se correr o bicho pega, Se ficar o bicho come...�Tanto no evento OnNewRecord como no BeforeInsert, quando o evento .INSERT abaixo processa ele recome�a a rotina e fica em LOOP.Se eu n�o colocar o EVENTO .INSERT o Delphi dar a mensagem de erro no momento em que eu estou atribu�ndo o novo c�digo ao campo chave: �dataset is not in edit or insert mode�...E Agora? O que � que eu fa�o???Muito Obrigado,Alexprocedure TDataMod.ADOTable_Despesas_DiariasNewRecord(DataSet: TDataSet);var MainKey: integer;    LancCod: string;begin{ Determinando um novo c�digo de Lan�amento }DataMod.ADOTable_Despesas_Diarias.Open;DataMod.ADOTable_Despesas_Diarias.Last;MainKey := DataMod.ADOTable_Despesas_DiariasDes_Cod.AsInteger;Inc(MainKey);DataMod.ADOTable_Despesas_Diarias.Insert;LancCod := formatcurr(�0000000000�,MainKey);DataMod.ADOTable_Despesas_DiariasDes_Cod.AsString := LancCod;DataMod.ADOTable_Despesas_Diarias.Refresh;end;...

Gandalf.nho · Answer

Primeiro, retire aquela linha do Open, que � desnecess�ria (afinal, a tabela j� est� aberta). Nos meus antigos sistemas, havia uma vari�vel Integer declarada na se��o Private do Form para armazenar o valor da chave. No evento BeforeInsert era executado o comando LAST para obter o valor e increment�-lo (outra coisa, use o comando DisableControls antes de dar o LAST para evitar a atualiza��o desnecess�ria dos DBEdits. N�o esque�a de reativ�-los depois). Depois no evento BeforePost era atribu�do o valor ao campo, checando primeiro se o mesmo j� tinha valor ou n�o.

Alexsandro · Answer

Oi Gandalf,Obrigado pelo seu empenho, mas acredito que sua solu��o n�o resolve meu problem por conta de um detalhe: Eu gostaria que o novo n�mero aparecesse na tela no momento em que eu pressiono o bot�o de inclus�o �+� do DBNAVIGATOR. Se eu colocar a atribui��o do campo no evento BEFOREPOST, o novo n�mero s� vai ser visto depois.Talvez tenha uma solu��o: Posso usar no form uma vari�vel EDIT no lugar de uma DBEDIT vinculada � tabela, atualizo estavari�vel e quando for salvar, no BEFOREPOST. O que voc� acha disso?Mesmo assim gostaria de entender porque uma rotina que todos falam ser t�o simples simples n�o funciona da forma que colocam.Se algu�m puder ajudar eu agrade�o.Alex...

Gandalf.nho · Answer

Talvez haja diferen�as de um mecanismo de acesso a dados para outro. Meu exemplo era Paradox com BDE, o seu caso usa ADO. No caso da sua sugest�o do Edit, estava olhando o c�digo e vi que o valor era atribu�do direto ao DBEdit e n�o ao campo

Alexsandro · Answer

Oi Gandalf,Matei a Xarada: O que acontece � que o evento .LAST coloca a tabela em status de BROWSE. Por isso no c�digo sugerido pelo pessoal eles colocam o .INSERT novamente. Acontece que n�o posso colocar o evento .INSERT dentro do ONNEWRECORD ou BEFOREINSERT porque isso chama o evento novamente causando o LOOP. E, se n�o coloco o INSERT, ocorre um erro de exce��o dizendo que a tabela n�o est� em status de INSERT ou EDIT. LOGO, a l�gica do pessoal est� furada.Quando deixei de executar o LAST e no lugar disso estou gravando o c�digo do ultimo numero em uma outra tabela. com isso tudo se resolveu e agora entendi porque algumas pessoas sugeriram c�digos usando outra tabela e a pr�rpia aplica��o da Borland: MASTAPP usa outra tabela. Obrigado por suas explica��es pois me ajudaram...Alex...

F�rum Erro em rotina de auto incremento. #267895