Otto buenos días como estas?
Me dirijo a ti por que según el foro pareces el experto en este tema, aunque si algún colega sabe del tema, también se agradecen los comentarios, nos gustaría comenzar a generar reportes (para imprimir) desde código html, he leído varios de tus POST en el foro, pero me surgen varias dudas, es posible utilizarlo en fw o es solo para mod_harbour, y podemos utilizar herramientas como Bootstrap, fuentes de google entre otros, dentro de código html, para mejorar la presentación de los informes.
La idea es generar con el mismo código un informe por pantalla, tanto en webview2, como también en impresora.
De antemano gracias.
FiveTech Software tech support forums
www.FiveTechSoft.com
Report html
4 posts • Page 1 of 1
Report html
by leandro » Wed May 22, 2024 1:03 pm
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com
[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
-
leandro - Posts: 1676
- Joined: Wed Oct 26, 2005 2:49 pm
- Location: Colombia
Re: Report html
by karinha » Wed May 22, 2024 2:43 pm
Leandro, lo único que tengo sobre HTML.
http://www.pctoledo.com.br/forum/viewtopic.php?f=28&t=23845
Regards, saludos.
http://www.pctoledo.com.br/forum/viewtopic.php?f=28&t=23845
- Code: Select all Expand view
// https://github.com/harbour/core/blob/ma ... s/html.prg
/**
*
* Harbour Test of a HTML-Generator class.
*
* Tips: - Use ShowResults to make dynamic html (to test dynamic
* results, put the exe file on CGI-BIN dir or equivalent);
* - Use SaveToFile to make static html page
*
*/
#Include "FiveWin.ch"
#include "hbclass.ch"
PROCEDURE Main()
LOCAL oHTML := THtml():New()
oHTML:SetTitle( "Harbour Power Demonstration and FiveWin" )
oHTML:AddHead( "Harbour for Leandro" )
oHTML:AddPara( "<b>Harbour</b> is xBase at its best. Have a taste today!", "left" )
oHTML:AddPara( "<b>L i n k s</b>", "center" )
oHTML:AddLink( "https://harbour.github.io", "Meet the Harbour power!" )
oHTML:Generate()
// Uncomment the following if you don't have a Web Server to test
// this sample
oHTML:SaveToFile( "Leandro.html" )
// If the above is uncommented, you may comment this line:
oHTML:ShowResult()
RETURN
CREATE CLASS THTML
VAR cTitle // Page Title
VAR cBody // HTML Body Handler
VAR cBGColor // Background Color
VAR cLinkColor // Link Color
VAR cvLinkColor // Visited Link Color
VAR cContent // Page Content Handler
METHOD New() // New Method
METHOD SetTitle( cTitle ) // Set Page Title
METHOD AddLink( cLinkTo, cLinkName ) // Add <H1> Header
METHOD AddHead( cDescr ) // Add Hyperlink
METHOD AddPara( cPara, cAlign ) // Add Paragraph
METHOD Generate() // Generate HTML
METHOD ShowResult() // Saves Content to File
METHOD SaveToFile( cFile ) // Show Result
END CLASS
METHOD New() CLASS THTML
::cTitle := "Untitled"
::cBGColor := "#FFFFFF"
::cLinkColor := "#0000FF"
::cvLinkColor := "#FF0000"
::cContent := ""
::cBody := ""
RETURN Self
METHOD SetTitle( cTitle ) CLASS THTML
::cTitle := cTitle
RETURN Self
METHOD AddLink( cLinkTo, cLinkName ) CLASS THTML
::cBody += "<a href='" + cLinkTo + "'>" + cLinkName + "</a>"
RETURN Self
METHOD AddHead( cDescr ) CLASS THTML
// Why this doesn't work?
// ::cBody += ...
// ???
::cBody += "<h1>" + cDescr + "</h1>"
RETURN NIL
METHOD AddPara( cPara, cAlign ) CLASS THTML
hb_default( @cAlign, "Left" )
::cBody += ;
"<p align='" + cAlign + "'>" + hb_eol() + ;
cPara + hb_eol() + ;
"</p>"
RETURN Self
METHOD Generate() CLASS THTML
::cContent := ;
"<html><head>" + hb_eol() + ;
"<title>" + ::cTitle + "</title>" + hb_eol() + ;
"<body link='" + ::cLinkColor + "' " + ;
"vlink='" + ::cvLinkColor + "'>" + + hb_eol() + ;
::cBody + hb_eol() + ;
"</body></html>"
RETURN Self
METHOD ShowResult() CLASS THTML
OutStd( ;
;// "HTTP/1.0 200 OK" + hb_eol() + ;
"CONTENT-TYPE: TEXT/HTML" + hb_eol() + hb_eol() + ;
::cContent )
RETURN Self
METHOD SaveToFile( cFile ) CLASS THTML
LOCAL hFile := FCreate( cFile )
FWrite( hFile, ::cContent )
FClose( hFile )
RETURN Self
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
-
karinha - Posts: 7824
- Joined: Tue Dec 20, 2005 7:36 pm
- Location: São Paulo - Brasil
Re: Report html
by Otto » Wed May 22, 2024 5:58 pm
Dear Leandro,
I have been working a lot with HTML as a report tool. And I create new things only with HTML.
Now with WEBVIEW2, you can link everything.
I think if a few more people will use HTML, we would quickly have the best possible report generator.
Just post what you want to do, maybe I can help.
Best regards,
Otto
https://mybergland-com.translate.goog/f ... r_pto=wapp
I have been working a lot with HTML as a report tool. And I create new things only with HTML.
Now with WEBVIEW2, you can link everything.
I think if a few more people will use HTML, we would quickly have the best possible report generator.
Just post what you want to do, maybe I can help.
Best regards,
Otto
https://mybergland-com.translate.goog/f ... r_pto=wapp
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
-
Otto - Posts: 6332
- Joined: Fri Oct 07, 2005 7:07 pm
Re: Report html
by richard-service » Thu May 23, 2024 3:27 am
Otto wrote:Dear Leandro,
I have been working a lot with HTML as a report tool. And I create new things only with HTML.
Now with WEBVIEW2, you can link everything.
I think if a few more people will use HTML, we would quickly have the best possible report generator.
Just post what you want to do, maybe I can help.
Best regards,
Otto
https://mybergland-com.translate.goog/f ... r_pto=wapp
Dear Otto,
Nice job.
Maybe release my more projects new html report.
Best Regards,
Richard
Harbour 3.2.0dev (r2402101027) => Borland C++ v7.7 32bit
MySQL v8.0 /ADS v10
Harbour 3.2.0dev (r2011030937) => Borland C++ v7.4 64bit
Richard
Harbour 3.2.0dev (r2402101027) => Borland C++ v7.7 32bit
MySQL v8.0 /ADS v10
Harbour 3.2.0dev (r2011030937) => Borland C++ v7.4 64bit
-
richard-service - Posts: 803
- Joined: Tue Oct 16, 2007 8:57 am
- Location: New Taipei City, Taiwan
4 posts • Page 1 of 1
Return to FiveWin for Harbour/xHarbour
Who is online
Users browsing this forum: Natter and 61 guests