Erro No Registro 50

[Alex Calado]

Senhores, preciso de um apoio: ao rodar o exemplo do Acbr Sintegra e gerar o arquivo, está retornando o seguinte erro: "Invalid pointer operation". Apenas copiei o bloco do registro 50 e o copiei algumas vezes, é como se ele não aceitasse adicionar mais de um registro para o mesmo:

 

procedure TForm1.GerarRegistro50;
var
  wregistro50: TRegistro50;
begin
  wregistro50:=TRegistro50.Create;
  with ACBrSintegra do
  begin
    wregistro50.CPFCNPJ:='43.214.055/0042-85';
    wregistro50.Inscricao:='349016872110';
    wregistro50.DataDocumento:=Registro10.DataFinal;
    wregistro50.UF:='SP';
    wregistro50.Modelo:='1';
    wregistro50.Serie:='1';
    wregistro50.Numero:='123';
    wregistro50.Cfop:='2.102';
    wregistro50.EmissorDocumento:='T';
    wregistro50.ValorContabil:=1500;
    wregistro50.BasedeCalculo:=1500;
    wregistro50.Icms:=270;
    wregistro50.Isentas:=0;
    wregistro50.Outras:=0;
    wregistro50.Aliquota:=18;
    wregistro50.Situacao:='N';
    ACBrSintegra.Registros50.Add(wregistro50);


    wregistro50.CPFCNPJ:='43.214.055/0042-85';
    wregistro50.Inscricao:='349016872110';
    wregistro50.DataDocumento:=Registro10.DataFinal;
    wregistro50.UF:='SP';
    wregistro50.Modelo:='1';
    wregistro50.Serie:='1';
    wregistro50.Numero:='123';
    wregistro50.Cfop:='2.102';
    wregistro50.EmissorDocumento:='T';
    wregistro50.ValorContabil:=1500;
    wregistro50.BasedeCalculo:=1500;
    wregistro50.Icms:=270;
    wregistro50.Isentas:=0;
    wregistro50.Outras:=0;
    wregistro50.Aliquota:=18;
    wregistro50.Situacao:='N';
    ACBrSintegra.Registros50.Add(wregistro50);


    wregistro50.CPFCNPJ:='43.214.055/0042-85';
    wregistro50.Inscricao:='349016872110';
    wregistro50.DataDocumento:=Registro10.DataFinal;
    wregistro50.UF:='SP';
    wregistro50.Modelo:='1';
    wregistro50.Serie:='1';
    wregistro50.Numero:='123';
    wregistro50.Cfop:='2.102';
    wregistro50.EmissorDocumento:='T';
    wregistro50.ValorContabil:=1500;
    wregistro50.BasedeCalculo:=1500;
    wregistro50.Icms:=270;
    wregistro50.Isentas:=0;
    wregistro50.Outras:=0;
    wregistro50.Aliquota:=18;
    wregistro50.Situacao:='N';
    ACBrSintegra.Registros50.Add(wregistro50);

 

Pelo que me parece o erro está na função LimparRegistros.

 

Como faço para adicionar vários Registros para este bloco 50?

 

Desde já agradeço!

 

 

[EMBarbosa]

Você não está criando vários registros, está apenas modificando o mesmo registro e o adicionando várias vezes.

Para criar cada registro utilize o código:

 wregistro50 := TRegistro50.Create;

[Alex Calado]

Era isto mesmo! Muito Obrigado