Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Recuperar Xml - Xml2.00


Go to solution Solved by hetoandrade,
  • Este tópico foi criado há 3013 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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>

 

Link to comment
Share on other sites

  • Consultores

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.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.