CREATE CLASS...

[Patricio Avalos Aguirre]

Buenas tardes a Tod@s

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

Code: Select all

CREATE CLASS tReporteVentas

    VAR lEmision    AS LOGICAL
    VAR dDesde      AS DATE

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

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

return( Self )
 

//-----------------------------------------------------------------------------------------------------------------------

[Antonio Linares]

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