FiveTech Software tech support forums

... informacion; y a la vez la información introducida nos aparezca grabada en el archivo. STATIC FUNCTION Nuevo() #define DIALOG_3 3 LOCAL oCbx,oCbx1,oBoton1, oBoton2 LOCAL videntif local oGet1,oGet2,oGet3 local vcuenta:=space(8) local vnomcuenta:=space(40) LOCAL VNOM_PA:=space(20) static vreq_pa:=.F. ...

... COLOR_BTNFACE 15 //----------------------------------------- memvar publicas FUNCTION Empresa() local oDlg,oDlg1 local vuelta,osay,i,oboton,oboton1 local nccodmun,ncnommun,nccodprov,ncnomprov local hacer:=0,oculta,oculta1,oculta2,oculta3,oculta4,oculta5 local oNombre,oLbx,obmp local Grabar:=.F. ...

... etc..) //----------------------------------------------------------------------------// FUNCTION Main() *************** LOCAL oWnd PRIVATE oBoton0,oBoton1,oBoton2 DEFINE WINDOW oWnd TITLE "Menu" oWnd:bKeyDown := {|| InterpretaTeclado()} @ 0,121 BTNBMP oBoton0 ; SIZE 120, 50 ; PROMPT "0-Salir"; ...

... "Test" BRUSH oBrush TRANSPARENT REDEFINE CHECKBOX oCbx1 VAR lOk1 ID 110 OF oDlg REDEFINE GET oGet Var cNombre ID 120 Of oDlg REDEFINE BUTTON oBoton1 ID 330 PROMPT "Salir" ; OF oDlg CANCEL ACTION (oDlg:End() ) ACTIVATE DIALOG oDlg CENTERED oBrush:End() oFont:End() return nil Muchas gracias. ...

Mario,

Prueba a darle el foco a uno de los botones desde la claúsula ON INIT del diálogo:

ACTIVATE DIALOG oDlg ;
ON INIT ..., oBoton1:SetFocus()