Erro leitura XML NFSE

[Amaro José Loch]

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

Agora, Amaro José Loch disse:

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

[Amaro José Loch]

12 minutos atrás, Amaro José Loch disse:

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

 

pcnLeitor.pas

[Italo Giurizzato Junior]

Bom dia Amaro,

O tipo tcDatHor (que já existe) não resolveria o problema?

[Amaro José Loch]

20 minutos atrás, Italo Jurisato Junior disse:

Bom dia Amaro,

O tipo tcDatHor (que já existe) não resolveria o problema?

Na verdade eu não preciso deste campo, mais quando vou fazer a leitura do XML estava dando erro.

segue meu XML

Nota_Fiscal_462.xml

[Italo Giurizzato Junior]

Boa tarde Amaro,

Somente a tag referente a data de vencimento ocorre o erro ao ler o XML?

[Amaro José Loch]

5 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Amaro,

Somente a tag referente a data de vencimento ocorre o erro ao ler o XML?

Sim, já li outras notas sem problemas,  mais no XML não constava a TAG vencimento.

Se você verificar este XML tem esta TAG.

 

[Italo Giurizzato Junior]

Amaro,

Ainda hoje vou disponibilizar uma alteração, quem sabe resolve o problema.

[Amaro José Loch]

40 minutos atrás, Italo Jurisato Junior disse:

Amaro,

Ainda hoje vou disponibilizar uma alteração, quem sabe resolve o problema.

Muito obrigado, quando disponibilizar favor me avisar.

abraço

[Italo Giurizzato Junior]

Boa tarde Amaro,

Favor atualizar os fontes e faça novos testes.

[Amaro José Loch]

16 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Amaro,

Favor atualizar os fontes e faça novos testes.

Boa tarde,

 

 

Vi que você esta pegando a datahora da nota fiscal. Funcionou em parte.

Caso alguém queira pegar a data de vencimento mesmo não vai conseguir, não seria mais interessante criar uma nova variável para que as pessoas possam ter a data de vencimento informado pelo cliente?

 

Muito obrigado.

 

 

[Italo Giurizzato Junior]

Amaro,

Mas a data de vencimento não é a que se encontra dentro da tag DataVencimento?

[Amaro José Loch]

19 minutos atrás, Italo Jurisato Junior disse:

Amaro,

Mas a data de vencimento não é a que se encontra dentro da tag DataVencimento?

sim, agora eu entendi.

 

Muito obrigado