INCREMENTAR em reg. 1 caracter vindo d outro campo

Delphi

14/11/2003

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

Curtidas 0

Respostas

Rafael_gamba

Rafael_gamba

14/11/2003

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!!


GOSTEI 0
POSTAR