FiveTech Support Forums

#include "FiveWin.Ch"

FUNCTION MAIN()
LOCAL oWnd, oDlg, oFld, cVar1, cVar2

cVar1 := SPACE(10)
cVar2 := SPACE(15)

DEFINE DIALOG oDlg TITLE "Pruebas" SIZE 400,300

@ 0,0 FOLDER oFld PROMPT "Folder 1", "Folder 2" OF oDlg

#define PADRE1 oFld:aDialogs[1]

@ 1,0 GET cVar1 VALID ( MsgInfo("Valid 1"), .T. ) OF PADRE1
@ 2,0 GET cVar2 VALID ( MsgInfo("Valid 2"), .T. ) OF PADRE1

ACTIVATE DIALOG oDlg ;
         CENTER

RETURN NIL