MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Importar dados da internet com zeros à esquerda

    Compartilhe

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria em Qui 09 Jun 2016, 21:31

    Boa tarde!

    Procurei neste e em outros fóruns, mas não encontrei nenhum post com esse tipo de "problema".

    Bd em Access 2010.

    Estou importando dados da internet para um formulário com um campo chamado "Cod". Esse campo não tem um tamanho fixo e é alfanumérico.
    Acontece que quando é feita a importação de um número que tem zeros à esquerda, esses zeros não estão sendo importados.
    Exemplo: Cod 00123456, é capturado apenas 123456.
    Se o campo tivesse o tamanho fixo, seria simples de resolver, mas como já disse, o tamanho é variável.
    Assim busco um solução.

    Desde já agradeço!

    Segue código:

    strCod = objDoc.getElementsByTagName("td")(90).innerText

    objIE.Quit

    Set objIE = Nothing
    Set objDoc = Nothing

    'Lança no Formulario
    Form_Form_Principal.txtCod = strCod


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  FabioPaes em Qui 09 Jun 2016, 21:44

    Esse seu Campo na tabela está como texto? Se nao, coloque-o como texto que é pra aceitar o zero antes...

    Experimente lançar direto na tabela 0123456, saia do campo, se ele permanecer, sabemos q o problema é no codigo...


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

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3350
    Registrado : 04/04/2010

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Avelino Sampaio em Qui 09 Jun 2016, 21:50

    Um outro teste também é usar o msgbox() e assim vc saberá se de fato está te trazendo sem os zeros

    msgbox objDoc.getElementsByTagName("td")(90).innerText
    strCod = objDoc.getElementsByTagName("td")(90).innerText

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria em Qui 09 Jun 2016, 22:09

    Fabio,

    o campo está sim definido como texto. Fiz o teste que você sugeriu digitando os zeros, e ao sair do campo eles permaneceram, inclusive após salvar o registro.

    Avelino,

    também fiz o teste que você sugeriu e no msgbox() o número apareceu sem os zeros.


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  FabioPaes em Qui 09 Jun 2016, 22:39

    Amigo, ficou claro que o problema esta na Captura dos dados...

    Seria interessante se nos informasse mais dados... So com essas informações fica complicado amigo... De preferencia o aplicativo exemplo com instruções de uso...


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

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria em Qui 09 Jun 2016, 23:50

    Amigos,

    O que estou tentando fazer é importar a Inscrição Estadual de uma empresa para o sistema.
    Existe um site da Sefaz/RS onde é possível importar essa informação para o sistema, independente de qual UF você esteja pesquisando. Basta, por exemplo, informar o CNPJ, que o site identifica de que UF é a empresa e mostra a inscrição estadual e sua situação.
    Até então, como a empresa é de MG eu havia feito a consulta no Sintegra de MG... e lá mostra (corretamente) que os primeiros dígitos da Inscrição começam com os zeros.
    Porém, fiz a consulta dessa inscrição nesse site da Sefaz/RS (que é de onde estava importando o número da inscrição) e neste site em especial, ele mostra (erroneamente) a inscrição sem os zeros à esquerda, motivo pelo qual não estavam sendo importados.
    Nesse ponto peço desculpas a vocês pela minha não observância deste fato, uma vez que para cada estado, a inscrição possui uma quantidade definida de dígitos para sua validação. Simplesmente confiei que a informação da Sefaz/RS também estaria correta.

    Porém, para eu fazer o redirecionamento da busca é bem mais complicado, pois, no cadastro de clientes, além do CNPJ, teria que informar a UF e com isso criar um código que reconhecesse essas duas variáveis redirecionando para o site "oficial" do Sintegra da UF selecionada. Mas não tenho ideia de como montar isso...

    Mais uma vez, obrigado pela atenção!


    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  FabioPaes em Sex 10 Jun 2016, 01:24

    Deixa ver se entendi... Vc quer que dependendo do Estado da Empresa, a consulta seja redirecionada para o Site daquele Estado???


    Se For amigo, Basta colocar um Selct Case para selecionar o Site correto para a Consulta...

    Antes de selecionar o site coloque:

    Select Case UF 'Partindo da Ideia que nesse Campo UF armazenara a UF do Cliente...
     Case "AC", "RS", "RO"
        SiteCOnsulta = "[Você precisa estar registrado e conectado para ver este link.]
     Case "SP","TO","RJ"
        SiteCOnsulta = "[Você precisa estar registrado e conectado para ver este link.]
       Case Else
        SiteCOnsulta = "[Você precisa estar registrado e conectado para ver este link.]
    End Select
    continua seu codigo apos definição do site correto....




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

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria em Sex 10 Jun 2016, 02:49

    Fabio, obrigado pela dica.

    Vou fazer os ajustes e testar...

    Assim que tiver alguma resposta, farei contato.

    Obrigado!

    Chamon Consultoria
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 31/08/2012

    Re: [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria em Seg 27 Jun 2016, 04:38

    Boa noite!

    Estou encerrando este post, pois existe uma complexidade muito grande para se ter acesso e capturar essas informações em cada Estado.
    Sem dúvida seria um grande feito para adequação dos ERPs, pois proporcionaria praticidade e segurança no cadastro dos clientes, por exemplo.

    No mais agradeço pela atenção de todos.

    Abraço!


      Data/hora atual: Sab 10 Dez 2016, 12:44