Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Dfox

Membros
  • Content Count

    119
  • Joined

  • Last visited

  • Days Won

    1

Dfox last won the day on March 14

Dfox had the most liked content!

Community Reputation

27 Excellent

About Dfox

  • Rank
    Membro

Profile Information

  • Sexo
    Indefinido
  • Location
    Na net

Recent Profile Visitors

1,144 profile views
  1. 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/
  2. Hum, acho que começara em homologação a 1.20 03/05/2021 o jeito é esperar...
  3. 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
  4. 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.
  5. 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
  6. Fiz uma Dll para assinar pdf se você tiver interesse chama no pv!
  7. 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 :=
  8. 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
  9. 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
  10. Essa tag xPag já existe no componente Acbr?
  11. Obrigado achei removi esse linha ACBrCTe1.dacte.PathPDF := edtPathLogs.text; e resolveu!
  12. 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\';
  13. 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
  14. Bom dia pode fechar o tópico, não há bug nenhum, eu estava selecionando um certificado errado rsrs esta tudo 100% Resolvido.
×
×
  • Create New...