Duplicidade de Hora em Série e Autorização NFCe

[Armando Soares da Silva]

Boa tarde, esse é meu primeiro tópico, espero que esteja no local correto.

  Há muitos anos cursei Delphi e estou voltando aos poucos para o desenvolvimento, então desde já, estou com conhecimento limitado.

  Adquiri um Fonte para ir finalizando e tento maior contato novamente e me deparei com a seguinte situação:

  A hora está duplicada em Série e em Data de autorização. Já vasculhei a parte fiscal e até agora não consegui um norte para encontrar esse erro.

  O ACBr está atualizando, bem como o Fortes. O layout do Fortes está correto, não duplicidade de código. Um detalhe muito importante é que o XML está correto, não há nenhum erro em sua emissão, está autorizando normal e todas as tags obrigatórias estão atendidas.

  Alguém poderia me dizer pelo menos um caminho onde devo procurar ? Visto que está gerando normal o XML e o layout não está errado. Desde já agradeço.

  Anexo da Danfe.

[Juliomar Marchetti]

Desconheço seus fontes mas a partir do exemplo do svn tu consegue ter um norte.

geralmente é dados diferentes, hora etc. que fazem dar a duplicidade. então pegue o xml da duplicidade e tente baixar o xml do sefaz pra tu ver a diferença

[Armando Soares da Silva]

Amigo, primeiramente obrigado pela resposta.

  Como havia dito, o XML está correto, NFC-e e NFe estão implementados, apenas a DANFE da NFC-e que está com esse problema.

  Dei mais uma vasculhada e descobri o que está acontecendo, porém ainda não sei como resolver.

  Na hora de ir buscar o dados, ele está buscando em pcnProcNFe, então ele busca tanto a data/hora de autorização de emissão quanto de autorização; segue o código.

 

if not EstaVazio(Trim(procNFe.nProt)) then
      begin
        lProtocolo.Visible := True;
        lProtocolo.Caption := ACBrStr('Protocolo de Autorização: '+procNFe.nProt);
        if (procNFe.dhRecbto<>0) then
        begin
          lDataAutorizacao.Visible := True;
          lDataAutorizacao.Caption := ACBrStr('Data de Autorização ' +DateTimeToStr(procNFe.dhRecbto));
        end
        else
          lDataAutorizacao.Visible := False;
      end
      else
      begin
        lProtocolo.Caption := '';
        lProtocolo.Visible := False;
        lDataAutorizacao.Caption := '';
        lDataAutorizacao.Visible := False;
      end;

 

Acontece que lá está assim;

'<dhRecbto>' + FormatDateTime('yyyy-mm-dd"T"hh:nn:ss', FdhRecbto) + IIf(Versao >= '3.10', GetUTC(xUF,FdhRecbto),'')+'</dhRecbto>'+

 

Então acredito que na hora de transformar em String, tá ficando essa embolada. Como poderia corrigir essas datas ?

Já modifiquei para DateToString e fica do mesmo jeito. Tentei TimeToString e a hora veio correta, porém sem a data.

 

Desde já, obrigado mais uma vez.

[BigWings]

Pode ser a configuração geral do formato de data e hora do Windows, já verificou?

O problema só acontece na impressão da NFCe?

 

[Armando Soares da Silva]

7 horas atrás, BigWings disse:

Pode ser a configuração geral do formato de data e hora do Windows, já verificou?

O problema só acontece na impressão da NFCe?

 

Então amigo, obrigado pela resposta.

A NFe está ok, sai correto. Esse problema está sendo só na NFCe.

Se eu usar apenas TimeToStr a hora sai correta. Se eu usar DateToStr sai "Corretamente", porém na hora sai um 24 misturado. Se usar DateTimeToStr sai aquela bagunça. Vou anexar as imagens.

 

[BigWings]

Mas você verificou as configurações do Windows?

Se você chamar o DateTimeToStr(Now) em um projeto novo, qual o retorno?

[Armando Soares da Silva]

23 minutos atrás, BigWings disse:

Mas você verificou as configurações do Windows?

Se você chamar o DateTimeToStr(Now) em um projeto novo, qual o retorno?

Verifiquei sim amigo, tanto na maquina virtual quanto nas minhas maquinas aqui, estou testando em 3 maquinas físicas.

Ele retorna 11/01/2021 17:14:45

Editado 11 Janeiro, 2021 por Armando Soares da Silva

[BigWings]

Como você mesmo viu no código do DANFE só é chamada a DateTimeToStr(), é uma função nativa do Delphi/Lazarus.

Tente imprimir o DANFE NFCe pelo programa exemplo do componente.

Se sair correto significa que é algo no seu projeto que está interferindo.

Aí vai precisar depurar.

[Armando Soares da Silva]

2 horas atrás, BigWings disse:

Como você mesmo viu no código do DANFE só é chamada a DateTimeToStr(), é uma função nativa do Delphi/Lazarus.

Tente imprimir o DANFE NFCe pelo programa exemplo do componente.

Se sair correto significa que é algo no seu projeto que está interferindo.

Aí vai precisar depurar.

Amigo, agradeço sua ajuda. Confesso que já estava pensando em desistir, faz uma semana que rodo todo esse fonte em busca desse erro, e graças a Deus encontrei e corrigi.

Pode encerrar o tópico.

Aproveitando o post, virão algumas atualizações por parte da Sefaz, como Ator Interessado. Terei muitos problemas na implementação dos mesmos, visto que não tenho tanta experiência e estou tendo que reaprender tudo novamente ?

 

[Juliomar Marchetti]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.