Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Consultores
Postado

Boa tarde comunidade ACBr,

Estou enfrentando um problema após atualizar a suite ACBr para versão 17029 - 16/05/2019 10:24, o sistema de NFSe ao tentar enviar a nota fiscal apresenta o erro : Nenhum Elemento Encontrado, o erro ocorre quando se utiliza o SSLXmlSignLIB = xsLibXML2, caso utilizar o xsMsXML o sistema autoriza e recebe os retornos todos, o problema é apenas ao utilizar o xsLibXML2;

 

[Configurações]

Provedor : GINFES;

Cidade São José do Rio Preto - SP

<ACBrNFSe>.Configuracoes.Geral.SSLLib                := libWinCrypt;
<ACBrNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
<ACBrNFSe>.SSL.SSLType                                           := LT_all;

[abaixo segue o log que a minha aplicação gerou]:

Data/Hora............: 16/05/2019 14:17:26
Mensagem.............: Nenhum elemento encontrado
Classe Exceção.......: EACBrDFeException
Formulário...........: fMovimentacao
Unit.................: Vcl.Menus
Controle Visual......: 
Nome Usuario.........: Gonzales
Nome Computador......: DVLOP-01
Versão Windows.......: Windows 7 / Windows Server 2008 R2
Versão Aplicação.....: 2019.5.16.1000

