In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Cambiar cabecera formulario

Foro de Xailer profesional en español
Responder
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Cambiar cabecera formulario

Mensaje por pacoelche »

Estoy intentando cambiar el texto de la cabecera de un formulario (banda
azul superior) y no lo consigo.
Por ejemplo pongo ::formulario:cText="TEXTO CABECERA"
y el programa me lanza el error
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: BUSCADOR:BUSCADOR
Argumentos:
Fichero:
Código error SO: 0
¿Donde está el fallo y como se hace?
Un saludo y gracias anticipadas
Francisco Martínez
pacoelche@hotmail.com
Arriba
Avatar de Usuario
ignacio
Site Admin
Mensajes: 9457
Registrado: Lun Abr 06, 2015 8:00 pm
Ubicación: Madrid, Spain
Contactar:
Contactar ignacio

Cambiar cabecera formulario

Mensaje por ignacio »

Francisco,
Mandanos un pequeño ejemplo que reproduzca el error. Gracias.
Un saludo,
--
Ignacio Ortiz de Zúñiga
http://www.xailer.com
"Francisco Martínez García" <pacoelche@hotmail.com> escribió en el mensaje
news:[email=462de742@ozsrv2.ozlan.local...]462de742@ozsrv2.ozlan.local...[/email]
> Estoy intentando cambiar el texto de la cabecera de un formulario (banda
> azul superior) y no lo consigo.
>
> Por ejemplo pongo ::formulario:cText="TEXTO CABECERA"
>
> y el programa me lanza el error
>
> Subsistema: BASE
> Código de error: 1004
> Estado: .F.
> Descripción: Message not found
> Operación: BUSCADOR:BUSCADOR
> Argumentos:
> Fichero:
> Código error SO: 0
>
> ¿Donde está el fallo y como se hace?
>
> Un saludo y gracias anticipadas
>
> Francisco Martínez
> pacoelche@hotmail.com
>
>
Ignacio Ortiz de Zúñiga
[OZ Software]
https://www.ozs.es
--
[Equipo de Xailer / Xailer team]
https://www.xailer.com
Arriba
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Cambiar cabecera formulario

Mensaje por pacoelche »

