Suporte Acodi

Mas se o madexcept e chamado, é porque a exceção aconteceu, e não passou pelo try except. O madexcept não abre quando coloco a rotina dentro de um try,da forma que passei acima, mostrando o erro ao usuário. O Elias colocou acima que não encerra a aplicação, mas sim, o erro faz que o aplicativo feche.

Bom dia! alguma sugestão para solução do problema?

Bom dia Elias O erro esta finalizando a aplicação. E como o try except não tem efeito não consigo tratar, e colocar a mensagem de arquivo "Nome do arquivo não especificado". try DM.ACBrNFe1.NotasFiscais.Imprimir; Except On E:Exception do begin Application.MessageBox(pchar('Ocorreu um problema, não foi possivel imprimir. Tente novamente. '+ ' Se não conseguir, reinicie o computador e tente novamente. Erro: '+E.Message),'Atenção',MB_ICONINFORMATION+MB_OK); exit; end; end; Uso o madexcept, embaixo está o resultado date/time : 2022-07-19, 11:19:08, 89ms computer name : DESENVOLVIMENTO user name : Jorge registered owner : Jorge operating system : Windows 10 x64 build 22000 system language : Portuguese system up time : 14 days 8 hours program up time : 1 minute 54 seconds processors : 6x Intel(R) Core(TM) i7-8700T CPU @ 2.40GHz physical memory : 2133/16207 MB (free/total) free disk space : (C:) 272,13 GB display mode : 1920x1080, 32 bit process id : $180a8 allocated memory : 184,71 MB largest free block : 864,71 MB executable : Sgl.exe exec. date/time : 2022-07-18 17:41 version : 1.0.8234.25846 compiled with : Delphi 10.4 Sydney madExcept version : 5.1.0 callstack crc : $2c13876e, $a34b568a, $bb66f09c exception number : 1 exception class : Exception exception message : Nome do arquivo não especificado. thread $9958: 00f977b3 Sgl.exe RLPreviewForm 1393 +27 TRLPreviewForm.SpeedButtonSaveClick 0069af73 Sgl.exe Vcl.Controls TControl.Click 00b91fd4 Sgl.exe Vcl.Buttons TCustomSpeedButton.Click 00b91fbe Sgl.exe Vcl.Buttons TCustomSpeedButton.MouseUp 0069b3a4 Sgl.exe Vcl.Controls TControl.DoMouseUp 0069b432 Sgl.exe Vcl.Controls TControl.WMLButtonUp 0069b05c Sgl.exe Vcl.Controls TControl.DoMouseDown 0069aa1a Sgl.exe Vcl.Controls TControl.WndProc 757288cf msvcrt.dll _vsnwprintf_l 0069a654 Sgl.exe Vcl.Controls TControl.Perform 0069f170 Sgl.exe Vcl.Controls TWinControl.IsControlMouseMsg 0069f7c1 Sgl.exe Vcl.Controls TWinControl.WndProc 0069eebc Sgl.exe Vcl.Controls TWinControl.MainWndProc 00564af8 Sgl.exe System.Classes StdWndProc 760e55ab user32.dll DispatchMessageW 007c7fd7 Sgl.exe Vcl.Forms TApplication.ProcessMessage 007c801a Sgl.exe Vcl.Forms TApplication.HandleMessage 007c33f6 Sgl.exe Vcl.Forms TCustomForm.ShowModal 007c3485 Sgl.exe Vcl.Forms TCustomForm.ShowModal 007c359f Sgl.exe Vcl.Forms TCustomForm.ShowModal 00f93246 Sgl.exe RLPreviewForm 371 +23 PreviewPagesWithOptions 00fb5e4d Sgl.exe RLReport 13633 +11 TRLCustomReport.PreviewModal 00fd6a3e Sgl.exe ACBrNFeDANFeRL TfrlDANFeRL.Imprimir 00fd6ab8 Sgl.exe ACBrNFeDANFeRL TfrlDANFeRL.Imprimir 00fd6add Sgl.exe ACBrNFeDANFeRL TfrlDANFeRL.Imprimir 00ffe7ce Sgl.exe ACBrNFeDANFeRLClass TACBrNFeDANFeRL.ImprimirDANFE 00ffe7ef Sgl.exe ACBrNFeDANFeRLClass TACBrNFeDANFeRL.ImprimirDANFE 00f3d5a3 Sgl.exe ACBrNFeNotasFiscais 3876 +2 TNotasFiscais.Imprimir 02043a66 Sgl.exe UnNFe 15531 +112 TfrmNFe.ActImprimirExecute 020d2994 Sgl.exe UnSGL 1914 +8 TfrmSGL.ActImprimirExecute 00563da3 Sgl.exe System.Classes TBasicAction.Execute 0067e272 Sgl.exe Vcl.ActnList TCustomAction.Execute 00563bf7 Sgl.exe System.Classes TBasicActionLink.Execute 0069af5c Sgl.exe Vcl.Controls TControl.Click 00708d54 Sgl.exe Vcl.ComCtrls TToolButton.Click 0069b427 Sgl.exe Vcl.Controls TControl.WMLButtonUp 0069aa1a Sgl.exe Vcl.Controls TControl.WndProc 007be14f Sgl.exe Vcl.Forms TCustomForm.WndProc 0069a654 Sgl.exe Vcl.Controls TControl.Perform 0069efb9 Sgl.exe Vcl.Controls GetControlAtPos 0069f08a Sgl.exe Vcl.Controls InternalControlAtPos 0069a654 Sgl.exe Vcl.Controls TControl.Perform 0069f170 Sgl.exe Vcl.Controls TWinControl.IsControlMouseMsg 0069f7c1 Sgl.exe Vcl.Controls TWinControl.WndProc 0070dd9a Sgl.exe Vcl.ComCtrls TToolBar.WndProc 0069eebc Sgl.exe Vcl.Controls TWinControl.MainWndProc 0069eed7 Sgl.exe Vcl.Controls TWinControl.MainWndProc 00564af8 Sgl.exe System.Classes StdWndProc 760e55ab user32.dll DispatchMessageW 007c7fd7 Sgl.exe Vcl.Forms TApplication.ProcessMessage 007c801a Sgl.exe Vcl.Forms TApplication.HandleMessage 007c8351 Sgl.exe Vcl.Forms TApplication.Run 023927e2 Sgl.exe Sgl 198 +87 initialization 755d6737 KERNEL32.DLL BaseThreadInitThunk thread $18f6c: 760eed19 user32.dll MsgWaitForMultipleObjects 004bbc75 Sgl.exe madExcept CallThreadProcSafe 004bbcda Sgl.exe madExcept ThreadExceptFrame 755d6737 KERNEL32.DLL BaseThreadInitThunk >> created by thread $9958 at: 74b45868 gdiplus.dll thread $16eb4 (TACBrThreadTimer): 75ae84ed KERNELBASE.dll WaitForMultipleObjectsEx 0067ac2e Sgl.exe System.SyncObjs THandleObject.WaitFor 00d8e9ff Sgl.exe ACBrBase 517 +19 TACBrThreadTimer.Execute 004bbd8f Sgl.exe madExcept HookedTThreadExecute 00560bfd Sgl.exe System.Classes ThreadProc 00560c60 Sgl.exe System.Classes ThreadProc 0040ca50 Sgl.exe System 23 +0 ThreadWrapper 004bbc75 Sgl.exe madExcept CallThreadProcSafe 004bbcda Sgl.exe madExcept ThreadExceptFrame 755d6737 KERNEL32.DLL BaseThreadInitThunk >> created by thread $9958 at: 00560cc4 Sgl.exe System.Classes TThread.Create thread $17ff4: 755d6737 KERNEL32.DLL BaseThreadInitThunk thread $1846c: 755d6737 KERNEL32.DLL BaseThreadInitThunk thread $17908: 75adfb33 KERNELBASE.dll WaitForSingleObjectEx 75adfa8d KERNELBASE.dll WaitForSingleObject 004bbc75 Sgl.exe madExcept CallThreadProcSafe 004bbcda Sgl.exe madExcept ThreadExceptFrame 755d6737 KERNEL32.DLL BaseThreadInitThunk >> created by thread $9958 at: 74d7a998 winspool.drv

