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

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.

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

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.

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



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.

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

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?

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.

A base se encontra acima no inicio.

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.

Baixa novamente, mais aqui funcionou perfeitamente sem erros.

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

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?