Bloco D100 o mesmo registro em várias linhas

[lucianogatto]

Pessoal, estou com dificuldade para gerar o bloco D100, para uma mesma nota está gerando vários D100, jogando cada campo em linhas diferentes, alguém já passou por essa situação, desde já agradeço a ajuda.

Estou gerando desta forma, abaixo tem o bloco como está ficando.

try

RegistroD100New.IND_OPER := qrySPEDPISD100IND_OPER.AsString;

RegistroD100New.IND_EMIT := iedfTerceiro;

RegistroD100New.COD_PART := qrySPEDPISD100COD_PART.AsString;

RegistroD100New.COD_MOD := qrySPEDPISD100COD_MOD.AsString;

RegistroD100New.COD_SIT := sdfRegular;

RegistroD100New.SER := qrySPEDPISD100SER.AsString;

RegistroD100New.SUB := '';

RegistroD100New.NUM_DOC := qrySPEDPISD100NUM_DOC.AsString;

RegistroD100New.CHV_CTE := '';

RegistroD100New.DT_DOC := qrySPEDPISD100DAT_DOC.Value;

RegistroD100New.DT_A_P := qrySPEDPISD100DAT_DOC.Value;

RegistroD100New.TP_CT_e := '';

RegistroD100New.CHV_CTE_REF := '';

RegistroD100New.VL_DOC := qrySPEDPISD100VL_SERV.AsFloat;

RegistroD100New.VL_DESC := 0;

RegistroD100New.IND_FRT := tfPorContaTerceiros;

RegistroD100New.VL_SERV := qrySPEDPISD100VL_SERV.AsFloat;

RegistroD100New.VL_BC_ICMS := qrySPEDPISD100VL_BC_ICMS.AsFloat;

RegistroD100New.VL_ICMS := qrySPEDPISD100VL_ICMS.AsFloat;

RegistroD100New.VL_NT := 0;

RegistroD100New.COD_INF := '';

RegistroD100New.COD_CTA := '';

except

raise;

end;

|D001|0|

|D010|06347830000257|

|D100|0|0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||1|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|F95||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0||57|00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|002||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||007737||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||31052012||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00||||||31052012|||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||4579,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|4579,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D100||0|||00|||||||||0,00|0,00|0|0,00|0,00|0,00|0,00|||

|D101|0|0,00|01||0,00|0,0000|0,00||

|D101|0|4579,00|01||0,00|0,0000|0,00||

|D101|0|0,00|50||0,00|0,0000|0,00||

|D101|0|0,00|01|14|0,00|0,0000|0,00||

|D101|0|0,00|01|14|4579,00|0,0000|0,00||

|D101|0|0,00|01|14|0,00|7,6000|0,00||

|D101|0|0,00|01|14|0,00|0,0000|4579,00||

|D101|0|0,00|01|14|0,00|0,0000|0,00||

|D105|0|0,00|01||0,00|0,0000|0,00||

|D105|0|4579,00|01||0,00|0,0000|0,00||

|D105|0|0,00|50||0,00|0,0000|0,00||

|D105|0|0,00|01|14|0,00|0,0000|0,00||

|D105|0|0,00|01|14|4579,00|0,0000|0,00||

|D105|0|0,00|01|14|0,00|1,6500|0,00||

|D105|0|0,00|01|14|0,00|0,0000|4579,00||

|D105|0|0,00|01|14|0,00|0,0000|0,00||

[EMBarbosa]

Note que RegistroD100New é um método da classe. Toda vez que você usa o método RegistroD100New ele cria um novo registro.

Você deve criar apenas uma vez e depois preencher o registro.

Observe o que foi feito no DEMO.

Se você não for a favor de usar o with, você pode criar uma variável local e atribuir o RegistroD100New a ela. A partir daí você pode preencher a variável normalmente.

[lucianogatto]

Elton, boa noite!

Era isso mesmo, muito obrigado pela dica, abraços e sucessos.