Paulo Alexandre Hostert

Daniel, com libcapicom e acesso direto ao certificado agora funcionou com essa unit.

Daniel, boa tarde, Já tem alguns tempo que utilizo certificado direto pelo arquivo, sem ter o certificado instalado. Utilizando libcapicom, a libopenssl nem levo no fonte.

O problema é que depois da liberação da opção Wincrypt, o erro ocorre quando a propriedade SSLLIB = libcapicom.

Consegue simular algumas vezes o erro no demo da NF-e, alterando as opções de SSLLIB entre libwincrypt e wincapicom. Mais ainda não consegui a ordem exata para você reproduzir o erro ai. O problema é que depois de efetuar a comunicação (consultar status serviço), demora mais de 60 segundo para ocorrer o erro.

Sim é um CNPJ válido, Estas informações exibidas ali no print, foram exibidas quando clique no botão 'Leitura de X509'. (Não sei de onde vem estas informações, acho que esta fixado no demo). Segue novo print:

Bom dia, Consegui simular no Demo:

Bom dia, Certificado A1, quando deixo a propriedade SSLLIB = libwincrypt. Porém isso não ocorre em todas as estações. Tem alguma outra DLL utilizada nesse caso que eu poderia verificar?

Erro na emissão do CT-e e do manifesto com SSLLIB = libwincrypt Erro: O atributo 'Algorithm' tem valor 'http://www.w3.org/2001/04/xmldsig-more#rsa-sha256' que não corresponde ao valor fixo 'http://www.w3.org/2000/09/xmldsig#rsa-sha1' no DTD ou no esquema. Alguém conseguiu resolver esse problema?

Quando utilizo a libcapicom, depois de pouco mais de um minuto, ocorre erro que parecer ser em uma thread da crypt32, conforme anexo. Alguém deve esse problema?

Bom dia, Fiz atualização dos fontes agora com wincript, utilizando acesso direto do arquivo PFX, e agora ocorre este erro. raised exception class EACBrDFeException with message 'PFXDataToCertContextWinApi: Falha ao localizar o Certificado com a Chave Privada.'. Alguém já conseguiu utilizar dessa forma com os fontes atualizados?

Estou adicionado os CNPJ dos tomadores dos conhecimentos vinculados. while not Q.Eof do begin rodo.infANTT.infContratante.Add.CNPJCPF := Q.FieldByName('CNPJCPF').AsString; Q.Next; end;

Boa tarde, Também tive o mesmo problema, e tive que ajustar no fonte do ACBR.

Veja se te ajuda: ACBrNFeObj:TACBrNFe ACBrNFeObj.EnviarEmailEvento(Destinatarios, Assunto, CorpoEmail, CC, Anexos);

hehe Obrigado pelo retorno!

Boa tarde! Tem alguma para de liberação?

Olá boa noite! Já foi desenvolvido alguma coisa?

Bom dia, Segue unit! ACBrBancoCecred.pas

Boa tarde, Tive que fazer uma alteração na Unit ACBrBancoCecredi incluindo a linha que destaquei abaixo, pois quando não tem data de protesto fica faltando as colunas de instrução no arquivo. Tem alguma forma de resolver isso sem alterar essa unit? {Intruções - Protesto} AInstrucao := '0000'; <=== AQUI if (aTipoOcorrencia = '01') or (aTipoOcorrencia = '09') then begin if (DataProtesto > 0) and (DataProtesto > Vencimento) then begin AInstrucao := '06'; // Protestar em xx dias corridos DiasProtesto := IntToStr(DaysBetween(DataProtesto, Vencimento)) end; end else if ATipoOcorrencia = '02' then // 02-Pedido de Baixa AInstrucao := '44';

Daniel, Vi que os anexo estão sendo excluídos no procedimento clear abaixo. Precisamos dessa chamada aqui? procedure TACBrMail.SmtpError(const pMsgError: string); begin Clear; <== fGetLastSmtpError := pMsgError; MailProcess(pmsError); DoException( Exception.Create(pMsgError) ); end;

Daniel, Ficou ótimo! Muito Obrigado! Só mais uma duvida: Utilizo no evento OnAfterMailProcess e OnMailException, uma procedure com o código abaixo para garantir que os anexos sejam excluídos. (Senão os PDFs vão se acumulando na pasta). O problema é nesse ponto a lista de anexos(Attachments) está vazia, sabes por que? for I := 0 to Length(TACBrMail(Sender).Attachments)-1 do begin if FileExists(TACBrMail(Sender).Attachments.FileName) then DeleteFile(TACBrMail(Sender).Attachments.FileName); end;

Retirei, a dependencia "Forms" e implementei o evento ACBrMailException. Segue a unit. ACBrMail.pas

Tens algum Exemplo?

Daniel, Já estou utilizando o metodo ACBrNFe1.EnviarEmailEvento() para o envio.

Devo implementar o evento e te encaminhar?

Concordo Daniel, Porem não encontrei nenhuma forma de exibir o erro quando ocorre alguma exceção. Tem alguma forma de tratar isso sem alterar a ACBrMail?