Mano Guedes

Tenho um relatório de 6 paginas, preciso obter a quantidade total de paginas durante a montagem do mesmo. Não estou obtendo retorno, onde deveria. Alguém já passou por isso? procedure Trel.Run; var ALastPageNumber, APageCount, APageNumber, APageIndex: Integer; begin RLReport1.Prepare; ALastPageNumber := RLReport1.Pages.LastPageNumber; APageCount := RLReport1.Pages.PageCount; APageNumber := RLReport1.PageNumber; APageIndex := RLReport1.PageIndex; RLReport1.PreviewModal; (* Valores das variaveis: ===================== ALastPageNumber = 0 APageCount = 0 PageIndex = 0 APageNumber = 0 *) end; procedure Trel.RLReport1BeforePrint(Sender: TObject; var PrintIt: Boolean); var ALastPageNumber, APageCount, APageNumber, APageIndex: Integer; begin ALastPageNumber := RLReport1.Pages.LastPageNumber; APageCount := RLReport1.Pages.PageCount; APageNumber := RLReport1.PageNumber; APageIndex := RLReport1.PageIndex; (* Valores das variaveis: ===================== ALastPageNumber = 0 APageCount = 0 PageIndex = -1 APageNumber = 0 *) end;

Sim

Estou tentando compilar o ACBrNFeMonitor2 OpenSSL Versão 0.7.9.4, já com os novos requisitos de cancelamento de NFe por evento. Consigo compilar normalmente, no entanto, ao enviar algum comando e ao finalizar o monitor, recebo a mensagem de erro de violação de memória. "Acess violation at adress 02BD4D20. Read of address 02BD4D20." Ao debugar, constatei o erro no Destroy do componente ACBrNFe, mais precisamente na linha: {$IFDEF ACBrNFeOpenSSL} if FConfiguracoes.Geral.IniFinXMLSECAutomatico then NotaUtil.ShutDownXmlSec ; {$ENDIF} Que leva a unit ACBrNFeUtil, na Procedure NotaUtil.ShutDownXmlSec xmlSecShutdown() Alguém já passou por esta situação, ou teria uma dica de como solucionar este problema?

Estou tentando compilar o ACBrNFeMonitor2 OpenSSL Versão 0.7.9.4, já com os novos requisitos de cancelamento de NFe por evento. Consigo compilar normalmente, no entanto, ao enviar algum comando e ao finalizar o monitor, recebo a mensagem de erro de violação de memória. "Acess violation at adress 02BD4D20. Read of address 02BD4D20." Ao debugar, constatei o erro no Destroy do componente ACBrNFe, mais precisamente na linha: {$IFDEF ACBrNFeOpenSSL} if FConfiguracoes.Geral.IniFinXMLSECAutomatico then NotaUtil.ShutDownXmlSec ; {$ENDIF} Que leva a unit ACBrNFeUtil, na Procedure NotaUtil.ShutDownXmlSec xmlSecShutdown() Alguém já passou por esta situação, ou teria uma dica de como solucionar este problema?