FiveTech Software tech support forums

colocalo en la clausula VALID del get y usa SetColor()

redefine get oGet2 var cUser id 102 of oDlg valid( if ( UPPER( cUser ) <> "ADMIN",oGet2:SetColor( CLR_BLACK, CLR_HRED ),oGet2:SetColor( CLR_BLACK, CLR_WHITE ) ), oGet2:refresh(), .t. )

... ::controlarPulsaciones( ::oDatos[1]:nLastKey ) } redefine oget1 var ctes1 id 4001 of odlg redefine oget2 var ctes2 id 4002 of odlg when if(empty(ctes1),.f.,.t.) talvez utilizando oget2:blostfocus:={||} oget2:bgotfocus:={||}

redefine oget1 var ctes1 id 4001 of odlg


redefine oget2 var ctes2 id 4002 of odlg when if(empty(ctes1),.f.,.t.)


talvez utilizando

oget2:blostfocus:={||}
oget2:bgotfocus:={||}

... dialog oWnd resource "FTP" redefine say id 1000 of oWnd redefine say id 2000 of oWnd redefine get oget1 var ruta_local id 110 of oWnd redefine get oget2 var ruta_destino id 120 of oWnd redefine button id 100 of oWnd action (tipo:='enviar',envio(tipo)) redefine button id 200 of oWnd action (tipo:='recibir',envio(tipo)) ...

... el block de validación y pase al siguiente get sin tener que volver a presionar enter ?. He probado .....ACTION ( mifuncion(), oGet1:oJump:=oGet2, oGet2:SetFocus() ) y nada... sin resultados. Como puedo hacerlo? Agradezco desde ya la ayuda que generosamente puedan brindarme. Yo en la búsqueda ...

Intentas asi: xFocus( oGet2 ) ... //-------------------------------------------------------------------------// FUNCTION xFocus( oObj ) xSetFocus( oObj ) xSetFocus( oObj ) RETURN( .T. ) //-------------------------------------------------------------------------// ...

... el block de validación y pase al siguiente get sin tener que volver a presionar enter ?. He probado .....ACTION ( mifuncion(), oGet1:oJump:=oGet2, oGet2:SetFocus() ) y nada... sin resultados. Como puedo hacerlo? Agradezco desde ya la ayuda que generosamente puedan brindarme.

... //------------------------------------------------------------------------// Function Client(oBtn, obtn1) // start client Local oDlg, oGet1, oGet2, cVar1, cVar2 Local lNoShow := .t. MemVar oApp, oChatserver, ochatclient cVar1:= space(15) // ip cVar2:=Space(12) // user name oBtn:Disable() ...

... seem to be working for me. I'm sure I must be leaving something out. I use this in my code. 1. put your get object in an array aObj := { oGet1, oGet2, oGet3 ... } on your bChange, oLbx:bChange := { || DoRefresh(aObj) } 2. create a function with parameter to hold aObj. function DoRefresh(aObj) ...

Patrick It is normal. I placed a tracelog in the when clausule : @ 2, 6 GET oGet2 VAR cVar2 OF oDlg SIZE 60, 10 WHEN (tracelog(),.T.) with as result : [testfw.prg->(b)MAIN] (14) Called from: WINDOW.PRG->TDIALOG:AEVALWHEN(0) DIALOG.PRG->TDIALOG:INITIATE(0) ...

Patrick It is normal. I placed a tracelog in the when clausule : @ 2, 6 GET oGet2 VAR cVar2 OF oDlg SIZE 60, 10 WHEN (tracelog(),.T.) with as result : [testfw.prg->(b)MAIN] (14) Called from: WINDOW.PRG->TDIALOG:AEVALWHEN(0) DIALOG.PRG->TDIALOG:INITIATE(0) ...

... get created if we use ALT accelerator. //-------------------------------------- FUNCTION TESTALT #include 'Fivewin.ch' LOCAL oDlg LOCAL oGet1, oGet2, oGet3, oBtn LOCAL cVar1 := 'ABCDEF ' LOCAL cVar2 := SPACE(8) LOCAL cVar3 := SPACE(8) DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 ; TITLE 'Test Alt ...

... the valid is executed BEFORE // the button's ACTION. //-------------------------------------------- #include 'Fivewin.ch' LOCAL oDlg LOCAL oGet1, oGet2, oGet3, oBtn LOCAL cVar1 := 'ABCDEF ' LOCAL cVar2 := SPACE(8) LOCAL cVar3 := SPACE(8) DEFINE DIALOG oDlg FROM 0, 0 TO 10, 30 ; TITLE 'Test Alt ...

Javier,

Puedes controlarlo desde el bGotFocus del primer GET:

oGet1:bGotFocus = { || ... acciones a realizar }

ó bien desde el VALID del segundo GET:

oGet2:bValid = { || ... acciones a realizar ..., .T. }

Aprovecho para pedirte que me envies un email y me indiques cuando continuamos

... MDICHILD ACTIVATE WINDOW oChild ; ON INIT BuildDialog( oChild ) SET RESOURCES TO return nil function BuildDialog( oChild ) local oDlg, oGet1, oGet2, oGet3, oGet4, nLoca_desde, nBode_Desde local cLoca_desde, cBode_Desde, aLocaD:={}, aBodeD:={}, oBtn DEFINE DIALOG oDlg RESOURCE "DLG_PRUEBA" ...