no programa pcesS5501 no trecho abaixo:
if leitor.rExtrai(2, 'ideProc') <> '' then
begin
IdeProc.FNrProcTrab := leitor.rCampo(tcStr, 'nrProcTrab');
IdeProc.FPerApur := leitor.rCampo(tcStr, 'perApur');
i := 0;
while Leitor.rExtrai(3, 'infoTributos', '', i +1) <> '' do
begin
IdeProc.InfoTributos.Items[i].perRef := leitor.rCampo(tcStr, 'perRef');
j := 0;
while Leitor.rExtrai(4, 'infoCRContrib', '', j + 1) <> '' do
begin
IdeProc.InfoTributos.Items[i].InfoCRContrib.New;
IdeProc.InfoTributos.Items[i].InfoCRContrib.Items[j].tpCR := leitor.rCampo(tcStr, 'tpCR');
IdeProc.InfoTributos.Items[i].InfoCRContrib.Items[j].vrCR := leitor.rCampo(tcDe2, 'vrCR');
inc(j);
end;
inc(i);
end;
Está dando o erro de :
---------------------------
Debugger Exception Notification
---------------------------
Project E_Social.exe raised exception class EArgumentOutOfRangeException with message 'Argument out of range'.
---------------------------
Break Continue Help
---------------------------
parece que não tem os dados do campo perRef, no entanto no xml de retorno os valores aparecem
Alguem ja passou por isso? Preciso gerar um txt com essas informações e não estou conseguindo dando erro nessa linha 425;
desde já agradeço qq ajuda.