Erro Na Impressão De Relatório Gerencial - Elgin

[vilelajr]

Boa tarde,

 

 

Estou com problemas com uma impressora Elgin, na impressão de Relatório Gerencial

 

Está acusando que o Relatório precisa ser declarado...

 

Estou utilizando o seguinte comando abaixo

 

 

        FMenuPri.ECF.AbreRelatorioGerencial(StrToIntDef('1', 0)) ;

        for i:= 0 to DmPrincipal.data3ret.Count - 1 do

        begin

             FMenuPri.Ecf.LinhaRelatorioGerencial( DmPrincipal.data3ret.Strings, 1 );

 

        end;

        FMenuPri.Ecf.FechaRelatorio;

 

Como eu cadastro um Relatório Gerencial ? Alguns impressoras Epson também apresentaram problemas, sendo assim, tenho que cadastrar para todas ?

 

 

Obrigado

 

 

 

Segue o erro abaixo

 

-- 16:00:39:890 AbreRelatorioGerencial

                TX -> {92;AbreGerencial;CodGerencial=1;32}

   16:00:39:921 RX <- {92;8018;NomeErro="ErroCMDGerencialNaoDefinido" Circunstancia="Relatorio nao cadastrado";88}

----------------- ERRO -----------------

Erro retornado pela Impressora: FiscNET: ELGIN - K

 

Erro: 8018 - ErroCMDGerencialNaoDefinido

Relatorio nao cadastrado

----------------------------------------

 

 

[Daniel Simoes]

É claro que o relatório gerencial já deve existir...

 

Você pode programar um novo com:   ACBrECF1.ProgramaRelatoriosGerenciais( cDescricao );
 

Se você não especificar um Índice o ACBrECF tentará com índice default, que pode variar de acordo com o modelo.. repare que na FiscNET ele usou índice 1

[vilelajr]

Boa tarde, 

 

Então para reparar esse erro basta programar o relatório gerencial ? Pode ter o mesmo nome ?

E meu comando poderia ser utilizado da maneira a seguir ?

 

FmenuPri.Ecf.ProgramaRelatoriosGerenciais( "Relatorio Gerencial" );

 

 

FMenuPri.ECF.AbreRelatorioGerencial(StrToIntDef('1', 0)) ;

        for i:= 0 to DmPrincipal.data3ret.Count - 1 do

        begin

             FMenuPri.Ecf.LinhaRelatorioGerencial( DmPrincipal.data3ret.Strings, 1 );

 

        end;

        FMenuPri.Ecf.FechaRelatorio;

 

Obrigado

[Daniel Simoes]

Pode ser que o Índice que seja programando não seja o que você está enviando...

 

alias:  StrToIntDef('1', 0)  é igual a 1 sempre...

 

Use AchaRGDescricao..

  RelGer := ACBrECF1.AchaRGDescricao(NomeRel);
  if RelGer <> nil then
     Indice := StrToIntDef( RelGer.Indice, 0) ;

 

Estude o exemplo a cima e outros no código fonte do Projeto ECFTeste.dpr