EMBarbosa

Não é o preenchimento do registro "0025"? Tentou verificar os arquivos de exemplos disponíveis no site da SEF de PE?

Continue assinando o SAC. Já é de grande ajuda ao projeto.

Mas é exatamente isso que o Juliomar mencionou desde o princípio. O preenchimento dos registros é semelhante. Não é necessário ter um exemplo pra cada registro.

Tome apenas um cuidado para não gerar um StackOverflow com o código acima ou uma espera muito grande já que o usuário parece não ter a opção de cancelar o processo.

Embora possam utilizar as DLLs dos fabricantes, todos os métodos que começam com "PafMF_" seguem o que é pedido no requisito "Menu Fiscal" da legislação "PAF-ECF" e não exatamente o que os fabricantes dão de exemplo. Então é preciso ver o que a Especificação de Requisitos (ER) diz sobre o assunto.

2.2 - Permaneça no assunto - Quando tiver uma dúvida diferente do assunto no tópico, poste em novo tópico. Não use algo equivalente a "aproveitando o gancho... [dúvida não relacionada com o tópico aqui]". Favor leia as regras do fórum.

Obrigado por nos dar um retorno.

A DLL do FastMM só é necessária quando executado em FullDebugMode. Como o nome diz, é para Debug, então de modo geral você não a leva para o cliente.

Relacionado:

Qual erro?

Release é compilar sem os dados de debug, como expliquei no post anterior. Para desligar o FullDebug mode é isso mesmo. Adicione o "." na frente do $define. Me confundi na hora de escrever. Na verdade é ReportMemoryLeaksOnShutdown. Mas é uma variável definida no FastMM4.pas e não no arquivo INC. E você adiciona no código como no post que escrevi anteriormente. Atribua o valor False a ela pra que não se exiba uma mensagem. Não isso é outra coisa... não precisa mexer nesta opção.

Se me lembro bem do roteiro, não fazer nada...

Não ficou claro o que você quer.

O ACBr apenas passa os parâmetros para a DLL. É a DLL da Epson que gera o arquivo. Então deve procurar o suporte da Epson para entender o que está acontecendo.

Deve. Provavelmente ele ficará mais rápido, visto que o gerenciador de memória do Delphi 7 é muito falho. Apenas se certifique de gerar no modo Release. Só compilar. Mas lembre-se de desligar: FullDebugMode e o ReportLeaksOnShutDown. Acho que não vai querer essas mensagens aparecendo no cliente.

Tem um detalhe, visto que usa o Delphi 7, após incluir o FastMM no seu projeto, mesmo compilando em modo release, você pode ter corrigido o problema ou pelo menos reduzido a expressividade dele. Digo isso pois já passei por esse problema com o Delphi 7.

NOTA: ainda estava escrevendo enquanto você e o Daniel postaram... Estou postando apenas para referência futura... Me parece certo. Não precisa dessas linhas. A primeira é apenas quando você procura erros de consistência na memória. A segunda para o FastMM não mostrar nenhuma mensagem durante a execução. Então remova essas linhas. Você precisa da "ReportMemoryLeaksOnShutdown := True;" se quiser que uma mensagem apareça no final. Nas opções do projeto, na aba "Compiler option", tenha certeza que as seguintes opções estão marcadas: Debug Information Local Symbols Reference Info ou (Symbol reference info) Nas opções do projeto, na aba "linker" uma das duas opções ajudam... Mas geralmente eu não mexo aqui... TD32 Debug info Map file Depois de marcá-las você fez um build no projeto. Se isso tudo estiver certo, mas mesmo assim nenhuma mensagem ou arquivo esteja sendo criado, então é porque não está havendo vazamento de memória.

Funciona no Delphi 7. Inclusive, se você usa o Delphi 7 e não usa o FastMM deveria começar a usar logo. Talvez esteja faltando você alterar as opções do projeto para gerar o arquivo. Está gerando o projeto em modo debug? Fez um "Build" após alterar as opções? Teoricamente, não... Mas veja que ainda não conseguimos reproduzir seu problema... Precisamos diagnosticar exatamente onde ele ocorre.

