Como incrementar um número de um DBEdit
20/02/2003
0
Olá pessoal
Possuo uma base de dados (ADO/Access) com os campos, na seguinte ordem de foco:
-OP [8]
-DV [1]
-NOME [50]
...e preciso que ao incluir um novo registro (DBNavigator), o campo OP seja automaticamente incrementado, passe o foco para o campo NOME e calcule o dígito verificador pelo MOD 11 no campo DV.
Obs.: O campo NOME deve sempre ser iniciado com 21.....
Ex.: [b:ee5c3333af]21[/b:ee5c3333af]30522
[b:ee5c3333af]21[/b:ee5c3333af]30523...
Como posso proceder?
Desde já agradeço.
Possuo uma base de dados (ADO/Access) com os campos, na seguinte ordem de foco:
-OP [8]
-DV [1]
-NOME [50]
...e preciso que ao incluir um novo registro (DBNavigator), o campo OP seja automaticamente incrementado, passe o foco para o campo NOME e calcule o dígito verificador pelo MOD 11 no campo DV.
Obs.: O campo NOME deve sempre ser iniciado com 21.....
Ex.: [b:ee5c3333af]21[/b:ee5c3333af]30522
[b:ee5c3333af]21[/b:ee5c3333af]30523...
Como posso proceder?
Desde já agradeço.
Vega.x
Curtir tópico
+ 0
Responder
Posts
20/02/2003
Anonymous
Ola, vc pode usar desta forma
if tabela.empty then dbedit.text := ´2100000´;
if not tabela.empty then tabela.last;
if not tabela.empty then dbedit.text := IntToStr(Val( Tabela.FildByName( ´codigo´ ).AsString ) + 1);
ok...
if tabela.empty then dbedit.text := ´2100000´;
if not tabela.empty then tabela.last;
if not tabela.empty then dbedit.text := IntToStr(Val( Tabela.FildByName( ´codigo´ ).AsString ) + 1);
ok...
Responder
Clique aqui para fazer login e interagir na Comunidade :)