En rojo te muestra la lí­nea donde se produce el error. Después en azul muestro las lí­neas completas del error.
/*
* Proyecto: PRACTICAS
* Fichero: BUSCADOR.prg
* Descripción:
* Autor:
* Fecha: 20/02/2007
*/
#include "Xailer.ch"
CLASS BUSCADOR FROM TForm
COMPONENT oBotonSalir
COMPONENT oBrowse
COMPONENT oBrowseColumn1
COMPONENT oBrowseColumn2
COMPONENT oLabel1
COMPONENT oBuscar
COMPONENT oLabel2
COMPONENT oOrdenarPor
COMPONENT oLabel3
COMPONENT oLabel4
METHOD CreateForm()
METHOD FormInitialize( oSender )
METHOD BotonSalirClick( oSender )
METHOD BrowseColumn1DataDblClick( oSender, nFlags, nPosX, nPosY )
METHOD BuscarChange( oSender )
METHOD OrdenarPorChange( oSender, nIndex, nOldIndex )
METHOD OrdenarPorCodigo( oSender, nFlags, nPosX, nPosY )
METHOD OrdenarPorNombre( oSender, nFlags, nPosX, nPosY )
METHOD BuscarChar( oSender, nKey, nFlags )
ENDCLASS
#include "BUSCADOR.xfm"
//---------------------------------------------------------- --------------------
METHOD FormInitialize( oSender ) CLASS BUSCADOR
RECUERDA=RECNO()
SET ORDER TO TAG CLAVE2
GO TOP
SET SOFTSEEK ON
::oBrowse:SetDbf(FICHERO_ACTIVO)
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD BotonSalirClick( oSender ) CLASS BUSCADOR
RETORNO=0
SET SOFTSEEK OFF
SET ORDER TO TAG CLAVE1
GO RECUERDA
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD BrowseColumn1DataDblClick( oSender, nFlags, nPosX, nPosY ) CLASS BUSCADOR
RETORNO=RECNO()
SET SOFTSEEK OFF
SET ORDER TO TAG CLAVE1
::CLOSE()
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD BuscarChange( oSender ) CLASS BUSCADOR
seek ::oBuscar:Value()
::oBrowse:refresh()
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD BuscarChar( oSender, nKey, nFlags ) CLASS BUSCADOR
IF nKey=13
::BrowseColumn1DataDblClick()
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD OrdenarPorChange( oSender, nIndex, nOldIndex ) CLASS BUSCADOR
IF ::oOrdenarPor:nIndex=1
SET ORDER TO TAG CLAVE1
ELSE
SET ORDER TO TAG CLAVE2
ENDIF
GO TOP
::oBrowse:refresh()
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD OrdenarPorCodigo( oSender, nFlags, nPosX, nPosY ) CLASS BUSCADOR
SET ORDER TO TAG CLAVE1
GO TOP
::oBrowse:refresh()
::oOrdenarPor:nIndex=1
RETURN Nil
//---------------------------------------------------------- --------------------
METHOD OrdenarPorNombre( oSender, nFlags, nPosX, nPosY ) CLASS BUSCADOR
SET ORDER TO TAG CLAVE2
GO TOP
::oBrowse:refresh()
::oOrdenarPor:nIndex=2
if fichero_activo="PRUEBAS"
::BUSCADOR:cText="Buscando en Pruebas"
ENDIF
RETURN Nil
//---------------------------------------------------------- --------------------
El mensaje exacto del error es
***************************** Registro de errores *****************************
Fecha: 24-04-2007
Hora: 13:37:27
Memoria libre: 108976
Area actual: 1
------------------------- Información del compilador --------------------------
Versión Xailer: Xailer 1.3.3 Version 1.3c
Compilador: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
Compilador C/C++: Borland C++ 5.5.1
Plataforma: Windows XP Professional 5.01.2600 Service Pack 2
----------------------- Información detallada del error -----------------------
Subsistema: BASE
Código de error: 1004
Estado: .F.
Descripción: Message not found
Operación: BUSCADOR:BUSCADOR
Argumentos:
Fichero:
Código error SO: 0
Pila de llamadas:
BUSCADOR:ORDENARPORNOMBRE (110)
TDBFBRWCOLUMN:ONHEADERCLICK (0)
TDBFBRWCOLUMN:HEADERCLICK (1001)
__OBJSENDMSG (0)
(b)XBROWSE_GENHEADERBLOCK (499)
THEADERITEM:ONCLICK (0)
THEADER:NOTIFY (0)
TDBFBROWSE:WMNOTIFY (0)
BUSCADOR:SHOWMODAL (0)
CDX:BOTONBUSCAR (388)
TEDITBTN:ONBTNCLICK (0)
TEDITBTN:CLICK (152)
TEDITBTN:XACLICK (139)
TMASKEDIT:WMLBUTTONUP (0)
TEDITBTN:WMLBUTTONUP (130)
CDX:SHOWMODAL (0)
PRINCIPAL:MENU1ITEM1_1CLICK (63)
TMENUITEM:ONCLICK (0)
TMENU:DOACTION (227)
TMENU:DOACTION (232)
PRINCIPAL:WMCOMMAND (883)
RUNFORM (0)
TAPPLICATION:RUN (208)
MAIN (15)
------------------ Información detallada de áreas de trabajo ------------------
Area: 1
Alias: PRUEBAS
Registro: 31
Filtro:
Relación:
Orden del í­ndice: 2
Clave activa: 2
"Ignacio Ortiz de Zúñiga" <NoName@xailer.com> escribió en el mensaje news:462de9e5$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Francisco,
>
> Mandanos un pequeño ejemplo que reproduzca el error. Gracias.
>
> Un saludo,
>
> --
> Ignacio Ortiz de Zúñiga
> http://www.xailer.com
>
>
> "Francisco Martí­nez Garcí­a" <pacoelche@hotmail.com> escribió en el mensaje
> news:[email=462de742@ozsrv2.ozlan.local...]462de742@ozsrv2.ozlan.local...[/email]
>> Estoy intentando cambiar el texto de la cabecera de un formulario (banda
>> azul superior) y no lo consigo.
>>
>> Por ejemplo pongo ::formulario:cText="TEXTO CABECERA"
>>
>> y el programa me lanza el error
>>
>> Subsistema: BASE
>> Código de error: 1004
>> Estado: .F.
>> Descripción: Message not found
>> Operación: BUSCADOR:BUSCADOR
>> Argumentos:
>> Fichero:
>> Código error SO: 0
>>
>> ¿Donde está el fallo y como se hace?
>>
>> Un saludo y gracias anticipadas
>>
>> Francisco Martí­nez
>> pacoelche@hotmail.com
>>
>>
>
>
--
Arriba
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:
Contactar jfgimenez

Cambiar cabecera formulario

Mensaje por jfgimenez »

Francisco,
::BUSCADOR:cText="Buscando en Pruebas"
Sólo tienes que poner:
::cText := "Buscando en Pruebas"
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Arriba
pacoelche
Mensajes: 141
Registrado: Mar Jul 11, 2006 10:32 am

Cambiar cabecera formulario

Mensaje por pacoelche »

Funciona perfectamente.
Gracias
pacoelche@hotmail.com
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje news:462dee25$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
Francisco,
::BUSCADOR:cText="Buscando en Pruebas"
Sólo tienes que poner:
::cText := "Buscando en Pruebas"
--
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info
--
Arriba
Responder

Volver a “Xailer Pro Spanish”