Bloco K - Não Gera Registros K100 e K200

[flast2009]

Boa Tarde, fui tentar gerar os registros do bloco K. 

Meu Dataset vem populado com varios registros , ele percorre o laço , atribui valor aos campos do registro K200, preencho o registro K100, porem o arquivo gera somente os registros K001 e K990 , sendo que o K001 - gera como imSemDados, mesmo preenchendo os demais registros .

Algum dos senhores ja passou por isso ? teria alguma outra dependência alem dos registros 0200 e 0150, tipo perfil, Bloco H Obrigatório  ?

Em debug, estes campos dos registros , não consigo ver o valor atribuído , vem vazio, isso ocorre também com os outros que estão preenchidos , utilizo delphi XE2.

Lembrando que to passando versão 013 no campo cod_ver.

Se puderem me ajudar ficarei grato, segue trecho do código ...

 

with ACBrSPEDFiscal1.Bloco_K
do begin

   with RegistroK001New
   do   begin

        IND_MOV  := imComDados;

        with RegistroK100New
        do   begin
             DT_INI   := DateOf(dtIni.Date);     //01/01/2019
             DT_FIN   := DateOf(dtFim.Date); //31/01/2019

             QueResumoProducao.First;

             while not QueResumoProducao.Eof
             do    begin

                   with RegistroK200New
                   do   begin
                        COD_ITEM                 := QueResumoProducao.FieldByName('COD_ITEM').AsString;
                        QTD                      := TUfuncoes.Positivo(  QueResumoProducao.FieldByName('SALDO').AsFloat);
                        IND_EST                  := estPropInformantePoder;
                        COD_PART                 := '';
                        DT_EST                   := dtFim.Date;
                        end;

                   QueResumoProducao.Next;
                   end;

             end;
        end;

[EMBarbosa]

2 horas atrás, flast2009 disse:

sendo que o K001 - gera como imSemDados,

Se estiver como imSemDados o componente não vai gerar os registros, então verifique isso.

Talvez seja uma boa reduzir a quantidade de withs aninhados que você utiliza. Sei que o exemplo atual está assim, mas não é um bom padrão pra seguir.

 

[flast2009]

To passando IND_MOV  := imComDados; 

Ele percorre o registro k200 , alimenta os campos , porem passa o valor 1 no campo k001, gera o k990 com valor 2,  e não gera informação alguma no registro k200 ...

[EMBarbosa]

Consegue reproduzir esse problema usando o programa de exemplo?

4 horas atrás, flast2009 disse:

To passando IND_MOV  := imComDados; 

Ele percorre o registro k200 , alimenta os campos , porem passa o valor 1 no campo k001, gera o k990 com valor 2,  e não gera informação alguma no registro k200 ...