Pesquisar na Comunidade

Estou gerando nfc-e e quando eu rodo o comando NFE.WebServices.Enviar.Executar ele me retorna o erro "lote nao pode ser enviado. erro: código numérico inválido, chave não gerada.' ai achei aqui mesmo no forum essa solucção https://www.projetoacbr.com.br/forum/topic/51985-c%C3%B3digo-num%C3%A9rico-inv%C3%A1lido-chave-n%C3%A3o-gerada/ Só que ja tentei de tudo e sempre da erro. no meu sistema estou gerando a codigo da nota e o numero da nota assim: num := NFCEgeranumero(empresa, conexao, erro); nfe.NotasFiscais[0].NFe.Ide.nNF := strtointdef(num,1); nfe.NotasFiscais[0].NFe.Ide.cNF := GerarCodigoDFe(nfe.NotasFiscais.Items[0].NFe.ide.nNF); e na hora de gerar o lote estou fazendo assim: NFE.WebServices.Enviar.Lote := nfe.NotasFiscais[0].NFe.Ide.cNF.tostring; nao sei mais o que fazer. estou meio perdido nisso.

Boa noite a todos Realizei um ajuste bem simples na função CalcularNomeArquivo presente na unit "ACBrNFeNotasFiscais.pas" alterando a sintática do nome para facilitar a identificação do arquivo xml salvo conforme o seu modelo. Trecho da função alterado : De : NomeXML := '-nfe.xml'; Para : NomeXML := IfThen(Self.FNFe.Ide.modelo=65,'-nfce.xml','-nfe.xml'); Mudança simples mas ajuda a quem armazena todos os xml processados no mesmo local quando usa o nome do arquivo gerado automaticamente pelo ACBRNFE, como eu.

Gostaria de fazer uma nova sugestão na demos da NFe/NFCe em relação as "imputbox" individualizadas. Original : Novo Código Basicamente ficaria assim, invés de tela a telas

Ótimo dia! Alguém poderia analisar onde está o erro por gentileza? Estou anexando o XML. Grato desde já 29190106163961000101650010000000011000000014-nfe.xml

Bom dia, como satisfazer a dependência de cada pacote do acbrnfce, no caso o acbrnfce, criei.o executável, satisfiz a dependência do libxml2.dll que me pediu a partir daí dá erro, não me pede a Dll, existe alguma forma de embutir no executável automaticamente as suas dependências, ou terei que buscar uma. A uma e incluir no tesouro escondido do aplicativo, peço desculpas pela pergunta bem inicial mais é que ainda estou aprendendo e necessito do executável para testes em uma máquina que não tem Delphi e acbr instalados, obrigado

Boa noite, irmãos, gostaria de saber se algum dos irmãos passou por essa, dúvida, gostaria de saber se para cada estado brasileiro existe um modelo de SAT especifico ou eles são genéricos. funciona para qualquer estado brasileiro. Sou do Ceará estou com o projeto de NFECe Com SAT e mim surgiu essa dúvida. Desde já agradeço a ajudar de todos.

Não consigo imprimir na impressora fiscal Bematech MP4000. Quando utilizo o demo de ECF ela imprime direitinho, Leitura X, Redução Z, Não Fiscal, etc... Mas NFCe DANFESCPOS com ACBR Printer, ela seque responde. Não apresenta erro algum, simplesmente não acontece nada. O que pode estar errado. Já utilizei o exemplo de impressão de DANFE ESCPOS que está no Trunk2, atualizei os fontes reinstalei tudo e nada funciona..... Estou usando Delphi XE

Caros colegas, ao criar uma uma NFC-e em ambiente de homologação para o Acre, a mesma é gerada normalmente, más ao consultar pelo QRCode, estou recebendo a seguinte mensagem: 102 - QR Code Inválido Informo que estou alimentando as seguintes propriedades: ACBrNFe1.Configuracoes.Geral.CSC := A_Menu.LeRegistro('NFCe','Token'); ACBrNFe1.Configuracoes.Geral.IdCSC := A_Menu.LeRegistro('NFCe','ID_Token'); Estou informando com o CSC do cliente e o idCSC informados pela própria receita do estado. Alguém ja passou por isso? Agradeço pela a atenção Marcos

