Jump to content

dev botao

Dúvida como Gravar Retorno Evento S-5011


xairo
Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 669 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Bom dia, quando eu recebo o retorno do XML do 5011, ele vem com uma lista de valores (tag <infoCREstab>), não sabemos se vem sempre a mesma quantidade de itens, temos o FOR para percorrer a lista, porém não sabemos como vamos salvar no banco, segue a parte do código que é feito a gravação:

for I := 0 to evtS5011.EvtCS.InfoCS.ideEstab.Items[0].infoCREstab.Count - 1 do
begin
TbGrava.ParamByName('TPCRCRESTAB').AsString              := evtS5011.EvtCS.InfoCS.ideEstab.Items[0].infoCREstab.Items[I].tpCR; //TPCRCRESTAB
TbGrava.ParamByName('VRCPCRESTAB').AsCurrency            := evtS5011.EvtCS.InfoCS.ideEstab.Items[0].infoCREstab.Items[I].vrCR; //VRCPCRESTAB
end;

for I := 0 to evtS5011.EvtCS.InfoCS.infoCRContrib.Count - 1 do
begin
TbGrava.ParamByName('TPCRCRCONTRIB').AsString            := evtS5011.EvtCS.InfoCS.infoCRContrib.Items[I].tpCR; //TPCRCRCONTRIB
TbGrava.ParamByName('VRCPCRCONTRIB').AsCurrency          := evtS5011.EvtCS.InfoCS.infoCRContrib.Items[I].vrCR; //VRCPCRCONTRIB
end;
TbGrava.ExecSQL;

 

image (8).png

Link to comment
Share on other sites

  • 1 month later...
  • Consultores
  • Solution

[]'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á 669 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.