[Dúvida s-1200 e s-1200 autonomo]

ac

 

 

[integracao portal nacional de compras publicas]

Boa tarde pessoal, tenho uma dúvida a ACBR tem um componente que realize a integração com o portal nacional de compras publicas (Para Licitações)? se sim onde localizo, procurei nos fontes e não encontrei algo parecido, desde já agradeço.

[Dúvida como Gravar Retorno Evento S-5011]

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;

 

[Produção restrita fora do ar]

Estamos com o mesmo problema sem saber como corrigir, alguém chegou a uma solução?