Como tirar a acentuação do .xml da nf-e?

[kapiaba]

galera, ajuda ahi: como voces fazem para retirar a acentuação do .xml da nfe? tipo:

 <xCondUso>A Carta de Correção é disciplinada pelo § 1º-A do art. 7º do Convênio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularização de erro ocorrido na emissão de documento fiscal, desde que o erro não esteja relacionado com: I - as variáveis que determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de preço, quantidade, valor da operação ou da prestação; II - a correção de dados cadastrais que implique mudança do remetente ou do destinatário; III - a data de emissão ou de saída.</xCondUso>

Isso vem direto da sefaz e eu não quero que fique acentuado.

obg. abs.

[kapiaba]

O primeiro eu consegui colocando lAcentuado := .F.

mas, e este?

<xEvento>Carta de Correção registrada</xEvento>

[kapiaba]

Resolvido:

METHOD SalvaXML(cFile, cDocXml, nTipo) Class TVoNFeUtil2G


   Local cDetino,hHandle,lRet:=.f.


   DEFAULT cFile := ""

   DEFAULT nTipo := 1


   If Empty(cFile).And.!File(cDocXml).and.!Empty(cDocXml)

      cFile:=::PegaChaveAcesso(cDocXml,1)+".xml"

   Endif


   If !Empty(cFile).And.!File(cDocXml).and.!Empty(cDocXml)


      cDestino := ::cPathNFe


      if nTipo == 2 //xml assinada de retorno

         cDestino +=::cSubPastaAssinadas

      ElseIf nTipo == 3

         cDestino +=::cSubPastaProtocolos

      Else

         cDestino +=::cSubPastaXmlNormal

      Endif


      #IFDEF __DOS__


      if !isDirectory( cDestino )

      #ELSE

      if !lIsDir( cDestino )

      #ENDIF

      if !empty(cDestino)

         #IFDEF __DOS__

            If MakeDir( cDestino )!=0

         #ELSE

            if !lMkDir ( cDestino )

         #ENDIF

               cDestino := ""

            Endif

         Endif

      Endif


      cDocXml = TIRA_ACENTUACAO( cDocXml ) 


      cDocXml = StrTran( cDocXml , "CorreCAo" , "Correcao" )


      nHandle:=Fcreate(cDestino+cFile)

      Fwrite(nHandle,cDocXml)

      FClose(nHandle)


      lRet:=.t.


   Endif


return( lRet )

abs

[Marca]

Olá Kapiaba , bom dia

Se não me engano esta parte ai não tem problema estar acentuado. Só não pode estar no texto que vc insere na carta de correção

[kapiaba]

Olá Kapiaba , bom dia

Se não me engano esta parte ai não tem problema estar acentuado. Só não pode estar no texto que vc insere na carta de correção

Olá Marcelo, o problema, é que os clientes querem abir-lo e não abre acentuado no internet explorer, antes abria com o XMLVIEW.EXE, agora não abre mais, por isso que estou retirando todos os acentos.

abs.

[kapiaba]

Achei este editor que ignora a acentuação e mostra o .xml formatado.

http://www.superdownloads.com.br/download/171/xmlwriter/

Este é mais leve ainda e formata automático:

http://www.superdownloads.com.br/download/11/peters-xml-editor/redir-32-bits.html

Só não entendi o que foi que houve com o XMLVIEW.EXE que parou de abrir o .xml acentuado da carta de correção.

Dica do Marcelo Ferro:

http://www.superdownloads.com.br/download/12/moremotion-xml-editor/

abs

[kapiaba]

Subindo para o Marcelo(Marca).

[Marca]

Jõao

Conforme havia dito não é necessário isso

Basta no parametro da acentuação q. vc envia o xml vc colocar como .f. q. ele já ira gerar sem acentos.

De qualquer maneira obrigado.

[gibaf]

facin:

*--------------

Function Main()

*--------------

Local cConteudo := "A Carta de Correção é disciplinada pelo § 1º-A do art. 7º do Convênio S/N, de 15 de dezembro de 1970 e pode ser utilizada para regularização de erro ocorrido na emissão de documento fiscal, desde que o erro não esteja relacionado com: I - as variáveis que determinam o valor do imposto tais como: base de cálculo, alíquota, diferença de preço, quantidade, valor da operação ou da prestação; II - a correção de dados cadastrais que implique mudança do remetente ou do destinatário; III - a data de emissão ou de saída."

Local cConteudoSemAcentos := TiraAcentos(cConteudo)

msgAlert(cConteudo)

msgAlert(cConteudoSemAcentos)

Return(Nil)

*-------------------------------------

Static Function TiraAcentos(_Conteudo)

*-------------------------------------

Local x,cRet := _Conteudo

Local aArray1 := {"Á","É","Í","Ó","Ú","á","é","í","ó","ú","Â","Ê","Ô","â","ê","ô","Ã","ã","Õ","õ","Ç","ç"}

Local aArray2 := {"A","E","I","O","U","a","e","i","o","u","A","E","O","a","e","o","A","a","O","O","C","c"}

For x := 1 to Len(aArray1)

cRet := StrTran( cRet , aArray1[x] , aArray2[x] )

Next x

Return(cRet)

[kapiaba]

E para visualizar:

http://fivewin.com.br/index.php?/topic/23814-xml-notepad-2007/

Show() de bola.

[Marca]

Giba

Leia oq. coloquei acima

Basta mandar um parametro .f. q. a dll da Flexdocs ja faz isso

Isso de retirar o acento é um retrabalho.