Clique abaixo para nos ajudar
Conectar-se

Esqueci minha senha

Estamos no Facebook
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Quem está conectado
17 usuários online :: Nenhum usuário registrado, Nenhum Invisível e 17 Visitantes :: 2 Motores de busca

Nenhum

[ Ver toda a lista ]


O recorde de usuários online foi de 468 em 1/3/2012, 10:43
ListBox

23/5/2017, 10:37 por Rosangela Pires

Ola Amigos.

Para se movimentar na grid com as setas colocamos no Metodo AfterChange da grid …

Comentários: 0

TRY BEGIN E FLOCK()

17/4/2017, 10:32 por AJC

Pessoal estou tendo alguns problemas de gravação em rede, estou usando
try begin, mas vi algo na …

Comentários: 0

Exportar Dados Campo Memo Tabela DBF

10/4/2017, 10:28 por fcampos

Olá bom dia.

Estou tentando exportar os dados de algumas tabelas em formato dbf pelo foxpro.
O …

Comentários: 2

Função EVL()

8/4/2017, 12:18 por Clebervfp

Bom dia a todos.
Vim compartilhar de uma Função do próprio VFP que me benefício muito.
Função …

Comentários: 0

COMO BLOQUEAR REGISTRO OU TABELA NO VISUAL FOXPRO PARA GRAVAÇÃO EM REDE

3/4/2017, 10:29 por AJC

Pessoal estou tendo um problema que acontece sempre busco na minha tabela de clientes o ultimo …

Comentários: 2

Estatísticas
Temos 7080 usuários registrados
O último usuário registrado atende pelo nome de Edi_0306

Os nossos membros postaram um total de 49 mensagens em 26 assuntos

Capturar dados de um formulário HTML

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Resolvido Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 14:28

Boa tarde pessoal, queria saber se tem como capturar os dados de um formulário HTML e inclui-los em Banco de Dados do Visual FoxPro?
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por _batmanvfp_ em 19/4/2011, 14:37

provavelmente tem como fazer com MSXML ou Internet Application ....

capturar os dados de um formulário HTML

na hora Sendo preenchido ?
Depois da Gravação ?

Formulário seria a pagina ou exatamente um Form que tem um Action ?
voce quer colher o que tem no txtbox e AreaText ?

Ou voce quer catar celulas de Escrito ?

Se a pagina for sua, tem como fazer uma interação maior

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 14:49

bom na realidade estamos tentando capturar dados da nota fiscal eletronica no site da receita federal e importar estes dados para bco dados visual foxpro, vimos alguns exemplos em delphi, mas não trabalhamos com delphi
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por _batmanvfp_ em 19/4/2011, 14:57

Nao lembro de como é o Relatorio da NFE em modo exibir codigo fonte

precisar ver se é um reporter de internet , se é uma imagem , ou se é HTML
clicar com o botao inverso e ve como esta em exibir codigo fonte
O que aparece ?

O principio é ver isso se possivel cola umas duas linhas do codigo html
se transforma em <TD> ou nao os campos preenchidos

testa isso , só troca o link
Código:

CREATE CURSOR myWebPage (content m)
url="http://programacaobrasil.5forum.net/"
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", url,.f.)
objHTTP.Send()
Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
MODIFY MEMO myWebPage.content

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 15:25

Abri o código fonte da pagina Eu consigo visualizar os campos que quero capturar entre as "tag" html elas estão em <DIV> fiz o teste que voce me pediu só que depois que saiu o resultado não consegui mais visualizar os Dados.
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 15:28

Código fonte original da pagina.

Código:




<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head><title>
   Portal da Nota Fiscal Eletrônica
</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<!--<link href="../../css/Estilo.css" rel="stylesheet" type="text/css" />-->
<link href="../../css/estilo_visualizacao.css" rel="stylesheet" type="text/css" /><link href="../../css/Estiloimpressao.css" rel="stylesheet" type="text/css" media="print" /><link href="../../css/list.css" rel="stylesheet" type="text/css" /></head>
<body>
    <form name="form1" method="post" action="impressao.aspx" id="form1">
<div>
<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="/wEPDwUJMjU4ODcxMDEwD2QWBAIDD2QWAgIBDw9kFgIeB29uY2xpY2sFD3dpbmRvdy5jbG9zZSgpO2QCBQ8PFgIeBFRleHQFEzE5LzA0LzIwMTEgMTQ6MDU6MjlkZGQ=" />
</div>

    <div>
        <div style="width: 100%; text-align: right">
         </div>
        <div class="botaoimpressao" style="width: 100%; text-align: right">
        <img src="../../imagens/botoes/imprimir.gif"  OnClick="javascript:window.print()" width="69" height="22"/>
         
       
             
        </div>
        <?xml version="1.0" encoding="utf-8"?><body xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><table align="center" class="textoVerdana7" width="98%"><tr><td width="60%"><span class="TextoFundoBrancoNegrito">
          Chave de acesso<br /></span><span class="linha">35-1103-33.337.122/0020-90-55-003-000.346.588-115.984.234-5</span></td><td width="20%"><span class="TextoFundoBrancoNegrito">
          Número NF-e<br /></span><span class="linha">346588</span></td><td width="20%"><span class="TextoFundoBrancoNegrito">
          Versão XML<br /></span><span class="linha">2.00</span></td></tr></table><br /></body>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:portal="http://www.serpro.gov.br/portal" xmlns:chave="http://exslt.org/chaveacesso"><div><table align="center" width="98%"><tr><td class="TituloAreaRestritacentro">
              Dados da NF-e
            </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr><td valign="top" height="30" width="25%"><span class="TextoFundoBrancoNegrito">
                Número<br /></span><span class="linha">346588</span></td><td valign="top" height="30" width="25%"><span class="TextoFundoBrancoNegrito">
                  Série<br /></span><span class="linha">3</span></td><td valign="top" height="30" width="25%"><span class="TextoFundoBrancoNegrito">
                Data de emissão<br /></span><span class="linha">2011-03-02</span></td><td valign="top" height="30" width="25%"><span class="TextoFundoBrancoNegrito">
                Valor Total da Nota Fiscal<br /></span><span class="linha">989,44</span></td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita">
              EMITENTE
            </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr><td valign="top" style="height: 28px" width="25%"><span class="TextoFundoBrancoNegrito">
                CNPJ<br /></span><span class="linha">33337122002090</span></td><td valign="top" style="height: 28px" width="40%"><span class="TextoFundoBrancoNegrito">
                Nome/Razão Social<br /></span><span class="linha">IPIRANGA PRODUTOS DE PETROLEO SA</span></td><td valign="top" width="23%"><span class="TextoFundoBrancoNegrito">
                Inscrição Estadual<br /></span><span class="linha">636010251116</span></td><td valign="top" width="12%"><span class="TextoFundoBrancoNegrito">
                UF<br /></span><span class="linha">SP</span></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita">
              DESTINATÁRIO
            </td></tr></table><table align="center" width="98%"><tr><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                  CNPJ<br /></span><span class="linha">18194464000141</span></td><td valign="top" width="40%"><span class="TextoFundoBrancoNegrito">
                Nome/Razão Social<br /></span><span class="linha">TRANSMACOL TRANSPORTES LTDA</span></td><td valign="top" width="23%"><span class="TextoFundoBrancoNegrito">
                  Inscrição Estadual<br /></span><span class="linha">3826115980027</span></td><TD valign="top" width="12%"><span class="TextoFundoBrancoNegrito">
                UF<br /></span><span class="linha">MG</span></TD></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita">
              EMISSÃO
            </td></tr></table><table align="center" width="98%"><tr><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                  Processo<br /></span><span class="linha">
                    0 - com aplicativo do Contribuinte
                  </span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                  Versão do Processo<br /></span><span class="linha">Triangulus_6.0.3.17</span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
              Tipo de Emissão<br /></span><span class="linha">
               1 - Normal
            </span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                  Finalidade<br /></span><span class="linha">
                    1 - Normal
                  </span></td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                Natureza da Operação<br /></span><span class="linha">RT MAT EQUIP INST COMOD S/ICM/IPI -NAO COD CAD</span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                Tipo da Operação<br /></span><span class="linha">
                  1-saída
                </span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
              Forma de Pagamento<br /></span><span class="linha">
                 2 - Outros
              </span></td><td valign="top" width="50%"><span class="TextoFundoBrancoNegrito"><i>Digest Value</i> da NF-e<br /></span><span class="linha">EJY5jeP66hQ6RzuF+Maeu+WTazo=</span></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
              SITUAÇÃO ATUAL: AUTORIZADA
            </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                 Ocorrência<br /></span><span class="linha">
                 Autorizada
              </span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                Protocolo<br /></span><span class="linha">135110105559869</span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                 Data/Hora<br /></span><span class="linha">02/03/2011 10:13:17</span></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
            Recebimento no Ambiente Nacional<br /></span><span class="linha">02/03/2011 12:12:00</span></td></tr></table></div></form></div>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><div><table width="98%" align="center"><tr><td height="25" class="TituloAreaRestritacentro"><B class="textoVerdana8bold"><STRONG class="textoVerdana8bold">Dados do Emitente</STRONG></B></td></tr></table><TABLE width="98%" align="center" class="textoVerdana7"><TBODY><TR><td valign="top" style="height: 28px" width="50%"><span class="TextoFundoBrancoNegrito">
                  Nome / Razão Social<br /></span><span class="linha">IPIRANGA PRODUTOS DE PETROLEO SA</span></td></TR><TR><td valign="top" style="height: 28px" width="50%"><span class="TextoFundoBrancoNegrito">
                  CNPJ<br /></span><span class="linha">33.337.122/0020-90</span></td><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                  Endereço<br /></span><span class="linha">AV DO ESTADO,  
                  2950,  
                  </span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                  Bairro/Distrito<br /></span><span class="linha">PROSPERIDADE</span></TD><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                    CEP<br /></span><span class="linha">09550-400</span></TD></TR><TR><TD valign="top" width="50%" style="height: 28px"><span class="TextoFundoBrancoNegrito">
                  Município<br /></span><span class="linha">3548807- SAO CAETANO DO SUL</span></TD><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                    Fone/Fax<br /></span><span class="linha">(113)376-3700</span></TD></TR><TR><TD valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                  UF<br /></span><span class="linha">SP</span></TD><TD valign="top" style="height: 28px" width="50%"><span class="TextoFundoBrancoNegrito">
                  País<br /></span><span class="linha">1058
                  - Brasil</span></TD></TR><TR><td valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                  Inscrição Estadual<br /></span><span class="linha">636010251116</span></td><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                    Inscrição Estadual do Substituto Tributário
                    <br /></span><span class="linha">7020109934017</span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                    Município da Ocorrência do Fato Gerador do ICMS <br /></span><span class="linha">3548807</span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                       Código de Regime Tributário<br /></span><span class="linha">
                          3 – Regime Normal
                       </span></TD><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito"></span><span class="linha"></span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito"></span><span class="linha"></span></TD></TR></TBODY></TABLE></div></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><table width="98%" align="center"><tr><td height="25" class="TituloAreaRestritacentro"><B class="textoVerdana8bold"><STRONG class="textoVerdana8bold">Dados do Destinatário</STRONG></B></td></tr></table><TABLE width="98%" align="center" class="textoVerdana7"><TBODY><TR><TD valign="top" width="100%" colspan="2"><span class="TextoFundoBrancoNegrito">
                Nome / Razão social<br /></span><span class="linha">TRANSMACOL TRANSPORTES LTDA</span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                  CNPJ<br /></span><span class="linha">18.194.464/0001-41</span></TD><TD valign="top" width="50%" style="height: 32px"><span class="TextoFundoBrancoNegrito">
                Endereço<br /></span><span class="linha">R 14 DE AGOSTO NR, 
                1050, 
                CENTRO     
                   
                </span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                Bairro / Distrito<br /></span><span class="linha">ANEL RODOVIARIO</span></TD><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                CEP<br /></span><span class="linha">37200-000</span></TD></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                Município<br /></span><span class="linha">3138203- LAVRAS</span></TD><td valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                  Fone / Fax<br /></span><span class="linha">(353)821-6868</span></td></TR><TR><TD valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                UF<br /></span><span class="linha">MG</span></TD><TD valign="top" style="height: 28px" width="50%"><span class="TextoFundoBrancoNegrito">
                  País<br /></span><span class="linha">1058
                    - Brasil</span></TD></TR><TR><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                  Inscrição Estadual<br /></span><span class="linha">3826115980027 
                </span></td></TR><TR><td valign="top" width="50%"></td></TR><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
                  LOCAL DE ENTREGA
                </td></tr></table><table align="center" width="98%"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                    CNPJ<br /></span><span class="linha">18.194.464/0001-41</span></td><td valign="top" width="66%"><span class="TextoFundoBrancoNegrito">
                    Logradouro<br /></span><span class="linha">R 14 DE AGOSTO NR, 
                 1050, 
                 CENTRO</span></td></table><table align="center" width="98%"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                    Bairro<br /></span><span class="linha">ANEL RODOVIARIO</span></td><td valign="top" width="50%"><span class="TextoFundoBrancoNegrito">
                    Município<br /></span><span class="linha">3138203 - LAVRAS</span></td><td valign="top" width="16%"><span class="TextoFundoBrancoNegrito">
                    UF<br /></span><span class="linha">MG</span></td><tr></tr></table></TBODY></TABLE></form>
        <?xml version="1.0" encoding="utf-8"?><script language="javascript" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:chave="http://exslt.org/chaveacesso" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd">
         function ocultarExibir(idDaTabela)
         {
         if (document.getElementById(idDaTabela).style.display == 'inline')
         {
         document.getElementById(idDaTabela).style.display = 'none';
         document.getElementById("label_exibir_" + idDaTabela).style.display = 'inline';
         document.getElementById("label_ocultar_" + idDaTabela).style.display = 'none';
         }
         else
         {
         document.getElementById(idDaTabela).style.display = 'inline';
         document.getElementById("label_exibir_" + idDaTabela).style.display = 'none';
         document.getElementById("label_ocultar_" + idDaTabela).style.display = 'inline';
         }
         }
      </script><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:chave="http://exslt.org/chaveacesso" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd"><table width="98%" align="center"><tr><td height="25" class="TituloAreaRestritacentro"><B class="textoVerdana8bold"><STRONG class="textoVerdana8bold">Dados dos Produtos e Serviços</STRONG></B></td></tr></table><table width="98%" align="center"><tr><td class="TituloAreaRestrita" valign="top" style="width: 04%;"><span class="TextoFundoBrancoNegrito">
                  Num.<br /></span></td><td class="TituloAreaRestrita" valign="top" style="width: 56%;"><span class="TextoFundoBrancoNegrito">
                  Descrição<br /></span></td><td class="TituloAreaRestrita" valign="top" style="width: 10%;"><span class="TextoFundoBrancoNegrito">
                  Qtd.<br /></span></td><td class="TituloAreaRestrita" valign="top" style="width:10%;"><span class="TextoFundoBrancoNegrito">
                  Unidade Comercial<br /></span></td><td class="TituloAreaRestrita" valign="top" style="width: 20%;"><span class="TextoFundoBrancoNegrito">
                  Valor(R$)<br /></span></td></tr></table><table align="center" class="textoVerdana7" width="98%" id="A + 1"><tr><td valign="top" style="width: 03%;"><span class="linha">1</span></td><td valign="top" style="width: 56%;"><span class="linha">FILTRO COAL SEPARADOR FIL PECA</span></td><td valign="top" style="width: 10%;"><span class="linha">1,000</span></td><td valign="top" style="width:10%;"><span class="linha">UN</span></td><td valign="top" style="width: 20%;"><span class="linha">989,44</span></td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr><td><table width="98%" align="center"><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Código do Produto <br /></span><span class="linha">70000752</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Código NCM<br /></span><span class="linha">84212930</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                              CFOP<br /></span><span class="linha">6908</span></td></tr><tr class="TextoFundoBranco"></tr><tr class="TextoFundoBranco"><td colspan="2" valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                      Indicador de Composição do Valor Total da NF-e <br /></span><span class="linha">
                        1 – Valor deste Item não compõe o valor total da NF-e
                      </span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Código EAN Comercial<br /></span><span class="linha">00000000000000</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Unidade Comercial<br /></span><span class="linha">UN</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Quantidade Comercial<br /></span><span class="linha">1,0000</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Código EAN Tributável<br /></span><span class="linha"></span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Unidade Tributável<br /></span><span class="linha">UN</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Quantidade Tributável<br /></span><span class="linha">1,0000</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Valor unitário de comercialização<br /></span><span class="linha">989,4400</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                 Valor unitário de tributação<br /></span><span class="linha">989,4400</span></td><td></td></tr><tr class="TextoFundoBranco"><td></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
                              ICMS NORMAL e ST
                           </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                    Origem da Mercadoria <br /></span><span class="linha">
                                       0–Nacional
                                    </span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                    Tributação do ICMS<br /></span><span class="linha">
                                       41 - Não tributada
                                    </span></td></tr><tr class="TextoFundoBranco"></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
                              IMPOSTO SOBRE PRODUTOS INDUSTRIALIZADOS
                           </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                       Código de Enquadramento<br /></span><span class="linha">999</span></td></tr><tr class="TextoFundoBranco"></tr><tr class="TextoFundoBranco"></tr><tr class="TextoFundoBranco"></tr></table><table align="center" class="textoVerdana7" width="98%"><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                                    CST<br /></span><span class="linha">
                                       51-Saída tributada com alíquota zero
                                    </span></td></tr></table></td></tr></table></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><div><table align="center" width="98%"><tr><td height="25" class="TituloAreaRestritacentro"><B class="textoVerdana8bold"><STRONG class="textoVerdana8bold">Dados do Transporte</STRONG></B></td></tr></table><table align="center" class="textoVerdana7" style="width: 98%"><tr><td valign="top"><span class="TextoFundoBrancoNegrito">
              Modalidade do Frete<br /></span><span class="linha">
                0-por conta do emitente
              </span></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
               TRANSPORTADOR
            </td></tr></table><table align="center" class="textoVerdana7" style="width: 98%"><tbody><tr><td valign="top" style="width: 33%"><span class="TextoFundoBrancoNegrito">
                    Razão Social / Nome<br /></span><span class="linha">MAHLE</span></td></tr><tr><td valign="top" width="25%"></td><td valign="top" width="25%"><span class="TextoFundoBrancoNegrito">
                    Endereço Completo<br /></span><span class="linha">...</span></td><td valign="top" style="height: 28px" width="25%"><span class="TextoFundoBrancoNegrito">
                    Município<br /></span><span class="linha">...</span></td></tr><tr><td valign="top"><span class="TextoFundoBrancoNegrito">
                  UF<br /></span><span class="linha">SP</span></td></tr></tbody></table><br /><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
               VEÍCULO
            </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tbody><tr><td valign="top" style="width: 33%"><span class="TextoFundoBrancoNegrito">
                  Placa<br /></span><span class="linha">AAA0000</span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                  UF<br /></span><span class="linha">SP</span></td><td valign="top" style="width: 33%"></td></tr></tbody></table><table align="center" class="textoVerdana7" style="width: 98%"><tr><td valign="top" width="33%"></td><td valign="top" width="33%"></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
               VOLUMES
            </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tbody><tr><span class="TextoFundoBrancoNegrito"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                    Quantidade
                  </span><br /><span class="linha">1</span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                      Marca dos Volumes
                    </span><br /><span class="linha">IPIRANGA</span></td></span></tr><tr><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                    Peso Líquido
                  </span><br /><span class="linha">0</span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                    Peso Bruto
                  </span><br /><span class="linha">14,3</span></td></tr><tr></tr></tbody></table></div></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd"><table align="center" width="98%"><tr><td height="25" class="TituloAreaRestritacentro"><B class="textoVerdana8bold"><STRONG class="textoVerdana8bold">Totais</STRONG></B></td></tr></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
            ICMS
         </td></tr></table><table align="center" class="textoVerdana7" width="98%"><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Base de Cálculo ICMS<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor do ICMS<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Base de Cálculo ICMS ST <br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor ICMS Substituição<br /></span><span class="linha">0,00</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor Total dos Produtos
          </span><span class="linha">989,44</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor do Frete<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor do Seguro<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Outras Despesas Acessórias<br /></span><span class="linha">0,00</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor Total do IPI<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor Total da NFe<br /></span><span class="linha">989,44</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor Total dos Descontos <br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor Total do II<br /></span><span class="linha">0,00</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor do PIS<br /></span><span class="linha">0,00</span></td><td valign="top" style="height: 37px; width: 25%;"><span class="TextoFundoBrancoNegrito">
            Valor da COFINS<br /></span><span class="linha">0,00</span></td></tr></table></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><div><table align="center" width="98%"><tr><td bgcolor="#475f74" class="TituloAreaRestritacentro" height="25" colspan="2"><b class="textoVerdana8bold"><strong>Dados de Cobrança</strong></b></td></tr></table><table align="center" width="98%"><tr><td class="TituloAreaRestrita"><div align="left"><b class="textoVerdana8bold"><strong class="textoVerdana8bold">FATURA</strong></b></div></td></tr></table><table align="center" class="textoVerdana7" width="98%"><tbody><tr class="TextoFundo"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                  Número<br /></span><span class="linha">000346588</span></td><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                    Valor Original<br /></span><span class="linha">989,44</span></td></tr><tr class="TextoFundoBranco"><td valign="top" style="height: 37px; width: 33%;"><span class="TextoFundoBrancoNegrito">
                    Valor Líquido<br /></span><span class="linha">989,44</span></td></tr></tbody></table><br /></div></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:date="http://exslt.org/dates-and-times" xmlns:chave="http://exslt.org/chaveacesso" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd"><div><script language="JavaScript">
        function ocultarExibir(idDaTabela)
        {
        if (document.getElementById(idDaTabela).style.display == 'inline')
        {
        document.getElementById(idDaTabela).style.display = 'none';
        document.getElementById("label_exibir_" + idDaTabela).style.display = 'inline';
        document.getElementById("label_ocultar_" + idDaTabela).style.display = 'none';
        }
        else
        {
        document.getElementById(idDaTabela).style.display = 'inline';
        document.getElementById("label_exibir_" + idDaTabela).style.display = 'none';
        document.getElementById("label_ocultar_" + idDaTabela).style.display = 'inline';
        }
        }       
     </script><table align="center" width="98%"><tr><td class="TituloAreaRestritacentro"><b class="textoVerdana8bold">
                  Informações Adicionais
                </b></td></tr><tr></tr></table><table align="center" width="98%"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Formato de Impressão<br /></span><span class="linha">
                    1 - Retrato
                 </span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Formato de Emissão<br /></span><span class="linha">1</span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Dígito Verificador da Chave de Acesso<br /></span><span class="linha">5</span></td></table><table align="center" width="98%"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Identificação do Ambiente<br /></span><span class="linha">
                    1 – Produção
                 </span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Finalidade<br /></span><span class="linha">1</span></td><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Processo<br /></span><span class="linha">0</span></td></table><table align="center" width="98%"><td valign="top" width="33%"><span class="TextoFundoBrancoNegrito">
                 Versão<br /></span><span class="linha">Triangulus_6.0.3.17</span></td><td valign="top" width="33%"></td></table><table align="center" width="98%"><td valign="top" width="33%"></td><td valign="top" width="33%"></td></table><table align="center" width="98%"><tr class="TextoFundoBranco"><td class="TituloAreaRestrita2">
                INFORMAÇÕES COMPLEMENTARES DE INTERESSE DO CONTRIBUINTE
              </td></tr></table><table align="center" class="textoVerdana7" width="98%"><td valign="top"><span class="TextoFundoBrancoNegrito">
                Descrição
              </span><span class="linha">Series: Eqp: 70000752: 15738/. Isento de ICMS conforme artigo 7 inciso IX do RICMS/SP combinado com o artigo 5 inciso XIII do RICMS/MG MERCADORIA PROCEDENTE DA MAHLE CONFORME NF 5270 DE 25/02/11</span></td><tr></tr></table></div></form>
        <?xml version="1.0" encoding="utf-8"?><form id="form1" runat="server" xmlns:n="http://www.portalfiscal.inf.br/nfe" xmlns:r="http://www.serpro.gov.br/nfe/remessanfe.xsd" xmlns:chave="http://exslt.org/chaveacesso"><table align="center" width="98%"><tr><td bgcolor="#475f74" class="TituloAreaRestritacentro" height="25" colspan="2"><b class="textoVerdana8bold">Dados de Nota Fiscal Avulsa</b></td></tr></table></form>
       
    </form>
    <div style="margin-left: 20px; ">
        <span class="TextoFundoBrancoNegrito">
              Data/Hora Impressão:
            <span id="lblDataHoraImpressao" class="TextoFundoBrancoNegrito">19/04/2011 14:05:29</span>
        </span>
    </div> 
