smaniand

Ciao @Italo Jurisato Junior, atualizei os fontes ontem, ainda tenho o erro de tamanho do field <infNFeSupl>. Quando irà ser resolvido?Obrigado pela ajuda, Andrea.

Favor, veja isso: Configure o componente assim:

Voce deve copiar todas as DLLs (OpenSSL, XMLSec....) da pasta ACBr na pasta do seu executavel, Tb se voce ainda usa o Capicom, deve registrar as DLLs da pasta ACBr\Capicom Ciao Andrea

Resolvei removendo CAPICOM:

Tive o mesmo problema, resolvei assim : Veja:

Copie as DLLs da pasta ACBr\DLLs\XmlSec\ no diretorio de seu aplicativo e refaça o teste

Estado de SP. Atualizei os fontes agora, recompilei somente ACBr_TCP, e fiz o teste novamente: o erro interno mudou para 12030. Mudei a property SSLType para LT_ALL, fiz novamente o teste e funcionou! Grazie a tutti! Andrea

Testei com A3. NFe tudo certo. NFCe, erro: Erro Interno: 12175 Erro HTTP: 4 Falha no envio da requisição . Erro:Erro: 12175 Obrigado pela ajuda Andrea

Ciao a todos, atualizei os fontes e compilei o sistema novamente. Com certificado A1 tudo funciona normal. Vou fazer um teste com certificado A3: o certificado està em SP, eu estou na Italia, necessito aguardar 4 horas mais ou meno kkkkkkk Andrea

@Daniel Simoes obrigado pela ajuda. Pelo que eu entendo,serà possivel usar a nova biblioteca WinCrypt apenas com os certificados digitais A1, correto? Quando serà possivel usar WinCrypt para todos os tipos de certificado (A3)? Tenho outra dúvida: no caso de TLS 1.2 também é necessário usar MinGW com WinCrypt? Acho que não, certo? Grazie Andrea

Onde eu encontro as implementações do Daniel? Voce esta falando da property SSLLib ? Andrea

OpenSSL so funciona com A1 ou funciona com A3 tb? Como posso passar o caminho do arquivo pois A3 è um cartão/leitora... Obr. Andrea

