Geração do XML final para transmissão

[Rodrigo R Bernardi]

Olá a todos,

Estou testando o ACBreSocial2.0 disponível na pasta Exemplos do ACBr-Branches e ao tentar usar o código abaixo para gerar o XML final (acredito eu) ocorre um access violation na linha 185 referente a linha 100 da unit ACBreSocialLoteEventos.pas.

 

  ACBreSocial1.Eventos.GerarXMLs;
  ACBreSocial1.Eventos.SaveToFiles;

  LLoteEventos := TLoteEventos.Create(ACBreSocial1);
  Try
    LLoteEventos.LoadFromFile( 'C:\teste_esocial\S-1000-0.xml' );
    LLoteEventos.GerarXML;

    ACBreSocial1.EnviarEventos( LLoteEventos  ); // não implementado
  Finally
    FreeAndNil(LLoteEventos);
  End;

  ACBreSocial1.Eventos.Clear;

 

Alguém mais com esse problema? Alguém pode me ajudar?

[Hudson G Leite]

Boa noite,  @Rodrigo SuperSoft na unit  [ ACBreSocialLoteEventos ] no evento Create da Classe [ TLoteEventos ]

adiciona o código. 

inherited Create(AOwner, TItemLoteEventos);

constructor TLoteEventos.Create(AOwner: TComponent);
begin
  inherited Create(AOwner, TItemLoteEventos);
  FACBreSocial    := AOwner;
  FIdeEmpregador  := TIdeEmpregador.Create;
  FIdeTransmissor := TIdeTransmissor.Create;
  FGerador        := TGerador.Create;
end;

Nâo irá ocorrer a violação de acesso.

[Rodrigo R Bernardi]

10 horas atrás, Hudson G Leite disse:

Boa noite,  @Rodrigo SuperSoft na unit  [ ACBreSocialLoteEventos ] no evento Create da Classe [ TLoteEventos ]

adiciona o código. 

inherited Create(AOwner, TItemLoteEventos);

constructor TLoteEventos.Create(AOwner: TComponent);
begin
  inherited Create(AOwner, TItemLoteEventos);
  FACBreSocial    := AOwner;
  FIdeEmpregador  := TIdeEmpregador.Create;
  FIdeTransmissor := TIdeTransmissor.Create;
  FGerador        := TGerador.Create;
end;

Nâo irá ocorrer a violação de acesso.

Correto, violação de acesso resolvido. Muito obrigado @Hudson G Leite