NFe Util Flexdocs Erro de Schema XML

por **Igor FM** » 13 Jan 2022 23:09

Oi pessoal, vcs conseguiriam me dar uma força?

Estou iniciando o desenvolvimento de NFe e estou me deparando com alguns problemas.

Estou tentando transmitir uma nota em ambiente de Homologação e ocorre o seguinte erro:
5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v2.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:0095 Campo:[NFe] Conteúdo: Erro:O atributo 'versao' é inválido - O valor '3.10' é inválido dependendo do tipo de dados
'http://www.portalfiscal.inf.br/nfe:TVerNFe' - Falha na restrição Pattern.

Estou usando os fontes VONFE2G_v4.prg e VONFEUTIL2G_v4.prg que encontrei aqui no forum e a NFe_Util_2Gv4.09 da flexdocs.

Eu tentei desregistrar e registrar a DLL novamente e agora esta dando erro de NFe_Util não instalado.

Estou deixando a pasta NFe_Util e as Dlls na mesma pasta do executável.

Obrigado,

por **JoséQuintas** » 14 Jan 2022 13:31

Pela mensagem de erro, está usando validação da nota 2.00, que foi abandonada há vários anos.

por **Igor FM** » 14 Jan 2022 18:41

Então... esses fontes são os atuais VONFE2G_v4.prg e VONFEUTIL2G_v4?

Poderia ser problema em alguma lib?

por **Kapiaba** » 17 Jan 2022 20:15

Esta usando a última DLL da FlexDocs?

http://fivewin.com.br/index.php?/topic/30777-nfe_util_2g/

Regards, saludos.

por **JoséQuintas** » 17 Jan 2022 23:29

De repente, precisa atualizar os arquivos XSD.
Na validação de XML da sefazclass, caso seja feita, são usados os arquivos XSD.
Ou talvez dependa de alguma configuração ou parâmetro inicial.
Já tentou verificar a documentação? ou exemplos?

por **Igor FM** » 19 Jan 2022 09:48

Eu instalei essa nova versão e ao transmitir apresenta o mesmo erro:

