Page 1 of 1

Error con TSBAR y Preview

Posted: Tue Jul 08, 2008 6:55 pm
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

Posted: Tue Jul 08, 2008 7:15 pm
by RenOmaS

Posted: Tue Jul 08, 2008 8:09 pm
by RMC
Gracias por contestar pero en esa liga no dicen como solucionar el problema.

Alguien mas ?

Re: Error con TSBAR y Preview

Posted: Tue Jul 08, 2008 8:31 pm
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

Posted: Tue Jul 08, 2008 10:39 pm
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

Posted: Wed Jul 09, 2008 12:26 am
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.!

Posted: Wed Jul 09, 2008 3:35 pm
by RMC
Gracias Ricardo pero da el mismo error

Rene

Re: Error con TSBAR y Preview

Posted: Wed Jul 09, 2008 5:05 pm
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

Posted: Wed Jul 09, 2008 7:53 pm
by RMC
gracias manuel... lo voy a revisar