kapiaba Posted November 26, 2014 Report Share Posted November 26, 2014 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 26, 2014 Author Report Share Posted November 26, 2014 O primeiro eu consegui colocando lAcentuado := .F. mas, e este? <xEvento>Carta de Correção registrada</xEvento> Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 26, 2014 Author Report Share Posted November 26, 2014 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 Quote Link to comment Share on other sites More sharing options...
Marca Posted November 27, 2014 Report Share Posted November 27, 2014 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 27, 2014 Author Report Share Posted November 27, 2014 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. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted November 27, 2014 Author Report Share Posted November 27, 2014 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 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 6, 2015 Author Report Share Posted April 6, 2015 Subindo para o Marcelo(Marca). Quote Link to comment Share on other sites More sharing options...
Marca Posted April 6, 2015 Report Share Posted April 6, 2015 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. Quote Link to comment Share on other sites More sharing options...
gibaf Posted April 10, 2015 Report Share Posted April 10, 2015 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 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted April 10, 2015 Author Report Share Posted April 10, 2015 E para visualizar: http://fivewin.com.br/index.php?/topic/23814-xml-notepad-2007/ Show() de bola. Quote Link to comment Share on other sites More sharing options...
Marca Posted April 10, 2015 Report Share Posted April 10, 2015 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. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.