Access violation para impressão via acbrnfe

[Luciano Ramos Palandi]

Senhores, por favor peço ajuda na seguinte situação, no menu principal da minha aplicação toda vez que eu tento reimprimir nfe, carta de correção ou salvar em pdf, antes gera um A.V. e depois mostra o preview, no exemplo do demo funciona sem problemas, oque posso estar fazer para corrigir na minha aplicação?

[Juliomar Marchetti]

Desconhecemos sua aplicação então para da A.V. é porque está acessando algo que não está criado ou foi destruido.

se tu conseguir montar um exemplo e postar aqui como está seu código e gerando o erro. diferente disso é só tu que vai conseguir descobrir pois você é que tem acesso e conhece seu fonte

[Luciano Ramos Palandi]

na verdade eu copie e colei exatamente como esta no exemplo, uso Midaslib no form.

var
ano,mes: integer;
begin
// AjustaNFE;
 mes:= monthof(date);
 ano:= yearof(date);

 OpenDialog1.FileName  :=  '';
 OpenDialog1.Title := 'Selecione o XML do Cupom';
 OpenDialog1.DefaultExt := '*.XML';
 OpenDialog1.Filter := 'Arquivos XML (*.XML)|*.XML|Todos os Arquivos (*.*)|*.*';
 OpenDialog1.InitialDir := 'C:\SCI-DEPOSITO\Software\DOCUMENTOS\ARQUIVOS\' +
                            intTOstr(ano)+ intTOstr(mes) + '\';
 if OpenDialog1.Execute then
 begin
  ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);
//  ACBrNFe1.NotasFiscais.ImprimirPDF;
  ACBrNFe1.NotasFiscais.Imprimir;
 end;
end;

[Juliomar Marchetti]

é depurar então pra achar

[Luciano Ramos Palandi]

Boa tarde Juliomar, por favor pode me indicar onde devo analisar?, o xml esta valido no site da sefaz, no exemplo funciona, sera que esta faltando declarar alguma dll?

uso estas configurações para gerar a danfe

   ACBrNFe1.Configuracoes.Geral.SSLLib:= libWinCrypt;//libOpenSSL; ok
   ACBrNFe1.Configuracoes.Geral.SSLCryptLib := cryWinCrypt; //ok
   ACBrNFe1.Configuracoes.Geral.sslhttplib:= httpWinHttp;
   ACBrNFe1.Configuracoes.Geral.sslxmlsignlib:= xsMsXml;//xsXmlSec; ok

isso pode afetar?

[Renato Rubinho]

Exclui o componente ACBrNFe1 da tela, inclui novamente e compara todas as propriedades com o programa de exemplo.

Confirma principalmente o logo e se está com o DANFE configurado.

[Wanderson_CWFSistemas]

Tenta assim:

Acbr. Notasfiscais.clear:

Notasfiscais. Loadfrom..... 

Informa aqui o tipo de impressora da sua aplicação padrão 

Acbrposprinter1. Porta := sua string da porta da impressora

ACBR. Danfe := acbrnfedanfeESCPOS1:

acbr. Notasfiscais. Imprimir:

[Luciano Ramos Palandi]

Boa tarde Ensabanurh, muito obrigado, já imprime sem o A.V., mas você sabe como abrir um preview antes de imprimir?

[Wanderson_CWFSistemas]

17 horas atrás, Luciano Ramos Palandi disse:

Boa tarde Ensabanurh, muito obrigado, já imprime sem o A.V., mas você sabe como abrir um preview antes de imprimir?

opa. sim!

usando fortes fica assim ok 

ACBrNFeDANFCeFortes1.MostraPreview := True;

 

[Luciano Ramos Palandi]

fiz assim assim e não deu certo, sem querer abusar poderia me dar uma ajuda, fiz desta maneira e não consegui

ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);
//  ACBrPosPrinter2.Porta := 'RAW:TERMICA'; // O Prefixo "RAW:", ajuda o ACBrDevice a detectar o tipo de porta
//  ACBrPosPrinter2.Ativar;
  ACBrNFe1.Danfe := ACBrNFeDANFCeFortes1;
//  ACBrNFe1.NotasFiscais.ImprimirPDF;
  ACBrNFeDANFCeFortes1.MostraPreview:= true;

//  ACBrNFeDANFeESCPOS1.ImprimirDANFE();
  ACBrNFe1.NotasFiscais.Imprimir;

Editado 23 Fevereiro, 2022 por Luciano Ramos Palandi

[francesco de assis]

ACBrNFe1.NotasFiscais.Clear;
  ACBrNFe1.NotasFiscais.LoadFromFile(OpenDialog1.FileName,False);
