Jump to content

Adeildo Silva

Membros
  • Posts

    7
  • Joined

  • Last visited

Recent Profile Visitors

889 profile views

Adeildo Silva's Achievements

Newbie

Newbie (1/14)

  • First Post
  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

3

Reputation

  1. Eu estava passando por isso também em um cliente hoje (03-08-2018) e resolvi assim: ACBr.SSL.SSLType := LT_TLSv1_2;
  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
  3. 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.
  4. 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.
  5. Olá EMBarbosa, Conforme solicitado segue o anexo. ACBrNFeWebServices.pas
  6. 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.
  7. 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.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.