Ir para conteúdo
  • Cadastre-se

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

Recommended Posts

Postado

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

  • Administradores
Postado

Bom dia,

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

Att.

  • Curtir 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 !!

  • 1 mês depois ...
  • Consultores
  • Solution
Postado
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?

 

  • Curtir 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.
  • Consultores
Postado

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.

  • Curtir 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.
  • Consultores
Postado
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.
  • Este tópico foi criado há 1951 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.