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

    Compartilhe
    avatar
    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 188 vez(es)
    avatar
    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
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1344
    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.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1344
    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.
    avatar
    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.
    avatar
    Cláudio Machado
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1344
    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.
    avatar
    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.
    avatar
    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.
    avatar
    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: Ter 27 Jun 2017, 18:14