[Resolvido] Edit receber valores dintintos da query

[wellyngtonw 0]

Bom dia PEssoal

 

sou iniciante e gostaria de uma ajudinha.

 

Tenho o seguinte código:

 

procedure TfrmCadNF.Edit4KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
    inherited;

    if not (Edit4.Text = '') then
    begin
        if frmPesqDest = nil then
            Application.CreateForm(TfrmPesqDest, frmPesqDest);

        frmPesqDest.IBQuery1.Close;
        frmPesqDest.IBQuery1.Active := false;
        frmPesqDest.IBQuery1.SQL.Clear;
        frmPesqDest.IBQuery1.SQL.Add('Select * from DESTINATARIO where COD_DESTINATARIO like ' + QuotedStr('%' + Edit4.Text) + ' and SITUACAO_CADASTRAL = ' + QuotedStr('ativo'));
        frmPesqDest.IBQuery1.Active := true;
        frmPesqDest.IBQuery1.Open;
        frmPesqDest.IBQuery1.FetchAll;

        if not (frmPesqDest.IBQuery1.RecordCount = 0) then
        begin
            dm.qrNFDST_IE.Value := frmPesqDest.IBQuery1INSC_EST.Value;
            dm.qrNFUF_DESTINO.Value := frmPesqDest.IBQuery1ESTADO.Value;
            dm.qrNFDST_CPF_CNPJ.Value := frmPesqDest.IBQuery1CNPJ.Value; //aqui

        end;
        FreeAndNil(frmPesqDest);
    end
    else
    begin
        dm.qrNFDST_IE.Value := '';
        dm.qrNFUF_DESTINO.Value := '';
        dm.qrNFDST_CPF_CNPJ.Value := '';

    end;
end;

 

Onde eu tenho um Edit4.text que é digitado o Código do Destinatario, e ele preenche os campos CNPJ , IE, e UF.

Pergunta:

Na tabela do banco de dados tenho o Campo CPF tambem, e gostaria de ele buscasse tanto o CNPJ quanto o CPF.

hoje ele apenas busca o CNPJ

"dm.qrNFDST_CPF_CNPJ.Value := frmPesqDest.IBQuery1CNPJ.Value; //aqui"

se troco para

"dm.qrNFDST_CPF_CNPJ.Value := frmPesqDest.IBQuery1CPF.Value; //aqui"

ele funciona certinho, mas apenas busca o CPF, quero os dois...

 

fiz uns testes com if pesquisando pelo tamanho do campos, mas sem exito,

 

Alguem tem uma dica,

 

isso deve ser moleza, mas como disse , sou iniciante,

 

t+ pessoal

[wellyngtonw 0]

aff!

 

acho que consegui. nem deu tempo,

 

dm.qrNFDST_CPF_CNPJ.Value := frmPesqDest.IBQuery1CNPJ.Value + frmPesqDest.IBQuery1CPF.Value;

 

 

funcionou, até o momento

 

heeheh

 

t+