Tente assim: try try nCorr:=TabellaNFeXml.FieldByName('Numero_correzioni').AsInteger; except nCorr:=0; end; inc(nCorr); ACBrNFe1.EventoNFe.Evento.Clear; if TabellaDocumentoScontrinoFiscale2.asInteger=55 then ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe else if TabellaDocumentoScontrinoFiscale2.asInteger=65 then ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFCe else ACBrNFe1.Configuracoes.Geral.ModeloDF := moNFe; with ACBrNFe1.EventoNFe.Evento.Add do begin OldTimeSeparator:=FormatSettings.TimeSeparator; TimeSeparator:=':'; infEvento.chNFe := TabellaNFeXMLChave_Acesso.asString; if TabellaDocumentoCodFIvaNe.asString<>'' then infEvento.CNPJ := TabellaDocumentoCodFIvaNe.asString else infEvento.CNPJ := TabellaDocumentoCodFIvaAz.asString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := nCorr; infEvento.detEvento.xCorrecao := Justificativa; end; Numero_lote:=ModuloDatabaseAll.IniProgressivi.IncLongint('NFE','Lote'); ACBrNFe1.EnviarEvento(numero_lote); id:=ACBrNFe1.EventoNFe.Evento[0].InfEvento.id; delete(id,1,2); finally FormatSettings.TimeSeparator:=OldTimeSeparator; end; if ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.cStat=135 then begin TabellaNfeXml.Edit; TabellaNfeXml.FieldByNAme('Numero_correzioni').asInteger:=nCorr; TabellaNfeXml.FieldByNAme('id_evento').asString:=id; TabellaNfeXml.Post; salva_xml(path_tmp+id+'-procEventoNFe.xml',5); sMessageDlg('Evento: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+#13#10+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento,mtInformation,[mbok],0); ACBrNFeDANFEFR1.MostrarPreview:=true; nomefile:=path_tmp+id+'-procEventoNFe.xml'; ACBrNFe1.EventoNFe.Evento.Clear; ACBrNFe1.EventoNFe.LerXML(nomefile); ACBrNFeDanfeFR1.FastFileEvento:=path_stampe+'Documenti\EVENTOS.fr3'; ACBrNFe1.ImprimirEvento; end else sMessageDlg('Evento: '+ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo+#13#10+ ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.xEvento,mtInformation,[mbok],0);

Sim, parece. O estranho è que antes de instalar o update do nosso software, foi tudo ok. Depois de update, nada funciona.

a NFe nao està na sefaz. com o Demo, eu carrego o numero de serie do certificado, depois quando eu clicar em botao SHA265+RSA, aparece telinha do pin e depois eu clicar em ok, demo trava tb. Andrea Foi para o site da sefaz, para baixar o XML de uma nota enviada ontem (google chrome). Quando eu clicar no botao "Baixa XML", aparece a tela do chrome que solicita o certificado, depois aparece a telinha para senha, e o Chrome trava tambem! Serà um problema no driver do certificado? Andrea

Estou enviando uma NFe modelo 55. A senha nao està configurada, a telinha aparece, quando vou digitar o pincode e Ok, o software trava (ou parametro incorretto) Agora vou tentar usar o demo, obrigado pela ajuda Andrea

O problema è que o aplicativo nem gera o XML... Ao chamar o metodo AcbrNfe1.Enviar o aplicativo trava, ou mensagem "Parametro Incoreto" (em portugues) Tentei compilar ACBr sem OpenSSL, tentei usar MinGW...mesmo problema. Att. Andrea Usando um certificado A1, è tudo certo. Somente A3 tem problema. Mas temos um outro cliente com certificado A3 Boa Vista e tudo funciona normal, mesma versao do apllicativo

Boa tarde, favor, alguem pode ajudar? Temos o mesmo problema, ao assinar a Nfe aparece o erro "Parametro Incorreto" Obr. Andrea

Ok now we are a step ahead. We are usinc CAPICOM, and now i set the parameter SSLLib to LibCapicom. After this, the software does not hangs anymore. But when we send the NFe, the software raises an excaption: Parametro Incoreto. Any help appreciated, thanks

Hi all, we have a huge problem with our software. We are using trunk2, components updatet to today 16/03/2017. We have a "leitor" Serasa Gemalto, and the "Certificado Digital" is Serasa too, A3. When our software calls ACBrNFe1.SSL.SelecionarCertificado, it opens a windows where you can select the certificates installed in the machine. As soon as we select the A3 Certificate and we press ok, the software CRASHES. All was working with ACBr sourcecode from 1 year ago (when the method was called: ACBrNFe1.Configuracoes.certificados.....) What can we do? Other useful info: problem occurredn in a CPU with Windows8, we moved the "leitor" in a CPU with Windows 10, and same problem. All works with Certificado A1. Thanks Andrea ITALY

So, I did a BeyonCompare and for what I can see, in function TACBrNFeDANFEFR.PrepareReport(NFE: TNFe): Boolean; 1) You commented the linese: // if Assigned(ACBrNFe) then // if(TACBrNFe(ACBrNFe).Configuracoes.Geral.ModeloDF = moNFCe)then // FdmDanfe.frxReport.PrintOptions.PrintMode := pmSplit; 2) You added this at the end: for i := 0 to FdmDanfe.frxReport.PreviewPages.Count - 1 do begin Page := FdmDanfe.frxReport.PreviewPages.Page; if MargemSuperior > 0 then Page.TopMargin := MargemSuperior * 10; if MargemInferior > 0 then Page.BottomMargin := MargemInferior * 10; if MargemEsquerda > 0 then Page.LeftMargin := MargemEsquerda * 10; if MargemDireita > 0 then Page.RightMargin := MargemDireita * 10; FdmDanfe.frxReport.PreviewPages.ModifyPage(i, Page); end; Uncommenting 1) and commenting 2) makes everything work again. Thanks Andrea

Hello! We update ACBr fonts in 26/09/2016, starting from a June 2015 version. We are in trunk2. After the update , we have a problem in printing the NFCe. Please look at the attacched PDF . Attacched you can also find the fast report file that we are using. This file comes from an old version of ACBr (around June 2015), and it is "standard", we did not modify anything. We cannot use the "new" fr3 because it is compiled with fast report 5.0 and we are still using 4.0 Could you please help us? Many Thanks Andrea, ITALY. DANFeNFCe.fr3 DANFeNFCe.pdf

Ok Daniel, many thanks! I will have a look on trunk2 migration soon, Ciao Andrea

Solution proposal, in ACBrECFClass.DoLeResposta Fim := True ; if not FimLeitura then begin Fim := False ; try fpRespostaComando := fpRespostaComando + { Le conteudo da porta } fpDevice.LeString(100) ; LenResp := Length( fpRespostaComando ) ; except sleep(10) ; end ; if LenResp <> fsBytesRec then begin // ECF está respondendo, portanto está trabalhando // TempoLimite := IncSecond(now, TimeOut); fsBytesRec := LenResp ; end else FimLeitura := VerificaFimLeitura(fpRespostaComando, TempoLimite) ; end else if AguardaImpressao then begin Fim := VerificaFimImpressao( TempoLimite ) ; if not Fim then sleep(200) ; end ; Here we check the FimLeitura only when there are no more data to read. When there are no more data, fpDevice.LeString will raise an exception, catched. Then LenResp will be equal to fsBytesRec, and we can finally check the FimLeitura. With this solution we solve also the problem mentioned on my above post, regarding the ETX that is not a real ETX, and we can remove the fpDevice.Serial.CanReadEx(1000) in ACBrECFBematech.pas that is generating the problem. Please let me have your opinion, thanks Andrea

Hi, I think the problem reported by @Luiz Paulo is similar on this thread: @Luiz Paulo are you connecting the printer via USB or COM? Thanks Andrea