Pesquisar na Comunidade

Olá boa tarde pessoal do fórum, estou tendo problemas pra assinar a NFC-e no meu software, estava funcionando normalmente se eu colocar uma versão antiga do meu software funciona, mais na versão atual estou recebendo um acess violation na hora de assinar na linha: XmlAss := FSSLXmlSignClass.Assinar( ConteudoXML, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature, IdAttr); na Unit: ACBrDFeSSL.

Boa dia pessoal. Está ocorrendo o erro: "external: SIGSEGV", quando o ACBrMonitor vai assinar o XML. Eu sincronizei os fontes do projeto ACBr no dia 16/07/2019 e compilei com o Lazarus (versão 2.0.2) no Windows 7. Tudo parecia funcionar. Status do serviço, criar XML, consultar NFe, etc. Mas quando tento enviar a NFe ocorre o problema. Compilei uma versão em modo de "debug" e percebi que o erro acontece na linha 277 da "ACBrNFeNotasFiscais": FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe'); -> Configuração SSL <- SSL Lib. = libOpenSSL SSL Type = LT_TLSv1_2 Crypt. Lib. = cryOpenSSL HTTP Lib. = httpOpenSSL XML Sign. Lib. = xsXmlSec Pensei que o problema pudesse estar relacionado a configuração ou as DLLs utilizadas, mas tudo funciona perfeitamente quando uso uma versão antiga do ACBrMonitor (1.2.0.11) compilada em Julho/2018 (colocada na mesma pasta da versão nova). Alguém já teve um problema semelhante? ACBr.inc ACBrMonitor.ini

Bom dia pessoal Foram realizados alguns ajustes no provedor Infisc-v11 e que também precisa ser aplicados no provedor Infisc (versão 1.0). A alteração que identifiquei foi no arquivo ACBrNFSeWebServices.pas, linha 1554. Troca de: if FProvedor = proInfiscv11 then Para: if FProvedor in [proInfisc, proInfiscv11] then

Olá! Estou com o seguinte problema ao cancelar NFS-e. Provedor WebISSv2 na cidade de Caldas Novas - GO. Está criando a exceção abaixo quando é executada a função xmldoc.loadXML. if (not xmldoc.loadXML( WideString(AXml) )) then raise EACBrDFeException.Create('Não foi possível carregar XML'+sLineBreak+ AXml); A princípio o xml está chegando corretamente nesta função. Detalhe: Para validar a emissão, tive que alterar no arquivo Cidades.ini a versão do provedor para WebISSv2 e tive que alterar no WebISSv2.ini, acrescentando a linha: RecepcaoLoteRPS_5204508=https://%NomeURL_P%.webiss.com.br/ws/nfse.asmx. Segue arquivos alterados. Cidades.ini WebISSv2.ini

Olá, Emiti notas no início do mês sem problemas, porém hoje ao tentar emitir apareceu a mensagem "Class not registered". Funciona na minha máquina de desenvolvimento mas no servidor do cliente em produção não. Coloquei vários itens de log e verifiquei que o erro ocorre na chamada da função FSSLXmlSignClass.Assinar da unit unit ACBrDFeWebService, utilizando NFSe de Campinas (issDSF) Alguém tem uma dica para me passar, do tipo se preciso reinstalar alguma DLL? Grata, Tathiana

Boa tarde, Preciso de uma pequena ou grande ajuda, estou com um erro na função (docAssinatura = "S" ) para assinar xml utilizando lotenfse.dll Notei que a assinatura é feita pela NFSe_Util.dll, sendo que a lotenfse.dll usa a NFSe_Util.dll para assinar o xml, porem a lotenfse.dll cria uma tag automaticamente <Lote Id="lote:1ABCDZ"> só que a NFSe_Util.dll não assina quando tem caracteres inválidos no caso ":" ao meu ver. Como faço para resolver isso? Tem alguma versão nova da NFSe_Util.dll ou lotenfse.dll que faça a assinatura com esses caracteres? Ou pode ser outro problema? Estou utilizando VB6. Todas as outras funções estão perfeitas, já consegui encaminhar o xml para prefeitura de teresina /pi na base teste com sucesso. a comunicação com o WS está perfeita porém agora preciso assinar para mandar em produção e deparei com esse erro. Uso Windows 10 64bits remessa_lote175638500.xml retorno_lote175638500.xml

Prezados, boa tarde. Estou com dificuldade de configurar esse TDFeSSLXmlSignClass.Assinar ... Vi outros tópicos mais não encontrei onde coloca a configuração (imagem abaixo) ou se configuro via código. 

