Fiz alguns ajustes para Leitura do XML que estavam ocasionando alguns erros para consulta do RPS e cancelamento .
Na unit : pnfsNFSeR.pas . foram feitos alguns ajustes entre as linhas - 559 e 1643 .
Linha - 559 : Pois esta interpretando incorretamente o valor, gerando erro na leitura .
if FProvedor = ProSigCorp then <-------- incluido
NFSe.Competencia := Leitor.rCampo(tcDat, 'Competencia') <---- incluido
else
NFSe.Competencia := Leitor.rCampo(tcStr, 'Competencia');
Linha - 1643 : Pois esta interpretando incorretamente o valor, gerando erro na leitura .
if NFSe.NfseCancelamento.DataHora = 0 then
if Provedor = proSigCorp then <------ incluido
NFSe.NfseCancelamento.DataHora := StringToDateTime(Leitor.rCampo(tcStr, 'DataHoraCancelamento') , 'DD/MM/YYYY hh:nn:ss') <--- incluido
else
NFSe.NfseCancelamento.DataHora := Leitor.rCampo(tcDatHor, 'DataHoraCancelamento');
Desde ja agradeço .
Adilson Pazzini
pnfsNFSeR.pas