[Resolvido]pesquisar com base nos 8 primeiro digito do cnpj

bom dia

estou com uma quebrando a cabeca pra fazer uma pesquisa

tenho uma tabela Duplicatas, e nela tenho o campo cnpj no formato texto preciso de uma pesquisa que filtra todos os dados da empresa tanto da matriz e filiais, pois os 8 primeiro digito da matriz e filiais do cnpj sao os mesmo

Ta tentou na Consulta pegar apenas os Oito primeiros digitos (ou 10 caso tenha os .)?

Exemplo:

Em um Campo Novo da consulta coloque:

ParteCNPJ:Left([CampoCNPJ];10 )




Assi vc tera um Campo chamado ParteCNPJ apenas com os 8 digitos... Basta entao colocar as pesquisa em cima desse Campo...


05.618.853/0001-92 Matriz
05.618.853/0002-92 Filial1

05.618.853/0003-92 Filial2


No Campo ParteCNPJ Terá os Tres registros porem com mesmo numero (05.618.853) assim se pesquisar e digitar esse Valor tera o resultado esperado!

Fabio Paes

essa e minha consulta

strSQL = "SELECT Duplicatas.cnpj, Duplicatas.CodForn, Duplicatas.Histórico, Duplicatas.Duplicata, Duplicatas.DtMovimento, Duplicatas.DtCadastro, Duplicatas.Vlr, Duplicatas.DC, IIf([DC]=""C"",[vlr]) AS Credito, IIf([DC]=""D"",[vlr]) AS Debito, Duplicatas.pago " & vbCrLf & _
"FROM Duplicatas " & vbCrLf & _
"WHERE ((Duplicatas.cnpj)='" & CodCnpj & "')" & vbCrLf & _
"ORDER BY Duplicatas.DtMovimento;"

aqui onde busco o 10 primerio digitos

CodCnpj = TiraSinal(Mid(me.cnpj, 1, 11))

so que nao ta dando certo

Veja so amigo, esse Campo Duplicatas.cnpj, no momento da seleção ja esta sem os pontos e somente com os 8 digitos?




Se nao tiver, nao dará certo...


Terá que tratar ele la no SELECT também...






"SELECT Replace(Left([CNPJ],10),".","") AS parteCNPJ, Duplicatas.CodForn, Duplicatas.Histórico ....
Tera que Realizar mesmo Tratamento na Condição WHERE








Outra opção que também da certo, é utilizar o Like digitosCNPJ & "*"


Assim ele compara apenas com os valores digitados. Trazendo tudo que começar com os valores digitados...

ta assim o campo duplicatas.cnpj

05618853000192
05618853000292
05618853000392

e tambem me mostra como se faz com o segundo exemplo que me mandou com like

Vamos fazer assim, posta aqui esse Exemplo, somente as partes envolvidas...

olá Nadir Como anda sua Dúvida? Os utilizadores agradecerão se nos informar como anda sua dúvida!

FabioPaes, consegui resolver, tava viajando