Reinf pcnReinfR5011 e pcnReinfRetConsulta Ajuste novas classes e campos

[galegoga]

Segue em anexo os arquivos modificados.

Abaixo, resumo das modificações.

Arquivo pcnReinfR5011.pas:

  // Adicionado classes:
  TRAquisCollection = class;
  TRAquisCollectionItem = class;  

Arquivo pcnReinfRetConsulta.pas:

  // Adicionado classes:  
  TRAquisCollection = class;
  TRAquisCollectionItem = class;  
  
  // Adicionado campos
  TInfoTotalContrib = class(TObject)
  public
    property RAquis: TRAquisCollection read FRAquis;
  end;
  
  TRTomCollectionItem = class(TObject)
  public
    property cno: String read Fcno; 
  end;

 

pcnReinfR5011.pas pcnReinfRetConsulta.pas

[Diego Foliene]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn #TK-3481

[EMBarbosa]

Em 12/01/2023 at 15:44, galegoga disse:

Segue em anexo os arquivos modificados.

Abaixo, resumo das modificações.

Arquivo pcnReinfR5011.pas:

  // Adicionado classes:
  TRAquisCollection = class;
  TRAquisCollectionItem = class;  

Arquivo pcnReinfRetConsulta.pas:

  // Adicionado classes:  
  TRAquisCollection = class;
  TRAquisCollectionItem = class;  
  
  // Adicionado campos
  TInfoTotalContrib = class(TObject)
  public
    property RAquis: TRAquisCollection read FRAquis;
  end;
  
  TRTomCollectionItem = class(TObject)
  public
    property cno: String read Fcno; 
  end;

 

pcnReinfR5011.pas 31.84 kB · 2 downloads pcnReinfRetConsulta.pas 36.7 kB · 2 downloads

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  28366.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.