NFe Util Flexdocs Erro de Schema XML

[Igor FM]

Essa chamada não converte o txt ::oNFEUtil:Txt2Xml2015003 na versão 4.0!

Qual seria a chamada correta no método TXT2XML?

Código: Selecionar todos

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

[Kapiaba]

Não usamos este METHOD. Respondi seu email.

Compare com o seu.

Código: Selecionar todos

// Enviado por Rossine em: 07/11/2013
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
          // Qmsg("Arquivo não encontrado ou TXT não informado!"+CRLF+ProcName(), CAPTION_MSG )
          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:Txt2Xml2G(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) )

Abs.