Help no puedo saltar de get en get con ENTER ya resuelto :)

[AIDA]

Hola

no se por que pero no puedo hacer que salte de un get a otro get oprimiendo el Enter apenas lo oprimo y se me salta al boton de salir ya no se que hacer


esta es mi pantallita de captura

[/URL]

este el codiguito

Code: Select all  Expand view

FUNCTION ALTA_A()

local oSof, Nnobre,oGET,osTA,CLA,CCOL,oBrush,oBitmap,obmp,Nnobrecp,oSkin,oSkinB
local nfl:=.f.
local xix:=.f.
LOCAL cCp :=SPACE(7)
Local Cnobre, Mnobre,oDirec
Local   cLogo:= "ima\AUTO1.BMP"

SET 3DLOOK ON

SkinButtons( oSkinB )

DEFINE DIALOG oSof RESOURCE "AUTO_A"  PIXEL STYLE  WS_POPUP  TRANSPARENT

REDEFINE GET Nnobre VAR oApp:cNombre       ID 101 OF oSof  PICTURE "@!"
Nnobre:bGotFocus  := { || Nnobre:SetColor( 0, RGB(245,245,220)) }
Nnobre:bLostFocus := { || Nnobre:SetColor( 0, CLR_WHITE  ) }
Nnobre:bKeyDown:={|nKey| If(nKey=VK_RETURN ,Cnobre:SetFocus(),)}     // aquí intento  que salte al siguiente get pero no funciona

REDEFINE GET Cnobre VAR oApp:cPaterno      ID 102 OF oSof  PICTURE "@!"
Cnobre:bGotFocus  := { || Cnobre:SetColor( 0, RGB(245,245,220)) }
Cnobre:bLostFocus := { || Cnobre:SetColor( 0, CLR_WHITE  ) }

REDEFINE GET Mnobre VAR oApp:cMaterno      ID 103 OF oSof  PICTURE "@!"
Mnobre:bGotFocus  := { || Mnobre:SetColor( 0, RGB(245,245,220)) }
Mnobre:bLostFocus := { || Mnobre:SetColor( 0, CLR_WHITE  ) }


REDEFINE GET Nnobre VAR oApp:cRFC          ID 104 OF oSof  PICTURE "@!"
REDEFINE GET Nnobre VAR oApp:cCURP         ID 105 OF oSof  PICTURE "@!"


REDEFINE GET oDirec VAR oApp:cDireccion    ID 106 OF oSof  PICTURE "@!"
oDirec:bGotFocus  := { || oDirec:SetColor( 0, RGB(245,245,220)) }
oDirec:bLostFocus := { || oDirec:SetColor( 0, CLR_WHITE  ) }

oApp:cCp2:="0000000"
REDEFINE BTNGET cCp ID 107 OF oSof PICTURE "99999"  RESOURCE "ima\preview.bmp" ACTION (oApp:cCp2:= cCp,BUSCP(cCp),cCol:refresh(),CCOL:SetItems(oApp:cPoitem) )      //lola

oApp:cCOLONIA:=oApp:cPoitem[1]
REDEFINE COMBOBOX CCOL VAR oApp:cCOLONIA ITEMS oApp:cPoitem ID 108 OF oSof

REDEFINE BTNGET oApp:cCiudad  ID 109 OF oSof  PICTURE "@!" RESOURCE "ima\16x16\search.bmp" ACTION (BUSCPE(oApp:cCiudad),osTA:refresh(),osTA:SetItems(oApp:ePoitem))

oApp:cEstado:=oApp:ePoitem[1]
REDEFINE COMBOBOX osTA VAR oApp:cEstado  ITEMS oApp:ePoitem  ID 110 OF oSof

REDEFINE GET Nnobre VAR oApp:cTelefona  ID 111 OF oSof  PICTURE "999-99-99(999999)"
REDEFINE GET Nnobre VAR oApp:cTelefonb  ID 112 OF oSof  PICTURE "999-99-99(999999)"
REDEFINE GET oApp:aEmail  VAR oApp:cEmail  ID 113 OF oSof
REDEFINE GET oApp:aPagina VAR oApp:cPagina ID 114 OF oSof

REDEFINE GET Nnobre VAR oApp:cFICHA     ID 115 OF oSof  PICTURE "9999999"
REDEFINE GET Nnobre VAR oApp:cCENTRO    ID 116 OF oSof  PICTURE "@!"

REDEFINE BITMAP    oBitmap     ID 117 FILE cLogo  TRANSPARENT   OF oSof

REDEFINE BUTTON ID 119 OF oSof  ACTION  SALIR_DE_A(nfl,osof)
REDEFINE BUTTON ID 118 OF oSof  ACTION (IF(Empty(oApp:cNombre),nMsgBox("Deve dar de alta el nombre del cliente", OemToAnsi( "Atenci¢n" )),(nfl:=.t., oSof:End())) )


ACTIVATE DIALOG  oSof CENTERED ON INIT oSof:Shadow()

[joseluisysturiz]

Hola Aida, espero estes bien, Donde esta el oGET en los GET, no veo que uses oGET en ningun REDEFINE GET y ademas parece definistes un solo oGET para todos los GET, recomendacion un array de GET, ejm. oGET := Array (n)
revisate la numeracion de los TAB en el recurso, es lo que normalmente pasa. haz la prueba en el TAB del recurso, si te salta bien entonce es otra cosa y hay que revisar un poco mas el codigo... saludos...

REDEFINE GET oGET[1] VAR cVar ID 100

[AIDA]

HOLA

toy bien gracias

No entiendo como se usa ese oGET y cuando uso el tabulador todo brinca bien pero no con el enter

Saluditos

[MGA]

Ola Aida,

Tive este tipo de problema e resolvi assim:

redefine oget[1] var ...
oGet[1]:blostfocus:={|| if(GetASyncKey(VK_RETURN),xsetfocus(oGet[2]),nil)}
redefine oget[2] var ...

Espero ter ajudado

[Patricio Avalos Aguirre]

Hola Aida

Ve al recurso del boton y sacale DEFAULT PUSHBUTTON Y dejalo con PUSHBUTTON

[carlos vargas]

y lo otro es que cada get en el resource debe tener definido un ws_tabstop en el style. porque si no lo tiene
no hace el salto hacia el siguiente control.

salu2
carlos vargas

[joseluisysturiz]

HOLA

toy bien gracias

No entiendo como se usa ese oGET y cuando uso el tabulador todo brinca bien pero no con el enter

Saluditos

Aida, si aun no has resuelto el problema, si puedes conectate en el MSN o mandame a mi correo el recurso y lo revisamos, cuidate, saludos...

[AIDA]

Hola

Agradezco a todos su apoyo

les comento que ya pude arreglar el problemita y dirán que era una bobada pero una bobada que me tenia en el grito

siguiendo las recomendaciones cheque mi codigo y no le vi nada mal entonces cheque el archivo RES vi algo que me pico la espinita y asiendo una prueba resulto que ahí era el problemota

primero elimine de mi codigo lo siguinte:

REDEFINE BUTTON ID 119 OF oSof ACTION SALIR_DE_A(nfl,osof) // este lo borre

y en el archivito RES cambie el numero 119 del botón de salida por IDCANCEL y por arte de magia todo funciona ahora bien

Gracias a todos

[joseluisysturiz]

Bueno Aida que hayas resuelto de cualquier manera y que compartas la solucion encontrada, estamos como sabes para ayudarnos, saludos y que sigas bien...