Error con TSBAR y Preview

[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

[RenOmaS]

http://www.forums.fivetechsoft.com/view ... sbar+l2007

Saludos

[RMC]

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

Alguien mas ?

[mmercado]

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]

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

[Ricardo Ramirez E.]

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


Saludos.!

[RMC]

Gracias Ricardo pero da el mismo error

Rene

[mmercado]

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]

gracias manuel... lo voy a revisar