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.

Valores a Cero

Foro de Xailer profesional en español
Responder
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Valores a Cero

Mensaje por zeasoftware »

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"
--
Rolando
Mensajes: 191
Registrado: Lun May 08, 2006 2:10 pm

Valores a Cero

Mensaje por Rolando »

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"
--
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Valores a Cero

Mensaje por jfgimenez »

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
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Valores a Cero

Mensaje por zeasoftware »

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
--
Responder