</body>
</html>
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por alceu11 em 19/4/2011, 16:11

veja o topico "Importar xml" do Sr.Mauro e veja a resposta ke postei dia 19/03/11. E nos de 1 Retorno nao faca como alguns acham a solucao, e nao compartilham!


Última edição por alceu11 em 19/4/2011, 16:21, editado 2 vez(es)
avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por Marcos Guedes em 19/4/2011, 16:13

Bruno, baixe o arquivo html em anexo e veja o retorno que sua função está retornando.
Com base neste arquivo, tente nos explicar o que você pretende ler do mesmo.
Anexos
teste.zip Exemplo de Nfe, BrunoVocê não tem permissão para fazer download dos arquivos anexados.(5 Kb) Baixado 46 vez(es)

_________________
Marcos Guedes - Programador e desenvolvedor Web.


Visite o nosso portal:
[Você precisa estar registrado e conectado para ver este link.]

Marcos Guedes
Webmaster
Webmaster


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 16:28

Boa tarde Marcos, Eu preciso capturar os dados da pagina, Tipo: o Numero da Nota, Os dados do Cliente, Valores.
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por _batmanvfp_ em 19/4/2011, 16:30

Esse código abaixo tá tirando a maioria das tags , ai acrescentaria mais as que faltam na funcao caso der certo

