Jump to content
Fivewin Brasil

Erro 5504 NF-e V.4.0


crisvam

Recommended Posts

Grato pela resposta Kapiaba eu estou usando assim:

1 - Na Vonfe2g...      DEFAULT cPathNFe:=GetCurDir()
//      DEFAULT cPathNFe:=curdrive()+":\"+GetCurDir()
      DEFAULT cPathNFe:=cUnidadeSis+"\"+cPastaSis

2 - Na Vonfeutil2g...........           ::cPathNFe:=GetCurDir()
//           ::cPathNFe:=curdrive()+":\"+GetCurDir()
       #ENDIF

 

O restante como está nas duas classes.

 

Estou usando o windows 7 utimate e a versão 16.04 da fivewin

 

É como usava na versao 3.10 da NF-e e funcionava

Link to comment
Share on other sites

Compare com a sua:

// 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 By Paulo 
	      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


 

Link to comment
Share on other sites

   #IFDEF __DOS__
      ::cPathNFe:=CurDrive()+":\"+CurDir(CurDrive())
   #ELSE
      // Isto nao funciona mais em FWH13.06 - 15/07/2013
      IF FWVERSION = "FWHX 16.12"  .OR. FWVERSION = "FWHX 17.01"
         //DEFAULT cPathNFe := GetCurDir()  // VERSOES NOVAS
         ::cPathNFe := GetCurDir()  // VERSOES NOVAS
      ELSE
         //DEFAULT cPathNFe:=curdrive()+":\"+GetCurDir()  // VERSOES VELHAS
         ::cPathNFe:=CurDrive()+":\"+CurDir(CurDrive())
      ENDIF
	   #ENDIF

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...