marcellocainelli

Prezados, Com relação ao problema citado pelo colega, percebi que se cai a internet na hora do comando ACBrNFe.WebServices.Retorno.Executar ocorre o erro citado. Dai não é possivel pegar o cStat e o XML não é gravado na máquina. Marcello.

Prezados, Gostaria de implementar uma classe para NFe usando o ACBrNFe e ACBrNfeDanfeRave. Ocorre que se mantenho estes componentes em um DM funciona tudo perfeitamente, mas se tento implementá-los na classe tenho access violation ao tentar imprimir o danfe e gerar email. Imagino que deva ser um problema na criação dos componentes em runtime. Fiz assim: type TNotaFiscalEletronica = class private fACBrNfe: TACBrNFe; //Componente gera e transmite a NFe fACBrNfeDanfeRave: TACBrNFeDANFERave; //Componente que emite o Danfe procedure NFeStatusChange(Sender: TObject); public constructor Create; virtual; destructor Destroy; override; property ACBrNfe: TACBrNFe read fACBrNfe write fACBrNfe; property ACBrNfeDanfeRave: TACBrNFeDANFERave read fACBrNfeDanfeRave write fACBrNfeDanfeRave; end; constructor TNotaFiscalEletronica.Create; begin If not Assigned(ACBrNfe) then ACBrNfe:= TACBrNFe.Create(nil); If not Assigned(ACBrNfeDanfeRave) then ACBrNfeDanfeRave:= TACBrNFeDANFERave.Create(nil); With ACBrNfe do begin Configuracoes.Certificados.NumeroSerie:= ArqIni.ReadString('NOTAFISCALELETRONICA','Certificado',''); Configuracoes.Geral.PathSalvar:= ArqIni.ReadString('NOTAFISCALELETRONICA','PathSalvar',''); Configuracoes.WebServices.UF:= 'SP'; Configuracoes.WebServices.AguardarConsultaRet:= 0; Configuracoes.WebServices.IntervaloTentativas:= 1000; Configuracoes.WebServices.AjustaAguardaConsultaRet:= False; Configuracoes.WebServices.Ambiente:= StrToTpAmb(Ok,ArqIni.ReadString('NOTAFISCALELETRONICA','Ambiente','2')); Configuracoes.Arquivos.Salvar := True; Configuracoes.Arquivos.EmissaoPathNFe := True; Configuracoes.Arquivos.PastaMensal := True; Configuracoes.Arquivos.PathNFe := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Nfe'); Configuracoes.Arquivos.PathCan := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Can'); Configuracoes.Arquivos.PathInu := IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Inu'); Configuracoes.Arquivos.PathDPEC:= IncludeTrailingPathDelimiter(ACBrNfe.Configuracoes.Geral.PathSalvar+'Dpec'); OnStatusChange:= NFeStatusChange; DANFE:= ACBrNfeDanfeRave; DANFE.Logo:= ArqIni.ReadString('NOTAFISCALELETRONICA','LogoMarca',''); end; with ACBrNfeDanfeRave do begin ACBrNFe:= ACBrNFe; PathPDF:= '.\PDF\'; MostrarPreview:= True; MostrarStatus:= True; TipoDANFE:= tiRetrato; NumCopias:= 1; ImprimirDescPorc:= False; ImprimirTotalLiquido:= False; MargemInferior:= 0.800000000000000000; MargemSuperior:= 0.800000000000000000; MargemEsquerda:= 0.600000000000000000; MargemDireita:= 0.510000000000000000; CasasDecimais._qCom:= 3; CasasDecimais._vUnCom:= 3; ExibirResumoCanhoto:= False; FormularioContinuo:= False; TamanhoFonte_DemaisCampos:= 10; ProdutosPorPagina:= 0; ImprimirDetalhamentoEspecifico:= True; NFeCancelada:= False; RavFile:= ExtractFilePath(Application.ExeName) + '\Report\NotaFiscalEletronica.rav'; EspessuraBorda:= 1; TamanhoFonte_RazaoSocial:= 12; end;//With end; destructor TNotaFiscalEletronica.Destroy; begin If Assigned(ACBrNfe) then begin ACBrNfe.NotasFiscais.Clear; ACBrNfe.Free; ACBrNfe:= Nil; end; If Assigned(ACBrNfeDanfeRave) then begin ACBrNfeDanfeRave:= Nil; ACBrNfeDanfeRave.Free; end; inherited; end; Agradeço antecipadamente pela atenção dos colegas, Marcello.

Prezados, Fizemos a alteração que o juliobbi citou: ThreadSMTP.smtp.AutoTLS := SSL; e jogamos na pasta do sistema as dlls libeay32.dll e ssleay32.dll e isso resolveu o problema em vários clientes que não estavamo consguindo enviar email. Marcello.

Prezados, Algum dos colegas poderia disponibilizar a string para abrir a gaveta com a impressora Elgin NIX ? Obrigado e Feliz 2011 a todos. Marcello.

Daniel, Alterei a unit ACBrSintegra.pas, incluindo os registros 88C, 88D, 88E e 88T, que são utilizados por postos de combustível - Portaria CAT 95/03. Gerei registros de teste e validei com o GRF-CBT versão 1.8.0.7.beta.5. Gostaria q vc adicione ao SVN. Obrigado, Marcello Cainelli ACBrSintegra.pas