Error con TSBAR y Preview

Post Reply
RMC
Posts: 47
Joined: Wed Apr 05, 2006 7:42 pm

Error con TSBAR y Preview

Post by RMC »

HOla,

tengo un sistema que funcionaba perfectamente todo.

Le quise poner los botones grandes debajo del menu con TSBAR pero cuando quiero imprimir un preview me marca el siguiente error:

Called from: tobject.prg => TSBAR:ERROR(172)
Called from: tobject.prg => TSBAR:MSGNOTFOUND(205)
Called from: tobject.prg => TSBAR:L2007(0)
Called from: rPreview.prg => TPREVIEW:BUILDBUTTONBAR(248)
Called from: rPreview.prg => TPREVIEW:BUILDWINDOW(406)
Called from: rPreview.prg => TPREVIEW:NEW(121)
Called from: rPreview.prg => RPREVIEW(1440)
Called from: PRINTER.PRG => (b)TPRINTER:TPRINTER(0)
Called from: => TPRINTER:PREVIEW(0)
Called from: PRINTER.PRG => PRINTEND(0)
Called from: REPORTES.PRG => REPFAC1(154)
Called from: PVENTA.PRG => ACREPORTFAC(2983)
Called from: PVENTA.PRG => (b)REPORTESREM(2913)
Called from: BUTTON.PRG => TBUTTON:CLICK(0)
Called from: CONTROL.PRG => TBUTTON:HANDLEEVENT(0)
Called from: window.prg => _FWH(3252)
Called from: => SENDMESSAGE(0)
Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
Called from: => DIALOGBOX(0)
Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
Called from: PVENTA.PRG => REPORTESREM(2917)
Called from: RAFAELOS.PRG => (b)BUILDMENU(265)
Called from: MENU.PRG => TMENU:COMMAND(0)
Called from: window.prg => TWINDOW:COMMAND(977)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: window.prg => _FWH(3252)
Called from: => WINRUN(0)
Called from: window.prg => TWINDOW:ACTIVATE(926)
Called from: RAFAELOS.PRG => MAIN(147)


LE QUITO EL TSBAR Y TODO FUNCIONA BIEN.... QUE PODRA SER ? GRACIAS
User avatar
RenOmaS
Posts: 205
Joined: Fri Oct 07, 2005 5:07 pm

Post by RenOmaS »

RMC
Posts: 47
Joined: Wed Apr 05, 2006 7:42 pm

Post by RMC »

Gracias por contestar pero en esa liga no dicen como solucionar el problema.

Alguien mas ?
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Error con TSBAR y Preview

Post by mmercado »

RMC wrote:LE QUITO EL TSBAR Y TODO FUNCIONA BIEN.... QUE PODRA SER ? GRACIAS
Muéstranos por favor mensaje de error (no las llamadas) y la línea de tu código donde defines la TSBar.

Saludos.

Manuel Mercado
RMC
Posts: 47
Joined: Wed Apr 05, 2006 7:42 pm

Post by RMC »

Gracias Manuel,

asi defino la barra:

Define Font oFontEm Name "Ms Sans Serif" Size 6 ,6

Define SButtonBar oBar Size 100,80 Of ownd Top Color {nRgb(248,211, 86),nRgb(132,112, 32)};
Font oFont
Define Cursor oHand HAND


Define SButton obotbarra[1] RESOURCE "salir" Of oBar ;
PROMPT "&Salir" ;
Text 3 ;
FONT oFont ;
ACTION ownd:end() ;
MESSAGE "Salir del sistema";
TOOLTIP "Salir del sistema";
Color nRgb(0,0,0),{CLR_GRAY,CLR_WHITE,1}

Define SButton obotbarra[2] RESOURCE "pizza" Of oBar ;
PROMPT "&Punto de Venta" ;
Text 3 ;
FONT oFont ;
ACTION pventa() ;
MESSAGE "Punto de Venta";
TOOLTIP "Punto de Venta";
Color nRgb(0,0,0),{CLR_GRAY,CLR_WHITE,1}


Define SButton obotbarra[3] RESOURCE "repart" Of oBar ;
PROMPT "&Asignar Repartidor" ;
Text 3 ;
FONT oFont ;
ACTION asignarep() ;
MESSAGE "Asignar pedido a repartidor";
TOOLTIP "Asignar pedido a repartidor";
Color nRgb(0,0,0),{CLR_GRAY,CLR_WHITE,1}


Define SButton obotbarra[4] RESOURCE "pedidos" Of oBar ;
PROMPT "&Cancelar Pedidos" ;
Text 3 ;
FONT oFont ;
ACTION BRWPEDIDOS() ;
MESSAGE "Cancelar / descuentos en Pedidos";
TOOLTIP "Cancelar / descuentos en Pedidos";
Color nRgb(0,0,0),{CLR_GRAY,CLR_WHITE,1}

y el error:


Application
===========
Path and name: C:\fwh\rafaelos\rafaelos.Exe (32 bits)
Size: 690,688 bytes
Time from start: 0 hours 0 mins 8 secs
Error occurred at: 08/07/2008, 11:47:53
Error description: Error BASE/1004 Message not found: TSBAR:L2007

Stack Calls
===========
Called from: tobject.prg => TSBAR:ERROR(172)


Gracias
User avatar
Ricardo Ramirez E.
Posts: 161
Joined: Wed Jan 25, 2006 10:45 am
Location: Praia - Cape Verde
Contact:

Post by Ricardo Ramirez E. »

... has probado cambiando el orden de los archivos de cabecera?
#include fivewin.ch y el de la TSBAR de MM


Saludos.!
Saludos
Ricardo R.
xHarbour 1.1.0 Simplex , Microsoft Visual Studio 2008, Bcc55, Fwh Build. 9.01
RMC
Posts: 47
Joined: Wed Apr 05, 2006 7:42 pm

Post by RMC »

Gracias Ricardo pero da el mismo error

Rene
User avatar
mmercado
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Re: Error con TSBAR y Preview

Post by mmercado »

RMC wrote:LE QUITO EL TSBAR Y TODO FUNCIONA BIEN.... QUE PODRA SER ? GRACIAS
Revisé TPreview y efectivamente se trata de un bug en dicha clase al suponer que todas las ButtonBar son de la clase TBar, para corregir el problema sin modificar los programas originales de FiveWin, te recomiendo que agregues la siguiente línea en la sección de definición de DATAS de TSBar.prg:

DATA l2007 AS LOGICAL INIT .F.

Una vez hecho esto, vuelves a generar la SButtonx.lib y asunto resuelto.

Saludos

Manuel Mercado
RMC
Posts: 47
Joined: Wed Apr 05, 2006 7:42 pm

Post by RMC »

gracias manuel... lo voy a revisar
Post Reply