Adeildo Silva
Membros-
Total de ítens
7 -
Registro em
-
Última visita
Últimos Visitantes
1.080 visualizações
Adeildo Silva's Achievements
-
Eu estava passando por isso também em um cliente hoje (03-08-2018) e resolvi assim: ACBr.SSL.SSLType := LT_TLSv1_2;
-
Olá colegas, Após a revisão 13271, identificamos vazamento de memória na procedure CriarDataSetsFrx, pois os componentes criados em runtime no Create está sendo passado nil e não há destruição dos mesmos. fiz a correção passando Self. Segue em anexo unit ACBrMDFeDAMDFEFR.pas ACBrMDFeDAMDFEFR.pas
-
Epson TM-T20 imprimir DANFe NFCe
Adeildo Silva replied to andersonh's tópico in NFC-e - Nota Fiscal do Consumidor Eletrônica
Boa noite Leonardo, Estou fazendo uns testes com essa impressora, mas estou tendo problemas com as margens dela (corta no lado esquerdo), e ao ajustar a margem esquerda ela corta na margem direita. O curioso é que se mandar imprimir o PDF gerado pelo fastreport ou até mesmo um texto via notepad a impressão sai perfeita. Você precisou ajustar o seu .fr3 pra que ela funcione adequadamente? Até mais. -
Nf-E Em Contingência Svc-An E Svc-Rs
Adeildo Silva replied to Cristiane - Afirmação's tópico in ACBrNFe
Olá pessoal, Fiz um pequeno ajuste (ACBrNFeWebServices.pas) na procedure abaixo, pois nesta data (04/07/2015) a Sefaz-BA está totalmente OFF e pra consultar o status do serviço SVC-RS foi preciso acrescentar a linha em destaque: procedure TNFeStatusServico.DefinirServicoEAction; begin if (FConfiguracoes.Geral.ModeloDF = moNFe) and (FConfiguracoes.Geral.VersaoDF = ve310) and (FConfiguracoes.WebServices.UFCodigo = 29) and // then (FConfiguracoes.Geral.FormaEmissao = teNormal) then begin FServico := CURL_WSDL + 'NfeStatusServico'; FSoapAction := FServico + '/NfeStatusServicoNF'; end else begin FServico := CURL_WSDL + 'NfeStatusServico2'; FSoapAction := FServico; end; end; Até a próxima. -
Olá EMBarbosa, Conforme solicitado segue o anexo. ACBrNFeWebServices.pas
-
Olá parceiros, Identificamos memory leak na unit ACBrNFeWebServices.pas na linha 1159, caso não tenha sido definido um certificado digital, pois a procedure ConfiguraReqResp gera uma exceção quebrando o bloco try..finally, segue trecho do código: {$IFDEF ACBrNFeOpenSSL} HTTP := THTTPSend.Create; {$ELSE} {$IFDEF SoapHTTP} ReqResp := THTTPReqResp.Create(nil); ReqResp.UseUTF8InHeader := True; {$ELSE} ReqResp := TACBrHTTPReqResp.Create; // <--- vai gerar memory leak caso não tenha sido informado um certificado {$ENDIF} ConfiguraReqResp( ReqResp ); // <--- memory leak no objeto THTTPReqResp, pois essa linha gera uma exceção ReqResp.URL := URL; ReqResp.SoapAction := SoapAction; {$ENDIF} FEnvelopeSoap := UTF8Encode(FEnvelopeSoap); sugestão: {$IFDEF ACBrNFeOpenSSL} HTTP := THTTPSend.Create; {$ELSE} {$IFDEF SoapHTTP} ReqResp := THTTPReqResp.Create(nil); ReqResp.UseUTF8InHeader := True; {$ELSE} ReqResp := TACBrHTTPReqResp.Create; {$ENDIF} {$ENDIF} try {$IFNDEF ACBrNFeOpenSSL} ConfiguraReqResp( ReqResp ); // <-- gera a exceção controlada por try..finally ReqResp.URL := URL; ReqResp.SoapAction := SoapAction; {$ENDIF} FEnvelopeSoap := UTF8Encode(FEnvelopeSoap); ... Até mais.
-
Olá parceiros, Identificamos memory leak na unit pcnNFe.pas na linha 2023, segue trecho do código: constructor TIde.Create(AOwner: TNFe); begin inherited Create; FNFref := TNFrefCollection.Create(Self); // refNFP := TRefNFP.Create; // no repositório está assim FrefNFP := TRefNFP.Create; //<--- acredito que deveria ser assim end; destructor TIde.Destroy; begin FNFref.Free; FrefNFP.Free; //<--- esta linha precisa ser adicionada. inherited; end; Até mais. PS: a revisão do repositório é a 9078.