MGV6

[BIOS]

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;

[Juliomar Marchetti]

26 minutos atrás, Bios Mutuipe disse:

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;

olha o negrito acima.

tu tá limpando a cada interação da while da query

[BIOS]

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

[BIOS]

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

[Juliana Tamizou]

Obrigado por reportar.

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