erro ao gerar o registro 74

[felipeiw]

Pessoal estou gerando o registro 74 da seguinte maneira:

  wregistro74 := TRegistro74.Create;

  ACBrSintegra.FileName := xnomarq;
  ACBrSintegra.VersaoValidador := vv524;

  GerarRegistro10;
  GerarRegistro11;

  QEstoque.First;
  while not(QEstoque.Eof) do
  begin
    if (QEstoqueSALPRO.AsFloat > 0) then
    begin
      with ACBrSintegra do
      begin
        wregistro74.Data := EDatbas2.DateValue;
        wregistro74.Codigo := QEstoqueCODIGOO.Value;
        wregistro74.Quantidade := QEstoqueSALDO.Value;
        wregistro74.ValorProduto := QEstoquePRECO.Value;
        wregistro74.CodigoPosse := '1';
        wregistro74.CNPJPossuidor := '';
        wregistro74.InscricaoPossuidor := '';
        wregistro74.UFPossuidor := '';

        Registros74.Add(wregistro74);
      end;
    end;

    QEstoque.Next;
  end;
  ACBrSintegra.GeraArquivo;

Na linha Registros74.Add(wregistro74), em determinando momento da o seguinte erro: Invalid pointer operation

Será que estou passando algum parametro errado, ou mesmo montando errado ?

Obrigado

 

  

[Renato Rubinho]

Coloque o wregistro74 := TRegistro74.Create; dentro do loop.

Você criou ele uma vez só e está adicionando o mesmo em todos os passos.

[felipeiw]

Rubinho obrigado pela resposta

deu certo.

Abs

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.