//  ACBrPosPrinter2.Porta := 'RAW:TERMICA'; // O Prefixo "RAW:", ajuda o ACBrDevice a detectar o tipo de porta
//  ACBrPosPrinter2.Ativar;
  ACBrNFe1.Danfe := ACBrNFeDANFCeFortes1;

 ACBrNFe1.NotasFiscais.Imprimir;

assim não dá certo?

[Luciano Ramos Palandi]

Obrigado Francesco, não deu certo, da A.V. e abre preview de cupom

[francesco de assis]

conseguiu?

[francesco de assis]

Abre o preview de cupom pq você esta usando:

 ACBrNFe1.Danfe := ACBrNFeDANFCeFortes1;

que é para nfc-e

o certo seria:

ACBrNFe1.Danfe :=  ACBrNFeDANFCeFortesA41;

Acho que é isso;

 

[Luciano Ramos Palandi]

Desculpe a demora, utilizando desta maneira abre sem A.V., porém da um preview de um NFCe em A4

[francesco de assis]

Mudou em todo código de ACBrNFeDANFCeFortes1 para ACBrNFeDANFCeFortesA41?

[Juliomar Marchetti]

17 horas atrás, Luciano Ramos Palandi disse:

Desculpe a demora, utilizando desta maneira abre sem A.V., porém da um preview de um NFCe em A4

Dúvida. e não quero que leve a mal mas é pra entender sua dificuldade. Ok?

faz pouco tempo que começou a programar? trabalhava com outra linguagem ou somente delphi? poderia relatar isso?

[Luciano Ramos Palandi]

Bom dia Juliomar, sem problemas...

faz pouco tempo que começou a programar?

Cerca de 4 anos.

trabalhava com outra linguagem ou somente delphi?

Sim, trabalhava com Visual Basic, ai migrei para Delphi no qual sou amador perto dos colegas, mas estou sempre buscando conhecimento para melhorar.

A dúvida que tenho é que toda vez que mando reimprimir uma NFE ou Evento gera um A.V. e depois preview, no exemplo não acontece, já olhei até aonde eu consigo, já copiei os componentes do exemplo e não resolveu, por isso peço ajuda de algum colega que tenha passado por isso e conseguiu solucionar.  

Editado 1 Março, 2022 por Luciano Ramos Palandi

[Juliomar Marchetti]

1 hora atrás, Luciano Ramos Palandi disse:

Bom dia Juliomar, sem problemas...

faz pouco tempo que começou a programar?

Cerca de 4 anos.

trabalhava com outra linguagem ou somente delphi?

Sim, trabalhava com Visual Basic, ai migrei para Delphi no qual sou amador perto dos colegas, mas estou sempre buscando conhecimento para melhorar.

A dúvida que tenho é que toda vez que mando reimprimir uma NFE ou Evento gera um A.V. e depois preview, no exemplo não acontece, já olhei até aonde eu consigo, já copiei os componentes do exemplo e não resolveu, por isso peço ajuda de algum colega que tenha passado por isso e conseguiu solucionar.  

AV é sempre algum objeto que foi destruido ou que não existe e está sendo chamado

então debugar com F8 F7 e pontos de paradas e verificar o que tu tá fazendo e onde está destruindo objetos, forms ou datamodule

[Luciano Ramos Palandi]

Boa tarde Juliomar, fui utilizando F8 e cheguei nessa tela, por favor consegue identificar o erro?

[Juliomar Marchetti]

vish mas tu tá colocando código no activate do form

tu notou isso né?

 

[francesco de assis]

aí é depois do erro! você tem que colocar breakpoint na parte que dá o erro.

pra você ter certeza o que tá causando o erro.

coloca aqui ACBrNFe1.NotasFiscais.Clear; um break e vai pressionando f8

[Luciano Ramos Palandi]

Bom dia Juliomar e  Francesco, examinei a string que esta no onActive mas não acreditei que fosse o problema, depois que o Juliomar falou comentei tudo e inseri um showmessage, cada vez que mando imprimir usando preview o onActive é acionado, então migrei a string para um timer para testar e funcionou, não da mais AV.

Muito obrigado Juliomar e Francesco e todos que colaboraram. 

Editado 2 Março, 2022 por Luciano Ramos Palandi

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

[Juliomar Marchetti]

3 horas atrás, Luciano Ramos Palandi disse:

Bom dia Juliomar e  Francesco, examinei a string que esta no onActive mas não acreditei que fosse o problema, depois que o Juliomar falou comentei tudo e inseri um showmessage, cada vez que mando imprimir usando preview o onActive é acionado, então migrei a string para um timer para testar e funcionou, não da mais AV.

Muito obrigado Juliomar e Francesco e todos que colaboraram. 

só respondendo. o actived é acionado a cada vez de alternar entre as telas, em qualquer momento, igual o show do form.

então cuidado e por isso das perguntas.