ivbolson

Também estou com este mesmo problema!!

Classe com propriedades do certificado não carrega CNPJ do proprietário do certificado, ACBrNFSeNotasFiscais.pas linha(229) CNPJCertificado := OnlyNumber(TACBrNFSe(TNotasFiscais(Collection).ACBrNFSe).SSL.CertCNPJ);

Olá... Estou lutando com este Tecnos.ini também...

Valeu!! Estou tentando utilizar o Trunk2 sim.

Se editar o arquivo Digifred.ini e alterar os schemas para não validar [Schemas] Validar=0 o erro retornado pelo ACBR é: Erro Interno: 8 Erro HTTP: 0 Erro: Requisição não enviada. 8 - Espaço insuficiente de armazenamento para processar este comando se alterar e colocar para validar os schemas [Schemas] Validar=1 Falha na validação dos dados do lote: XXX Content for element '{http://www.abrasf.org.br/nfse.xsd}EnviarLoteEnvio'is incomplete according to the DTD/Schema. Expecting:{http://www.w3.org/2000/09/xmldsig#}Signature. Percebi que certamente é algum parâmetro no arquivo "Digifred.ini", então por favor se alguém tiver a NFS-e de Ibirubá-RS funcionando me envie este arquivo. Digifred.INI

Olá, Estou com um problema relacionado com a dll capicom no delphi XE5 e XE8 para ambiente x64. Ao acionar o comando lStore := CoStore.Create, ocorre o erro "Classe não registrada". Isso porque o delphi está buscando a referência do c:\windows\system32 ao invés de buscar as dll do diretório c:\windows\SysWOW64. No ambiente x86 está funcionando corretamente. function TForm1.GetCertificadosServer: TCertificadoItem; var lStore, lCertificadosLista, lCertDados: OleVariant; i: integer; begin Result := nil; CoInitialize(nil); try lStore := CoStore.Create; lStore.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); lCertificadosLista := IInterface(lStore.Certificates) as ICertificates2; if (lCertificadosLista.Count > 0) then Result := TCertificadoItem.Create; for i := 1 to lCertificadosLista.Count do begin lCertDados := IInterface(lCertificadosLista.Item) as ICertificate2; with Result do begin Version := lCertDados.Version; SerialNumber := lCertDados.SerialNumber; SubjectName := lCertDados.SubjectName; IssuerName := lCertDados.IssuerName; ValidFromDate := lCertDados.ValidFromDate; ValidToDate := lCertDados.ValidToDate; Thumbprint := lCertDados.Thumbprint; end; end; lStore.Close; finally CoUninitialize; end; end;

Boa Tarde! pra quem não utiliza o QuickReport... pra gerar o arquivo .PDf utilizando o Fast Report os comandos são os seguintes: AcbrCte1.PreparedReport; AcbrCte1.dmDacte.frxPDFExport.FileName := [caminhoPDF]; AcbrCte1.dmDacte.frxPDFExport.ShowDialog := False; AcbrCte1.dmDacte.frxReport.Export(AcbrCte1.dmDacte.frxPDFExport);