Ir para conteúdo
  • Cadastre-se

dev botao

Bloco K - Não Gera Registros K100 e K200


flast2009
  • Este tópico foi criado há 1873 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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;

Link para o comentário
Compartilhar em outros sites

  • Consultores
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.

 

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Consultores

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 ...

 

  • Curtir 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1873 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.