Fórum INCREMENTAR em reg. 1 caracter vindo d outro campo #195009

14/11/2003

0

Olá pessoal preciso incrementar um caracter caracter vindo de outro campo.


Exemplo:

while not (Titens_nota_cpm.Eof) do
begin
Tinf_tudo.Append;
Tinf_tudoNOTA.Value := Titens_nota_alpraticNOTA.Value + *******;


veja o exemplo

Titens_nota_cpm para
NOTA | FILIAL|
00230 | 2
00231 | 2
00232 | 1


Tinf_tudo

Gostaria de fazer assim o campo NOTA(nota+registro do campo filial)
NOTA
002302
002312
002321

Obrigado!!!!


Infohelp

Infohelp

Responder

Posts

14/11/2003

Rafael_gamba

Nâo use o comando append (ele cria um novo registro). Para editar um registro já existente use o comando edit.

exemplo :

Titens_nota_cpm.[b:f52d0f09f6]first[/b:f52d0f09f6];
[b:f52d0f09f6]while not [/b:f52d0f09f6](Titens_nota_cpm.Eof) [b:f52d0f09f6]do [/b:f52d0f09f6]
[b:f52d0f09f6]begin [/b:f52d0f09f6]
Tinf_tudo.[b:f52d0f09f6]edit[/b:f52d0f09f6];
Tinf_tudoNOTA.[b:f52d0f09f6]Value[/b:f52d0f09f6] :=Tinf_tudoNOTA.[b:f52d0f09f6]Value+[/b:f52d0f09f6]Titens_nota_cpmCAMPO.[b:f52d0f09f6]value[/b:f52d0f09f6];
Tinf_tudo.[b:f52d0f09f6]Post[/b:f52d0f09f6];
Titens_nota_cpm.[b:f52d0f09f6]next[/b:f52d0f09f6];
[b:f52d0f09f6]end;[/b:f52d0f09f6]

Pronto!!!!!
Abraço!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar