MaximoAccess

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

Obrigado

Administração do MaximoAccess

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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 451
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    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 em 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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 451
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    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 em 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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 451
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    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 em 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 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    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 em 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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 451
    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 em 24/2/2017, 16:26

    FabioPaes, consegui resolver, tava viajando

      Data/hora atual: 1/6/2020, 21:31