FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index mod_harbour CREATE CLASS...
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
CREATE CLASS...
Posted: Sun Jun 21, 2020 08:22 PM
Buenas tardes a Tod@s

como her que funcione en modharbour la creación de clases

Code (fw): Select all Collapse
CREATE CLASS tReporteVentas

    VAR lEmision    AS LOGICAL
    VAR dDesde      AS DATE

//-----------------------------------------------------------------------------------------------------------------------
METHOD New() CLASS tReporteVentas

    ::lEmision  := .t.
    ::dDesde    := dateAds()

return( Self )
//-----------------------------------------------------------------------------------------------------------------------
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: CREATE CLASS...
Posted: Mon Jun 22, 2020 05:28 AM

include "c:\harbour\include\hbclass.ch"

include "c:\harbour\include\hboo.ch"

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion