FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Report html

Post a reply

Report html

Postby leandro » Wed May 22, 2024 1:03 pm

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.
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) ]
User avatar
leandro
 
Posts: 1669
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia
Top

Re: Report html

Postby 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

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
User avatar
karinha
 
Posts: 7804
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Top

Re: Report html

Postby 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
********************************************************************
mod harbour - Vamos a la conquista de la Web
modharbour.org
https://www.facebook.com/groups/modharbour.club
********************************************************************
User avatar
Otto
 
Posts: 6328
Joined: Fri Oct 07, 2005 7:07 pm
Top

Re: Report html

Postby 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
User avatar
richard-service
 
Posts: 803
Joined: Tue Oct 16, 2007 8:57 am
Location: New Taipei City, Taiwan
Top
Post a reply

Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 50 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group