lucianogatto

Elton, boa noite! Era isso mesmo, muito obrigado pela dica, abraços e sucessos.

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

Pessoas, Estou com o mesmo problema, baixei no forum do PisCofins um exemplo, porém apresenta erro justamente no itoContratado, alguém poderia me passar o caminho para a solução? Obrigado! with RegistroF100New do begin IND_OPER := itoContratado; ... end;