Antonio Sidinei Schug

O commit revision 10822, na tentativa de melhorar ou otimizar o código, introduziu um BUG na leitura de alguns XMLs. Considerando o XML que contenham ' misturado com ", a leitura por exemplo da versao=, retorna http://www.portalfiscal.inf.br/nfe, que é um valor errado para o atributo Sugestão, voltar o código antigo iPos1 := Pos('"' , ConteudoTag); iPos2 := Pos('''', ConteudoTag); if iPos1 <> 0 then Aspas := '"'; if (iPos2 <> 0) and (iPos2 < iPos1) then Aspas := ''''; ou otimizando um pouquinho, iPos1 := Pos('"' , ConteudoTag); iPos2 := Pos('''', ConteudoTag); if (iPos2 <> 0) and (iPos2 < iPos1) then Aspas := '''' else Aspas := '"';

Obrigado, amigo... Um feliz natal pra você

Desculpe... O correto é este código em anexo... Ele deve ser finalizado se retornar S_OK ou S_FALSE.. Contudo, a aplicação falharia de qualquer jeito se retornar outro erro qualquer... modificacoes.diff

Segue diff sugerida Antonio modificacoes.diff

Problemas com a aplicação podem ocorrer, se chamar alguma função do ACBR que usa CoInitialize; CoUninitialize só deve ser usado se CoInitialize retornar S_OK sugestão: var inicializado: boolean; begin inicializado := CoInitialize(nil) = S_OK; try ..... finally if inicializado then CoUninitialize ; end; end;

Talvez seria interessante tentarmos fazer algo diferente para cobrir as duas situações... Vou tentar simular algumas situações e postar os resultado... Obrigado.

Mais o mais importante por enquanto seria a integridade do XML da NFe original

Problema com o Download NFe. O Download da NFe está alterando o XML, por consequência, está dando erro quando vamos autenticar sua assinatura, em alguns XMLs. Revisando o código verifiquei que em ( por volta da linha 4314 ) function TNFeDownloadNFe.Executar: Boolean; ... FRetornoWS := TiraAcentos(ParseText(StrStream.DataString{, True)); ... Está causando o problema. Mesmo o XML salvo com o retorno fica um XML inválido. Substitui por FRetornoWS := StrStream.DataString; e aparentemente resolveu o problema. Antonio