Olá pessoal, procurei no fórum e em outros locais na Web e não encontrei. Estou preparando meu sistema pra emitir a NFCe, já tenho o CSC e o IDToken/CSC, consigo emitir em ambiente de homologação normalmente e gerar o DANFCe. Porém no momento de consultar pelo celular usando um leitor QRCode o seguinte erro é exibido: "Ocorreu um erro no processamento da página. Failed to convert parameter value from a String to Int64." Já tentei com uns 3 que emiti, e nada. Dados técnicos: Delphi 7, Firebird 2.1, Danfe do Fast Report (DANFeNFCe.fr3), Estado: BA Segue anexo do DANFE com problemas. Em caso de uso do DANFECe (do FastReport) teria algum tratamento especifico para montagem do QRCode? Não pesquisei a fundo, mas estou presumido que o proprio componente faça tal montagem. Desde já agradeço. DANFeNFCe_Problemas.pdf

Olá pessoal, Sou novato em NFC-e e preciso desenvolver uma solução para um cliente do MT. Há um tempo atrás eu comecei a testar o acbrnfe para NFC-e e consegui enviar a NFC-e pelo aplicativo demonstração do componente. Porém como a solução não era urgente não cheguei a implementar no meu sistema. Agora será necessário, e quando fui testar novamente pelo demo há o seguinte erro Erro: Requisicao nao enviada 12002 - o tempo limite da operação foi atingido Atualizei o componente e o erro persiste. Pensei que pudesse ser o servidor de homologação mas não encontrei nada que verifique a disponibilidade do servidor. Alguém sabe como me ajudar? Desde já agradeço a atenção Luciano

