FiveTech Software tech support forums

Hola jose,

Probaste haciendo un refresh() luego del setfocus() ??

oNombre:SetFocus()
oNombre:Refresh()

... para generar un nuevo registro blanquea los gets correctamente pero no puedo darle el foco al primer get. en la función del botn oprimido coloco oNombre:SetFocus() y el focus sigue en el xBrowse. trate de hacerlo desde otros puntos de la funcion y no obtengo resultados. Alguna sugerencia? Gracias ...

... EDICION CON FOLDER--------------- FUNCTION editPro( oBrw, oDlg ) LOCAL oDlg1, oFld, oLbx, Lsalir:=.f. LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia NProve := PROVE->CODIGO_PRO cNombre := PROVE->NOMBRE cProvincia := PROVE->PROVINCIA DEFINE DIALOG oDlg1 FROM ...

... todos los registros. Es decir, lo que está en rojo: FUNCTION editPro( oBrw ) LOCAL oDlg, oFld, oLbx, Lsalir:=.f. LOCAL nProve, oProve, cNombre, oNombre, cProvincia, oProvincia NProve := PROVE->CODIGO_PRO cNombre := PROVE->NOMBRE cProvincia := PROVE->PROVINCIA DEFINE DIALOG oDlg FROM ...

... return nil //***************** EDICION CON FOLDER--------------- Function editPro(oBrw) Local oDlg, oFld, oLbx local nProve, oProve, cNombre, oNombre,cProvincia, oProvincia NProve :=PROVE->CODIGO_PRO cNombre :=PROVE->NOMBRE cProvincia:=PROVE->PROVINCIA DEFINE DIALOG oDlg FROM 3, 3 ...

Perdona, João, que no me haya explicado bien. MIra; En el folder pongo un get de sólo lectura @ 1, 1 GET oNombre VAR cNombre OF oFld:aDialogs[ 1 ] READONLY UPDATE Y quiero cambiar el valor mediante: @ 4, 14 BUTTON "Cambiar" of oFld:aDialogs[ 1 ] ; ACTION cambia( cNombre, ...

... los datos. Un ejemplo sencillo de lo que pretendo hacer es lo siguiente: #include "FiveWin.ch" function Main() local oDlg, oFld, oNombre, cNombre, cApellido, oApellido REQUEST DBFCDX RDDSETDEFAULT ( "DBFCDX" ) DEFINE DIALOG oDlg SIZE 400, 300 USE TEST NEW ALIAS "TEST" ...

... " RIGHT @ 2,01 SAY "Apellido : " RIGHT @ 3,01 SAY "Curso : " RIGHT @ 4,01 SAY "Horario : " RIGHT @ 1,20 GET oNombre VAR cNombre @ 3,06 GET oApellido VAR cApellido; @ 3,06 COMBOBOX oHorario VAR cHorario ITEMS {"Diurno","Nocturno"} @ 4,06 ...

... " RIGHT @ 2,01 SAY "Apellido : " RIGHT @ 3,01 SAY "Curso : " RIGHT @ 4,01 SAY "Horario : " RIGHT @ 1,20 GET oNombre VAR cNombre @ 3,06 GET oApellido VAR cApellido; @ 3,06 COMBOBOX oHorario VAR cHorario ITEMS {"Diurno","Nocturno"} @ 4,06 ...

ruben, se me ocurre : 1) creas un objeto imagen oPicture1 2) creas la var de texto oNombre 3) pones los 2 objetos en la misma banda 4) en el onstartreport debes asignar la imagen que envias : oPicture1.Link:= <cImagen> en el metodo onbeforeprint de la banda ...

CLASS TBancos DATA cCodigo As OBJECT INIT NIL DATA oNombre As OBJECT INIT NIL DATA oNumero As OBJECT INIT NIL DATA oWnd As OBJECT INIT NIL DATA oFont As OBJECT INIT NIL DATA oFld As OBJECT INIT NIL DATA oBtn As OBJECT INIT NIL DATA cTitle AS CHARACTER ...

... MDCHILD la cual esta definina en un archivo MAIN.prg PUBLIC TBancos := TApplication() . . . . . CLASS TBancos DATA cCodigo As OBJECT INIT NIL DATA oNombre As OBJECT INIT NIL DATA oNumero As OBJECT INIT NIL DATA oWnd As OBJECT INIT NIL DATA oFont As OBJECT INIT NIL DATA oFld As OBJECT INIT NIL DATA ...

... CtaBco() DEFINE DIALOG oDlg1 ; RESOURCE "MiFolder" ; of oWndBCO oDlg1:cCaption := Title oDlg1:lHelpIcon := .f. oDlg1:bGotfocus := {|| oNombre:Setfocus(), oFld:refresh()} REDEFINE FOLDER oFld ID 333 OF oDlg1 ; PROMPT "Datos Generales", ; "Observaciones"; DIALOGS ...

Tienes que pasar la variable a la función:

@ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 60, 10 ;
VALID (NuevoDialogo(NOMBCO), .T.)

Ok, Aca el Get, el cual debe permitir llamar a un dialogo con enter si esta vacio, en caso de tener info, continuar al siguiente Get: @ 2,1 GET oNombre VAR NOMBCO OF oDlg SIZE 60, 10 ; VALID (NuevoDialogo(), .T.) Aca la funcion recomendada: FUNCTION nuevodialogo(NOMBCO) LOCAL oDlg IF EMPTY(NOMBCO) ...