Xailer & OZ Software

Entendido y gracias por la respuesta del post del dí­a 28/04/2012!
Pregunto de nuevo José, necesito instanciar otras clases.
Hacerlo como en el New() de mas abajo serí­a correcto? tengo que poner oParent o puede faltar?
Muchas gracias.
#include "Xailer.ch"
//---------------------------------------------------------- --------------------
CLASS Entidadesturno From TComponent
METHOD DevolverPorID( ID )
METHOD Actualizar()
METHOD Agregar()
METHOD Eliminar()
METHOD CargarTipo(identidadturno)
PROPERTY identidadturno INIT 0
PROPERTY idpersonajsucursal INIT 0
PROPERTY codigo INIT ""
PROPERTY descripcion INIT ""

DATA oProfesionalentidad INIT NIL
METHOD New(oParent)
ENDCLASS
//---------------------------------------------------------- --------------------
METHOD New(oParent) CLASS Entidadesturno
::oProfesionalentidad := Profesionalentidad():New( Self )
::identidadturno := 0
::idpersonajsucursal := 0
::codigo := ''
::descripcion := ''
RETURN Self
//---------------------------------------------------------- --------------------
--

Carlos,
perdona el retraso.
> //---------------------------------------------------------- --------------------
>
> METHOD New(oParent) CLASS Entidadesturno
> *::oProfesionalentidad* := Profesionalentidad():New( Self )
> ::identidadturno := 0
> ::idpersonajsucursal := 0
> ::codigo := ''
> ::descripcion := ''
> RETURN Self
>
> //---------------------------------------------------------- --------------------
sólo te falta llamar a Super:New( oParent ). Puedes ponerlo en cualquier
parte del método, p.ej. al principio.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info