Page 1 of 1

CREATE CLASS...

Posted: Sun Jun 21, 2020 8:22 pm
by 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 )
 
//-----------------------------------------------------------------------------------------------------------------------

Re: CREATE CLASS...

Posted: Mon Jun 22, 2020 5:28 am
by Antonio Linares
#include "c:\harbour\include\hbclass.ch"
#include "c:\harbour\include\hboo.ch"