ACBrHTMLtoXML Bugado ?

[renatojosecampos]

Baixei hoje a versão mais atual do ACBrHTMLtoXML , e o campo "Valor do ICMS" , do total da nota vem zerado...

Gostaria de saber como faço para corrigir, se posso alterar o fonte eu mesmo, e comitar, ou se alguem que modificou o codigo e causou este problema pode corrigir. anteriormente funcionava.

Segue a chave da nfe para o teste:

52110701545045000295550010000067971000067941

O erro parece ser na seguinte função:

function LerCampo(Texto, NomeCampo: string; Tamanho : Integer = 0): string;

var

  ConteudoTag: string;

  inicio, fim: integer;

begin

  NomeCampo := UpperCase(Trim(NomeCampo));

  inicio := pos(NomeCampo, UpperCase(Texto));

  if inicio = 0 then

    ConteudoTag := ''

  else

  begin

    inicio := inicio + Length(NomeCampo);

    if Tamanho > 0 then

       fim := Tamanho

    else

     begin

       Texto := copy(Texto,inicio,length(Texto));

       inicio := 0;

       fim := pos('|&|',Texto)-1;

     end;

    ConteudoTag := trim(copy(Texto, inicio, fim));

  end;

  try

     result := ConteudoTag;

  except

     raise Exception.Create('Conteúdo inválido. '+ConteudoTag);

  end;

end;

no campo TEXTO que é passado como parametro o VALOR DO ICMS aparece corretamente, mas a função não retorna o valor.

Obrigado.

[renatojosecampos]

Será que ninguem aqui utiliza este componente ?

[igor]

Oi,

eu comecei a usar outro dia,

isso ai vc vai ter de arrumar, demorei um dia debugando pra descobrir

que no xml tem 2 lugares com a string "VALOR DO ICMS" e um deles provavalmente

está zerado no seu caso. Pega o html de retorno e manda dar um Ctrl + F nessa string

[renatojosecampos]

Poderia postar o seu codigo por favor ? eu poderia corrigir e comitar no SVN.

[renatojosecampos]

Descobri que pode haver um layout diferente na ABA "ICMS NORMAL e ST "

veja na mesma nota o layout "ICMS NORMAL e ST" é diferente para dois produtos

Item 11919

Tributação do ICMS

20 - Com redução de base de cálculo  Modalidade Definição da BC do ICMS 

3 - Valor da operação  

Base de Cálculo

2,23 Alíquota

17,00 Valor

0,38 

Percentual Redução de BC do ICMS Normal 

8,20 

Item 14507

Origem da Mercadoria

0 - Nacional  Tributação do ICMS

00 - Tributada integralmente  Modalidade Definição da BC ICMS NORMAL

3 - Valor da operação  

Base de Cálculo do ICMS Normal

12,60 Alíquota do ICMS Normal 

17,00 Valor do ICMS Normal

2,14 

quando o CST é 20 o layout do item aparece diferente no campo "Valor do icms" o titulo é apenas VALOR,

JA corrigi no fonte para o CST 20 mas e os outros CST !!!!!

Acho que na pratica este componente nao esta pronto para uso...

Estou tentando corrigi-lo , se alguem ja fez isso antes e quiser ajudar , qualquer ajuda será bem vinda.

A proposito ,Existe um forum para os desenvolvedores do ACBR onde eles discutem sobre as modificações no codigo ???

[Carlos Alberto Fitl]

Olá, eu atualizei o ACBrHTMLtoXML, eu corrigi para capturar a modBC, pegar a alíquota do ICMS, o CST correto e pegar o vBCST, pICMSST, vICMSST, modBCST.

Eu gostaria que o pessoal do ACBr avaliasse a alteração e disponibilizasse no SVN.

Anexo ACBrHTMLtoXML

ACBrHTMLtoXML.rar

Att.

Carlos Fitl.

[Ederson Selvati]

Pessoal

Disponibilizei uma nova versão do recuperaxml no svn, testem por favor. Uma coisa é fato, está ficando muito difícil dar manutenção neste projeto por conta das constantes alterações no layout do site, acho que deveriamos unir os esforços para manter o projeto.

Ederson Selvati

[sidnei_alves1]

Bom dia.

Oi Ederson Selvati,

Fiz uma algumas mudanças e gostaria de saber se tem subir no SVN, após a sua analise, fiz os testes aqui no meu projeto e funcionou perfeitamente.

Obrigado

ACBrHTMLtoXML.pas

[Carlos Alberto Fitl]

Olá Sidnei, quais alterações que você fez?

Eu vi que você pegou o ultimo .pas que eu alterei mas não sei o que você implementou, o fonte que esta no SVN que o Ederson disponibilizou parece estar melhor.

Att.

Carlos Fitl.

[Ederson Selvati]

Pessoal

Fiz mais alguns ajustes, já subi pro SVN

Ederon Selvati

[sidnei_alves1]

Boa Tarde.

Ederon Selvati

poderia adicionar essa linhas, para capturar o descontos e outros despesas

Prod.vDesc := ConverteStrToNumero(LerCampo(Grupo, 'Valor do Desconto'));

Prod.vOutro := ConverteStrToNumero(LerCampo(Grupo, 'Outras despesas acessórias'));

Essa linha Tambem para adicionar o Numero da Chave

NFe.procNFe.chNFe:= OnlyNumber(LerCampo(Grupo,'Chave de acesso'));

[Carlos Alberto Fitl]

Olá Ederon, tem como você colocar aquele arquivo txt do que foi implementado para acompanharmos a evolução do projeto?

Att.

Carlos Fitl.

[Ederson Selvati]

Sidnei, Adicionei as correções.

Carlos, disponibilizei o arquivo.

Ederson Selvati