Tengo un problema que no me había dado cuenta, es la secuencia de los GETs, al dar ENTER.
. Cuando ingresa, toma el foco el ID 110, al dar ENTER, debiera pasar al ID 120, pero inmediatamente toma el foco el Botón Id 604, que va a validar los 2 Gets.
Como puedo corregir, para que mediante el ENTER, pase de los 2 Gets y luego al botón Aceptar (Id 604)?
En el recurso el índice de los tab Index, están secuencia en los gets.
Muchos saludos
Antonio.
Codigo:
Code: Select all | Expand
DEFINE DIALOG oDlg RESOURCE "#1007" Title " "
REDEFINE BITMAP oBmp1 ID 601 RESOURCE "#8022" TRANSPARENT OF oDlg
REDEFINE BITMAP oBmp1 ID 600 RESOURCE "#8023" TRANSPARENT OF oDlg
REDEFINE SAY oSay1 ID 603 PROMPT OemToAnsi(alltrim("INFORMES DE CAJA")) OF oDlg FONT oFont1 COLORS RGB( 56, 76, 170)
REDEFINE Get oCod_usu1 Var Cod_usu1 Id 110 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
REDEFINE Get oCla_usu1 Var Cla_usu1 Id 120 Of oDlg UPDATE Picture "@!" COLORS RGB( 9, 43, 47)
REDEFINE Button Id 605 Of oDlg Border ;
ACTION (Ing_1:=0,Ing_2:=0,oDlg:End()) // Boton Salida
REDEFINE Button Id 604 Of oDlg ;
ACTION IF(!Valida_usu(Cod_usu1,Cla_usu1),(MsgStop(Mensa), Ing_1:=0, Ing_2:=0,.F.), ( oDlg:End(), .T.) ) // Aqui Boton Acepta
ACTIVATE DIALOG oDlg CENTERED VALID (!GETKEYSTATE( 27 ))
FWH 22.03 Harbour Pelles C