Bloco K - teste

[Professor]

Boa dia!

 

Estou fazendo os testes com o Bloco K com vários registros, porém , quando gera gero o Sped, aparece apenas 1 registro nos blocos.

Estou gerando com a data 01/01/2016 - 31/01/2016.

Alguém saberia me ajudar?

 

Att

Prefessor

[Juliomar Marchetti]

acho que terá que postar o trecho de seu código, isso me parece erro ao alimentar o componente

[Professor]

Boa tarde!
Nesse trecho , na consulta que tenho, gera mais de 500 registros, mas qdo gera o sped, aparece somente 1 registro ( o último).

 with RegistroK200New do // Estoque escriturado
       begin
         IND_MOV := imComDados;

         QRY_PRODUTO.First;
         while not qry_produto.Eof do
         begin

               DT_EST   :=EDataFinal.date;
               COD_ITEM :=QRY_PRODUTOcodigo.AsString;
               QTD      :=QRY_PRODUTOestoque.Asfloat;
               COD_PART :='';
          qry_produto.next;
         end;

       end;

//*********************

|K001|0|
|K100|01012016|31012016|
|K200|31012016|GG|1,000|0|| ( último registro da consulta)
|K220|10012016|216|23|20,00|
|K230|||||0,000|
|K250|01012016|000|0,00|
|K255|01012016|00|10,00||
|K990|8|

 

[netstart]

Boa tarde, você deve incluir o  " with RegistroK200New do " dentro do laço de repetição...

[Juliomar Marchetti]

Bingo.. eheheh estava indo ler pra responder mas nosso amigo já lhe respondeu!

erro de lógica no uso do componente