e tentar gerar um txt para ver como fica
coloca num PRG e Roda

só que tem que gerar o TXT do campo Memo ,
pois essas informacoes estão num cursor

assim sendo layout sendo sempre igual por TXT ,
terá como recuperar , precisa ver como isso ficaria exportado num TXT
pois se estabelecer as Linhas .... como no HTML ai fica bem pratico


Código:

CREATE CURSOR myWebPage (content m)
url="http://programacaobrasil.5forum.net/"
objHTTP = CreateObject("MSXML2.XMLHTTP")
objHTTP.Open("GET", url,.f.)
objHTTP.Send()
Insert into myWebPage (content) VALUES (objHTTP.ResponseText)
&&MODIFY MEMO myWebPage.content
SELECT mywebpage

SCAN
aa = removetaghtml(content)
?aa
ENDSCAN



FUNCTION removetaghtml AS STRING
  LPARAMETERS conteudo AS STRING, separador as String

  LOCAL objregexp AS OBJECT
  LOCAL resultado AS STRING

  *!* Instancia o objeto responsável por manipular a expressão regular
  m.objregexp = NEWOBJECT("VBScript.RegExp")

  *!* Define a expressão regular
  m.objregexp.PATTERN = "<[^>]*>"

  m.objregexp.ignorecase = .T.    && Ignora "case sensitivity"
  m.objregexp.GLOBAL = .T.  && && Procura por todas as ocorrências

  *!* Remove as tags HTML, com base na expressão regular
  m.resultado = m.objregexp.REPLACE(;
  IIF(VARTYPE(m.conteudo)=="C",m.conteudo,""),IIF(VARTYPE(m.separador)=="C",m.separador," "))
 
  *!* Destrói o objeto
  m.objregexp = null

  RETURN m.resultado