Boa tarde Juliana, uso o componente ACBrNFeDANFeRL

Juliana, boa noite, não alterei nenhum PAS. Estou somente reportando o problema e explicando como reproduzir.

Bom dia, ao clicar em SALVAR (olhe a imagem em anexo) para salvar o PDF da DANFE, caso o usuário deixe o nome do arquivo em branco da o erro de Nome de Arquivo não especificado. Eu já envio o nome do arquivo preenchido, mas tem usuários que apagam. Coloquei dentro de um try para tentar controlar, mas a exception não para no try try DM.ACBrNFe1.NotasFiscais.Imprimir; Except On E:Exception do begin Application.MessageBox(pchar('Ocorreu um problema, não foi possivel imprimir. Tente novamente. '+ ' Se não conseguir, reinicie o computador e tente novamente. Erro: '+E.Message),'Atenção',MB_ICONINFORMATION+MB_OK); exit; end; end; exception class : Exception exception message : Nome do arquivo não especificado. thread $703c: 00f97803 Sgl.exe RLPreviewForm 1393 +27 TRLPreviewForm.SpeedButtonSaveClick

Ok, então deve ser por isso que não imprime o lateral. O Fast Report que uso é o que vem no Delphi Vou atualizar de novo os fontes para ver se imprime o SISTEMA e o SITE e retorno.

