Clipper On Line • Ver Tópico - NFe Util Flexdocs Erro de Schema XML

NFe Util Flexdocs Erro de Schema XML

Discussão sobre a biblioteca Fivewin - O Clipper para Windows.

Moderador: Moderadores

Postar uma resposta
 

NFe Util Flexdocs Erro de Schema XML

Mensagempor Igor FM » 27 Jan 2022 12:16

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

Qual seria a chamada correta no método TXT2XML?

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) )
Igor FM
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 9
Data de registro: 13 Jan 2022 22:34
Cidade/Estado: São Paulo
Curtiu: 0 vez
Mens.Curtidas: 0 vez
Voltar ao topo

NFe Util Flexdocs Erro de Schema XML

Mensagempor Kapiaba » 27 Jan 2022 16:17

Não usamos este METHOD. Respondi seu email.

Compare com o seu.

// 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.
Kapiaba
Colaborador

Colaborador
 
Mensagens: 1766
Data de registro: 07 Dez 2012 15:14
Cidade/Estado: São Paulo
Curtiu: 311 vezes
Mens.Curtidas: 119 vezes
Voltar ao topo
Anterior
Postar uma resposta


Retornar para FiveWin

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 7 visitantes

Mudar para estilo Celular

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
Traduzido por phpBB Brasil
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro
Conversão Sistema Clipper para Harbour - Você tem um programa desenvolvido em Clipper e quer atualizar ele para executar em versões mais recentes do Windows (7, 8, 10, etc)? Então o melhor caminho é converter seu programa Clipper para Harbour. Clique aqui para mais detalhes.