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;