Apagando Valor

[Marcos-rj]

Boa tarde amigos.

Estou fazendo uma atualização no sistema aqui da empresa. e como digitam muitos endereços coloquei uma busca automática atraves do cep.

So que acontece o seguinte.

digito o cep, me retorna os dados, endereço , bairro, cidade, uf.

ate ai beleza, mas quando clico no campo endereço para digitar o numero e complemento está apagando o endereço retornado.

Se clico em qualquer um dos campos retornados pela busca o valor é apagado.

eu coloquei assim para :

DBEND.Text:= DmDados.QrCEPLOGRADOURO.Value;

DBBAIRRO.Text:= DmDados.QrCEPBairro.Value;

DBCIDADE.Text:= DmDados.QrCEPCidade.Value;

Como posso resolver este problema?

[Micheus]

...

So que acontece o seguinte.

digito o cep, me retorna os dados, endereço , bairro, cidade, uf.

ate ai beleza, mas quando clico no campo endereço para digitar o numero e complemento está apagando o endereço retornado.

Se clico em qualquer um dos campos retornados pela busca o valor é apagado.

eu coloquei assim para :

DBEND.Text:= DmDados.QrCEPLOGRADOURO.Value;

DBBAIRRO.Text:= DmDados.QrCEPBairro.Value;

DBCIDADE.Text:= DmDados.QrCEPCidade.Value;

Como posso resolver este problema?

Eu lhe sugeriria, como maneira correta de fazer esse tipo de atribuição, utilizar o campo do dataset ligado ao seu TDBEdit e não o componente. Exemplificando... Supondo que o dataset ligado aos componentes TDBEdit seja TbCliente, você faria deste modo:

DmDados.TbClienteEND.Value := DmDados.QrCEPLOGRADOURO.Value;
DmDados.TbClienteBAIRRO.Value := DmDados.QrCEPBairro.Value;
DmDados.TbClienteCIDADE.Value := DmDados.QrCEPCidade.Value;

Abraços

[Marcos-rj]

depois vou testar p/ ver. uma maneira que encontrei foi bloqueando os campos.