E-Social - Unit pcesS5001

[DiegoCaetano]

Verifiquei que na unit pcesS5001.pas, função TEvtBasesTrab.LerXML,lina 1020 - 1030 do projeto Componentes ACBr -ESocial, que o parâmetro TAGparada da função leitor.rCampo está informado errado.

 

[Código Original]

infoCp.IdeEstabLot.Items[i].InfoCategIncid.Items[j].InfoPerRef.Items[k].DetInfoPerRef.Items[l].FtpVrPerRef := leitor.rCampo(tcInt, 'tpValor');

 

[Código Alterado]

infoCp.IdeEstabLot.Items[i].InfoCategIncid.Items[j].InfoPerRef.Items[k].DetInfoPerRef.Items[l].FtpVrPerRef :=leitor.rCampo(tcInt, 'tpVrPerRef');

 

Em anexo. o arquivo xml S5001.

ID1114643850000002022112916355114339-S5001.xml

[Juliomar Marchetti]

anexa a unit .

[DiegoCaetano]

4 horas atrás, Diego Caetano disse:

Verifiquei que na unit pcesS5001.pas, função TEvtBasesTrab.LerXML,lina 1020 - 1030 do projeto Componentes ACBr -ESocial, que o parâmetro TAGparada da função leitor.rCampo está informado errado.

 

[Código Original]

infoCp.IdeEstabLot.Items[i].InfoCategIncid.Items[j].InfoPerRef.Items[k].DetInfoPerRef.Items[l].FtpVrPerRef := leitor.rCampo(tcInt, 'tpValor');

 

[Código Alterado]

infoCp.IdeEstabLot.Items[i].InfoCategIncid.Items[j].InfoPerRef.Items[k].DetInfoPerRef.Items[l].FtpVrPerRef :=leitor.rCampo(tcInt, 'tpVrPerRef');

 

Em anexo. o arquivo xml S5001.

ID1114643850000002022112916355114339-S5001.xml 4.84 kB · 1 download

 

pcesS5001.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

TK-3374

[Diego Foliene]

Boa tarde!
Sua contribuição foi aceita e enviada ao SVN!
Por favor, atualize seus fontes, reinstale o ACBr e faça novos testes.

Para detalhes do que foi alterado confira Rev27841