Stack Overflow em Arquivo LMFC e LMFS

Marciano · 28 Julho, 2011

Olá pessoal!

Identifiquei um problema ao testar a geração de arquivos MF por RDZ.

O Código está dessa forma:

procedure TACBrECF.LeituraMemoriaFiscalSerial(ReducaoInicial,

   ReducaoFinal: Integer; Linhas : TStringList; Simplificada : Boolean );

begin

  if ComandoLOG = '' then

     ComandoLOG := 'LeituraMemoriaFiscalSerial( '+IntToStr(ReducaoInicial)+' , '+

                       IntToStr(ReducaoFinal)+' , Linhas ,'+

                       BoolToStr(Simplificada)+' )';

  LeituraMemoriaFiscalSerial( ReducaoInicial, ReducaoFinal, Linhas,

                                    Simplificada ) ;


  Linhas.Text := DecodificarPaginaDeCodigoECF( Linhas.Text );

end;

mas creio que o correto seja:

procedure TACBrECF.LeituraMemoriaFiscalSerial(ReducaoInicial,

   ReducaoFinal: Integer; Linhas : TStringList; Simplificada : Boolean );

begin

  if ComandoLOG = '' then

     ComandoLOG := 'LeituraMemoriaFiscalSerial( '+IntToStr(ReducaoInicial)+' , '+

                       IntToStr(ReducaoFinal)+' , Linhas ,'+

                       BoolToStr(Simplificada)+' )';

  fsECF.LeituraMemoriaFiscalSerial( ReducaoInicial, ReducaoFinal, Linhas,

                                    Simplificada ) ;


  Linhas.Text := DecodificarPaginaDeCodigoECF( Linhas.Text );

end;

Resumindo, o problema esta na falta do "fsECF.", gerando assim estouro de pilha.

Abraço!