Erro Nos Campos Data (Demi / Dsai* ) Ao Importar Xml

[Jccosta]

Boa noite pessoal, 

 

tenho uma rotina que faz a leitura do XML no meu sistema de compras, porém apos atualizar para versão mais recente do acbr os campos data do GRUPO "Ide" estão sendo importados com a data "30/12/1899"

 

Já alterei os campos: 

Modelo do Documento e Versão do Documento, porém o erro ainda continua. 

 

Por fim compilei o DEMO da NFe e tentei fazer a importação tomando o cuidado de setar as propiedades na configuração, o erro continua. 

 

anexei a imagem com o resultado no DEMO. 

 

Agradeço desde já esse grupo porreta.

 

Namastê 

 

 

XML Exemplo.zip

Editado 25 Fevereiro, 2015 por Jccosta

[windsoft]

Não seria porque na NFe 3.10 os campos de data passaram a ser Data/Hora ficando DHEmi ao invés de DEmi ?

[Jccosta]

Olá Windsoft,  até achei que fosse isso, mas existe no componente as propriedades ModeloDF e VersãoDF, esta ultima tanto eu configuro conforme a TAG "Versão" do XML.

No caso  do ex. que enviei ( ve200 ).

 

Com a versão ve3.10 ainda não testei a importação.

[windsoft]

Se for possível anexe um xml de exemplo pra eu ver se o problema também acontece aqui.

[Jccosta]

Anexei  2 XML's que estão apresentando esse problema. 

 

Muito obrigado pela ajuda.

XML Exemplo.zip

[Italo Giurizzato Junior]

Bom dia Jccosta,

 

Tenho uma aplicação onde é possível carregar o XML e visualizar o DANFE.

 

Fiz um teste com os seus 2 XML, as datas de emissão e de saída são apresentadas conforme consta no XML.

 

Portanto aqui o problema não ocorreu.

[windsoft]

Realmente Jccosta aqui também o problema não aconteceu. conforme pode ser visto na imagem.

Tente fazer a instalação do seu acbr novamente pelo ACBrInstall.exe mas antes de instalar, execute o ApagaACBr.bat como administrador para garantir que não tem nenhum arquivo antigo do seu HD.

[windsoft]

Só faltou anexar a imagem ne?

Agora vai.

[Tiago Ravache]

Apenas reforçando o post do amigo windsoft, execute o ApagaACBr.bat a partir da raiz c:\ e em todos os drivers caso tenha, senão pode ter problemas como o do colega XTRcelo num post recente.

[Jccosta]

Sr. Italo, bom dia e obrigado pela resposta. 

 

Logo desconfiei do meu código, porém antes de atualizar funcionava, tanto no Demo quanto na nossa aplicação, parti para verificar se não era parâmetros que estavam faltando, tudo OK.

 

Enfim, criei uma vm do 0 atualizei tudo e não resolveu, até mesmo no demo não funciona conforme a imagem acima na abertura do post, então mãos a obra, Debugando o Fonte da unit pcnLeitor encontrei nessas linhas abaixo o campo ConteudoTag = '2014-12-22', que não se encaixa nas condições do "case topo" e o retorno é "Result = 0', acrescentei a condição  length(ConteudoTag)=10 e funcionou. Agora não sei se é um erro meu em atualizar ou usar o componente ou um erro da condição.

 

 

 case Tipo of

    tcStr     : result := ReverterFiltroTextoXML(ConteudoTag);

    tcDat     : begin

                  if length(ConteudoTag)>12 then <<----  Alterei para ( (length(ConteudoTag)>12) or (length(ConteudoTag)=10) ) ===  Supimpa está funcionando 

                    result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 2)))

                  else if length(ConteudoTag)>0 then

                  if length(ConteudoTag)=12 then

                    result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 1)))

                  else

                    result:=0;

                  end;

.

.

.

Editado 25 Fevereiro, 2015 por Jccosta