valor de datas incorretos. Problema Na Hora de importar Txt Com Valores da NFE

[Alexsandro Lopes]

Quanto importo um txt ..."txt esta correto" a rotina acbr informa ou pega valores errados fazendo assim o xlm ficar incorreto segue em anexo o xml e o txt ....

[Juliomar Marchetti]

veja o enconding do mesmo!utf-8 ansi e como está configurado no monitor

[Alexsandro Lopes]

veja o enconding do mesmo!utf-8 ansi e como está configurado no monitor

observe que valores de txt divergente de valor xml 

valores de data 

<dhEmi>1899-12-30T00:00:00-03:00</dhEmi>

aqui e a parte do txt. =>2015-08-27T00:00:00-03:00

se for so configurar utf-8 como faço pelo acbr 

eu acredito que seja na forma que a rotina que esta 

pegando os valores ....

se for...porfavor onde eu encontro essa rotina ja procurei pelo acbr inteiro 

e nao consegui encontrar

agradeço pela ajuda desde ja...!

 

23150806121527000150550010000000011000000013-nfe.xml

NFe.TXT

Editado 27 Agosto, 2015 por Alexsandro Lopes

[Daniel Simoes]

Fiz a importação do seu TXT no Demo do ACBr (em Lazarus)... O XML gerado parece correto...

 

NFe.XML

[Alexsandro Lopes]

Fiz a importação do seu TXT no Demo do ACBr (em Lazarus)... O XML gerado parece correto...

 

NFe.XML

sim aparentemente esta correto .!! 

estou usando delphi 7 nao sei se tem alguma coisa haver mais se for em qual fonte eu encontro o código de rotina

onde ele pega o txt ler e poe na nota campo a campo... para que eu possa altera-lo   para delphi 7 ....

o txt que te enviei foi gerado ontem na hora do post aqui no forum e o acbr esta atualizado pelo 'svn' mais atual..

  OpenDialog1.FileName  :=  '';
  OpenDialog1.Title := 'Selecione a NFE';
  OpenDialog1.DefaultExt := '*-nfe.XML';
  OpenDialog1.Filter := 'Arquivos NFE (*-nfe.XML)|*-nfe.XML|Arquivos XML (*.XML)|*.XML|Arquivos      TXT (*.TXT)|*.TXT|Todos os Arquivos (*.*)|*.*';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFe1.NotasFiscais.Clear;
    //tenta TXT
    ACBrNFe1.NotasFiscais.Add;
    NFeRTXT := TNFeRTXT.Create(ACBrNFe1.NotasFiscais.Items[0].NFe);
    NFeRTXT.CarregarArquivo(UTF8Encode(OpenDialog1.FileName));
    if NFeRTXT.LerTxt then
       NFeRTXT.Free

 

[Daniel Simoes]

unit pcnNFeRTXT.pas

procedure TNFeRTXT.LerRegistro(const Registro: String);

linha: 261

       (*B09*)NFe.ide.dEmi := LerCampo(tcDatHor, 'dhEmi');

 

[Alexsandro Lopes]

unit pcnNFeRTXT.pas

procedure TNFeRTXT.LerRegistro(const Registro: String);

linha: 261

       (*B09*)NFe.ide.dEmi := LerCampo(tcDatHor, 'dhEmi');

 

obrigado vou olhar e dou resposta se conseguir resolver... 

[Alexsandro Lopes]

    if (nfe.infNFe.Versao < 3.10) then
     begin
       (*B09*)NFe.ide.dEmi := LerCampo(tcDat, 'dEmi');
      (*B10*)NFe.ide.dSaiEnt := LerCampo(tcDat, 'dSaiEnt');
     (*B10a*)NFe.ide.hSaiEnt := LerCampo(tcHor, 'hSaiEnt');

     end
    else
     begin
       (*B09*)NFe.ide.dEmi := LerCampo(tcDatHor, 'dhEmi');
              NFe.Ide.dSaiEnt := LerCampo(tcDatHor, 'dhSaiEnt');
     end;
  end;

