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


3 participantes

    [Resolvido]Importar dados da internet com zeros à esquerda

    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Importar dados da internet com zeros à esquerda Empty [Resolvido]Importar dados da internet com zeros à esquerda

    Mensagem  Chamon Consultoria 9/6/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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 9/6/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
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio 9/6/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


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 9/6/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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 9/6/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!
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 9/6/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
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  FabioPaes 10/6/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 = "www......"
     Case "SP","TO","RJ"
        SiteCOnsulta = "www..aaaa...."
       Case Else
        SiteCOnsulta = "www..accc...."
    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!
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 10/6/2016, 02:49

    Fabio, obrigado pela dica.

    Vou fazer os ajustes e testar...

    Assim que tiver alguma resposta, farei contato.

    Obrigado!
    avatar
    Chamon Consultoria
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Chamon Consultoria 27/6/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!


    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:42