Ayuda

[PILO]

Alguien me puede explicar como puedo cambiar el titulo de un Form despues de
cerrar otro al volver
al que le ha llamado
Gracias De antemano

[jose.luis]

Pilo,
Prueba con
::cText := "Nuevo título"
Saludos,
José Luis Capel
"PILO" <srmpilo@hotmail.com> escribió en el mensaje
news:4570354d$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Alguien me puede explicar como puedo cambiar el titulo de un Form despues
> de cerrar otro al volver
> al que le ha llamado
> Gracias De antemano
>

[PILO]

Muchas Gracias jose, lo habia intentado eso

[jose.luis]

Pilo,
> Muchas Gracias jose, lo habia intentado eso
¿Como lo has hecho y no te ha salido? ¿Puedes mostrarnos algo de ese
código?
Saludos,
José Luis Capel

[PILO]

Perdon funciona bien,
Otra pregunta, como puedo actualizar los mismos pero desde una ventana hija
sin salir de dicha ventana
"José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
news:[email=4570425c@news.xailer.com...]4570425c@news.xailer.com...[/email]
> Pilo,
>
>
>> Muchas Gracias jose, lo habia intentado eso
>
>
> ¿Como lo has hecho y no te ha salido? ¿Puedes mostrarnos algo de ese
> código?
>
> Saludos,
> José Luis Capel
>
>
>

[PILO]

cuando esto en un dbbrowse y pulso doble click
quiero hacer lo siguiente
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
selecionarExplo()
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
//---------------------------------------------------------- --------------------
function SelecionarExplo(oSender)

MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
return nil
EN EJECUCION DEL IDE ME DA EL SIGUIENTE ERROR
SELECIONAREXPLO(201)
Error BASE/1003 Variable does not exist: SELF
Argumentos: ()
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1003
Estado: .F.
Descripción: Variable does not exist
Operación: SELF
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
SELECIONAREXPLO (201)
TFEXPLOTA:DBBROWSE1DBLCLICK (193)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2035)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (20)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 6
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Si lo pongo asi no me da error, pero quiero hacerlo como arriba, me podeis decir como
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
--

[Xevi]

PILO,
::oParent:cText := "Nuevo título"
Un Saludo,
Xevi.
"PILO" <srmpilo@hotmail.com> ha escrit al missatge del grup de discussió:
4570431e$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
> Perdon funciona bien,
> Otra pregunta, como puedo actualizar los mismos pero desde una ventana
> hija
> sin salir de dicha ventana
>
> "José Luis Capel" <jose.luis@iaicom.com> escribió en el mensaje
> news:[email=4570425c@news.xailer.com...]4570425c@news.xailer.com...[/email]
>> Pilo,
>>
>>
>>> Muchas Gracias jose, lo habia intentado eso
>>
>>
>> ¿Como lo has hecho y no te ha salido? ¿Puedes mostrarnos algo de ese
>> código?
>>
>> Saludos,
>> José Luis Capel
>>
>>
>>
>
>

[Xevi]

PILO
SelecionarExplo... es una función, por lo tanto no puedes acceder a :: o sea self.
Debes enviarle el objeto que quieras trabajar en la función.
Para el caso, creo que te servirá...
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
selecionarExplo(oSender:oParent)
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
function SelecionarExplo(oSender)

MSGINFO(oSender:oDbfExplota1:NOMBRE)
TGRUPO_NIF = oSender:oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = oSender:oDbfExplota1:ANO // Aí‘O DE TRABAJO
return nil
Un saludo,
Xevi.
"PILO" <srmpilo@hotmail.com> ha escrit al missatge del grup de discussió: 4570441f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
cuando esto en un dbbrowse y pulso doble click
quiero hacer lo siguiente
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
selecionarExplo()
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
//---------------------------------------------------------- --------------------
function SelecionarExplo(oSender)

MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
return nil
EN EJECUCION DEL IDE ME DA EL SIGUIENTE ERROR
SELECIONAREXPLO(201)
Error BASE/1003 Variable does not exist: SELF
Argumentos: ()
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1003
Estado: .F.
Descripción: Variable does not exist
Operación: SELF
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
SELECIONAREXPLO (201)
TFEXPLOTA:DBBROWSE1DBLCLICK (193)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2035)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (20)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 6
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Si lo pongo asi no me da error, pero quiero hacerlo como arriba, me podeis decir como
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
--

[zeasoftware]

Puedes enviarle igual la variable SELF que hace referencia a la clase, y la usas en tu funcion.
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
selecionarExplo(Self)
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
//---------------------------------------------------------- --------------------
function SelecionarExplo(Self)

MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
return nil
Saludos.
--
Ramón Zea
ramonzea@yahoo.com
zeasoftware@hotmail.com
zeasoft.movil@hotmail.com
http://www.paginasprodigy.com/zeasoft/
"PILO" <srmpilo@hotmail.com> escribió en el mensaje news:4570441f$[email=1@news.xailer.com...]1@news.xailer.com...[/email]
cuando esto en un dbbrowse y pulso doble click
quiero hacer lo siguiente
EN EJECUCION DEL IDE ME DA EL SIGUIENTE ERROR
SELECIONAREXPLO(201)
Error BASE/1003 Variable does not exist: SELF
Argumentos: ()
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1003
Estado: .F.
Descripción: Variable does not exist
Operación: SELF
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
SELECIONAREXPLO (201)
TFEXPLOTA:DBBROWSE1DBLCLICK (193)
TDBBROWSE:ONDBLCLICK (0)
TDBBROWSE:WMLBUTTONDBLCLK (2035)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (20)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: EXPLOTA
Registro: 6
Filtro:
Relación:
Orden del í­ndice: 1
Clave activa: 1
Si lo pongo asi no me da error, pero quiero hacerlo como arriba, me podeis decir como
METHOD DBBrowse1DblClick( oSender, nKeys, nCol, nRow ) CLASS TFexplota
MSGINFO(::oDbfExplota1:NOMBRE)
TGRUPO_NIF = ::oDbfExplota1:GRUPO_NIF // GRUPO DE EXPLOTACION POR NIF
TANO = ::oDbfExplota1:ANO // Aí‘O DE TRABAJO
MSGINFO("VENTANA SELECCIONAR DOBLE CLICK "+ TNOMBRE)
::Close()
RETURN Nil
--