Olá,
Pode richedit exibir uno xml con identação?
Gracias.
Richedit
Re: Richedit
Eu prefiro, usando ACTIVEX:
Resource:
Code: Select all
////////////////////////////////////////////////////////////////////////////////
// inserido/alterado por: #toya:23/04/2011:09:54 Criacao by Toya
// MODIFICADO EM: 23/06/2016 Por: Joao
////////////////////////////////////////////////////////////////////////////////
// FUNCTION NFeZtip3() // original toya
FUNCTION WEBDANFE() // incluido em: 18/07/2013
LOCAL cNFeHtml:=CurDrive()+":\"+CurDir()+"\nfehtml.htm"
LOCAL cTexto:="", cNFeXml:="", cArquivoNFeXml
LOCAL oDlg, oBtn, oXmlDoc, oTxt, oFnt, oFont, cPathXml
LCHDIR( cDirPleno )
SET DEFAULT TO
cPathXml := cDirPleno + "\REMESSA\PROTOCOLOS\"+"*.XML"
// MODIFIQUEI PARA GERAR *.PDF VIA WEBDANFE EM: 22/06/2016 - Joao
// SetResources("nfeztip3.dll") // direto no arquivo .res
//cArquivoNFeXml:=cGetFile("Arquivo XML (*.Xml)|*.Xml|","Selecione o arquivo XML da NFe ", CurDir())
cArquivoNFeXml := cGetFile( cPathXml, "Selecione o Arquivo XML da NFe em: " + ;
cDirPleno + "\REMESSA\PROTOCOLOS" )
IF FILE( cArquivoNFeXml )
cTexto+="<html>"+CRLF
cTexto+="<head>"+CRLF
cTexto+='<meta http-equiv="Content-Type" content="text/html; charset=utf-8">'+CRLF
cTexto+="</head>"+CRLF
cTexto+="<body>"+CRLF
// Mira se ejiste un site igual este en tu pais
cTexto+='<form action="http://www.webdanfe.com.br/danfe/GeraDanfe.php" name="one" enctype="multipart/form-data" method="post">'+CRLF
cTexto+='<input type="submit" value="enviar">'+CRLF
cTexto+='<textarea name="arquivoXml" cols="150" rows="50" style="visibility:hidden" >'+CRLF
oXmlDoc:=TXmlDocument():new()
oXMlDoc:READ(MEMOREAD(cArquivoNFeXml))
cTexto+=oXmlDoc:toString()
cTexto+="</textarea>"+CRLF
cTexto+="</form>"+CRLF
cTexto+="<script>"+CRLF
//===> descomente a linha abaixo para o arquivo ser enviado automaticamente para o WebDANFE
cTexto+="document.one.submit();"+CRLF
cTexto+="</script>"+CRLF
cTexto+="</body>"+CRLF
cTexto+="</html>"+CRLF
FERASE( cNFeHtml )
oTxt:=TTxtFile():New(cNFeHtml)
oTxt:add(cTexto)
oTxt:close()
DEFINE FONT oFnt NAME "Ms Sans Serif" SIZE 00, -12 BOLD
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 00, -14 BOLD
DEFINE DIALOG oDlg RESOURCE "ACTIVEX" ICON "ICONE" ;
COLORS CLR_BLACK, CLR_WHITE TRANSPARENT
oDlg:lHelpIcon := .F.
oDlg:Cargo := .F.
oDlg:lTransparent := .T.
REDEFINE ACTIVEX oAcTiveX ID 101 OF oDlg PROGID "Shell.Explorer"
REDEFINE BUTTON oBtn ID 520 OF oDlg PROMPT "&Saida" ;
ACTION( oDlg:End() ) CANCEL
oBtn:cToolTip := "Saida - Exit - Cancelar"
SET FONT OF oBtn TO oFont
// ACTIVATE DIALOG oDlg CENTER ON INIT (oAcTiveX:Do("NAVIGATE", cNFeHtml))
ACTIVATE DIALOG oDlg CENTER ;
ON INIT MsgWait( ( oAcTiveX:Do("NAVIGATE", cNFeHtml ) ), ;
"AGUARDE UM MOMENTO POR FAVOR...", 2.5 )
oFnt:End()
oFont:End()
ELSE
MessageBox(GetActiveWindow(), "Arquivo "+cArquivoNFeXml+" Não Localizado...", "Atenção", nOR(16,0))
ENDIF
RETURN NIL
Code: Select all
ACTIVEX DIALOG 8, 66, 592, 278
STYLE DS_ABSALIGN | DS_MODALFRAME | 0x4L | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Activex - Visualizar o *.XML em *.PDF Usando WEBDANFE - Passe o Mouse no Topo Para Ver os Botões do Adobe."
FONT 8, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
CONTROL "", 101, "TActiveX", 0 | WS_CHILD | WS_VISIBLE, 10, 24, 572, 248
CONTROL "Button", 520, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 532, 6, 50, 14
}
Last edited by karinha on Tue Jan 03, 2017 5:02 pm, edited 1 time in total.
João Santos - São Paulo - Brasil
Re: Richedit
Creo que si, pero, puedes poner un ejemplo de tu fichero xml?Wanderson wrote:Olá,
Pode richedit exibir uno xml con identação?
Gracias.
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.