Bom dia a todos

Tenho duas consultas 1 delas e feita em uma base de dados cujo cnpj 
não tem zeros na frente, sendo que na outra base tem os zeros pois 
foi importado assim, nesta consulta eu comparo o cnpj da outra base 
com a da base atual, não esta me retornando nada pois o cnpj vem 
diferente em alguns casos:

CNPJ de uma base : 01075326000140
Sql gerado pela consulta na base 2 :

SELECT lb.data_hora, st.descricao ds_status, ag.nome Agente, 
it.cod_integracao cpf_cliente, lb.chamado telefone_cliente, 
gr.gravacao
FROM gravacoes gr INNER JOIN integracao it
ON (it.cod_evba = gr.cod_evba) INNER JOIN log_eventos_basicos lb
ON (lb.codigo = it.cod_evba) INNER JOIN agentes ag
ON (ag.codigo = gr.cod_agente)INNER JOIN log_eventos_pa lp
ON (lp.cod_evba = it.cod_evba) INNER JOIN status st
ON (lp.cod_status = st.codigo)
WHERE (it.cod_integracao LIKE '%01075326000140%')
AND (st.codigo NOT IN (1,2))
AND (st.codigo IN (105))

Precisava retira espaços e zeros que pudesse existir na consulta para 
que trouxesse o registro corretamente
Agradeço a ajuda!!

procedure TfrmVisualizaAgenda.Image1Click(Sender: TObject);
begin
   panGravacao.Visible := True;
   if DM.ADOQueryCDR.Active then
      DM.ADOQueryCDR.Close;
      //
   DM.ADOQueryCDR.SQL.Clear;
   DM.ADOQueryCDR.SQL.Add('select lb.data_hora, st.descricao 
ds_status, ag.nome Agente, it.cod_integracao cpf_cliente, lb.chamado 
telefone_cliente, gr.gravacao');
   DM.ADOQueryCDR.SQL.Add('from gravacoes gr inner join integracao 
it');
   DM.ADOQueryCDR.SQL.Add('on (it.cod_evba = gr.cod_evba) inner join 
log_eventos_basicos lb');
   DM.ADOQueryCDR.SQL.Add('on (lb.codigo = it.cod_evba) inner join 
agentes ag');
   DM.ADOQueryCDR.SQL.Add('on (ag.codigo = gr.cod_agente)inner join 
log_eventos_pa lp');
   DM.ADOQueryCDR.SQL.Add('on (lp.cod_evba = it.cod_evba) inner join 
status st');
   DM.ADOQueryCDR.SQL.Add('on (lp.cod_status = st.codigo)');
   DM.ADOQueryCDR.SQL.Add('where (it.cod_integracao 
like ''%'+DBEdit3.Text+''')');
   DM.ADOQueryCDR.SQL.Add('and (st.codigo not in (1,2))');
   DM.ADOQueryCDR.SQL.Add('and (st.codigo in (105))');
   //Memo1.Lines.AddStrings(DM.ADOQueryCDR.SQL);
   DM.ADOQueryCDR.SQL.Add('order by data_hora desc');
   try
     DM.ADOQueryCDR.Open;
   except
     on e : Exception do
      ShowMessage(PChar('Erro ao consultar 
gravações.'+#10+#13+e.message));
   end;
end;



Responder a