PAF_N

[Rodrigo Ismerio Barros1802]

Boa tarde,

Na classe ACBRPAF_N_Class tem a procedure TPAF_N.WriteRegistroN3 que contem o fonte que gera o bloco devido. OK! porem ao informar o valor no a atributo da:

ACBrPAF.PAF_N.RegistroN9.TOT_REG:= número de arquivos Dll eEXE ele duplica na geração do arquivo.

Problema esta neste bloco:

procedure TPAF_N.WriteRegistroN3;
var
  intFor: integer;
  NomeArquivoCompleto, ApplicationDir : String ;
begin 

      ...

       FRegistroN9.TOT_REG := FRegistroN9.TOT_REG +  1;
    ... 
 end;

ACBrPAF.PAF_N.RegistroN9.TOT_REG:= ele guarda o atributo já com o valor porque rodou na outra procedure ...WriteRegistroN3 e soma com o novo valor informado.

Se comentar a linha acima fica tudo correto.( FRegistroN9.TOT_REG := FRegistroN9.TOT_REG +  1)

 

[Daniel Simoes]

Pelo que você descreveu... basta você não informar valor algum em TOT_REG  e deixar que o componente compute o mesmo...

[Rodrigo Ismerio Barros1802]

Obrigado pelo retorno Daniel,

Senão informar o valor TOT_REG  o arquivo fica sem informação, e se colocar o atributo precisa de um valor.

[Daniel Simoes]

Esse componente é usado por centenas de desenvolvedores... Será mesmo que há um bug assim tão evidente ?

Já estudou os fontes do Demo ?

procedure TForm6.btnNClick(Sender: TObject);
begin
  // registro P1
  PreencherHeader(ACBrPAF.PAF_N.RegistroN1); // preencher header do arquivo

  // registro P2
  ACBrPAF.PAF_N.RegistroN2.LAUDO  := 'LAU1234567';
  ACBrPAF.PAF_N.RegistroN2.NOME   := 'NOME APLICATIVO NO LAUDO';
  ACBrPAF.PAF_N.RegistroN2.VERSAO := '1000';

  with ACBrPAF.PAF_N.RegistroN3.New do
  begin
    NOME_ARQUIVO := ExtractFileName(ParamStr(0));
    MD5          := ACBrEAD.MD5FromFile(ParamStr(0));
  end;
  ACBrPAF.SaveToFile_N('PAF_N.TXT');

end;

 

[Rodrigo Ismerio Barros1802]

Boa Tarde Daniel novamente agradeço seu retorno,

No exemplo da pasta: Acbr\Exemplos\ACBrSerial\ACBrECF\Delphi. Não contem esta procedure nem o Form6.

procedure TForm6.btnNClick(Sender: TObject);

Estou no caminho correto do exemplo?

[Daniel Simoes]

Nao sei... Eu uso Lazarus/FPC

[Rodrigo Ismerio Barros1802]

Daniel,

 

No projeto do exemplo existe  todas as funções e relatórios correspondentes ao ECF. Acredito que seja o projeto correto. Fica pendente somente neste a geração do PAF_N.