[Resolvido]Retirar Pontos CNPJ

Bom dia Pessoal,

Eu procurei e não achei aqui no forum,

Minha duvida é a seguinte:

Tenho um banco de dados de um software que guarda no banco o CNPJ da seguinte forma: 00.000.000/0000-00

Neste software e neste banco eu posso mecher, pois se trata de um software proprietário,

Então fiz uma software de NFe que "puxa" os dados para fazer a NFe deste banco mencionado acima,

Pois o software de nfe só aceita CNPJ da seguinte forma: 00000000000000 ou seja sem pontos, barras e digitos,

Como fazer que na consulta inclusão ele retire os pontos, digitos e barras?

Grato!

Olá Guilherme,

Já tentou a função Format. Tipo:

Format([CampoCnpj];"00000000000000")


Deve resolver.


Nivaldo.

Este FormatCampo eu colocaria no meu bd de origem ou destino?

Oi Guilherme,

Você pode usar a função diretamente na sua consulta inclusão.


Essa é apenas uma alternativa. Tem muitas outras para você verificar.


Nivaldo.

Guilherme,

Penso que se você deixar o formato na sua tabela, quando você incluir novos registros (através da consulta) os dados já estarão no formato desejado.

Faz um teste aí.


Nivaldo.

Não é aconselhável armazenar dados com máscara na tabela. O mais prático é incluir a máscara apenas na hora da visualização em formulários, relatório e consultas. A máscara na tabela pode causar transtornos às vezes.

Olá Criquio,

Mesmo em se tratando de Formato ( e não Máscara de Entrada) ???


Nivaldo.

Olá Nivaldo! Pelo jeito nosso amigo Guilherme tem os dados com máscara de entrada mesmo na tabela. No caso do formato não, há momentos em que devem ter seus próprios formatos mesmo.

E então Guilherme, conseguiu resolver? Se sim, favor clicar no botão Resolvido.

pode extrair apenas o números com essa rotina retirada aqui do fórum o que acha? criado por Alexandre Neves


Utilize esta função
Function ExtraiNumero(strValor As String) As Double

Dim I As Integer, strProv As String
strProv = ""
For I = 1 To Len(strValor)
If IsNumeric(Mid(strValor, I, 1)) Then strProv = strProv & Mid(strValor, I, 1)
Next
ExtraiNumero = CDbl(strProv)
End Function