aQUI ESTA CORRETO ELE ESTA PEGANDO O VALOR QUE A FUNÇAO ESTA PASSANDO PARA ELE DIREITINHO ...

 

 

function TNFeRTXT.LocalizarPosicaoTAG(TAG: String; Conteudo: String): Integer;
var
  i, contador: Integer;
begin
  TAG := Trim(TAG);
  conteudo := copy(conteudo, 1, pos('|' + TAG + '¨', conteudo));
  contador := 0;
  for i := 1 to length(conteudo) do
    if conteudo = '|' then
      inc(contador);
  result := contador;
end;

Quando TAG esta referente a DATA Ele retorna zero entao nao identifica valores para o campo alguma soluçao ou esta desatualizado  

ja tentei de varias formas e sempre ele me retorna os valores equivocados .....

 

Editado 28 Agosto, 2015 por Alexsandro Lopes

[Daniel Simoes]

Verifique se seus fontes estão corretos... Aqui está tudo funcionando adequadamente...

Na dúvida apague a Unit e baixe novamente

[Alexsandro Lopes]

Verifique se seus fontes estão corretos... Aqui está tudo funcionando adequadamente...

Na dúvida apague a Unit e baixe novamente

me manda suas pastas do acbr pq pode ter sido alguma mudança que vc realizou pois ja esta tudo atualizado...e nao consigo fazer da certo  preciso da pasta acbrnfe2,pcn2...pra comparar aqui com as minhas

 

 

  if ID = 'A' then
  begin
     NFe.infNFe.Versao := LerCampo(tcDe2, 'versao');
  end;

  if ID = 'A' then
  begin
     NFe.infNFe.Versao :=3.10; //deixei dessa forma la; LerCampo(tcDe2, 'versao');
  end;

 

Mais um detalhe. Verificando para encontrar o erro identifiquei que quando ele passa por esse codigo acima,

O NFe.infNFE.vesao vem com o valor correto que é o 3.10. No entanto ele muda para a versao 2.0.

Nao consigo achar de onde vem esse valor já que a versao é carregada pelo arquivo .TXT e lá esta 3.10.

Editado 29 Agosto, 2015 por Alexsandro Lopes

[Alexsandro Lopes]

Resolvido dessa forma...

  if ID = 'A' then
  begin
     NFe.infNFe.Versao := LerCampo(tcDe2, 'versao');
  end;

  if ID = 'A' then
  begin
     NFe.infNFe.Versao :=3.10; //deixei dessa forma la; LerCampo(tcDe2, 'versao');
  end;

dentro  pcnNFeRTXT.pas

 

muito obrigado....pessoal pela ajuda

[Daniel Simoes]

Isso não bom... dessa maneira o componente não saberá mais ler XMLs de outras versões (antigos)

[Alexsandro Lopes]

Isso não bom... dessa maneira o componente não saberá mais ler XMLs de outras versões (antigos)

sim sei disso mais eu nao sei de onde ele esta trazendo esse valor 2

 que nao e pra trazer de forma alguma que ele traz ....dessa  variável...

por enquanto eu nunca precisei ler um arquivo de notas antigas ...

[Daniel Simoes]

Você usa o Trunk2, correto ?

Verifique se seus fontes estão corretamente atualizados... havia um bug na leitura dessa propriedade, que já foi corrigido a algumas semanas (veja no Change-Log.txt)

[Alexsandro Lopes]

Você usa o Trunk2, correto ?

Verifique se seus fontes estão corretamente atualizados... havia um bug na leitura dessa propriedade, que já foi corrigido a algumas semanas (veja no Change-Log.txt)

Nao Daniel .!  eu uso o Trunk mesmo

