lucianogatto

22 Junho, 2012

Elton, boa noite!

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

22 Junho, 2012

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