Boa tarde senhores: Gentilmente venho solicitar a vossa ajuda. Estou desenvolvendo um aplicativo para emissão de NF-e, NFC-e, e na minha máquina onde tenho o delphi instalado tudo funciona muito bem, mas se eu colocar o sistema em outra maquina, na mesma pastas, com a pasta com os schemas atualizados, com certificado digital instalado corretamente mesmo assim dá um erro: 'classe não registrada', como segues o arquivo de rotinas e os prints de tela anexo. Att. Gilberto F. Rezende. ROTINA.txt

Olá, estou utilizando o componente ACBrNFSe para trabalhar com o provedor ISSe, os fontes foram atualizados dia 20/09/2017 (Trunk2). Não estou usando o programa de exemplo. O envio de NFSe é normal. Estou utilizando OpenSSL. Ao enviar o pedido de cancelamento, ocorre o erro ("SignResult := xmlSecDSigCtxSign(FdsigCtx, SignNode);" do arquivo ACBrDFeXsXmlSec.pas): First chance exception at $76B7C54F. Exception class EACBrDFeException with message 'Erro -1: Falha ao assinar o Documento strdup function failed'. O xml da variável "ConteudoXML" está em anexo. O CNPJ e a Inscrição Estadual foram editados para manter o sigilo do cliente. NfseCancelamento_exemplo.xml

Pessoal, boa tarde, estmaos enfrentando um problema aqui na empresa onde trabalho, desenvolvemos uma DLL que é chamada pelo ERP da empresa para assinatura e envio do eSocial, se chamo a DLL de uma aplicação feita em Delphi, funciona redondinho, mas quando é chamada do ERP, da erro na assinatura, mas não consigo identificar o erro, pois não tenho como debugar. Pergunto: quais as DLLs necessárias para assinar o XML e quais as configurações recomendadas para a transmissão uso conforme abaixo: FACBrESocial.SSL.DescarregarCertificado; FACBreSocial.Configuracoes.Geral.SSLLib := libCustom; FACBreSocial.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; FACBreSocial.Configuracoes.Geral.SSLHttpLib := httpWinHttp; FACBreSocial.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; PS: a DLL esta em um Win Server 2012. obrigado

Oi Estou com um problema com a versão 1.1.0.38 do PLUS. Ao assinar o XML da NFe eu recebo o seguinte erro: Pesquisando vi que preciso assinar antes de validar. Entretanto todas as vezes que uso o comando ele retorna OK mas o XML some da pasta. Alguém sabe o que pode ser? PS. Uso a mesma sequencia com a MDF e está funcionando. PS2. Quando uso uma versão antiga do ACBR ele funciona sem eu assinar expressamente. Obrigado!

