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]Preencher dados na internet nos site das Certidões Negativas

    Compartilhe

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Qui 28 Mar 2013, 02:40

    Bom noite colegas,

    Tenho um BD onde controlo as certidões negativas dos clientes, ele funciona perfeitamente.

    Contudo, criei uma rotina que pega o Link do site com a respectiva certidão e ele funcionar normalmente para algumas certidões enquanto que pra outra não, vejamos:

    Certidão Negativa de Débitos da União - funciona
    Certidão Negativa de Débitos Estaduais - funciona

    Certidão Negativa de Débitos do FGTS - não funciona
    Certidão Negativa de Débitos da Previdência - não funciona

    A questão é a seguinte, nos links das duas certidões não funcionam: Não estou conseguindo passar os dados via VB, para a internet e ativar o campo inscrição, que um combo "CNPJ ou CEI", e depois passar o número do CNPJ da empresa para o site.

    Da mesma forma quanto a certidão da Previdência também não estou conseguindo passar o número do CNPJ para o link, para depois gerar a consulta da certidão.

    Será que alguns do colega pode ajudar??? desde já agradeço.

    Segue BD em anexo.
    Anexos
    Certidões_Negativas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (71 Kb) Baixado 174 vez(es)

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Qui 28 Mar 2013, 13:28

    Bom dia, colega.

    Até ai entender mais no site da caixa não estou conseguindo passar os dados

    o campo "ins" é um combo onde escolhe o valor do campo (CNPJ ou CEI), para depois ativar o campo que receber o valor.

    Assim não estou conseguindo passar os dois valores, tentei dessa forma e não conseguir:

    ie.Document.ALL("ins").Value = 1

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  Cláudio Machado em Qui 28 Mar 2013, 13:50

    Bem na verdade você vai ter que criar uns "Ifs", tipo:

    If Me.Txt_Tipo_Certidão = "Certidão Negativa de Débitos do FGTS" Then
    executa parte do código.
    elseIf Me.Txt_Tipo_Certidão = "Certidão Negativa de Débitos da Previdência" Then
    executa outra parte do código.
    else ...

    E assim por diante.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  Cláudio Machado em Qui 28 Mar 2013, 13:53

    Fiz deste jeito aqui e funcionou, só falta ativar a caixa do CNPJ, as está funcionando.

    Código:



    If Me.Txt_Tipo_Certidão = "Certidão Negativa de Débitos do FGTS" Then
       
    IE.visible = True
            'Consultar CNPJ site da Caixa Econ"omica Federal
        apiShowWindow IE.hWnd, SW_MAXIMIZE
       
          IE.Navigate (Me.Link) 'link constante da base de dados da tabela certidão
       
      'Aguardo até que a página esteja totalmente carregada
            While IE.Busy
                DoEvents
            Wend  'Preencho o form
           
       
          IE.Document.ALL("tipoinscricao").Value = 1
       
          IE.Document.ALL("ImportWorkEmpregadorCodigoInscricaoAlfanum").Enabled
       
          IE.Document.ALL("ImportWorkEmpregadorCodigoInscricaoAlfanum").Value = Format([CNPJ], "00000000/0000-00") 'FGTS
         
    '      IE.Document.ALL("txtCodigo").Value = Me.CNPJ.Value 'Estadual do Ceará
         
    '      IE.Document.ALL("CGCCEI").Value = Me.CNPJ.Value 'previdência(INSS)
         
    '      IE.Document.ALL("frmPortal.ImportEstadoSigla.selectedIndex").Value = 1
          'IE.Document.ALL("tipoinscricao").Value = "CNPJ"
        ' IE.Document.all("frmPortalHolder_ImportWorkEmpregadorTipoInscricao").Value = 1 'FGTS
        ' IE.Document.frmPortal.ImportURL.InnerText = "Me.CNPJ" 'FGTS
       
        ' IE.Document.all("ImportWorkEmpregadorTipoInscricao").Value = "1"
           
      Set IE = Nothing

    ElseIf Me.Txt_Tipo_Certidão = "Certidão Negativa de Débitos da União" Then


    IE.visible = True
            'Consultar CNPJ site da receita federal
        apiShowWindow IE.hWnd, SW_MAXIMIZE
       
          IE.Navigate (Me.Link) 'link constante da base de dados da tabela certidão
       
      'Aguardo até que a página esteja totalmente carregada
            While IE.Busy
                DoEvents
            Wend  'Preencho o form
           
       
          IE.Document.ALL("NI").Value = Format([CNPJ], "00000000/0000\-00") 'Receita Federal
         
          IE.Document.ALL("txtCodigo").Value = Me.CNPJ.Value 'Estadual do Ceará
         
          IE.Document.ALL("CGCCEI").Value = Me.CNPJ.Value 'previdência(INSS)
         
          IE.Document.ALL("frmPortal.ImportEstadoSigla.selectedIndex").Value = 1
          'IE.Document.ALL("tipoinscricao").Value = "CNPJ"
        ' IE.Document.all("frmPortalHolder_ImportWorkEmpregadorTipoInscricao").Value = 1 'FGTS
        ' IE.Document.frmPortal.ImportURL.InnerText = "Me.CNPJ" 'FGTS
       
        ' IE.Document.all("ImportWorkEmpregadorTipoInscricao").Value = "1"
           
      Set IE = Nothing

    End If



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Qui 28 Mar 2013, 16:16

    Claudio, fez da seguinte forma e funcionou:

    Código:
     /

    'On Error Resume Next

        Dim IE As Object
        Set IE = CreateObject("internetexplorer.application")
     
    'If Me.Txt_Tipo_Certidão = "Certidão Negativa de Débitos do FGTS" Then 'FGTS

      IE.visible = True
            'Consultar CNPJ site da Caixa Econ"omica Federal
      apiShowWindow IE.hWnd, SW_MAXIMIZE
          IE.Navigate (Me.Link) 'link constante da base de dados da tabela certidão
        'Aguardo até que a página esteja totalmente carregada
            While IE.Busy
                DoEvents
            Wend  'Preencho o form
         
            IE.Document.ALL("tipoinscricao").Value = 1
            IE.Document.ALL("ImportWorkEmpregadorCodigoInscricaoAlfanum").disabled = True
            IE.Document.ALL("ImportWorkEmpregadorCodigoInscricaoAlfanum").Value = Format([CNPJ], "00000000/0000-00") 'FGTS
         
            IE.Document.ALL("NI").Value = Format([CNPJ], "00000000/0000\-00") 'UNIÃO
                 
           
          IE.Document.ALL("txtCodigo").Value = Me.CNPJ.Value 'Estadual do Ceará
               
         
          IE.Document.ALL("CGCCEI").Value = Me.CNPJ.Value 'INSS


      Set IE = Nothing


    Agora o problema persiste na Certidão da Previdência o código abaixo na funciona.

    IE.Document.ALL("CGCCEI").Value = Me.CNPJ.Value 'INSS

    Pode verificar para mim qual é o campo para informar o número do CNPJ no site da previdência, desde já agradeço.

    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1327
    Registrado : 17/03/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  Cláudio Machado em Qui 28 Mar 2013, 18:07

    Na verdade o da previdência é assim:

    Mas não copia os dados.

    IE.Document.ALL("CNDForm.OPC1").Value = 1

    IE.Document.ALL("CNDForm.CGCCEI").Value = Format([CNPJ], "00000000000000") 'Previdência



    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  [Você precisa estar registrado e conectado para ver este link.].
    Não esqueça de clicar no Joinha [Você precisa estar registrado e conectado para ver esta imagem.] para agradecer a dica que solucionou seu problema.

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Qui 28 Mar 2013, 19:18

    Claudio,

    Sabe informar o motivo porque não cópia os dados para a paginas???

    Já tinha tentando de tudo...

    A página que alguma proteção?

    lucianomaciel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/04/2014

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  lucianomaciel em Dom 11 Maio 2014, 01:30

    GCONTABIL,
    estou querendo criar um bd com a mesma finalidade, seria possível você disponibilizar a parte do seu BD onde, faz o tratamento destas informações?
    desde já agradeço.

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Dom 11 Maio 2014, 23:43

    A base se encontra acima no inicio.

    lucianomaciel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/04/2014

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  lucianomaciel em Sex 23 Maio 2014, 02:09

    Gcontabil, baixei o bd disponibilizado mas aparece erro quando abro mesmo "erro de compilação era esperado:sub ou function" nesta parte
    Option Compare Database

    '*****************************************DECLARATIONS SECTION******************************************************
    Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
    (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

    Global Const SW_MAXIMIZE = 3
    Global Const SW_SHOWNORMAL = 1
    Global Const SW_SHOWMINIMIZED = 2


    você poderia disponibilizar o seu BD que está funcionando, eu preciso atualizar as certidões do fgts manualmente e são uns 100 por mês , isso me ajudaria muito.

    senão for possível mesmo assim agradeço a atenção.

    GCONTABIL
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 138
    Registrado : 17/12/2011

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  GCONTABIL em Sab 24 Maio 2014, 18:05

    Baixa novamente, mais aqui funcionou perfeitamente sem erros.

    Não sei porque deu este erro ai com vc.

    lucianomaciel
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 19
    Registrado : 23/04/2014

    Re: [Resolvido]Preencher dados na internet nos site das Certidões Negativas

    Mensagem  lucianomaciel em Qua 28 Maio 2014, 01:53

    primeiramente quero agradecer sua ajuda e atendimento as minhas dúvidas.

    retirei "Declare PtrSafe " ai funcionou..
    testando no seu banco de dados, na página da cef, ele não preenche os campos, será que é necessário alteração nos códigos ? para você está funcionando?

      Data/hora atual: Sab 03 Dez 2016, 04:32