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
>>
>>
>
>
--