Syntax TEXTBOX DATE (xBase Style)

[andyglezl]

Hola
Algún ejemplo del control TEXTBOX DATE
Utilizo lo siguiente y me marca error...
----------------------------------------
Hi there
Some example control TEXTBOX DATE
I use the following and mark me wrong ...

Code: Select all

    @ 038,720 TEXTBOX TBX_5 WIDTH  60 HEIGHT 24 FONT "Verdana" SIZE 11 TOOLTIP "Teclee Fecha de Nacimiento..." DATE VALUE ctod('01/01/01')

Haciendolo con la sintaxis alterna funciona OK
----------------------------------------------
Doing it with the alternate syntax works OK

Code: Select all

		DEFINE TEXTBOX Text_3
			ROW    038
			COL    720
			WIDTH  100
			HEIGHT 24
			FONTNAME "Verdana"
			FONTSIZE 11
			TOOLTIP "Fecha de Nacimiento..."
			TABSTOP .T.
			VISIBLE .T.
			DATE .T. 
			VALUE ctod('01/01/01')
		END TEXTBOX

HMG 3.3.1

[Javier Tovar]

Hola
Algún ejemplo del control TEXTBOX DATE
Utilizo lo siguiente y me marca error...

+1

Ya probé y también me da error, voy a investigar!

Saludos

[Javier Tovar]

Hola andyglezl,

Prueba así:

Code: Select all

@ 130 ,190 TEXTBOX TextDate HEIGHT 24 VALUE ctod('01/01/01') WIDTH 60 DATE

Al parecer tienes que respetar el orden de los parámetros!

Code: Select all

Standard Syntax (xBase Style):
 
 
      @ <nRow> ,<nCol>
            TEXTBOX <ControlName>
            [ OF | PARENT <ParentWindowName> ]
            [ HEIGHT <nHeight> ]
            [ FIELD <FieldName> ]
            [ VALUE <nValue> ]
            [ READONLY ]
            [ WIDTH <nWidth> ]
            [ NUMERIC ] [ INPUTMASK <cMask> ]
            [ FORMAT <cFormat> ] | PASSWORD ]
            [ FONT <cFontName> SIZE <nFontSize> ]
            [ BOLD ] [ ITALIC ] [ UNDERLINE ] [ STRIKEOUT ]
            [ TOOLTIP <cToolTipText> ]
            [ BACKCOLOR <aBackColor> ]
            [ FONTCOLOR <aFontColor> ]
            [ DISABLEDBACKCOLOR <aDisabledBackColor> ]
            [ DISABLEDFONTCOLOR <aDisabledFontColor> ]
            [ DATE ]
            [ MAXLENGTH <nInputLength> ]
            [ UPPERCASE | LOWERCASE ]
            [ ON GOTFOCUS <OnGotFocusProcedur> | <bBlock> ]
            [ ON CHANGE <OnChangeProcedure> | <bBlock> ]
            [ ON LOSTFOCUS <OnLostFocusProcedure> | <bBlock> ]
            [ ON ENTER <OnEnterProcedure> | <bBlock> ]
            [ RIGHTALIGN ]
            [ INVISIBLE ]
            [ NOTABSTOP ]
            [ HELPID <nHelpId> ]

Saludos

[Javier Tovar]

Con ToolTip:

Code: Select all

@ 130 ,190 TEXTBOX TextDate HEIGHT 24 VALUE ctod('01/01/01') WIDTH 60 TOOLTIP "Ingrese la fecha de nacimiento..." DATE 

Saludos

[andyglezl]

Gracias Javier, asi funciona OK.