No log, são objetos do Fortes Report que estão "vazando". Não estou familiarizado com o código do Fortes Report, então o que vou escrever é uma possibilidade. Parece que um objeto TRLPreviewForm é alocado cada vez que um preview é mostrado. Mas não está sendo destruído. Para encurtar a história... chegamos no método abaixo PreviewPagesWithOptions da unit RLPreviewForm: procedure PreviewPagesWithOptions(APages: TRLGraphicStorage; AShowModal: Boolean; AFormStyle: TFormStyle; APosition: TPosition; AWindowState: TWindowState; ABorderIcons: TBorderIcons; const AHelpFile: string; AHelpContext: Integer; ACaption: TCaption); begin SentToPrinter := False; with TRLPreviewForm.Create(nil) do begin Preview.Pages := APages; if DefaultZoomFactor = ZoomFactorFullWidth then Preview.ZoomFullWidth else if DefaultZoomFactor = ZoomFactorFullPage then Preview.ZoomFullPage else if DefaultZoomFactor = ZoomFactorMultiplePages then Preview.ZoomMultiplePages else if DefaultZoomFactor > 0 then Preview.ZoomFactor := DefaultZoomFactor; UpdateComboBoxZoom; Position := APosition; WindowState := AWindowState; BorderIcons := ABorderIcons; HelpFile := AHelpFile; HelpContext := AHelpContext; if ACaption <> '' then Caption := ACaption; FormStyle := AFormStyle; if AShowModal then ShowModal else if Visible then BringToFront else Show; end; end; Como podem ver. É criado um objeto TRLPreviewForm logo no começo (junto com o with). É passado como owner para ele 'nil', o que significa que temos que destruí-lo manualmente. Mas parece que esse objeto não é destruído em nenhum lugar... Talvez resolvesse boa parte do problema se o código fosse alterado para: (note o try..Finally Free;) procedure PreviewPagesWithOptions(APages: TRLGraphicStorage; AShowModal: Boolean; AFormStyle: TFormStyle; APosition: TPosition; AWindowState: TWindowState; ABorderIcons: TBorderIcons; const AHelpFile: string; AHelpContext: Integer; ACaption: TCaption); begin SentToPrinter := False; with TRLPreviewForm.Create(nil) do begin try Preview.Pages := APages; if DefaultZoomFactor = ZoomFactorFullWidth then Preview.ZoomFullWidth else if DefaultZoomFactor = ZoomFactorFullPage then Preview.ZoomFullPage else if DefaultZoomFactor = ZoomFactorMultiplePages then Preview.ZoomMultiplePages else if DefaultZoomFactor > 0 then Preview.ZoomFactor := DefaultZoomFactor; UpdateComboBoxZoom; Position := APosition; WindowState := AWindowState; BorderIcons := ABorderIcons; HelpFile := AHelpFile; HelpContext := AHelpContext; if ACaption <> '' then Caption := ACaption; FormStyle := AFormStyle; if AShowModal then ShowModal else if Visible then BringToFront else Show; finally Free; end; end; end;

EmulFITH? Onde tem isso no site da Bematech? Já tentou com com0com ao invés do VSPE?

É exatamente isso que precisamos Daniel. Nesse momento estou analisando o log postado.

Estranho não?

Normalmente não existe summary se não existe details. Se você quer um relatório sintético, então faça a soma já no SQL. De quebra você trafega menos dados na rede.

Verifique o manual da balança. Talvez ele explique se pode ser configurada para algum protocolo que já implementado no ACBrBAL.

Você precisa debugar seu aplicativo e verificar qual a diferença entre ele e o ECFTeste. Observação: Você escreveu "ECF virtual" no título do tópico. Veja que conectar a um "ECF virtual" é diferente de conectar a um "ECF via porta virtual". Detalhe melhor seu problema.