Erro ao carregar digest: sha256

[Curitiba Computer Ltda]

bom dia, estamos recebendo a mensagem 'Erro ao carregar digest: sha256' ao enviar qualquer evento ao esocial. o erro veio apos atualização dos componentes na data de ontem, ao executarmos o envio em uma versão do sistema anterior ao envio, foi completada com sucesso. estamos com 2 versões do delphi no computador (xe3 e rio), e o acbr foi instalado de uma pasta distinta para cada versão, será que pode ser algum conflito? 

[José M. S. Junior]

Bom dia

Quais as configurações SSL que está utilizando? É possível simular esse erro com o Demo ACBreSocial?

[Curitiba Computer Ltda]

bom dia José M. S. Junior, eu configuro "manualmente", 

    if (q1.fieldbyname ('tipocertificado').asinteger = 0) then // certificado tipo A1
    begin
      ACBreSocial.Configuracoes.Geral.SSLLib:= libOpenSSL;
      ACBreSocial.Configuracoes.Geral.SSLHttpLib:= httpIndy;
      ACBreSocial.Configuracoes.Certificados.ArquivoPFX:= q1.fieldbyname ('localcertificado').asstring;
      ACBreSocial.Configuracoes.Certificados.NumeroSerie:= '';
      ACBreSocial.Configuracoes.Certificados.Senha:= q1.fieldbyname ('senhacertificado').asstring;
    end
    else begin // certificado A3
      ACBreSocial.Configuracoes.Geral.SSLLib:= libCustom;
      ACBreSocial.Configuracoes.Geral.SSLHttpLib:= httpWinHttp;
      ACBreSocial.Configuracoes.Geral.SSLCryptLib:= cryWinCrypt;
      ACBreSocial.Configuracoes.Geral.SSLXmlSignLib:= xsLibXml2;
      ACBreSocial.Configuracoes.Certificados.ArquivoPFX:= '';
      ACBreSocial.Configuracoes.Certificados.NumeroSerie:= q1.fieldbyname ('numerocertificado').asstring;
      ACBreSocial.Configuracoes.Certificados.Senha:= q1.fieldbyname ('senhacertificado').asstring;
    end;

    ACBrESocial.Configuracoes.Geral.FormaEmissao:= TpcnTipoEmissao (formadeemissao);

    // Configuracao Geral
    ACBrESocial.Configuracoes.Geral.ExibirErroSchema:= True;
    ACBrESocial.Configuracoes.Geral.RetirarAcentos:= True;
    ACBrESocial.Configuracoes.Geral.RetirarEspacos:= True;
    ACBrESocial.Configuracoes.Geral.FormatoAlerta:= 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.';

    ACBrESocial.Configuracoes.Geral.VersaoDF:= TVersaoeSocial (2); // 2.05.00 // 2.04.02 // producao restrita //
    versaoesocial:= VersaoeSocialToStr (ACBrESocial.Configuracoes.Geral.VersaoDF);

    ACBrESocial.Configuracoes.Geral.Salvar:= True;
    ACBreSocial.Configuracoes.Geral.IdEmpregador:= q1.fieldbyname ('empcgc').asstring;
    ACBreSocial.Configuracoes.Geral.IdTransmissor:= q1.fieldbyname ('transmissor').asstring;
    ACBreSocial.Configuracoes.Geral.TipoEmpregador:= TEmpregador (q1.fieldbyname ('tipoempregador').asinteger);

    // Configuracao WebServices
    ACBrESocial.Configuracoes.WebServices.Ambiente:= taProducao; //iif (ambiente.itemindex = 0, taProducao, taHomologacao);
    ACBrESocial.Configuracoes.WebServices.Visualizar:= False;   // mensagem chata de envio //
    ACBrESocial.Configuracoes.WebServices.Salvar:= True;
    ACBrESocial.Configuracoes.WebServices.AjustaAguardaConsultaRet:= True; // ajustar "AguardarConsultaRet" com o valor retornado pelo webservice
    ACBrESocial.Configuracoes.WebServices.AguardarConsultaRet:= 5000;      // tempo padrão que vai aguardar para consultar após enviar a NF-e
    ACBrESocial.Configuracoes.WebServices.Tentativas:= 10;                 // quantidade de tentativas de envio
    ACBrESocial.Configuracoes.WebServices.IntervaloTentativas:= 3000;      // Intervalo entre as tentativas de envio
    ACBrESocial.Configuracoes.WebServices.TimeOut:= 5000;

    // Configuracao Arquivos
    ACBrESocial.Configuracoes.Arquivos.Salvar:= True;
    ACBrESocial.Configuracoes.Arquivos.SepararPorModelo:= True;
    ACBrESocial.Configuracoes.Arquivos.SepararPorAno:= True;
    ACBrESocial.Configuracoes.Arquivos.SepararPorMes:= True;
    ACBrESocial.Configuracoes.Arquivos.SepararPorDia:= True;
    ACBrESocial.Configuracoes.Arquivos.AdicionarLiteral:= False;
    ACBrESocial.Configuracoes.Arquivos.EmissaoPatheSocial:= False; //True;
    ACBrESocial.Configuracoes.Arquivos.SepararPorCNPJ:= True;

    ACBreSocial.Configuracoes.Arquivos.PathSchemas:= IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + 'Schemas';

    ACBrESocial.configuracoes.arquivos.pathsalvar:= IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + 'Enviados';
    ACBreSocial.Configuracoes.Arquivos.PatheSocial:= IncludeTrailingPathDelimiter(ExtractFileDir(ParamStr(0))) + 'ESocial';
    ACBrESocial.Configuracoes.WebServices.UF:= q1.fieldbyname ('empnuf').asstring;

    ACBrESocial.Configuracoes.Certificados.VerificarValidade:= False; 

 

[Juliana Tamizou]

Bom dia.

Você consegue reproduzir no demo?

Att.

[Curitiba Computer Ltda]

bom dia Juliana, vou reproduzir e posto o retorno..

 

[Curitiba Computer Ltda]

Juliana, nosso suporte observou o detalhe do certificado no navegador que o mesmo tinha validade de 1 ano, então só poderia ser A1, e no sistema em nossa tela de configuração o cliente colocou A3. configuramos em nosso sistema para A1 e indicamos o caminho do arquivo e o arquivo pfx. Enviamos o evento e foi recepcionado normalmente. Acreditamos que tenha sido essa a causa do erro. Agradeço seu auxilio e por gentileza pode considerar o tópico encerrado.

[]s

[José M. S. Junior]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.