Dfox

Bom dia, vi neste post que o componente já atende as novas regras da sefaz e a tag xPag não achei, já existe no componente? https://www.projetoacbr.com.br/forum/topic/62101-nota-técnica-2020006-nfe-versão-120/

Hum, acho que começara em homologação a 1.20 03/05/2021 o jeito é esperar...

Bom dia Amarildo de Matos está difícil de entender essa sefaz aqui em homologação tenho que enviar assim <indPres>1</indPres> <indIntermed>0</indIntermed> pelo que entendi quando indPres = 1 não deveria informar a tag indIntermed estranho rsrsrs

Bom dia a todos, Alguém sabe me dizer como ficou a questão da NT 2020/006 já estão aplicando isso em produção, quando for indpres 1 deve informar o tag intermediador, o componente já tem o campo xPag? Obrigado a todos Att.

procedure TForm1.Button2Click(Sender: TObject); var Store: IStore3; CertsLista, CertsSelecionado: ICertificates2; CertDados: ICertificate; lSigner : ISigner2; SignedCode : ISignedCode; begin Store := CoStore.Create; Store.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_READ_ONLY); CertsLista := Store.Certificates as ICertificates2; CertsSelecionado := CertsLista.Select('Certificado(s) Digital(is) disponível(is)', 'Selecione o Certificado Digital para uso no aplicativo', false); if not (CertsSelecionado.Count = 0) then begin CertDados := IInterface(CertsSelec

Bom dia skype Dfox.sistemas [email protected]

Fiz uma Dll para assinar pdf se você tiver interesse chama no pv!

Tendo a dll capicom.dll registra ela com comando regsvr32 capicom.dll No Delphi : acesse, dentro do menu Component, a opção Import Component Na janela que aparece, selecione Import a Type Library e pressione Next para gerar a Unit CAPICOM_TLB.pas inclua no projeto uses CAPICOM_TLB; agora em um botão coloca o seguinte código procedure TForm1.Button1Click(Sender: TObject); var Certificado: ICertificate2; lSigner : ISigner2; SignedCode : ISignedCode; begin {Assina um exe Digitalmente} try Certificado := CoCertificate.Create; SignedCode :=

Com Capicom acho que é possível veja dá até para assinar um .exe https://www.sysadmins.lv/retired-msft-blogs/alejacma/how-to-sign-exe-files-with-an-authenticode-certificate-part-2.aspx

esse componente parece fazer o que você quer https://www.gnostice.com/nl_article.asp?id=268&t=Generating_Digitally_Signed_PDF_Documents_In_Delphi

Essa tag xPag já existe no componente Acbr?

Obrigado achei removi esse linha ACBrCTe1.dacte.PathPDF := edtPathLogs.text; e resolveu!

Boa tarde estou configurando o componente assim e o pdf só salva em pasta camada tmp o que será que pode ser? ACBrCTeDACTeRL1.UsaSeparadorPathPDF := True; ACBrCTeDACTeRL1.PathPDF := ExtractFilePath(ParamStr(0)) + 'PDF\';

Bom dia fiz uma pequena mudança na configuração e enviou normal para o Hotmail veja procedure TfrmACBrNFe.ConfigurarEmail; begin ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := False;//cbEmailSSL.Checked; // SSL - Conexao Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; // Pede confirmacao de leitura do email ACBrMail1.UseThread := False; // Aguarda E

Bom dia pode fechar o tópico, não há bug nenhum, eu estava selecionando um certificado errado rsrs esta tudo 100% Resolvido.