(0070A152) [00B0B152] ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.AdicionarNode$qqrrp14Libxml2.xmlDocx20System.UnicodeString20System.UnicodeString (Line 665, "ACBrDFeXsLibXml2.pas" + 18) + $0
(00708E13) [00B09E13] ACBrDFeXsLibXml2.TDFeSSLXmlSignLibXml2.Assinar$qqrx20System.UnicodeStringt1t1t1t1t1t1 (Line 203, "ACBrDFeXsLibXml2.pas" + 44) + $28
(007A3D14) [00BA4D14] ACBrDFeSSL.TDFeSSL.Assinar$qqrx20System.UnicodeStringt1t1t1t1t1t1 (Line 1120, "ACBrDFeSSL.pas" + 20) + $26
(00D7368F) [0117468F] ACBrNFSeNotasFiscais.TNotasFiscais.AssinarLote$qqr20System.UnicodeStringt1t1ot1t1t1 (Line 688, "ACBrNFSeNotasFiscais.pas" + 15) + $24
(00DACD1B) [011ADD1B] ACBrNFSeWebServices.TNFSeEnviarLoteRPS.DefinirDadosMsg$qqrv (Line 2768, "ACBrNFSeWebServices.pas" + 168) + $56
(007D600C) [00BD700C] ACBrDFeWebService.TDFeWebService.Executar$qqrv (Line 201, "ACBrDFeWebService.pas" + 6) + $5
(00DB95F8) [011BA5F8] ACBrNFSeWebServices.TWebServices.Envia$qqr20System.UnicodeString (Line 5467, "ACBrNFSeWebServices.pas" + 16) + $8
(00DBC366) [011BD366] ACBrNFSe.TACBrNFSe.Enviar$qqr20System.UnicodeStringo (Line 443, "ACBrNFSe.pas" + 10) + $C
(00DBC25B) [011BD25B] ACBrNFSe.TACBrNFSe.Enviar$qqrio (Line 427, "ACBrNFSe.pas" + 1) + $14
(021589B8) [025599B8] uMovimentacao.TfMovimentacao.GerarNFSe$qqrv (Line 7621, "uMovimentacao.pas" + 299) + $1B
(0216483B) [0256583B] uMovimentacao.TfMovimentacao.mniSalvareProcessarDocumentoClick$qqrp14System.TObject (Line 9332, "uMovimentacao.pas" + 173) + $3
(00273BCE) [00674BCE] Vcl.Menus.TMenuItem.Click$qqrv (Line 2541, "Vcl.Menus.pas" + 19) + $8
(002764CD) [006774CD] Vcl.Menus.TPopupList.MainWndProc$qqrr24Winapi.Messages.TMessage (Line 4618, "Vcl.Menus.pas" + 2) + $5
(000E5D00) [004E6D00] System.Classes.StdWndProc$qqsp6HWND__uiuiui (Line 17187, "System.Classes.pas" + 😎 + $0

 

 

Grato desde já.

  • Curtir 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Postado

Estou passando pelo mesmo problema com a xsLibXML2 na cidade de São Paulo.

Enviar Lote RPS:

08:46:27={TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - List index out of bounds (0)

 Consultar RPS:

08:41:59={TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - Falha ao Assinar - Consultar NFSe por RPS: Nenhum elemento encontrado

 

Tentei a  xsMsXML mas também tive erro ao enviar :

{TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - Falha ao Assinar - Consultar NFSe por RPS:

{TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EOleSysError - Classe não registrada

 

Dercide.

  • Consultores
Postado (editado)
10 minutos atrás, Dercide Alvarez disse:

Estou passando pelo mesmo problema com a xsLibXML2 na cidade de São Paulo.

Enviar Lote RPS:

08:46:27={TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - List index out of bounds (0)

 Consultar RPS:

08:41:59={TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - Falha ao Assinar - Consultar NFSe por RPS: Nenhum elemento encontrado

 

Tentei a  xsMsXML mas também tive erro ao enviar :

{TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EACBrDFeException - Falha ao Assinar - Consultar NFSe por RPS:

{TApplication().TfMenu(fMenu).TfsNFSeACBr(fsNFSeACBr).TPanel(pnBotoes)} EOleSysError - Classe não registrada

 

Dercide.

 

xsLibXML2 : Nenhum elemento encontrado, é o mesmo erro que eu estou encontrando.

 xsMsXML Classe não registrada é falta da DLL registrada (msxml5.dll);

  1. Copiar as DLL (msxml5.dll , msxml5r.dll) que encontra-se na raiz do sistema SIGE para a pasta System32 / SysWOW64 do Windows
  2. Abrir o prompt de comando (CMD) com previlégios de administrador
    1. Clicar no botão iniciar do windows
    2. digite no campo de pesquisa CMD
    3. clique com o botão direito sobre o resultado da pesquisa
    4. clique em executar como administrador
  3. no prompt de comando digitar
    %systemroot%\SysWoW64\regsvr32 msxml5.dll
  4. Pressionar a tecla enter
    1. aguardar a mensagem de confirmação
Editado por Victor H. Gonzales - Panda
Imagens que veio juntamente com o texto estavam quebradas (Confluence interno da empresa)
  • Curtir 1
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Postado
23 minutos atrás, Victor H. Gonzales - Panda disse:

 

xsLibXML2 : Nenhum elemento encontrado, é o mesmo erro que eu estou encontrando.

 xsMsXML Classe não registrada é falta da DLL registrada (msxml5.dll);

  1. Copiar as DLL (msxml5.dll , msxml5r.dll) que encontra-se na raiz do sistema SIGE para a pasta System32 / SysWOW64 do Windows
  2. Abrir o prompt de comando (CMD) com previlégios de administrador
    1. Clicar no botão iniciar do windows
    2. digite no campo de pesquisa CMD
    3. clique com o botão direito sobre o resultado da pesquisa
    4. clique em executar como administrador
  3. no prompt de comando digitar
    
    %systemroot%\SysWoW64\regsvr32 msxml5.dll
  4. Pressionar a tecla enter
    1. aguardar a mensagem de confirmação

Beleza,, vou pedir pra testarem.

Postado
3 horas atrás, Dercide Alvarez disse:

Beleza,, vou pedir pra testarem.

 

4 horas atrás, Victor H. Gonzales - Panda disse:

 

xsLibXML2 : Nenhum elemento encontrado, é o mesmo erro que eu estou encontrando.

 xsMsXML Classe não registrada é falta da DLL registrada (msxml5.dll);

  1. Copiar as DLL (msxml5.dll , msxml5r.dll) que encontra-se na raiz do sistema SIGE para a pasta System32 / SysWOW64 do Windows
  2. Abrir o prompt de comando (CMD) com previlégios de administrador
    1. Clicar no botão iniciar do windows
    2. digite no campo de pesquisa CMD
    3. clique com o botão direito sobre o resultado da pesquisa
    4. clique em executar como administrador
  3. no prompt de comando digitar
    
    %systemroot%\SysWoW64\regsvr32 msxml5.dll
  4. Pressionar a tecla enter
    1. aguardar a mensagem de confirmação

Boa Noite!

Estou com o mesmo problema, fiz o procedimento e no meu caso não deu certo

  • Curtir 1
Postado

Estamos tendo que usar o

 xsLibXML2 devido a problemas encontra quanto o acesso certificado A3 nas demais df e, o que está ocasionando este erro da falta de elemento, até de ,momento estava a achar que havia mudanças no provedor benta. 

A alguma alternativa a manter a xml2 e continuar o funcionamento da nfse.

Boa noite. Agradeço.

  • Consultores
Postado (editado)

Boa Tarde, @Italo Jurisato Junior

Primeiramente obrigado pela ajuda, os testes com o arquivo paliativo informado neste tópico, alterou a mensagem de erro, o sistema para o provedor GINFES retornou a mensagem "Assinatura invalida.".

Os arquivos de schemas e ini estão atualizados pelo repositório svn.

Log:

Data/Hora............: 20/05/2019 15:59:29
Mensagem.............: Assinatura invalida.
Informar assinatura correta no documento XML.

Classe Exceção.......: EACBrDFeException
Formulário...........: fMovimentacao
Unit.................: Vcl.Menus
Controle Visual......: 
Nome Usuario.........: Gonzales
Nome Computador......: DVLOP-01
Versão Windows.......: Windows 7 / Windows Server 2008 R2
Versão Aplicação.....: 2019.5.16.1710

(007CEA82) [00BCFA82] ACBrDFe.TACBrDFe.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 632, "ACBrDFe.pas" + 11) + $0
(007D75C3) [00BD85C3] ACBrDFeWebService.TDFeWebService.GerarException$qqrx20System.UnicodeStringp25System.Sysutils.Exception (Line 531, "ACBrDFeWebService.pas" + 1) + $C
(00DB9667) [011BA667] ACBrNFSeWebServices.TWebServices.Envia$qqr20System.UnicodeString (Line 5470, "ACBrNFSeWebServices.pas" + 19) + $13
(00DBC3B6) [011BD3B6] ACBrNFSe.TACBrNFSe.Enviar$qqr20System.UnicodeStringo (Line 443, "ACBrNFSe.pas" + 10) + $C
(00DBC2AB) [011BD2AB] ACBrNFSe.TACBrNFSe.Enviar$qqrio (Line 427, "ACBrNFSe.pas" + 1) + $14
(02158A11) [02559A11] uMovimentacao.TfMovimentacao.GerarNFSe$qqrv (Line 7621, "uMovimentacao.pas" + 299) + $20
(02164893) [02565893] uMovimentacao.TfMovimentacao.mniSalvareProcessarDocumentoClick$qqrp14System.TObject (Line 9332, "uMovimentacao.pas" + 173) + $3
(00273BCE) [00674BCE] Vcl.Menus.TMenuItem.Click$qqrv (Line 2541, "Vcl.Menus.pas" + 19) + $8
(002764CD) [006774CD] Vcl.Menus.TPopupList.MainWndProc$qqrr24Winapi.Messages.TMessage (Line 4618, "Vcl.Menus.pas" + 2) + $5
(000E5D00) [004E6D00] System.Classes.StdWndProc$qqsp6HWND__uiuiui (Line 17187, "System.Classes.pas" + 😎 + $0

 

Forte Abraço!

1590-rps.xml 1558368208-env-lot.xml 1558368208-env-lot-soap.xml 1558368208-rec.xml 1558368208-rec-soap.xml

Editado por Victor H. Gonzales - Panda
Envio dos xmls da transmissão de testes
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Consultores
Postado

Boa tarde @Italo Jurisato Junior,

positivo, irei fazer o teste agora

[Configurações]

Provedor : GINFES;

Cidade São José do Rio Preto - SP

<ACBrNFSe>.Configuracoes.Geral.SSLLib                := libWinCrypt;
<ACBrNFSe>.Configuracoes.Geral.SSLXmlSignLib := xsLibXml2;
<ACBrNFSe>.SSL.SSLType                                           := LT_all;

Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

  • Consultores
Postado
8 minutos atrás, Italo Jurisato Junior disse:

Boa tarde Victor,

Você esta configurando o componente com o winCrypt, correto?

Por favor teste com essa outra Unit.

ACBrDFeXsLibXml2.pas 22 kB · 1 download

Boa tarde @Italo Jurisato Junior,

[Provedor GINFES]

Emissão [OK]

Cancelamento [OK]

 

Tudo certo na emissão do documento e cancelamento do mesmo utilizando este novo arquivo enviado 20/05/2019 - 16:17.

 

Obrigado pela ajuda forte abraço!

  • Curtir 2
Consultor SAC ACBr

Victor H Gonzales - Pandaaa
Ajude o Projeto ACBr crescer - Assine o SAC

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

"Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci

"Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo"

Postado

Boa tarde pessoal,

para o provedor Betha ainda esta acontecendo o erro. Alguem mais ?

Ou preciso fazer algum configuracao extra.

Ou preciso baixar esta unit, para testar

 

Postado

Este que é meu maior problema pois nao consiguo simular o erro aqui, pois acontece apenas no cliente, pra min conseguir simular eu precisaria do certificado do cliente e ele possui um A3. MAs acredito que seja algo relacionado a esta ACBrDFeXsLibXml2.pas, não sei se é ao assinar ou ao validar ou ao enviar, nao estou conseguindo simular aqui.

  • 1 mês depois ...
  • 1 ano depois...
Postado

Atualmente existe um bug no arquivo fonte: ACBrDFeXsLibXml2.pas  metodo AdicionarNode (linha: 700):
Fonte atual: 

{ Se docElement possui prefixo o mesmo tem que ser removido }
vdocElement := copy(docElement, Pos(':', docElement) + 1, Length(docElement));

if (vdocElement <> '') then
  DocNode := LibXmlLookUpNode(DocNode, vdocElement);   

Correção: 

PosPrefix := Pos(':', docElement);

{ Se docElement possui prefixo o mesmo tem que ser removido }

if (PosPrefix > 0) then
  vdocElement := copy(docElement, PosPrefix + 1, Length(docElement))
else
  vdocElement :=  docElement;

vdocElement := copy(vdocElement, 1, Pos('>', docElement) - 1);

Atualmente a busca do nó (no caso de emissao para nfse, provedor Publica) está sendo por  'Rps></GerarNfseEnvio' fazendo com que nenhum nó seja encontrado.
A Correcao acima faz com que a busca do nó seja realizada por 'Rps' 

  • Moderadores
Postado
15 horas atrás, Leandro Guindani Gehlen disse:

if (PosPrefix > 0) then vdocElement := copy(docElement, PosPrefix + 1, Length(docElement)) else vdocElement := docElement;

Parece redundante, se PosPrefix for 0 vai copiar a linha toda de qualquer forma...

15 horas atrás, Leandro Guindani Gehlen disse:

vdocElement := copy(vdocElement, 1, Pos('>', docElement) - 1);

Isso não vai causar problemas com outros provedores ou outros documentos (NFe, CTe, MDFe, BPe...)?

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

  • Este tópico foi criado há 1493 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.

The popup will be closed in 10 segundos...