ENDFUNC

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 16:52

_batmanvfp_ fiz o teste aqui com esta função que você me passou, ela remove as Tags perfeitamente. Agora uma outra curiosidade tem como eu capturar o código fonte de uma pagina direto pelo VFP?
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por _batmanvfp_ em 19/4/2011, 16:52

ter tem , usando Element
só que pra desempenhar nessa estrutura levara mto tempo...

O mais convencional seria utilizar um subtituto de HTML para o TXT
acho que esse segundo codigo vai ajudar mais


Acho que achei o que voce precisa !
Testa ai Gerando o TXT ai voce pode criar um Layout

Código:
vaddress= "http://programacaobrasil.5forum.net/"

oIE = CREATEOBJECT("InternetExplorer.Application")
oIE.visible = .F.
oIE.Navigate(vaddress)
DECLARE INTEGER Sleep IN WIN32API INTEGER nTimeout
DO WHILE oIE.ReadyState # 4
 WAIT WINDOW "Please wait while opening site: " + ALLTRIM(vaddress) NOWAIT
 *Sleep(1)

ENDDO
*** Retrieve the entire HTML document as a string
lcHTML = oIE.Document.Body.InnerText
*MESSAGEBOX(ALLTRIM(lcHTML)) && You can use function STRTOFILE() to assign value to file
STRTOFILE(LcHTML,"FRASES2.TXT",.t.)
oIE = NULL