5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v2.00.xsd] , analise a lista de erros: [1 - Linha:0001 Coluna:0095 Campo:[NFe] Conteúdo: Erro:O atributo 'versao' é inválido - O valor '3.10' é inválido dependendo do tipo de dados
'http://www.portalfiscal.inf.br/nfe:TVerNFe' - Falha na restrição Pattern.

Precisa mexer na pasta NFE_UTIL onde tem os XSD?
Não entendi!

por **JoséQuintas** » 19 Jan 2022 14:10

Igor FM escreveu:Precisa mexer na pasta NFE_UTIL onde tem os XSD?
Não entendi!

Não uso essa LIB.
Vai ter que descobrir como é que a NFE decide qual o nome do arquivo de validação.

por **Igor FM** » 19 Jan 2022 21:27

Antes de apresentar esse erro ele executa o metodo:

// Faz validação para NFe
If !oNFeUtil:ValidaXml(cDocXml, 19)
oNfeUtil:End()
Return( .f. )
EndIf

Não seria o 19 que esta sendo passado errado?

Olhando o Metodo VALIDAXML:

Method ValidaXml(XmlDoc, TipoXml, cXmlAssinado,cIdToken,cCSC,cUrlConsulta,cRetLote ,cUrlNfCe) Class TVoNFeUtil2G
Local nRet:=0,Mensagem:=""
Local QtdErros:=0
Local ErrosXml:=""

DEFAULT cXmlAssinado := ""
DEFAULT TipoXml:=68
Default cIdToken:="",cCSC:="",cUrlConsulta:="",cRetLote:="" ,cUrlNfCe:=""

XmlDoc := ::ReadXml(XmlDoc)

If TipoXml== 68
If ::Assinar(XmlDoc, "infNFe", @cXmlAssinado,cIdToken,cCSC,@cUrlConsulta,@cRetLote ,@cUrlNfCe)
XmlDoc := cXmlAssinado

Else
Return( .f. )
Endif

Endif

nRet := ::oNFEUtil:ValidaXML(XmlDoc, TipoXml, @Mensagem, @QtdErros, @ErrosXml)
::cMensagem:=ErrosXml

If nRet != 5501
If ::lMensagem
::GeraLog(Mensagem+" - Total de Erros:"+Alltrim(Str(QtdErros))+CRLF+ErrosXml+CRLF+XmlDoc)

#IFDEF __DOS__
Alert(hb_ansitooem(Mensagem)+"-"+ProcName()+"-"+hb_ansitooem(ErrosXML) )
#ELSE
NFeAlert(Mensagem+" - "+CRLF+ProcName()+CRLF+ErrosXML,,,CAPTION_MSG,,IDI_HAND)
#ENDIF
Endif
Endif

Return( nRet==5501 )

Creio que seria o 19 que esta sendo passado! Alguem tem alguma documentação referente a isso?
Lembrando que estou usando o fonte VONFEUTIL2G_v4.prg que baixei aqui no site.

por **Igor FM** » 20 Jan 2022 00:44

mudando o parâmetro para 68 apresenta o erro:

5505 - Erro: XML não atende a especificação do Schema XML: [nfe_v4.00.xsd] ,
analise a lista de erros:
[1 - Linha:0001 Coluna:0095 Campo:[NFe] Conteúdo: Erro:O atributo 'versao' é inválido - O valor '3.10' é inválido dependendo do tipo de dados
'http://www.portalfiscal.inf.br/nfe:TVerNFe' - Falha na restrição Pattern.

mudando o txt para:
NOTA FISCAL|1|
A|4.00|NFe|

apresenta o erro:
6906 - Erro: falha no preenchimento dos campos txt - qtde [1]. -
TVONFEUTIL2G:TXT2XML
Linha: 00002 Erro:1007- campo [A-versao] => [4.00] não é valor esperado (3.10)

por **Kapiaba** » 20 Jan 2022 22:54

Compare com a sua, ignore as funções que são particulares nos IFs.

// Valida XML
Method ValidaXml(XmlDoc, TipoXml, cXmlAssinado) Class TVoNFeUtil2G

   Local nRet:=0,Mensagem:=""
   Local QtdErros:=0
   Local ErrosXml:=""
   // NEW - 23/01/2013 - Evitando: Ronaldo(CVS)   kkkkk
   LOCAL oDlgErro,  oFnt, oFont, IDCor, oSaida, oIco, cSiteFlexs,  ;
         oAjudaErro, oSaida2, oSayFalha, cPromptDsay, cSiteGoogle, ;
         oAjudaGoogle, cTitle, oErro5305, cErro5305

   DEFAULT cXmlAssinado := ""

   //DEFAULT TipoXml:=19 // PASSEI PARA BAIXO: 09/02/2015

   IF lNovaDll4  // VERSAO 4.00

      DEFAULT TipoXml:=68  // Mudou na versao 4.00

      XmlDoc := ::ReadXml(XmlDoc)

      If TipoXml== 68  // Mudou na Versao 4.00 alterado em 11/02/2018

         If ::Assinar(XmlDoc, "infNFe", @cXmlAssinado)

            XmlDoc := cXmlAssinado

         Else

            Return( .f. )

         Endif

      Endif

   ELSE  // NA VERSAO 3.10 ERA ASSIM:

      DEFAULT TipoXml:=52  // Mudou na versao 3.10 By Gilmer

      XmlDoc := ::ReadXml(XmlDoc)

      If TipoXml== 52  // Mudou na Versao 3.10 By Gilmer 20/10/2014

         If ::Assinar(XmlDoc, "infNFe", @cXmlAssinado)

            XmlDoc := cXmlAssinado

         Else

            Return( .f. )

         Endif

      Endif

   ENDIF

   // NAO MUDOU NADA AQUI NA Versao 3.10 By Gilmer.
   nRet := ::oNFEUtil:ValidaXML(XmlDoc, TipoXml, @Mensagem, @QtdErros, @ErrosXml)

   ::cMensagem:=ErrosXml

   // teste tirar isto abaixo nao esquecer - 23/01/2013 Somente teste.
   // nret := 5505  //Para testar o Erro 5505
   // nret := 5305  //Para testar o Erro 5305 deu na CALU em: 18/11/2013

   If nRet != 5501  // 5505 e erro de Schema de XML

      If ::lMensagem

         ::GeraLog(Mensagem+" - Total de Erros:"+Alltrim(Str(QtdErros))+CRLF+ErrosXml+CRLF+XmlDoc)

         #IFDEF __DOS__

            Alert(hb_ansitooem(Mensagem)+"-"+ProcName()+"-"+hb_ansitooem(ErrosXML) )

         #ELSE

            wTextoErro := ErrosXML

            nRetErroXml := SUBSTR( wTextoErro, 27, 17  )  // 27,13

            // ? nRetErroXml

            // SOMENTE TESTE, TIRAR
            // nRetErroXml := "Campo:[dVenc]"
            // nRetErroXml := "Campo:[natOp]"

            // USUARIO NAO PREENCHEU O CAMPO DO ENDERECO  27/06/2013
            IF ALLTRIM( nRetErroXml ) = "Campo:[xLgr]"
               // Evitando a CVS de Novo( O Retorno ) 27/06/2013 Joao

               // ESTA EM: DBMANUT2.PRG 07/04/2014
               CAMPO_LOGRADOURO_NAO_PREENCHIDO()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[xBairro]"

               // ESTA EM: DBMANUT2.PRG 28/09/2015 - Esqueci no plenocb
               CAMPO_BAIRRO_NAO_PREENCHIDO()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[xMun]"

               // ESTA EM: DBMANUT2.PRG 07/04/2014
               CAMPO_CIDADE_NAO_PREENCHIDO()

               // Campo:[email] errado no cadastro de clientes.
            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[email]"

               // ESTA EM: DBMANUT2.PRG 07/04/2014
               CAMPO_EMAIL_NAO_PREENCHIDO()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[IE]"                                                   
 
               // ESTA EM: DBMANUT2.PRG 18/03/2015 - ERRO NA TORBAL NA 3.10
               CAMPO_INSCRICAO_ESTADUAL()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[xNome]"

               // ESTA EM: DBMANUT2.PRG 18/03/2015 - ERRO NA TORBAL NA 3.10
               CAMPO_NOME_DO_CLIENTE()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[dhSaiEnt]"

               CAMPO_HORA_SAIDA()  // ERRO DE DIGITACAO NA INCENTIVO. 01/04/2015

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[dhEmi]"

               CAMPO_HORA_SAIDA()

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[NIHIL]" .OR. ;
                   ALLTRIM( nRetErroXml ) = "Campo:[NIHIL] Conteúdo:[NIHIL] Erro:O elemento 'ICMS10' no espaço para nome"

               CAMPO_VAZIO_ICMS()  // 22/04/2015 - EM: DBMANUT2.PRG

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[infCpl]"

               CAMPO_INF_COMPLEMENTAR() // 27/04/2015 - EM: DBMANUT2.PRG

            // Campo:[dVenc] Conteúdo:[5015-06-01] - Gilmaria Andaluzia
            // informar a data de vencimento da duplicata
            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[dVenc]"

               CAMPO_VENCIMENTO_DUPLICATA() // 30/04/2015 EM DBMANUT2.PRG E FUNCOES.PRG

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[CEST]"

               // ERRO NA TORBAL - DIGITARAM O CAMPO CEST ERRADO.
               CAMPO_CEST_INVALIDO() // 30/03/2016 - EM: DBMANUT2.PRG

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[placa]"

               CAMPO_PLACA_VEICULO() // 19/09/2017 - EM: DBMANUT2.PRG

            ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[NCM]"

               CAMPO_NCM_INVALIDO() // 27/07/2016 - EM: DBMANUT2.PRG

             // Meire BJ para variar... 02/08/2016 Joao
             ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[natOp]" // Conteúdo:[DEVOL COMPRA P/COMERCIALIZA‡AO]

               CAMPO_NATOP_INVALIDO() // 02/08/2016 - EM: DBMANUT2.PRG

             ELSEIF ALLTRIM( nRetErroXml ) = "Campo:[veicTransp]" 

               CAMPO_TRANSPORTADORA() // 18/12/2017 - EM: DBMANUT2.PRG

            ENDIF

            NFeAlert(Mensagem+" - "+CRLF+ProcName()+CRLF+ErrosXML,,,CAPTION_MSG,,IDI_HAND)

            // TRANSFERI PARA DBMANUT2.PRG EM: 07/04/2014-diminuindo consumo
            ERRO_5505_FALHA_NO_SCHEMA_DO_XML( nRet )  // ESTA EM: DBMANUT2.PRG

         #ENDIF

      Endif

   Endif

Return( nRet==5501 )

por **JoséQuintas** » 21 Jan 2022 10:24

Agora o erro é o seu XML, se é que está gerando XML.
A NFE atual é 4.00, e no XML consta 3.10.

por **Igor FM** » 22 Jan 2022 00:05

Então....
como estou mudando a versão do Xml para 4.00 esse erro que apresenta, dizendo que esta esperando 3.10, não deixa gerar o Xml.
Esse erro é retornado por essa função:

Method Txt2Xml(Txt, gerachavenfe,codigoseguranca) Class TVoNfeUtil2G
Local cRetTxt,oXmlDoc,hFile,nLen
Local nRet:=0,Mensagem:=""
Local QtdErros:=0
Local ErrosTxt
Local txtnumerado:=""

DEFAULT gerachavenfe := 1
DEFAULT codigoseguranca:="000000000"

If !File(Txt)
#IFDEF __DOS__
Alert("Arquivo nao encontrado ou TXT nao informado!"+CRLF+ProcName() )
#ELSE
MsgStop("Arquivo não encontrado ou TXT não informado!"+CRLF+ProcName(), CAPTION_MSG )
#ENDIF
Return( Nil)
Endif

hFile:=FOpen(Txt)
nLen = FSeek( hFile, 0, FS_END )
FSeek( hFile, 0, FS_SET )
cRetTxt:=Space(nLen)
ErrosTxt:=Space(nLen)
FRead( hFile, @cRetTxt, nLen)
fClose(hFile)

//::cXml := ::oNFEUtil:Txt2Xml310(cRetTxt, gerachavenfe, codigoseguranca, txtnumerado, @nRet,@ErrosTxt,@QtdErros,@Mensagem)
::cXml := ::oNFEUtil:Txt2Xml2015003(cRetTxt, gerachavenfe, codigoseguranca, txtnumerado, @nRet,@ErrosTxt,@QtdErros,@Mensagem)
::cMensagem:=ErrosTxt
If nRet != 6901 .and.::lMensagem
::GeraLog(ErrosTXT)
#IFDEF __DOS__
Alert( Mensagem+" - "+CRLF+ProcName()+"-"+ErrosTXT )
#ELSE
NfeAlert(Mensagem+" - "+CRLF+ProcName()+CRLF+ErrosTXT,,,CAPTION_MSG,,IDI_HAND)
#ENDIF
Else
::cChaveNfe:=::PegaChaveAcesso(::cXml,1)

Endif

Return( ( nRet==6901) )

Qual seria a mais atual desse metodo?
oNFEUtil:Txt2Xml2015003

por **Igor FM** » 22 Jan 2022 00:23

Oi Kapiaba,
o que vc quer dizer? Vou ter que mudar a validação de tipo xml 68 para 52 e usar versão 3.10? se colocar versão 4.00 não rola com essa dll?

Veja como esta o método no meu fonte:

Method ValidaXml(XmlDoc, TipoXml, cXmlAssinado,cIdToken,cCSC,cUrlConsulta,cRetLote ,cUrlNfCe) Class TVoNFeUtil2G
   Local nRet:=0,Mensagem:=""
   Local QtdErros:=0
   Local ErrosXml:=""

   DEFAULT cXmlAssinado := ""
   DEFAULT TipoXml:=68
   Default cIdToken:="",cCSC:="",cUrlConsulta:="",cRetLote:="" ,cUrlNfCe:=""

   XmlDoc := ::ReadXml(XmlDoc)

   If TipoXml== 68
      If ::Assinar(XmlDoc, "infNFe", @cXmlAssinado,cIdToken,cCSC,@cUrlConsulta,@cRetLote ,@cUrlNfCe)
         XmlDoc := cXmlAssinado

      Else
         Return( .f. )
      Endif

   Endif

   nRet := ::oNFEUtil:ValidaXML(XmlDoc, TipoXml, @Mensagem, @QtdErros, @ErrosXml)
   ::cMensagem:=ErrosXml

   If nRet != 5501
      If ::lMensagem
         ::GeraLog(Mensagem+" - Total de Erros:"+Alltrim(Str(QtdErros))+CRLF+ErrosXml+CRLF+XmlDoc)

         #IFDEF __DOS__
             Alert(hb_ansitooem(Mensagem)+"-"+ProcName()+"-"+hb_ansitooem(ErrosXML) )
           #ELSE
            NFeAlert(Mensagem+" - "+CRLF+ProcName()+CRLF+ErrosXML,,,CAPTION_MSG,,IDI_HAND)
            #ENDIF
      Endif
   Endif

Return( nRet==5501 )

por **Igor FM** » 26 Jan 2022 13:37

Alguém teria esses fontes atualizados?

VONFE2G_v4.prg
VONFEUTIL2g_v4.prg

Com os meus esta dando esse erro da versão do XML!
Se deixo 4.0 pede 3.10... se Coloco 4.0 pede 3.10

Aguem conseguiria me ajudar?

Posso pagar pelo serviço.

Obrigado

por **Itamar M. Lins Jr.** » 26 Jan 2022 21:07

Olá!
Aqui neste forum a maioria usa ou ACBr ou a classe do José Quintas -> SefazClass.
Pela demora de resolver se puder migrar para uma dessas o suporte será melhor, já teria resolvido.
Como usa essa da Flexdocs e é paga, fica a cargo do suporte deles, pq tem usuários do Harbour usando ela também.

Saudações,
Itamar M. Lins Jr.

Quem está online