Recuperar Xml - Xml2.00

[Hetosoft Sistemas]

Uso o projeto RecuperarXML a muito tempo

teve varias mudancas sobre a versao 2.00

que mudei e tava ok ate ontem,

 

Dava erro na verdade baixava o xml mais ficava com loop eterno,

vi uma dica aqui no fórum

 

 

Falei tanto que esqueci de postar a "solução".

Na unit ACBrHTMLtoXML,

alterar a linha:

 if Trim(Versao)<>'2.00' then

para:

 if (Trim(Versao)<>'2.00') and (Trim(Versao)<>'XML2.00') then

 

 

blz o loop eterno resolvel mais os produtos nao vem,

verifique no site da site olhando o codigo fonte que este dado mudou

 

ArquivoItens :=  SeparaAte('Dados do Transporte',ArquivoRestante,ArquivoItens);

para

ArquivoItens :=  SeparaAte('Dados dos Produtos e Serviços',ArquivoRestante,ArquivoItens);

 

mais mesmo assim a var ArquivoItens retorna vazio e os produtos nao vem.

 

 

site sefaz

 

    <div id="Prod">
  <fieldset>
    <legend class="titulo-aba">Dados dos Produtos e Serviços</legend>
    <div>
      <table class="prod-serv-header">
        <tr>
          <td class="fixo-prod-serv-numero">
            <label>Num.</label>
          </td>
          <td class="fixo-prod-serv-descricao">
            <label>Descrição</label>
          </td>
          <td class="fixo-prod-serv-qtd">
            <label>Qtd.</label>
          </td>
          <td class="fixo-prod-serv-uc">
            <label>Unidade Comercial</label>
          </td>
          <td class="fixo-prod-serv-vb">
            <label>Valor(R$)</label>
          </td>
 

[Régys Silveira]

O recuperaXML foi descontinuado a cerca de 2 anos, isso já foi amplamente discutido aqui no fórum, portanto não damos ou daremos manutenção nele e ele não faz parte do core do projeto.

[Hetosoft Sistemas]

Blz,

 

mais fiz  a correções se alguém quiser .... ta ai.

RecuperarXML.rar

[EMBarbosa]

Blz,

 

mais fiz  a correções se alguém quiser .... ta ai.

Se quiser disponibilizar para todos, faça isso no fórum aberto. Aqui só ficará em benefício de quem faz uso do ACBrSAC.