Última edição por _batmanvfp_ em 19/4/2011, 17:01, editado 1 vez(es)

_batmanvfp_
Participa Bastante
Participa Bastante


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por alceu11 em 19/4/2011, 16:57

Se for xml da nfe, arquivo sefaz , a funcao foxpro é STREXTRACT()
o codigo
Código:
 CLOSE DATABASES ALL
SET SAFETY off
WAIT WINDOW 'importando  DADOS do xml nfe' NOWAIT NOCLEAR
*ATENCAO A TAG TEM QUE SE IGUAL AO QUE ESTA NO ARQ.XML MAISCULOS OU MINUSC

*NOME O DO ARQUIVO XML

cfile=FILETOSTR('c:\PEDRO\PEDRONFE.xml')

IF NOT FILE('c:\PEDRO\PEDRONFE.xml')
WAIT WINDOW 'NAO ENCONTRE O ARQUIVO A ROTINA FECHARA AQUI'
RETURN
ENDIF

*= EXTRAIR O CNPJ DO EMITENTE
cTag=STREXTRACT(cFile,'<emit><CNPJ>','</CNPJ>',1)
*  MESSAGEBOX(CTAG)

**vou pegar so o Nome do emitente dentro da arquivo nfe
cTag1=STREXTRACT(cFile,'<xNome>','</xNome>',1)

    wait window CTAG1 time 1