Utilizo ao ACBr para emissão de NFe e NFCe, e em ambos os casos tudo tem funcionado perfeitamente com a CAPICOM. Também criei uma função com base na função NFeUtil.Assinar para assinar outro modelo de documento XML chamado de DAI (Declaração Amazonense de Importação), enquanto eu estava usando a versão anterior do ACBr eu conseguia assinar e validar estes arquivos de DAI no site da sefaz. Porém a poucos dias atualizei a versão do ACBR, devido a atualização para o padrão 3.10 do NFCe e e estes documentos de DAI passaram a ser rejeitos com a seguinte mensagem de retorno: Assinatura Inválida (Digest do Documento não Confere). O Interessante é quando utilize outro aplicativo para assinar o documento como XML Signer o digest value gerado é diferente do gerado por esta função que uso (detalhe estou usando o mesmo certificado digital para ambas aplicações). Alguém pode me dar uma dica do que está acontecendo? Abaixo a função que uso e em anexo o arquivo assinado: Desde já agradeço pelo suporte técnico. function AssinarDIe(XML : AnsiString; Certificado : ICertificate2; out XMLAssinado : AnsiString): Boolean; var I, J, PosIni, PosFim : Integer; URI : String ; Tipo : Integer; xmlHeaderAntes, xmlHeaderDepois : AnsiString ; xmldoc : IXMLDOMDocument3; xmldsig : IXMLDigitalSignature; dsigKey : IXMLDSigKey; signedKey : IXMLDSigKey; begin Assinatura:=TStringList.Create; Assinatura.Clear; if (Pos('<Signature',XML) <= 0) and (TipoAssinatura='Matriz') then //Assinar MatrizDIe begin I := pos('<InfMatrizDIe',XML) ; Tipo := 1; URI := 'MatrizDIe00000041483057' ; if Tipo = 1 then XML := copy(XML,1,pos('</MatrizDIe>',XML)-1); XML := XML + '<Signature xmlns="http://www.w3.org/2000/09/xmldsig#"><SignedInfo><CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/><SignatureMethod Algorithm="http://www.w3.org/2000/09/xmldsig#rsa-sha1" />'; XML := XML + '<Reference URI="#'+URI+'">'; XML := XML + '<Transforms><Transform Algorithm="http://www.w3.org/2000/09/xmldsig#enveloped-signature" /><Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315" /></Transforms><DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />'; XML := XML + '<DigestValue></DigestValue></Reference></SignedInfo><SignatureValue></SignatureValue><KeyInfo></KeyInfo></Signature>'; if Tipo = 1 then XML := XML + '</MatrizDIe>'+'</enviMatrizDIe>'; end Else begin //Assinar DIe I := pos('<InfDIe',XML) ; Tipo := 2; URI := URIDIe ; end; // Lendo Header antes de assinar // xmlHeaderAntes := '' ; I := pos('?>',XML) ; if I > 0 then xmlHeaderAntes := copy(XML,1,I+1) ; xmldoc := CoDOMDocument50.Create; xmldoc.async := False; xmldoc.validateOnParse := False; xmldoc.preserveWhiteSpace := True; xmldsig := CoMXDigitalSignature50.Create; if (not xmldoc.loadXML(XML) ) then begin Log:=TStringList.Create; Log.Text:=xml; Log.SaveToFile('C:\LogDAI.XML'); raise EACBrNFeException.Create('Não foi possível carregar o arquivo (Foi Gerado um Log em C:\LogDAI.txt).'); end; xmldoc.setProperty('SelectionNamespaces', DSIGNS); xmldsig.signature := xmldoc.selectSingleNode('.//ds:Signature'); if (xmldsig.signature = nil) then raise EACBrNFeException.Create('É preciso carregar o template antes de assinar.'); if NumCertCarregado <> Certificado.SerialNumber then CertStoreMem := nil; if CertStoreMem = nil then begin CertStore := CoStore.Create; CertStore.Open(CAPICOM_CURRENT_USER_STORE, 'My', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); CertStoreMem := CoStore.Create; CertStoreMem.Open(CAPICOM_MEMORY_STORE, 'Memoria', CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED); Certs := CertStore.Certificates as ICertificates2; for i:= 1 to Certs.Count do begin Cert := IInterface(Certs.Item) as ICertificate2; if Cert.SerialNumber = Certificado.SerialNumber then begin CertStoreMem.Add(Cert); NumCertCarregado := Certificado.SerialNumber; end; end; end; OleCheck(IDispatch(Certificado.PrivateKey).QueryInterface(IPrivateKey,PrivateKey)); xmldsig.store := CertStoreMem; dsigKey := xmldsig.createKeyFromCSP(PrivateKey.ProviderType, PrivateKey.ProviderName, PrivateKey.ContainerName, 0); if (dsigKey = nil) then raise EACBrNFeException.Create('Erro ao criar a chave do CSP.'); signedKey := xmldsig.sign(dsigKey, $00000002); if (signedKey <> nil) then begin XMLAssinado := xmldoc.xml; PosIni := Pos('<SignatureValue>',XMLAssinado) + length('<SignatureValue>'); PosFim := Pos('</SignatureValue>',XMLAssinado)-1; PosIni := Pos('<SignatureValue>',XMLAssinado)+length('<SignatureValue>'); XMLAssinado := copy(XMLAssinado,1,PosIni-1) + StringReplace( copy(XMLAssinado,PosIni,length(XMLAssinado)), ' ', '', [rfReplaceAll] ) ; PosIni := Pos('<X509Certificate>',XMLAssinado)-1; PosFim := DFeUtil.PosLast('<X509Certificate>',XMLAssinado); XMLAssinado := copy(XMLAssinado,1,PosIni)+copy(XMLAssinado,PosFim,length(XMLAssinado)); end else raise EACBrNFeException.Create('Assinatura Falhou.'); if xmlHeaderAntes <> '' then begin I := pos('?>',XMLAssinado) ; if I > 0 then begin xmlHeaderDepois := copy(XMLAssinado,1,I+1) ; if xmlHeaderAntes <> xmlHeaderDepois then XMLAssinado := StuffString(XMLAssinado,1,length(xmlHeaderDepois),xmlHeaderAntes) ; end else XMLAssinado := xmlHeaderAntes + XMLAssinado ; end ; dsigKey := nil; signedKey := nil; xmldoc := nil; xmldsig := nil; Assinatura.Clear; Assinatura.Text:=XMLAssinado; Result := True; end; 1413914987.xml