CER - Contador Específico de Relatório Gerencial

[wandarlei]

Bom dia a todos.

Estou em fase final de testes para a reomologação do PAF-ECF, e me deparei com o seguinte item: Requisito XLI-A, onde exige que seja armazenado e impresso no cupom fiscal o CER, como não encontrei a propriedade no componente, recorri ao help da impressora Daruma, que utilizo para teste.

Seguindo a orientação do help da impressora fis os ajustes no componente para recuperar esta informação, coloco aqui as modificações efetuadas e os arquivos para a avaliação e quem sabe a inclusão dos mesmo no cvs.

ACBrECF;

function GetNumCERClass: String;

--------

Property NumCER             : String     read GetNumCERClass ;

--------

function TACBrECF.GetNumCERClass: String;

begin

  ComandoLOG := 'NumCER' ;

  Result := fsECF.NumCER ;

end;

--------

try CER  := StrToIntDef(Self.NumCER,0);  except end ;

ACBrECFClass;

fsCER: Integer;

--------

property CER: integer read fsCER write fsCER;   //Contador Específico de Relatório Gerencial

--------

function GetNumCER: String; virtual ;

--------

Property NumCER             : String     read GetNumCER ;

--------

function TACBrECFClass.GetNumCER: String;

begin

  Result := '' ;

end;

ACBrECFDaruma;

function GetNumCER: String; override ;

--------

function TACBrECFDaruma.GetNumCER: String;

begin

  Result := '0' ;

  if fpMFD then

    Result  := Copy(RetornaInfoECF('44'),1,4);

end;

ACBrSerial.zip

[EMBarbosa]

Cuidado pra não confundir o CER (Contador Específico de Relatório Gerencial) com o GRG (Contador Geral de Relatório Gerencial).

O CER é daquele relatório específico, e não o Contador Geral de Relatórios.

Essa sua função parece que está pegando o GRG, pois você não precisa passar o índice ou o nome do Relatório Gerencial para pegar o CER dele.

Edit: Em vias de exemplo, para pegar o CER na Bematech você precisaria usar o comando RetornaInfoECF passando '51' como parâmetro, e a partir daí procurar no relatório correto o CER. Mas para pegar o GRG, bastaria usar o RetornaInfoECF passando como parâmetro '54'

Edit2: Correção de CRG para GRG.

[wandarlei]

Oi Elton,

O GRG utiliza o seguinte comando.

function TACBrECFDaruma.GetNumGRG: String;

begin

  Result := '0' ;

  if fpMFD then

    Result  :=  RetornaInfoECF('33');

end;

Já o CER utiliza

function TACBrECFDaruma.GetNumCER: String;

begin

  Result := '0' ;

  if fpMFD then

    Result  := Copy(RetornaInfoECF('44'),1,4);

end;

Pelo que vi o CER é reiniciado a toda redução Z.