obs: todos os componentes estao 100% atualizados do dia que venho me comunicando com vc ate hoje ja baixei a pasta            acbr umas 3 vezes para garantir que o servido nao estava com erros ....

[Daniel Simoes]

Entendo... a meses eu não analiso mais nada no Trunk...

[Alexsandro Lopes]

sei que pode ser tosca a maneira que fiz aqui pra poder corrigir mais esta dando certo e por enquanto e uma solução

procedure TNFeRTXT.LerRegistro(const Registro: String);
var
  i, j, k: Integer;
  ok: Boolean;
  versao:double;
begin
  FRegistro := Registro;
  FID := UpperCase(copy(Registro, 2, pos('|', FRegistro) - 2));
  if FID = '' then
    exit;

  if ID = 'A' then
  begin
    versao:=StrtoFloat(trim(StringReplace(copy(FRegistro,4,4),'.',',',    [rfReplaceall])));
    NFe.infNFe.Versao :=versao;//LerCampo(tcDe2, 'versao');
  end;

 

Editado 1 Setembro, 2015 por Alexsandro Lopes

[Alexsandro Lopes]

alguma outra solução????

Daniel simoes desde ja agradeço por todo o seu tempo ....foi muito útil e e dessa forma que conseguimos melhorar   as rotinas geradas e doadas...

 

[Daniel Simoes]

Eu recomendaria mudar para o Trunk2

[sfwinfo]

Ola o mesmo erro esta ocorrendo com acbrnfemonitor versao 9.07.2 nesse caso ele apresenta erro e nao gera o xml. informando que a data 1899-01-01t00:00:00 invalida.. agora com o acbrmonitor plus versao 1.09.01 ele gera o xml mais com essa data 1899-01-01. sendo assim nenhum dos dois compilado funciona a geracao correta do xml. Alguem conseguiu descobrir o motivo. Pois nas versoes anteriores tudo funciona perfeitamente. Grato

[sfwinfo]

Retificando... AcbrMonitor PLUS 1.9.01 esta funcionando.. somente o AcbrNfemonitor 9.07.2 que esta dando erro e nem gera o xml

[Régys Silveira]

Isto foi acertado a um tempo no Trunk2, portanto o monitor plus funciona, lembro que foi eu quem atendi este caso.

Como não estamos fazendo mais alterações no trunk então o monitor antigo não vai ter esse acerto, por favor migre para o Trunk2.

[sfwinfo]

Ola Regys , até ja estou utilizando o trunk2. mas como utilizo o compilado, acho que deveriam deixar ele funcionando. Mesmo que não fosse dar continuidade, ao menos finalizar ele em funcionamento, visto que em versoes anterioresesse erro nao ocorria. Grato

[Régys Silveira]

Ola Regys , até ja estou utilizando o trunk2. mas como utilizo o compilado, acho que deveriam deixar ele funcionando. Mesmo que não fosse dar continuidade, ao menos finalizar ele em funcionamento, visto que em versoes anterioresesse erro nao ocorria. Grato

Como assim usa o trunk2 compilado? Desculpe não deu para entender a frase.

[sfwinfo]

rs.. ja baixei o trunk2 e vou iniciar o trabalho com ele.. Mas eu utilizava o AcbrNfemonitor compilado, a ultima versão dele funcionando, se nao me engano 09.4 pois a partir dai começa o erro no dhemi conforme o post. isso em MAio, acredito que a mudança para trunk2 é inevitavel, mas acredito que deveriam deixar a ultima versao do acbrnfemonitor compilado perfeita, para que possamos utilizar ate migrar definitivamente para o PLUS. Pelo que entendi o PLUS é a junçao do monitor com NFE, particularmente não gostei muito da integração pois obriga  instalar um aplicativo mais pesado apenas para utilizar a NFE. Pelo que entendi e vi nos arquivos nao tem no trunk2 o projeto NFE individual. Entao acho que a versao compliada no acbrnfemonitor 0.9.07 deveria funcionar. Abraço.