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]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    avatar
    marceloeidt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/07/2012

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS,http://www1.sefaz.ms.gov.br/tributos

    Mensagem  marceloeidt 9/10/2012, 21:21

    Boa tarde,


    Ja pesquisei e não consegui nada. Preciso de um exemplo para inserir dados de um formulario direto no site da http://www1.sefaz.ms.gov.br/tributos, para gerar a Guia de Recolhimento do ST, onde os dados do meu formulario que são referente a a emissão dessa guia, tipo Insc. Estadual, data, valor...
    Agradeço desde já.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Re: [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    Mensagem  JPaulo 14/11/2012, 11:44

    Veja com atenção este tópico até ao final;

    http://maximoaccess.forumeiros.com/t7608-resolvidoacessar-site-que-exige-login-e-senha



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Instruções SQL como utilizar...
    avatar
    marceloeidt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/07/2012

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Preencher campos

    Mensagem  marceloeidt 14/11/2012, 20:30

    Boa tarde,
    Obrigado pelo retorno, consegui adaptar esse codigo graças ao topico que me mandou
    na primeira pagina ele prencheu o tributo e clicou no botão consultar
    mas agora fiquei travado nessa opção, ele não quer prencher os outros campos.


    Primeiro ele acessa esse endereço http://www1.sefaz.ms.gov.br/tributos/ e seleciona o tributo
    dai vai para outra pagina http://www1.sefaz.ms.gov.br/tributos/consultar.asp com o tributo selecionado
    para somente preenchar Valor, data, IE etc...
    Private Sub Comando221_Click()
    'By JPaulo@2010 Janeiro
    On Error Resume Next

    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")

    IE.Visible = True

    apiShowWindow IE.hWnd, SW_MAXIMIZE
    IE.Navigate "http://www1.sefaz.ms.gov.br/tributos/"

    While IE.Busy
    DoEvents
    Wend

    IE.Document.all("tributo").value = "333"
    While IE.Busy
    DoEvents
    Wend
    IE.Document.all("Submit").Click
    SendKeys "{tab}", True
    SendKeys "{enter}", True

    While IE.Busy

    DoEvents
    Wend

    IE.Document.all("ie").value = Me.ieempresa.value
    Set IE = Nothing


    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Re: [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    Mensagem  JPaulo 15/11/2012, 09:33

    Veja o simples;


    Private Sub SeuBotao_Click()
    'By JPaulo@2010 Janeiro
    On Error Resume Next

    Dim IE As Object
    Set IE = CreateObject("internetexplorer.application")

    IE.Visible = True

    apiShowWindow IE.hWnd, SW_MAXIMIZE
    IE.Navigate "http://www1.sefaz.ms.gov.br/tributos/"

    While IE.Busy
    DoEvents
    Wend

    IE.Document.all("tributo").Value = "333"
    IE.Document.Forms("Credito").Submit

    While IE.Busy
    DoEvents
    Wend

    IE.Document.all("IE").Value = 1234
    IE.Document.all("DTVENCIMENTO").Value = 15112012
    IE.Document.all("REFERENCIA").Value = 112012
    IE.Document.all("DT").Value = 15112012
    IE.Document.all("VALOR").Value = 500
    IE.Document.all("HIST06").Value = "Credito para o Marcelo"
    'IE.Document.Forms("Credito").Submit

    Set IE = Nothing
    End Sub




    Anexos
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS AttachmentMarcelo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 56 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Instruções SQL como utilizar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Re: [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    Mensagem  JPaulo 16/11/2012, 13:00

    E ae, Resolveu ?



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Instruções SQL como utilizar...
    avatar
    marceloeidt
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 04/07/2012

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Resolvido....

    Mensagem  marceloeidt 16/11/2012, 13:51

    Bom dia, muito obrigado pela resolução do meu problema. Resolveu e muito a minha vida....
    Um abraço..
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Re: [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    Mensagem  JPaulo 16/11/2012, 14:02

    Só faltou o Resolvido.

    Desta vez eu coloco.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS Empty Re: [Resolvido]Inserir dados do Formulario na pagina do Sefaz para emitir guia de DAEMS

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 02:05