[Erro Unknown 495 - Goiás]

On 7/31/2018 at 1:19 AM, licerio said:

Boa galera..

Prazo esgotando aqui em Goias e erro 495 persiste , 

Alguém conseguiu uma solução ou a coisa ta pegando é no sefaz mesmo ???

 

Grato

Eu estava passando por isso também em um cliente hoje (03-08-2018) e resolvi assim: ACBr.SSL.SSLType := LT_TLSv1_2;

[Correção - Memory leak]

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]

Utilizo essa impressora com o FastReport desde o projeto piloto em Mato Grosso, em clientes de varejo com grande fluxo de impressão.

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]

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.

[Memory Leak]

Olá EMBarbosa,

Conforme solicitado segue o anexo.

ACBrNFeWebServices.pas

[Memory Leak]

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.

[Memory Leak]

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.