Bloco K200 com apenha 1 item

[FelipeLopes]

Bom dia, estou tendo uma dificuldade em gerar o bloco K200,  estou alimentando o bloco com mais de 400 itens, porem apos gera o arquivo, so aparece 1 item.

Alguem pode me dar um caminho para a correção?

Irei colocar o codigo da criação e em anexo o arquivo txt.

 

  with ACBrSPEDFiscal1.Bloco_K do
  begin
    cdsgrupoproduto.Filtered := True;
    with RegistroK001New do
    begin
      IND_MOV := imComDados;

      with RegistroK100New do
      begin
        DT_INI := cbde.Date;
        DT_FIN := cbate.Date;

        with RegistroK200New do
        begin
          xsql := 'select '+
                  'a.codmanual, a.cidchaves, a.descricao, a.tipoestoqueproduto, a.cidchavesproprietarioproduto, '+
                  'd.sigla, c.codigoreceita, '+
                  'sum(e.quantidade) as saldo '+
                  'from '+
                  'tblprodutos a, tblgrupoproduto b, tbltipoprodutos c, tblunidadedemedida d, tblhistoricoproduto e '+
                  'where '+
                  'a.cidchavesgrupodeproduto=b.cidchaves and '+
                  'b.cidchavestipo=c.cidchaves and '+
                  'a.cidchaves=e.cidchavesproduto and '+
                  'a.cidchavesunidademedida=d.cidchaves and '+
                  'e.data<=:data  and ';

                  if cdsgrupoproduto.RecordCount>0 then
                  begin
                    cdsgrupoproduto.First;
                    xsql := xsql +' ( ';
                    while not cdsgrupoproduto.Eof do
                    begin
                      xsql := xsql+'B.cidchaves='+cdsgrupoprodutocidchaves.AsString+' or ';
                      cdsgrupoproduto.Next;
                    end;
                    xsql := copy(xsql,1,length(xsql)-3);
                    xsql := xsql +' )';
                  end
                  else
                  xsql := copy(xsql,1,length(xsql)-4);

                  xsql := xsql+'group by a.cidchaves having sum(e.quantidade)>0 order by a.descricao ';

          qryk200.Close;
          qryk200.SQL.Clear;
          qryk200.SQL.Add(xsql);
          qryk200.ParamByName('data').AsDate    :=cbate.Date;
          qryk200.Open;
          qryk200.First;
          while not qryk200.Eof do
          begin
            COD_ITEM  := qryk200cidchaves.AsString;
            QTD       := qryk200saldo.AsFloat;
            Case qryk200tipoestoqueproduto.AsInteger Of
              0 :
                  begin
                    IND_EST   := estPropInformantePoder;
                    COD_PART := '';
                  end;
              1 :
                  begin
                    IND_EST   := estPropInformanteTerceiros;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
              2 :
                  begin
                    IND_EST   := estPropTerceirosInformante;
                    COD_PART  := qryk200cidchavesproprietarioproduto.AsString;
                  end;
            End;

            DT_EST := cbate.Date;
            qryk200.Next;
          end;

          {with RegistroK220New do
          begin
            DT_MOV := ACBrSPEDFiscal1.DT_INI;
            COD_ITEM_ORI := '000008';
            COD_ITEM_DEST := '000010';
            QTD := 1;
            QTD_DEST := 1;
          end;
          }
        end;
      end;
    end;
    cdsgrupoproduto.Filtered := False;

  end;
 

SpedFiscal.txt

[FelipeLopes]

Resolvido, tem momentos que estamos tão atarefados que nao conseguimos enxergar um simples erro.

Obrigado a todos..

[Juliomar Marchetti]

Obrigado por reportar.

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