Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

consultoria_sticker.png

Conteúdo para desenvolvedores
 ao vivo de terça a quinta!
Saiba mais

dev.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


Saiba mais

beneficios.png

Erro Impressão Nota (Delphi 7)


Go to solution Solved by Guilherme Martin Ewz,

Recommended Posts

Pessoal, estou me estressando muito com um cliente, ele tem windows 10, tenho dois sistemas, um agente desenvolvido em delphi XE8 para comunicação das notas e recepção, e o ERP antigo em Delphi 7.

Tenho o mesmo método nos dois sistemas, para imprimir a nota de serviço.

TACBrNFSe.NotasFiscais.LoadFromFile(vArquivo);
TACBrNFSe.NotasFiscais.Imprimir;

Acontece que no Delphi 7 esta ocorrendo erro, conforme abaixo.

Alguém tem alguma sugestão ?

274151976_WhatsAppImage2021-04-07at11_17_29.jpeg.d39c847320dce55a1002c017da653868.jpeg

 

Link to post
Share on other sites
23 horas atrás, Guilherme Martin Ewz disse:

TACBrNFSe.NotasFiscais.LoadFromFile(vArquivo);
TACBrNFSe.NotasFiscais.Imprimir;

agora que notei tu está tentando acessar a classe do componente enão um objeto em si.

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to post
Share on other sites
5 minutos atrás, Juliomar Marchetti disse:

agora que notei tu está tentando acessar a classe do componente enão um objeto em si.

coloquei um fonte generico o fonte real esta assim 

 

     ObterDadosPrestador(AEmpresa);
     ObterDadosTomador(ANota, AEmpresa);
     ConfiguraComponente;

      ACBrNFSe.NotasFiscais.LoadFromFile(vArquivo);
      try
        case APrint of
          imPrint: ACBrNFSe.NotasFiscais.Imprimir;
            imPDF: ACBrNFSe.NotasFiscais.ImprimirPDF;
          imAmbos:
          begin
            ACBrNFSe.NotasFiscais.Imprimir;
            ACBrNFSe.NotasFiscais.ImprimirPDF;
          end;
        end;
 

em negrito onde acessa....é muito estranho, porque somente em um cliente que da este problema, já estou louco a semana toda, tentando verificar isso, coloquei milhoes de try except dentro do fonte do ACBR e mesmo assim da o erro.

Link to post
Share on other sites
  • Solution

Pessoal descobri o problema, a imagem que estava carregando no Brasão estava gigantesca demais, redimensionei ela para um tamanho WEB e não deu mais erro.

Detalhe, nos delphis mais novos ele carregou tranquilo a imagem sem erro, no delphi 7 provavelmente existe alguma limitação nas classes....

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...