MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES 25/11/2016, 11:31

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 25/11/2016, 14:10

    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!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES 25/11/2016, 15:06

    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
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 25/11/2016, 15:43

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES 25/11/2016, 16:24

    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


    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 25/11/2016, 16:34

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes 24/2/2017, 15:33

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 502
    Registrado : 30/08/2010

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

    Mensagem  NADIRONUNES 24/2/2017, 16:26

    FabioPaes, consegui resolver, tava viajando

      Data/hora atual: 21/4/2021, 19:34