[MGV6]

Juliomar o Problema foi aquela linha mesmo, muito obrigado depois que apaguei foi tiro e queda.

[MGV6]

Eu fiz o teste e continua da mesma forma, apenas exporta um item para txt.

[MGV6]

Caro amigos estou usando o componente Acbr para exportar a txt da mgv6, eu exporto varios itens mais so esta indo um para a txt, poderia mim da uma orientação o que pode esta acontecendo? estou usando da seguinte forma a baixo citada.

cpCarga.Produtos.Clear;
  while not qrproduto.eof do begin
    cpCarga.Produtos.Clear;
    memo1.Lines.Add(qrproduto.fieldbyname('produto').asstring);
    Application.ProcessMessages;
    barra.IncPartsByOne;
    with cpCarga.Produtos.New do begin
      ModeloEtiqueta  := 1;
      Setor.Codigo    := 1;
      Tipo            := tpvPeso;
      Codigo          := StrToInt(qrprodutoCODIGO.AsString);
      Descricao       := qrprodutoPRODUTO.AsString;
      ValorVenda      := qrprodutoPRECOVENDA.AsFloat;
      Validade        := 0;
      Tecla           := 0;
    end;
    qrproduto.Next;