Ajustes No Acbrmdfe Para Uso Com Delphi Xe E Openssl

[Marcio Martins]

Segue em anexo, ajustes no ACBrMdfe para uso com Openssl e Delphi XE

 

pcteRetConsSitCTe.pas

A função TRetConsSitCTe.LerXml nem sempre é utilizada verificando o seu resultado logo, quando ocorre um erro, este não é evidenciado.

Solução proposta: Disparar a exceção ao invés de emudecê-la.

 

pcteRetConsStatServ.pas

TRetConsStatServ.LerXml - Mesmo caso anterior

 

ACBrMDFeConfiguracoes.pas

Adicionando a opropriedade IniFinXMLSECAutomatico

 

 

ACBrMDFeUtil.pas

Ajustes nas rotinas que tratam de assinar XML

 

pmdfeMDFeW.pas

Ajustes na tag Rodo.veicReboque para gerar tpCar e UF apenas quando a versão for a 1.00a 

 

 

pcteRetConsSitCTe.pas

pcteRetConsStatServ.pas

ACBrMDFeConfiguracoes.pas

ACBrMDFeUtil.pas

pmdfeMDFeW.pas

[Italo Giurizzato Junior]

Boa noite Márcio,

 

Favor atualizar os fontes e testar novamente.

[Marcio Martins]

Bom dia Italo.

 

Verifiquei o log e não vi a alterações.

As units que anexei no poste anterior, já estão com os ajustes.

[Italo Giurizzato Junior]

Marcio,

 

Desculpe, é que fiz os ajustes segundo as suas sugestões e disponibilizei e só agora tive condições de lhe dar um retorno.

[Marcio Martins]

Desculpe por tudo, e mais uma vez obrigado.

Irei fazer os testes e qualquer coisa retorno.

Gostaria de sugerir que alguns destes métodos fossem para um kernel comum, para evitar duplicação de código.