FiveTech Software tech support forums

... llamado por TBUTTON:HANDLEEVENT(1711) llamado por _FWH(3159) llamado por SETFOCUS(0) llamado por TDIALOG:GONEXTCTRL(2673) llamado por TGGET:KEYCHAR(1094) llamado por TWINDOW:HANDLEEVENT(0) llamado por TCONTROL:HANDLEEVENT(1711) llamado por TGGET:HANDLEEVENT(580) llamado por _FWH(3159) ...

... La idea es la siguiente: Revisa(), si vuelve .T. traera la variable oPcion="S"o "N", si es "N" que entregue el focus a oBtn[2], de lo contrario a TgGet[2], pero si revisa() es .F., entonces el focus se entrega a TgGet[1]. Desde ya muy agradecido. Rafael. Redefine BTNGET TgGet[01] Var cCod Id 104 ...

... error a entregar la letra en el Get y tratar de sacar la descripcion, que corresponde a ese codigo: Saludos, Antonio *** Funcion Ingreso() Local TgGet[10],oSay[10],bTu:=0,arr2,arre1 Arre1 := {} AADD( Arre1, {"A","Administrador Sistema"} ) AADD( Arre1, {"S","Supervisor Sistema "} ) AADD( Arre1, ...

... Muchas gracias por su ayuda y tiempo dedicado, Le saluda muy atentamente, Rafael, A ver, prueba esto .................................,(Cargada( TgGet ),TgGet[01]:Refresh(),TgGet[02]:Refresh(),oDlg:update(),.t.))}) ........................ Function Cargada( TgGet ) Local cCod_cli,cNom_cli,cCla_cli,i ...

A ver, prueba esto .................................,(Cargada( TgGet ),TgGet[01]:Refresh(),TgGet[02]:Refresh(),oDlg:update(),.t.))}) ........................ Function Cargada( TgGet ) Local cCod_cli,cNom_cli,cCla_cli,i Sele Clientes Seek cCod_cli if !eof() ...

... sus datos. Esperando su ayuda, Les Saluda muy atentamente, Rafael, *** MUESTRO PARTE DEL CODIGO Local cCod_cli,cNom_cli,cCla_cli,oBtn[16],x Local TgGet[10] cCod_cli=spac(6) cNom_cli=spac(35) cCla_cli=spac(12) Define Dialog oDlg Resource "CLIENTES" Title "MAESTRO DE CLIENTES" Redefine BTNGET TgGet[01] ...

... con oDlg:end() se sale ok,., ahora esta linea de error Called from: mdi8.prg => (b)MCSPSFGMENORES(111) tengo esto en el PRG:: REDEFINE BTNGET TgGet[01] VAR oGmenore2:Idatencio ID 200 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE "9999999999" alguien sabe de que se trata o le ha pasado ...

Estimado ANTONIO ya resolvi en problema... y sabes q era jajajaja el dialogo principal el que contiene a Tgget[19],,, en el ACTIVATE DIALOG le puse un ON PAINT con el combo donde se enfocaba siempre,,, lo saque y el setfocus() funciona a la perfección NO EXISTEN MISTERIOS DE ...

Pruébalo así:

REDEFINE GET TgGet[19] VAR Det [01] ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE "@!" VALID ( BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto), TgGet[19]:oJump := TgGet[21], .T. )

Tu estás en el GET Código cuando llamas a la caja de diálogo para seleccionar un producto ? Prueba con: REDEFINE GET TgGet[19] VAR Det [01] ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE "@!" VALID ( BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto), ...

> EL FOCO NO QUE EN EL TGGET[19], SE VA A OTRO OBJETO A que otro objeto se va el foco ? Puedes poner una imagen de la caja de diálogo ? (usa http://www.imageshack.us para alojar la imagen y pon aqui el url). > VALID BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto) ...

Antonio molestanto de nuevo,, no me funciona oControl:oJump.... pq sera.. mira el codigo fuente... REDEFINE GET TgGet[19] VAR Det [01] ID 218 OF oDlg COLOR nRGB(0,0,128), nRGB(255,255,255) PICTURE "@!" VALID BusProd(TgGet,Det,oProducto,oProduct1,oPreprod,oPrepro1,vCbx2,PPD,TPD,Defecto) ...