Jump to content

dev botao

Correções NFe para commit


Go to solution Solved by EMBarbosa,
  • Este tópico foi criado há 1881 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Olá. Realizei três alterações e gostaria que passassem a fazer parte do projeto. As duas primeiras dizem respeito à descrição do evento, que estava ficando em branco no objeto mesmo estando preenchida no XML de cancelamento. A terceira alteração diz respeito ao formato de data. Ao ler XMLs de cancelamento emitidos em contingência vi que o formato de data/hora estava dd/mm/yyyyhh:mm:ss.

1) Na unit pcnRetEnvEventoNFe adicionei a linha "infEvento.DetEvento.descEvento := Leitor.rCampo(tcStr, 'descEvento');"

2) Na unit pcnEnvEventoNFe adicionei a linha "infEvento.DetEvento.descEvento := RetEventoNFe.InfEvento.DetEvento.descEvento;"

3) Na unit pcnLeitor alterei o trecho relativo ao tcDatHor:

    tcDatHor:
      begin
        if length(ConteudoTag)>0 then
          if pos('/', ConteudoTag) = 0 then
            result := EncodeDate(StrToInt(copy(ConteudoTag, 01, 4)), StrToInt(copy(ConteudoTag, 06, 2)), StrToInt(copy(ConteudoTag, 09, 2))) +
                      EncodeTime(StrToInt(copy(ConteudoTag, 12, 2)), StrToInt(copy(ConteudoTag, 15, 2)), StrToInt(copy(ConteudoTag, 18, 2)), 0)
          else
            result := EncodeDate(StrToInt(copy(ConteudoTag, 07, 4)), StrToInt(copy(ConteudoTag, 04, 2)), StrToInt(copy(ConteudoTag, 01, 2))) +
                      EncodeTime(StrToInt(copy(ConteudoTag, 11, 2)), StrToInt(copy(ConteudoTag, 14, 2)), StrToInt(copy(ConteudoTag, 17, 2)), 0)
        else
          result := 0;
      end;

pcnRetEnvEventoNFe.pas pcnEnvEventoNFe.pas pcnLeitor.pas

Link to comment
Share on other sites

  • Administradores

Bom dia,

Obrigada pela contribuição, adicionada para análise.

Att.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • 1 month later...
  • Consultores
  • Solution
Em 31/05/2019 at 00:20, Marcio M. Silva disse:

1) Na unit pcnRetEnvEventoNFe adicionei a linha "infEvento.DetEvento.descEvento := Leitor.rCampo(tcStr, 'descEvento');"

2) Na unit pcnEnvEventoNFe adicionei a linha "infEvento.DetEvento.descEvento := RetEventoNFe.InfEvento.DetEvento.descEvento;"

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  17274.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

Em 31/05/2019 at 00:20, Marcio M. Silva disse:

A terceira alteração diz respeito ao formato de data. Ao ler XMLs de cancelamento emitidos em contingência vi que o formato de data/hora estava dd/mm/yyyyhh:mm:ss.

Em 31/05/2019 at 00:20, Marcio M. Silva disse:

3) Na unit pcnLeitor alterei o trecho relativo ao tcDatHor: 

Essa terceira eu não enviei ao SVN ainda. Gostaríamos de analisar melhor.

Não consegui localizar nenhum XML nesse formato que você informou. Poderia anexar algum para análise?

 

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores

Muito obrigado pela contribuição.
Fiz a implementação baseada nela.
Subi as alterações para o SVN na Revisão  17313.
Pelo que vi está tudo certo.
Queira por favor atualizar, testar e reportar qualquer problema.

Mais uma vez obrigado.

  • Like 1

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Consultores
Em 11/07/2019 at 00:22, Marcio M. Silva disse:

Seguem dois XMLs de exemplo. Alterei somente o CNPJ e a chave porque tenho contrato de confidencialidade com o cliente.

Exemplo1.xml 464 B · 4 downloads Exemplo2.xml 554 B · 4 downloads

Marcio, apesar de ter enviado as alterações ao SVN. Estamos achando essa situação muito estranha.

Não é normal ser retornado um formato de data e hora que não parece ser utilizado em nenhum outro lugar. É a SEFAZ do RJ que está retornando isso pra vocês ou vocês estão recebendo isso de algum outro sistema?

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link to comment
Share on other sites

  • Este tópico foi criado há 1881 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.