Ola! Estou tendo problemas em alguns clientes, ocorre access violation ao assinar. Crio o componente manualmente desta forma: AACBrMDFe := TACBrMDFe.Create(Application); AACBrMDFe.Configuracoes.Geral.SSLLib := libWinCrypt; AACBrMDFe.Configuracoes.Geral.Salvar := False; //Não salvar XML sem valor fiscal AACBrMDFe.Configuracoes.Arquivos.PathSchemas := ExtractFilePath(Application.ExeName) + 'Schemas\MDFe\'; AACBrMDFe.Configuracoes.Arquivos.PathSalvar := AConexao.LerParametroString('NFE_CAMINHO_XML', True); AACBrMDFe.Configuracoes.Arquivos.SepararPorCNPJ := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorMes := True; AACBrMDFe.Configuracoes.Arquivos.SepararPorModelo := True; AACBrMDFe.Configuracoes.Arquivos.Salvar := True; AACBrMDFe.Configuracoes.Arquivos.EmissaoPathMDFe := True; //se baseia pela data de emissão para montar o path AACBrMDFe.Configuracoes.WebServices.Visualizar := False; AACBrMDFe.Configuracoes.WebServices.Salvar := False; AACBrMDFe.Configuracoes.WebServices.UF := AFilial.xUF; AACBrMDFe.Configuracoes.Certificados.NumeroSerie := AFilial.CertSerie; AACBrMDFe.Configuracoes.Geral.VersaoDF := ve300; AACBrMDFe.EventoMDFe.Versao := '3.00'; AACBrMDFe.SSL.CarregarCertificado; if AACBrMDFe.SSL.DadosCertificado.Tipo = tpcA3 then //A3 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsMsXml; AACBrMDFe.SSL.SSLXmlSignLib := xsMsXml; end else //A1 begin AACBrMDFe.Configuracoes.Geral.SSLXmlSignLib := xsXmlSec; AACBrMDFe.SSL.SSLXmlSignLib := xsXmlSec; end; //Configura sequencia para montar o path (cnpj\anomes\modelo) AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Clear; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opCNPJ; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opData; with AACBrMDFe.Configuracoes.Arquivos.OrdenacaoPath.Add do Item := opModelo; if AtpAmb = 1 then AACBrMDFe.Configuracoes.WebServices.Ambiente := taProducao else AACBrMDFe.Configuracoes.Webservices.Ambiente := taHomologacao; //Mail if (not Assigned(AACBrMDFe.MAIL)) then AACBrMDFe.MAIL := TACBrMail.Create(Application); AACBrMDFe.MAIL.From := AFilial.Mail_Endereco; AACBrMDFe.MAIL.FromName := AFilial.Mail_NomeEmpresa; AACBrMDFe.MAIL.Host := AFilial.Mail_Servidor; AACBrMDFe.MAIL.Username := AFilial.Mail_Endereco; AACBrMDFe.MAIL.Password := AFilial.Mail_Senha; AACBrMDFe.MAIL.Port := IntToStr(AFilial.Mail_Porta); AACBrMDFe.MAIL.IsHTML := True; AACBrMDFe.MAIL.SetSSL := AFilial.Mail_SSL; AACBrMDFe.MAIL.ReadingConfirmation := False; AACBrMDFe.MAIL.AddReplyTo(AFilial.Mail_ResponderPara); Alimento o componente, e quando chamo o assinar: try ACBrMDFe.Manifestos.Assinar; except on e:exception do raise Exception.Create('Erro ao assinar. Erro: ' + e.Message); end; recebo o access violation, na verdade eu não recebo, por que aqui no meu pc funciona, mas em alguns clientes não, alguns inclusive usam o mesmo windows que tenho aqui (Win 10 Pro). Alguma idéia ? Não consigo fazer debug por que não consigo simular, estou desde ontem batendo cabeça e nada, copiei/registrei as DLLs novamente, instalei cadeia de certificados e nada.

Ao atualizar para a versão 1.1.0.28 (ultima do SAC) e chamar a função de criar NFE deu a seguinte mensagem: ERRO: TDFeSSLXmlSignClass.Assinar, nao implementado E para por ai. Alguém poderia me ajudar? Se preciso voltar a versão anterior ou alguma configuração que perdeu? Obrigado. Bruno.

Boa tarde, meu sistema emitia NFE normalmente ate eu atualizar os fontes. agora quando eu chamo o método ACBrNFe1.NotasFiscais.Assinar; ele da erro e a única descrição do erro é "parâmetro incorreto". como solucionar isso? descobri que o erro ocorre aqui: CNPJCertificado := OnlyNumber(CertCNPJ); // Lendo CNPJ do Certificado... na procedure TDFeSSL.ValidarCNPJCertificado(CNPJDocumento: String);

Boa tarde a todos Estou enviando um pedido de cancelamento para o provedor Tecnos - Estancia Velha - RS, porém obtenho o erro "Falha ao Assinar - Cancelar NFS-e: Erro -1: Falha ao assinar o Documento". Já vi tópicos relacionados a esse problema porém para outros provedores, por isso resolvi criar um novo. Alguns dados que coletei: Fontes atualizados, Schemas atualizadas, dlls corretas(ao menos eu acho pois o envio funciona normalmente) Ao alimentar o componente informo o arquivo e senha do certificado, certificado válido pois foi enviada a nota e algumas horas depois foi realizado a tentativa de cancelamento. reparei que foi falado da propriedade "infElement". No meu caso no trecho TDFeWebService.AssinarXML FPDFeOwner.SSL.Assinar(AXML, docElement, infElement, SignatureNode, SelectionNamespaces, IdSignature) Os únicos parâmetros que estão preenchidos é AXML(anexo) e docElement('Pedido></CancelarNfseEnvio') Não sei se esta correto ou não. Logo no metodo TDFeOpenSSL.Assinar passa por uma função AdicionarSignatureElement que adiciona algumas tags de assinatura no xml. Em seguida XmlSecSign(AXml, AnsiString(SignatureNode), AnsiString(SelectionNamespaces), AnsiString(infElement)) Novamente o único parametro preenchido é AXml(anexo 2). Chegando no metodo TDFeOpenSSL.XmlSecSign, ao executar o código SignResult := xmlSecDSigCtxSign(FdsigCtx, SignNode) retorna -1 causando a exceção. Vou continuar procurando mas se alguem puder ajudar Obrigado pela atenção. Anexo 2.xml Anexo.xml

