Paulo Alexandre Hostert

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?

Acabei de descobrir. Faltou informar no número do Lote, antes não precisava. Obrigado!

Após a atualização para os fontes do trunk2, estou recebendo esse erro no retorno do CT-e: Código: 225 Motivo: Rejeição: Falha no Schema XML do CT-e. A unica coisa que percebi que mudou no código, foi que a propriedade AcbrCTE.Conhecimentos.Items[0].XML retorna vazio, e passei a utilizar a AcbrCTEObj.Conhecimentos.Items[0].XMLAssinado (Na NF-e aconteceu a mesma coisa, mais não deu nenhum erro). Analisei o XML mais não consigo encontrar o erro. Alguém teve esse problema? XML.xml

Segue unit ACBrMail.pas... ACBrMail.pas

Daniel, Resolvi o problema fazendo alguns ajustes na unit acbrmail, na thread para tratamento do erro: Podemos ajustar isso no padrão? { TACBrThread } constructor TACBrThread.Create(AOwner: TComponent); begin FreeOnTerminate := True; fOwner := AOwner; inherited Create(False); end; procedure TACBrThread.DoHandleException; begin Application.ShowException(FException); end; procedure TACBrThread.Execute; begin try if (not terminated) then TACBrMail(FOwner).SendMail; except HandleException; end; end; procedure TACBrThread.HandleException; begin FException := Exception(ExceptObject); try Synchronize(DoHandleException); finally FException := nil; end; end;