Bom dia,
Recebi um XML da prefeitura de São José Santa Catarina, no campo vencimento esta assim 2019-02-15T00:00:00-02:00, mais na UNIT pcnLeitor o trecho do código esta assim ?
tcDatVcto:
begin
if length(ConteudoTag)>0 then
result := EncodeDate(StrToInt(copy(ConteudoTag, 07, 4)), StrToInt(copy(ConteudoTag, 04, 2)), StrToInt(copy(ConteudoTag, 01, 2)))
else
Result := 0;
end;
Sendo assim esta o erro exception class EConvertError with message ''9-' is not a valid integer value
o correto seria
tcDatVcto:
begin
if length(ConteudoTag)>0 then
result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 05 2)), StrToInt(copy(ConteudoTag, 07, 2)))
else
Result := 0;
end;
segue a unit corrigida.
pcnLeitor.pas
ou poderíamos criar um novo campo para não da conflito com outros XMLS segue:
pcnLeitor.pas
pcnConversao.pas
pnfsNFSeR.pas