Recuperar XML não volta dados do IPI

[Daniel_FC]

Boa tarde,

Estou usando o exemplo de Recuperar XML, esta funcionando beleza, mas a única coisa que não esta vindo são os valores de IPI. Como faço para recuperar estes valores ?

Preciso de ajuda, por favor.

Desde já agradeço,

Daniel

[Régys Silveira]

Algumas informações realmente não vem certinhas, veja que isso é um "quebra galho", depende muito de como é montada a página da consulta, porque é feito um parsing dela e a partir dele montado o XML.

[Daniel_FC]

Mas as informações de IPI é possível recuperar ?

Seria possível implementar isto ?

Daniel.

[igor]

Da uma olhada como é feita a recuperacao e tbm uma pesquisada no que é parsing.

Não é nenhum bixo de 7 cabeças, da pra vc tentar fazer vc mesmo.

[Luiz Neto]

Há um post que diz que a linha de parsing do IPI esta faltando um espaco no final, a correta é assim:

if LerCampo(Grupo,'|&|IMPOSTO SOBRE PRODUTOS INDUSTRIALIZADOS |&|')<>'' then

Pesquise pelo post ou altere o ACBrHTMLToXML.

[simons]

Ola!

O problema esta no espaço em branco depois da palavra INDUSTRIALIZADOS, isso ja aconteceu comigo.

if LerCampo(Grupo,'|&|IMPOSTO SOBRE PRODUTOS INDUSTRIALIZADOS |&|')<>'' then

[Daniel_FC]

Boa Tarde.

Com a alteração acima, esta puxando o valor do IPI nos produtos, mas ainda não esta voltando o valor do IPI nos totais da nota, ou seja, o total de IPI no campo VALOR DO IPI da NFE

Aguardo retorno.

Daniel.

[Daniel_FC]

Achei o problema, no AcbrHtmltoXML, tem que alterar a linha

NFe.Total.ICMSTot.vIPI := ConverteStrToNumero(LerCampo(Grupo,'Valor do IPI'));

sendo que o correto deve ser

NFe.Total.ICMSTot.vIPI := ConverteStrToNumero(LerCampo(Grupo,'Valor Total do IPI'));

Como faz para o pessoal já colocar esta alteração no snv ? o pessoal já coloca automaticamente ?

Obrigado

Daniel

[Régys Silveira]

Achei o problema, no AcbrHtmltoXML, tem que alterar a linha

NFe.Total.ICMSTot.vIPI := ConverteStrToNumero(LerCampo(Grupo,'Valor do IPI'));

sendo que o correto deve ser

NFe.Total.ICMSTot.vIPI := ConverteStrToNumero(LerCampo(Grupo,'Valor Total do IPI'));

Como faz para o pessoal já colocar esta alteração no snv ? o pessoal já coloca automaticamente ?

Obrigado

Daniel

Poste aqui o fonte altera para facilitar a comparação, que nós subimos o arquivo revisado.

[Daniel_FC]

Segue anexo o fonte alterado, onde esta voltando corretamente os valores do IPI nos itens e nos Totais da nota também.

Muito obrigado pela ajuda.

Daniel

ACBrHTMLtoXML.pas

[Régys Silveira]

já subi as alterações para o SVN.