*** Pegar o endereco do Emitente
cTag2=STREXTRACT(cFile,'<xLgr>','</xLgr>',1)
cTag3=STREXTRACT(cFile,'<UF>','</UF>',1)


****aqui vou inserir as tag que busquei e gravei em uma tabela
  CREATE TABLE TAGO( N_CAMPO C(10),CAMPO C(60),refece c(10))
  SELECT TAGO
    INSERT INTO tago (N_CAMPO,CAMPO,REFECE) VALUES ('CNPJ',ctag,'EMITENTE')
 
  INSERT INTO tago (N_CAMPO,CAMPO,REFECE) VALUES ('nome',ctag1,'EMITENTE')
      INSERT INTO tago (N_CAMPO,CAMPO,REFECE) VALUES ('lgr',ctag2,'EMITENTE')
        INSERT INTO tago (N_CAMPO,CAMPO,REFECE) VALUES ('UF',ctag3,'EMITENTE')
WAIT CLEAR       
  BROWSE NORMAL
 

PARA BAIXAR O XML o qual teste com a rotina acima, pedronfe.xml
[Você precisa estar registrado e conectado para ver este link.]

TOPICO MAIS COISAS AINDA OS ITENS DA NFE
[Você precisa estar registrado e conectado para ver este link.]

[Você precisa estar registrado e conectado para ver este link.]

avatar
alceu11
Usuário 5 Estrelas
Usuário 5 Estrelas


Voltar ao Topo Ir em baixo

Resolvido Re: Capturar dados de um formulário HTML

Mensagem por BrunoMesquita em 19/4/2011, 17:17

Muito Obrigado _batmanvfp_ funcionou perfeitamente para o que Eu estou precisando agora vou montar o layout para captura dos Registros e Inclui-los em uma Tabela. Assim que Eu terminar posto aqui no Forum.

Muito Obrigado!
avatar
BrunoMesquita
Participante Regular
Participante Regular


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo


 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum