Jump to content

Delphi chamada_delphi.png acbr.png

C6 chamada_c6.png botao.png

Bloco D100 o mesmo registro em várias linhas


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

Recommended Posts

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

Link to comment
Share on other sites

  • Consultores

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.

[]'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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.