Boa tarde, conferindo o arquivo DANFeNFCe5_00.fr3 tem o masterdata QRCODE e o QRCODELateral. O que estaria faltando para que a propriedade Qrcodelateral = true funcione? O rodapé com os valores SISTEMA e SITE não são impressos.

O problema é que se o usuário não informa o nome do arquivo gera um erro, e não fica dentro do try ... except para poder tratar. exception message : Nome do arquivo não especificado. try DM.ACBrNFe1.NotasFiscais.Imprimir; <- aqui mostra o preview, o usuario clica em SALVAR, sem informar o nome do arquivo, e gera o exception acima except on E:Exception do begin <- o erro não passa aqui Application.MessageBox(pchar('Erro ao imprimir! '+ e.Message),'Atenção',mb_iconerror+MB_OK ); end; end;

Depois de ficar fuçando, a solução para usar o MFE Elgin com o driver direto é informar a porta COM no arquivo c:\comunicador\coo-ser.ini na chave [SERIAL] na linha COM_PORT = Informar a porta com do MFE. Precisa parar o serviço COMUNICADOR, alterar o ini e iniciar o serviço novamente, com isso o Monitor MFe fica branco e o programa consegue a comunicação direta como explicado neste link

Bom dia. Tenho o mesmo problema, onde altera a versaodados para 4.00?

Daniel, o MEF Elgin retorna DESCONECTADO, na rotina atual tem NAO_CONECTADO, ai o retorno era sempre lanCONECTADO.

Ok, Entendi, Unit em anexo.ACBrSATClass.pas

Fiz tudo o que voce sugere, sem conseguir que o MFE fique branco. Liguei no suporte da ELGIN para ver se tem algum driver atualizado. A resposta deles e que quem cria o driver e a SEFAZ do CEARA e que tem alguns MFE que funcionam e outros não.... Que precisava entrar em contato com a SEFAZ do CEARA para eles resolver, e que era melhor deixar funcionando com a versão anterior que usa o integrador. Quando reinstalei a versão do integrador, o monitor MFE ficou branco na hora e funcionando.

Boa tarde, estava conferindo o retorno do MFe Elgin quando consulta o status operacional: Sessão: 599877, Resposta: 599877|10000|Resposta com Sucesso.||||DHCP|000.000.000.000|00:00:00:00:00:00|000.000.000.000|000.000.000.000|000.000.000.000|000.000.000.000|DESCONECTADO|ALTO|2.20 GBytes|148.70 MBytes.... Ele retorna DESCONECTADO para o STATUS da LAN, e conferi que a função não tem essa opção, por isso que sempre retorna CONECTADO function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string) : TACBrSATStatusLan; begin result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO'], [lanCONECTADO, lanNAO_CONECTADO]); end; Fiz a alteração: function TACBrSATStatus.StrToStatusLan(var ok: boolean; const s: string ) : TACBrSATStatusLan; begin result := StrToEnumerado(ok, s, ['CONECTADO', 'NAO_CONECTADO', 'DESCONECTADO'], [lanCONECTADO, lanNAO_CONECTADO, lanNAO_CONECTADO]); end; e agora sim tenho o retorno certo: NUMERO SERIE...........: LAN_MAC................: 00:00:00:00:00:00 STATUS_LAN.............: NAO_CONECTADO NIVEL_BATERIA..........: ALTO MEMORIA_TOTAL..........: 2.20 GBytes MEMORIA_USADA..........: 148.70 MBytes DH_ATUAL...............: 04/04/2019 17:53:41 VERSÃO_SB..............: 01.00.06 VERSÃO_LAYOUT..........: 00.07 ULTIMO_CFe.............: 23180914200166000166599000098890000034976150 LISTA_INICIAL..........: 00000000000000000000000000000000000000000000 LISTA_FINAL............: 00000000000000000000000000000000000000000000 DH_CFe.................: 25/09/2018 16:47:29 DH_ULTIMA CONEXÃO SEFAZ: 25/09/2018 16:47:29 CERTIFICADO_EMISSAO....: 10/12/2018 CERTIFICADO_VENCIMENTO.: 10/12/2020 ESTADO_OPERACAO........: DESBLOQUEADO seria bom vocês fazer a alteração nas fontes.