PC Toledo

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
 

Código: Selecionar todos

svn export svn://svn.code.sf.net/p/qtcontribs/code/trunk d:\cvsfiles\harbouraddons