Xailer & OZ Software

Alguien podria darme un norte de como hacer que todas las variables de un TForm vuelvan a ser Cero?
En clipper pues usaba:
cVar1 := " "
nVar := 0.0
aVars := { 0.0, "" }
etc.
Como podria hacer para que en un TForm usando un ciclo pueda reconocer los controles TEdit y pasarlos a blancos o ceros segun sea el caso?
Seria bueno poder incluso sobrecargar los TEdit o TMaskEdit con un valor nDefaultValue y/o un methodo Blank(), para hacer este proceso... pero, aun no domino mucho Xailer.
Gracias, todas las sugerencias son aceptadas.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
visita mi "venta de garage"
--

Ramón: la propiedad para hacer eso es Control:odatafield:defvalue.
Ejemplo
METHOD FirstCreate( oSender ) CLASS FrmPaciente
oSender:oDataSet := ::oParent:oDbf
if oSender == ::oDBDateEdit1
::oDBDateEdit1:odatafield:defvalue := DATE()
endif
if oSender == ::oDBComboBox4
::oDBComboBox4:odatafield:defvalue := "Activo"
endif
if oSender == ::oDBComboBox2
::oDBComboBox2:odatafield:defvalue := "DNI"
endif
if oSender == ::oDBComboBox3
::oDBComboBox3:odatafield:defvalue := "Ignorado"
endif
if oSender == ::oDBComboBox5
::oDBComboBox5:odatafield:defvalue := "Femenino"
endif
if oSender == ::oDBEdit17
::oDBEdit17:odatafield:defvalue := AppData:cUsuario
endif
if oSender == ::oDBEdit18
::oDBEdit18:odatafield:defvalue := ""
endif
RETURN Nil
"Ramón Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:4650564d$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Alguien podria darme un norte de como hacer que todas las variables de un TForm vuelvan a ser Cero?
En clipper pues usaba:
cVar1 := " "
nVar := 0.0
aVars := { 0.0, "" }
etc.
Como podria hacer para que en un TForm usando un ciclo pueda reconocer los controles TEdit y pasarlos a blancos o ceros segun sea el caso?
Seria bueno poder incluso sobrecargar los TEdit o TMaskEdit con un valor nDefaultValue y/o un methodo Blank(), para hacer este proceso... pero, aun no domino mucho Xailer.
Gracias, todas las sugerencias son aceptadas.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
visita mi "venta de garage"
--

Ramón,
Alguien podria darme un norte de como hacer que todas las variables de un TForm vuelvan a ser Cero?
En clipper pues usaba:
cVar1 := " "
nVar := 0.0
aVars := { 0.0, "" }
etc.
Como podria hacer para que en un TForm usando un ciclo pueda reconocer los controles TEdit y pasarlos a blancos o ceros segun sea el caso?
Seria bueno poder incluso sobrecargar los TEdit o TMaskEdit con un valor nDefaultValue y/o un methodo Blank(), para hacer este proceso... pero, aun no domino mucho Xailer.
Puedes sobrecargar la clase T. Serí­a algo así­:
CLASS TEdit FROM XEdit
PROPERTY nDefaultValue
METHOD Blank() INLINE ::Value := ::nDefaultValue
ENDCLASS
Para blanquear todos los edit de un formulario puedes escribir un método así­:
METHOD Blank( oControl ) CLASS TForm1
DEFAULT oControl TO Self
IF oControl:IsKindOf( "TEdit" )
oControl:Value := oControl:nDefaultValue
ELSEIF oControl:IsKindOf( "TWinControl" )
AEval( oControl:aControls, {| oCtl | ::Blank( oCtl ) } )
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--

Por ahi es que queria llegar,
gracias a todos, hare pruebas.
Saludos.
--
Ramón Zea
01.993.194.14.27
http://www.paginasprodigy.com/zeasoftware/
zeasoftware@prodigy.net.mx
zeasoftware@hotmail.com
ramonzea@yahoo.com
zeasoft.movil@hotmail.com
visita mi "venta de garage"
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:[email=4651613d@ozsrv2.ozlan.local...]4651613d@ozsrv2.ozlan.local...[/email]
Ramón,
Alguien podria darme un norte de como hacer que todas las variables de un TForm vuelvan a ser Cero?
En clipper pues usaba:
cVar1 := " "
nVar := 0.0
aVars := { 0.0, "" }
etc.
Como podria hacer para que en un TForm usando un ciclo pueda reconocer los controles TEdit y pasarlos a blancos o ceros segun sea el caso?
Seria bueno poder incluso sobrecargar los TEdit o TMaskEdit con un valor nDefaultValue y/o un methodo Blank(), para hacer este proceso... pero, aun no domino mucho Xailer.
Puedes sobrecargar la clase T. Serí­a algo así­:
CLASS TEdit FROM XEdit
PROPERTY nDefaultValue
METHOD Blank() INLINE ::Value := ::nDefaultValue
ENDCLASS
Para blanquear todos los edit de un formulario puedes escribir un método así­:
METHOD Blank( oControl ) CLASS TForm1
DEFAULT oControl TO Self
IF oControl:IsKindOf( "TEdit" )
oControl:Value := oControl:nDefaultValue
ELSEIF oControl:IsKindOf( "TWinControl" )
AEval( oControl:aControls, {| oCtl | ::Blank( oCtl ) } )
ENDIF
RETURN Nil
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--