Amigos del foro
Si alguien me pudiera orientar
Estoy incursionando apenas con la clase TFolder y tengo la siguiente imangen
Y esto es parte de mi codigo
En este folder tengo dos dialogos y quisiera saber que me hace falta para que el primer get de el primer dialogo tome el foco, que instruccion me hace falta ?
Porque solamente haciendo click en el nombre de la pestaña lo hace
De antemano muchas gracias
Saludos
Si alguien me pudiera orientar
Estoy incursionando apenas con la clase TFolder y tengo la siguiente imangen
Y esto es parte de mi codigo
function Folders( pnOperacion )
local oDlg, oFld, oCbx
LOCAL aoObjetos := { nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ;
nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil }
LOCAL aoBtn := { nil, nil }
LOCAL aoSay := { nil, nil }
LOCAL dFecha := CTOD(" "), cMoneda := "", cId_Cli := ""
---------
---------
---------
cNumCot := if( pnOperacion = 1, f_GetNewIdCot(), space(6) )
lEdita := if( pnOperacion = 1 .OR. pnOperacion = 4, .T., .F. )
IF pnOperacion = 1
dFecha := DATE()
cMoneda := "Pesos"
--------
--------
ELSE
cNumCot := cotiza->numcot
dFecha := cotiza->fecha
cMoneda := IIF( cotiza->moneda = "P", "Pesos", "Dolares" )
cId_Cli := cotiza->id_cli
--------
--------
ENDIF
DEFINE DIALOG oDlg RESOURCE "Test" TITLE cTitulo
REDEFINE FOLDER oFld ID 110 OF oDlg ;
PROMPT "&Cotizacion", "Otros datos" ;
DIALOGS "Sub1", "Sub2"
oFld:aDialogs[1]:SetFocus()
// Redefine controles dialogo 1
if pnOperacion = 1
REDEFINE GET aoObjetos[1] VAR cNumCot ID 101 OF oFld:aDialogs[ 1 ] UPDATE ;
PICTURE "!!!!!!" ;
WHEN lEdita ;
VALID EVAL ( { || cNumCot := cero1( cNumCot), oDlg:Update(), .T. .AND. ;
! f_Existe_Cotizacion( pnOperacion ) } )
aoObjetos[1]:cToolTip := "Introduzca el Numero de pedido"
else
REDEFINE GET aoObjetos[1] VAR cNumCot ID 101 OF oFld:aDialogs[1] ;
PICTURE "999999" ;
WHEN .F.
ENDIF
REDEFINE SAY aoSay[1] VAR cNomVen ID 301 OF oFld:aDialogs[ 1 ] UPDATE ;
COLOR CLR_RED FONT oApp:fBold
REDEFINE GET aoObjetos[9] VAR cId_Eqpo ID 109 OF oFld:aDialogs[ 1 ] UPDATE ;
PICTURE "!!!!!" ;
BITMAP "BMP_CATALOGO" ACTION ( Catalogo( "EQPO", .T.), aoObjetos[9]:SetFocus(), oDlg:Update() ) ;
WHEN lEdita ;
MESSAGE "Tipo de equipo" ;
VALID EVAL ( { || cId_Eqpo := ValCod( cId_Eqpo, "eqpo"), ;
IIF(empty(cId_Eqpo),(aoObjetos[9]:SetFocus(),.F.), ;
(cNomEqpo := eqpo->nombre, ;
oFld:aDialogs[1]:Update(), .T.)) } )
aoObjetos[9]:cToolTip := "Introduzca o seleccione la clave del equipo"
REDEFINE SAY aoSay[2] VAR cNomEqpo ID 302 OF oFld:aDialogs[ 1 ] UPDATE ;
COLOR CLR_RED FONT oApp:fBold
// Redefine controles dialogo 2
REDEFINE GET aoObjetos[10] VAR cNumCot ID 101 OF oFld:aDialogs[2] ;
WHEN .F.
REDEFINE GET aoObjetos[11] VAR cNombre1 ID 102 OF oFld:aDialogs[2] UPDATE ;
PICTURE "@" ;
WHEN lEdita ;
MESSAGE "Primera linea de descripcion"
aoObjetos[11]:cToolTip := "Introduzca descripcion"
------------------
------------------
------------------
REDEFINE BUTTONBMP aoBtn[1] ID 400 OF oDlg ;
PROMPT "A&ceptar " ;
BITMAP "BTN_OK" TEXTRIGHT ;
ACTION oDlg:End() ;
MESSAGE "Aceptar" UPDATE
aoBtn[1]:cToolTip := "Presione para Continuar"
REDEFINE BUTTONBMP aoBtn[2] ID 401 OF oDlg ;
PROMPT "&Cancelar " BITMAP "BTN_CAN" TEXTRIGHT ;
ACTION ( lContinuar := .F., oDlg:End() ) ;
MESSAGE "Cancelar" UPDATE
aoBtn[2]:cToolTip := "Presione para Cancelar"
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT oninit( oDlg )
return nilEn este folder tengo dos dialogos y quisiera saber que me hace falta para que el primer get de el primer dialogo tome el foco, que instruccion me hace falta ?
Porque solamente haciendo click en el nombre de la pestaña lo hace
De antemano muchas gracias
Saludos
