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

2 participantes

    [Resolvido]Adapata código para buscar ie na sefaz go

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1081
    Registrado : 01/07/2011

    [Resolvido]Adapata código para buscar ie na sefaz go Empty [Resolvido]Adapata código para buscar ie na sefaz go

    Mensagem  Connekta Informatica 12/11/2021, 17:03

    Boa tarde

    Tentei adaptar o codigo para buscar os dados da inscrição estadual na sefaz go mais não consegui. No site tem a opção de Busca CCE, CNPJ e CNPJ, essa opção como eu faço que pra que o CNPJ fique marcado?

    Código:


    Private Sub botao_Carregar_Click()

        Dim HTMLDoc As New HTMLDocument
        Dim objTable As Object
        Dim objIE As InternetExplorer
        Dim oTexto1 As String, oTexto2 As String, ipos As Integer

        Set objIE = CreateObject("InternetExplorer.Application")
        With objIE
            .StatusBar = False
            .Toolbar = False
            .Width = 800
            .Height = 600
            .Resizable = False
            .AddressBar = False
            .Visible = True
            .Top = 60
            .Left = 560
            .Navigate "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/default.asp?"
            Do While .Busy Or _
               .ReadyState <> 4
                DoEvents
            Loop
            .Document.all.Item("tCNPJ").innerText = Me.txtCNPJ1
            .Document.all("btCGC").Click
            Do While .Busy Or _
               .ReadyState <> 4
                DoEvents
            Loop
            'Aguarda até a página ser carregada totalmente----
            Do While objIE.LocationURL <> "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp"
            Loop
            If objIE.LocationURL = "http://appasp.sefaz.go.gov.br/Sintegra/Consulta/consultar.asp" Then
                Do While .Busy Or .ReadyState <> READYSTATE_COMPLETE:
                Loop
            End If
            HTMLDoc.body.innerHTML = objIE.Document.body.innerHTML
            With HTMLDoc.body
                Set objTable = .getElementsByTagName("Table")
                oTexto1 = objTable(0).innerText
            End With
        End With
        objIE.Quit
        Set objIE = Nothing

        'Preparar o texto
        ipos = InStr(oTexto1, "VOLTAR") - 1
        oTexto2 = Trim(Mid(oTexto1, 1, ipos))
        oTexto2 = Replace(oTexto2, " : ", ":")
        oTexto2 = Replace(oTexto2, ": ", ":")

        'PREENCHER TODOS OS CAMPOS
        'CNPJ:
        Me.txtCNPJ2 = ObterCampo(oTexto2, "CNPJ:", "Inscrição Estadual:")
        'Inscrição Estadual:
        Me.txtInscricaoEstadual = ObterCampo(oTexto2, "Inscrição Estadual:", "Razão Social:")
        'Razão Social:
        Me.txtNomedaEmpresa = ObterCampo(oTexto2, "Razão Social:", "Logradouro:")
        'Logradouro:
        Me.txtEndereço = ObterCampo(oTexto2, "Logradouro:", "Número:")
        'Número:
        Me.txtNúmero = ObterCampo(oTexto2, "Número:", "Complemento:")
        'Complemento:
        Me.txtComplemento = ObterCampo(oTexto2, "Complemento:", "Bairro:")
        'Bairro:
        Me.txtBairro = ObterCampo(oTexto2, "Bairro:", "Município:")
        'Município:
        Me.txtMunicipio = ObterCampo(oTexto2, "Município:", "UF:")
        'UF:
        Me.txtUF = ObterCampo(oTexto2, "UF:", "CEP:")
        'CEP:
        Me.txtCEP = ObterCampo(oTexto2, "CEP:", "Telefone:")
        'Telefone:
        Me.txtTelefone = ObterCampo(oTexto2, "Telefone:", "INFORMAÇÕES COMPLEMENTARES")
        'Atividade Econômica:
        Me.txtAtividadedaEmpresa = ObterCampo(oTexto2, "Atividade Econômica:", "Data de Inicio de Atividade:")

    End Sub



    Última edição por Connekta Informatica em 20/12/2021, 16:55, editado 1 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    avatar
    Nill2013Br
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 34
    Registrado : 14/05/2013

    [Resolvido]Adapata código para buscar ie na sefaz go Empty Re: [Resolvido]Adapata código para buscar ie na sefaz go

    Mensagem  Nill2013Br 7/12/2021, 16:22


    Tente usando um dos comandos abaixo para selecionar o botão:

    Set ieRadio = IE.Document.all
    ieRadio.Item("rTipoDoc")(1).Checked = True

    ou

    Set ieRadio = IE.Document.all
    ieRadio.Item("rTipoDocCNPJ")(1).Checked = True

      Data/hora atual: 24/9/2022, 21:08