GoNextCtrl se pierde en un tPanel

[tsales]

Antonio
Te adjunto 2 ejemplos que deberian tener el mismo comportamiento al pasar el foco pero no es así. Si compruebas ambos ejemplos por separado veras que si pulsas enter sobre el primer Get el segundo ejemplo se queda en un bucle sin fin y se debe resetear la máquina.

---------------- Primer ejemplo ------------------
#include "FWCE.ch"

function Main()

local oWnd, oGroup, oGet, oGet1, oGet2
local cDir := Space( 20 )
local cName := Space( 20 ), cAddress := Space( 30 )

DEFINE WINDOW oWnd TITLE "Foco"

@ 2, 8 GET oGet VAR cDir OF oWnd SIZE 100, 18
@ 3, 2 GROUP oGroup TO 10,30 OF oWnd

@ 1, 3.8 SAY "Name:" OF oGroup SIZE 40, 15

@ 2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18

@ 3.8, 2.1 SAY "Address:" OF oGroup SIZE 50, 15

@ 4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18
ACTIVATE WINDOW oWnd
return nil

---------------- Segundo ejemplo ------------------
#include "FWCE.ch"

function Main()

local oWnd, oGroup, oGet, oGet1, oGet2
local cDir := Space( 20 )
local cName := Space( 20 ), cAddress := Space( 30 )

DEFINE WINDOW oWnd TITLE "Foco"
@ 10, 10 PANEL oPanel OF oWnd ;
SIZE oWnd:nWidth() - 26, oWnd:nHeight() - 150 PIXEL


@ 2, 8 GET oGet VAR cDir OF oPanel SIZE 100, 18
@ 3, 2 GROUP oGroup TO 10,30 OF oPanel

@ 1, 3.8 SAY "Name:" OF oGroup SIZE 40, 15

@ 2, 8 GET oGet1 VAR cName OF oGroup SIZE 100, 18

@ 3.8, 2.1 SAY "Address:" OF oGroup SIZE 50, 15

@ 4, 8 GET oGet2 VAR cAddress OF oGroup SIZE 120, 18

ACTIVATE WINDOW oWnd
return nil

=========================================
Saludos