Olá pessoal,
Foi enviado ao SVN na Rev-36697 a alteração da classe TinfoIRComplem do S-5002, que passou a ser uma TCollection devido a mudança do leiaute 1.3.
Até a versão anterior, o número máximo de ocorrências era 1 e passou a ser 13, conforme destacado abaixo.
Segue exemplo de mudança de tratamento a ser feita, caso sua aplicação esteja considerando o retorno desta classe:
De:
var
dtLaudo: TDateTime;
begin
dtLaudo := IdeTrabalhador.infoIRComplem.dtLaudo;
.
.
.
Para:
var
i: Integer;
dtLaudo: TDateTime;
begin
for i:=0 to IdeTrabalhador.infoIRComplem.Count - 1 do
begin
dtLaudo := IdeTrabalhador.infoIRComplem.Items[i].dtLaudo;
.
.
.
end;
.
.
.
Até mais!!!