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
//---------------------------------------------------------- --------------------
--
In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.
Pregunta sobre clases y el método New()
-
Carlos Ortiz
- Mensajes: 873
- Registrado: Mié Jul 01, 2009 5:44 pm
- Ubicación: Argentina - Córdoba
- Contactar:
Pregunta sobre clases y el método New()
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
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