Consulta ACBreSocial S5001

[anderson.mendonca]

Pessoal, abri o exemplo do ACBreSocial pra ver como consultar o evento S5001 mas não entendi nada.
Alguém pode me ajudar?
Não tenho ideia de como fazer a consulta muito menos como pegar as informações.

Obrigado.

 

[Paulo Aguiar Junior]

Aqui faz a consulta normalmente, como qualquer outro evento:

RetConsultaLote := ACBreSocial.WebServices.ConsultaLote.RetConsultaLote;

Percorre os eventos retornados:

for IndiceEvento := 0 to RetConsultaLote.RetEventos.Count - 1 do

Faz a consulta normal, ai você percorre o RetConsultaLote.RetEventos.Items[IndiceEvento].tot

for IndiceTotalizador := 0 to RetConsultaLote.RetEventos.Items[IndiceEvento].tot.Count - 1 do

Ai você checka se é o evento S-5001: 

case RetConsultaLote.RetEventos.Items[IndiceEvento].tot[IndiceTotalizador].Evento.TipoEvento of
           teS5001:
           begin             

                EvtS5001 := TS5001(RetConsultaLote.RetEventos.Items[IndiceEvento].tot[IndiceTotalizador].Evento.GetEvento);

 

                //Aí você pega as informações que desejar  

           end;

end;

[anderson.mendonca]

Obrigado Paulo.
Vou testar e, dando certo ou não, respondo aqui.

 

[anderson.mendonca]

Em 20/02/2020 at 13:26, Paulo Aguiar Junior disse:

Aqui faz a consulta normalmente, como qualquer outro evento:

RetConsultaLote := ACBreSocial.WebServices.ConsultaLote.RetConsultaLote;

Percorre os eventos retornados:

for IndiceEvento := 0 to RetConsultaLote.RetEventos.Count - 1 do

Faz a consulta normal, ai você percorre o RetConsultaLote.RetEventos.Items[IndiceEvento].tot

for IndiceTotalizador := 0 to RetConsultaLote.RetEventos.Items[IndiceEvento].tot.Count - 1 do

Ai você checka se é o evento S-5001: 

case RetConsultaLote.RetEventos.Items[IndiceEvento].tot[IndiceTotalizador].Evento.TipoEvento of
           teS5001:
           begin             

                EvtS5001 := TS5001(RetConsultaLote.RetEventos.Items[IndiceEvento].tot[IndiceTotalizador].Evento.GetEvento);

 

                //Aí você pega as informações que desejar  

           end;

end;

Paulo, a resposta do S5001 é individual? Ou seja, funcionário por funcionário? Ou retorna informações gerais da empresa?