Bom dia, Gostaria de saber se é possível assinar o xml de evento separadamente como é feito no envio de NF-e, por exemplo: ACBrNFe1.NotasFiscais.Clear; ACBrNFe1.NotasFiscais.LoadFromString(xml); ACBrNFe1.NotasFiscais.Assinar(); Neste caso obtive sucesso no envio de NF-e, mas estou tentando assinar um evento separadamente mas não consigo, não acho as opções equivalentes, alguém poderia me ajudar? Att

Bom dia, estou com um problema na mdfe, quando eu utilizo o comando Assinar com a tag prop o campo de UF do veiculo de tração é alterado de "SC" para "F&gt;" e a tag infNFE é removida por completo. eu utilizo apenas o comando loadFromFile do Mdfe para carregar o arquivo não assinado e depois apenas o comando assinar. Quando faço o debug apos a leitura do arquivo, a UF do veiculo de tração fica : "F>" Detalhe: Sem a tag prop, funciona perfeitamente. não assinada: nAssinada42161221403577000114580010000000451000001995.xml assinada: Assinada42161221403577000114580010000000451000001995.xml

Como faço para assinar um conjunto de NFes carregadas no componente e pegar a Chave de Acesso? ACBrNFe1.NotasFiscais.Assinar; ACBrNFe1.NotasFiscais.VerificarAssinatura(msg); for i := 0 to ACBrNFe1.NotasFiscais.Count -1 do begin with(ACBrNFe1.NotasFiscais.Items[i])do begin ChaveAcesso := procNFe.chNFe; end; end; Após assinar o campo que eu acho que era para vir a Chave, está vindo vazio. Como faz para pegar a chave de cada nota separadamente após assinar?

Boa tarde pessoal. Primeiramente passando os dados da situação Dados: Delphi: XE 7 Certificado: A3 Versão do Windows: 8.1 x64 ACBr: truck2 Leitora da Gemalto Certificado cartão Charismathics versão em produção webservice: RS Se eu for assinar uma NFe, ocorre o erro "falha na inicialização correta da DLL provedor". Este erro só ocorre com certificados A3, já com certificados A1, funciona normalmente. Fazendo alguns testes, percebi que se consultar a NFe antes de assinar, ai consigo informar o pin e utilizar normalmente, inclusive autorizar nas NF-es. Resumindo o erro ocorre se eu tentar assinar a NF-e antes de consultar, mas só nos certificados A3. Já registrei as dlls corretamente, tanto que consigo autorizar NF-es. O que pode ser?

