Access Violation

[Flavio Verneque]

uso ACbrNFe2 desde 2009 e não consegui solucionar um erro de Access Violation... quando retorna da transmissão de uma nota ou na impressão.


uso Delphi7 e Rave Report 5.0


botão transmitir :


procedure TFSaidasF.BtnTransmClick(Sender: TObject);
var snovonome:string;
begin
OpenDialog1.Title := 'Selecione a NFE';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);

ACBrNFe1.Enviar(0);
ShowMessage(ACBrNFe1.WebServices.Retorno.Protocolo);
ShowMessage(ACBrNFe1.WebServices.Retorno.Recibo);

snovonome := acbrnfe1.WebServices.Retorno.ChaveNFe;

if snovonome <> '' then
begin
fmd.TabSaidasF.Edit;
fmd.TabSaidasFnfe.value := snovonome +'-nfe';
fmd.TabSaidasF.Post;
end;

MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
LoadXML(MemoResp, WBResposta);

ACBrNFe1.NotasFiscais.Clear;
end;
end;



Botão Imprimir:


procedure TFSaidasF.BtnImpClick(Sender: TObject);
var Arquivo: PChar;
begin
OpenDialog1.Title := 'Selecione a NFE';
OpenDialog1.DefaultExt := '*-nfe.XML';
OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
if OpenDialog1.Execute then
begin
ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName);
if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
begin
ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
ACBrNFe1.WebServices.ConsultaDPEC.Executar;
(ACBrNFe1.WebServices.ConsultaDPEC.retDPEC.dhRegDPEC);
ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);
end;
ACBrNFe1.NotasFiscais.Imprimir;
end;
end;




Favor me ajudar se possível.

[Juliomar Marchetti]

E debugando onde ocasiona o erro?

[igor]

vc ta usando o componente RaveCodeBase?

 

tem algum logo no seu danfe?

[ivomar]

Estou tendo esse problema de acesso violation somente no Windows xp, no Windows 7 e 8 funciona normalmente.

 

Obs: Após ACBrNFe1.NotasFiscais.Imprimir. imprime ou faz o preview e da o erro em seguida.

 

alguém tem alguma dica?

 

obrigado

[juaumkiko]

Tente o seguinte:

 

1) Com o cd do Delphi, desisntale a sua versao atual do RAVE REPORTS

2) Digite no google: download rave_be_5_0_8.exe

3) Baixe o arquivo e instale no seu delphi.

4) Instale o pacote do Danfe com Rave CODE BASE. ACBrDanfeRaveCodeBase

5) Verifique se o problema sumiu

 

Essa opção de Danfe vc nao precisa distribuir o arquivo .rav com sua aplicação.

 

[]´s