Foi implementando na lib HBQT essa nova sintaxe, muito parecida com o clipper.
Código: Selecionar todos
FUNCTION Main( cMode )
LOCAL oWnd, oVLayout, oHLayout, oFLayout, oBtnOK, oBtnCancel
LOCAL oEdit1, oEdit2, oEdit3, oEdit4, oEdit5, oEdit6, oEdit7, oEdit8
LOCAL cText := "ABC"
LOCAL dDate := 0d19560604
LOCAL nNumb := 6030.130001
LOCAL lMrd := .T.
LOCAL cTele := "(999)684-7318"
LOCAL cJust := Space( 20 )
LOCAL cCata := "IT3-BEL-903533AST63Z"
LOCAL nSlry := 12000
LOCAL GetList := {}
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
hb_default( @cMode, "O" )
IF cMode == "O"
//...
ELSE
@ 1, 10 QGET cText VALID {|| cText == "ABC" .OR. cText == "DEF" } PICTURE "@!A" ;
CAPTION "Alpha - Upper Cased Alphabets:"
@ 2, 10 QGET dDate WHEN {|| cText == "ABC" } ;
CAPTION "Date - Birthday:" COLOR "B/GR*"
@ 3, 10 QGET nNumb PICTURE "@Z 9,999,999.999999" VALID nNumb > 600 .AND. nNumb < 6000000;
CAPTION "Numeric - Max 6 Decimals:"
@ 4, 10 QGET lMrd PICTURE "Y" ;
CAPTION "Logical - Married:"
@ 5, 10 QGET cTele PICTURE "@! (999)999-9999" ;
CAPTION "Telephone Number:"
@ 6, 10 QGET cJust PICTURE "@A" COLOR "W+/B*" VALIDATOR {|cText,nPos| UpperLowerUpper( @cText, @nPos ) } ;
CAPTION "Alpha - Upper Lower Upper:"
@ 7, 10 QGET cCata PICTURE "!!!-!!!-!!!!!!!!!!!!" ;
CAPTION "Catalog Item:"
@ 3, 10 QGET nSlry PICTURE "@Z 99,999" VALID {|| nSlry > 600 .AND. nSlry < 17000 };
CAPTION "Salary:"
QREAD
ENDIF
RETURN NIL
Itamar M. Lins Jr.
