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;