Instalar no Delphi 10.4 Sydney + ACBr versão de 20/10/2020

Curso Emissor NFC-e
1

Olá,
Eu precisei fazer algumas correções no código do projeto NuvemFiscalServidorVcl para que fosse compilado e executado sem erros utilizando o Delphi 10.4 e ACBr atualizado em 20/10/2020.

No meu caso eu resolvi o problema abaixo também após ter modificado o código…

{ “code”: “ACBrDFeException”, “message”: “WebService Consulta Status serviço:\r\n- Inativo ou Inoperante tente novamente.\r\n Erro Interno: 12175\r\nErro HTTP: 0\r\nURL: https://homologacao.nfce.fazenda.sp.gov.br/ws/NFeStatusServico4.asmx\r\nFalha 3 no Envio da Requisição.\r\nErro: 12175 - Um ou mais erros foram encontrados no certificado Secure Sockets Layer (SSL) enviado pelo servidor” } }

  • na unit NFCe.Emissor.pas
    -> procedure TEmissorNFCe.ConfigurarComponente(ACBrNFe: TACBrNFe);
    -> substituído: .LT_all
    por: .LT_TLSv1_2

    -> procedure TEmissorNFCe.ConfigurarComponente(AGeral: TGeralConfNFe);
    -> substituído: .xsLibXml2
    por: .xsMsXml

    -> function TEmissorNFCe.Consultar(chNFe: string): TRetornoConsultaNFCeDTO;
    -> substituído: for Evento in NFeConsulta.procEventoNFe do
    por: for var I := 0 to Pred(NFeConsulta.procEventoNFe.Count) do
    begin
    Evento := NFeConsulta.procEventoNFe[I];

    -> na última linha no initialization
    -> substituído: LibXmlInit
    por: InitLibXml2Interface

Resolvi postar para que possa ser útil a alguém.
Abraço.

1 Like
2

Olá @wisesoft,

Isso já foi tratado no tópico Com a versão atual do ACBr fontes não compilam.

Grato pela ajuda.

3

Olá boa noite a todos, esse tópico citado não resolve o problema descrito pelo @wisesoft
Eu baixei o arquivo NFCe.Emissor.pas porém ainda é necessário alterar a propriedade ACBrNFe.SSL.SSLType para TSSLType.LT_TLSv1_2

Grato @wisesoft, sua dica foi valiosa!

1 Like