Ir para conteúdo
  • Cadastre-se

dev botao

Bloco D100 o mesmo registro em várias linhas


  • Este tópico foi criado há 4297 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 para o comentário
Compartilhar em outros 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 para o comentário
Compartilhar em outros sites

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

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.