DEMETOLE-TICS: mayo 2017

viernes, mayo 05, 2017

Imprmir HTML como Texto.

Tomado del Foro de genexus:

Al utilizar FCKEditor.

Procedure con main protocol Http

&HttpResp, es de tipo HttpResponse

&HttpResp.AddHeader('Content-type', 'text/html; charset=charset=ISO-8859-1')
&HttpResp.AddHeader('Content-Disposition', 'attachment;filename='+ 'Contrato_' + trim(&Nro.ToString()) + '.doc')
&HttpResp.AddHeader('Content-type', 'application/vnd.text')
&HttpResp.AddString('<HTML>')
&HttpResp.AddString('<HEAD>')
&HttpResp.AddString('<META content="text/html; charset=utf-8" http-equiv="Content-Type" />')
&HttpResp.AddString('<STYLE />')
&HttpResp.AddString('</HEAD>')
&HttpResp.AddString('<BODY>')

&Celda='<TABLE>'
do 'Next'

&Celda = &Datos // datos guardados con FCKEditor
   do 'Next'
&Celda='</TABLE>'
do 'Next'

&HttpResp.AddString('</BODY>')
&HttpResp.AddString('</HTML>')

Sub 'Next'
&HttpResp.AddString(&Celda)
EndSub