Bom dia. Preciso da ajuda dos amigos com NFC-e identificando destinatário. Quando informo CPF ou CNPJ, ocorre erro de assinatura, dizendo que o CNPJ do certificado é diferente do cnpj do xml. Debugando, verifiquei que ao assinar, ele recebe o cnpj correto, mas na rotina de assinar, ele manda gerarXML, que novamente assina, daí já recebe pela segunda vez sem este cnpj no xml. Algué sabe dizer alguma coisa? Se, o destinatário está emitindo normalmente. Uso o trunk-2. procedure NotaFiscal.Assinar; var XMLStr: String; XMLUTF8: AnsiString; Leitor: TLeitor; CNPJEmitente, CNPJCertificado: String; begin // VErificando se pode assinar esse XML (O XML tem o mesmo CNPJ do Certificado ??) CNPJEmitente := OnlyNumber(NFe.Emit.CNPJCPF); CNPJCertificado := OnlyNumber(TACBrNFe(TNotasFiscais(Collection).ACBrNFe).SSL.CertCNPJ); // verificar somente os 8 primeiros digitos, para evitar problemas quando // a filial estiver utilizando o certificado da matriz if (CNPJCertificado <> '') and (Copy(CNPJEmitente, 1, 8) <> Copy(CNPJCertificado, 1, 8)) then raise EACBrNFeException.Create('Erro ao Assinar. O XML informado possui CNPJ diferente do Certificado Digital' + #13+ 'CNPJ NOTA ='+ Copy(CNPJEmitente, 1, 8) +#13+ 'CNPJ CERTIFICADO='+Copy(CNPJCertificado, 1, 8) ); // Gera novamente, para processar propriedades que podem ter sido modificadas XMLStr := GerarXML; // XML já deve estar em UTF8, para poder ser assinado // XMLUTF8 := ConverteXMLtoUTF8(XMLStr); with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin FXMLAssinado := SSL.Assinar(String(XMLUTF8), 'NFe', 'infNFe'); FXMLOriginal := FXMLAssinado; Leitor := TLeitor.Create; try leitor.Grupo := FXMLAssinado; NFe.signature.URI := Leitor.rAtributo('Reference URI='); NFe.signature.DigestValue := Leitor.rCampo(tcStr, 'DigestValue'); NFe.signature.SignatureValue := Leitor.rCampo(tcStr, 'SignatureValue'); NFe.signature.X509Certificate := Leitor.rCampo(tcStr, 'X509Certificate'); finally Leitor.Free; end; // Se for NFCe, deve gera o QR-Code para adicionar no XML após ter a // assinatura, e antes de ser salvo. // Homologação: 01/10/2015 // Produção: 03/11/2015 if (NFe.Ide.modelo = 65) and (Configuracoes.Geral.IncluirQRCodeXMLNFCe) then begin with TACBrNFe(TNotasFiscais(Collection).ACBrNFe) do begin NFe.infNFeSupl.qrCode := GetURLQRCode(NFe.Ide.cUF, NFe.Ide.tpAmb, onlyNumber(NFe.infNFe.ID), IfThen(NFe.Dest.idEstrangeiro <> '', NFe.Dest.idEstrangeiro, NFe.Dest.CNPJCPF), NFe.Ide.dEmi, NFe.Total.ICMSTot.vNF, NFe.Total.ICMSTot.vICMS, NFe.signature.DigestValue); GerarXML; end; end; if Configuracoes.Arquivos.Salvar and (not Configuracoes.Arquivos.SalvarApenasNFeProcessadas) then begin if NaoEstaVazio(NomeArq) then Gravar(NomeArq, FXMLAssinado) else Gravar(CalcularNomeArquivoCompleto(), FXMLAssinado); end; end; end; NFCE.XML rotina destinatario.txt rotina emitente.txt

Olá companheiros, boa noite! Andei observando o código do ACBrNFe.pas, e concluí que eu não preciso fazer "NotasFiscais.Assinar" e "NotasFiscais.Valida". Pelo que entendi, quando executo "ACBrNFe.Enviar", o ACBr já faz também a assinatura e validação. Está correto isso? Ou não entendi direito o código ? Grato, CelsoVS

Prezados, estou implementando a NFS-e de São Paulo no ERP da empresa, fiz as atualizações dos fontes fornecidas pelo ArielDLL. Porém ao assinar o XML, na unit ACBrNFSeUtil, no trecho: if (not xmldoc.loadXML(AXML)) then raise Exception.Create('Não foi possível carregar o arquivo: ' + AXML); É gerado o erro da exceção. Alguém pode me ajudar? Obrigado!

Bom dia a todos. Preciso de uma ajuda urgente. eu já tenho o XML da nota fiscal gerada pelo ACBR, porem não consigo montar uma rotina que Valide e Assine o XML estou usando um programa de terceiro pago para fazer isso. Alguém pode me dar uma ajuda, consegui validar algumas notas porem nada conclusivo pois sempre gera um erro a cada 10 notas 8 geram erros e se eu pegar o mesmo XML e passar neste programa de terceiro ele envia, valida e assina a nota. Alguém pode me ajudar na rotina quais os passos que devo fazer.

Olá, sou novo aqui no fórum e não encontrei nada a respeito. Gostaria de saber se existe alguma forma de NÃO assinar EAD os arquivos gerados pelas funções PAF. Poderia ser dada esta opção para o desenvolvedor como nos exemplos abaixo. EXEMPLOS: ECF.PafMF_LMFC_Espelho( nCRZInicial , nCRZFinal, cPathArquivo ) <- Função Atual ECF.PafMF_LMFC_Espelho( nCRZInicial , nCRZFinal, cPathArquivo, bNaoAssinar ) <- Sujestão ECF.PafMF_LMFC_Cotepe1704(dDataInicial, dDataFinal, cPathArquivo) <- Função Atual ECF.PafMF_LMFC_Cotepe1704(dDataInicial, dDataFinal, cPathArquivo, bNaoAssinar) <- Sujestão Obrigado!

boa tarde a todos! Estou precisando implantar em meu sistema, feita em delphi, uma função para assinar documentos PDF. Sei que aqui tem a função de assinar o XML, que inclusive uso em meu sistema. Alguém poderia me ajudar? Grato