FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Error con TSBAR y Preview
Posts: 47
Joined: Wed Apr 05, 2006 07:42 PM
Error con TSBAR y Preview
Posted: Tue Jul 08, 2008 06:55 PM

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

Posts: 205
Joined: Fri Oct 07, 2005 05:07 PM
Error con TSBAR y Preview
Posted: Tue Jul 08, 2008 07:15 PM
Saludos/regards

RenOmaS



skype: americo.balboa
Posts: 47
Joined: Wed Apr 05, 2006 07:42 PM
Error con TSBAR y Preview
Posted: Tue Jul 08, 2008 08:09 PM

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

Alguien mas ?

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Error con TSBAR y Preview
Posted: Tue Jul 08, 2008 08:31 PM
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
manuelmercado at prodigy dot net dot mx
Posts: 47
Joined: Wed Apr 05, 2006 07:42 PM
Error con TSBAR y Preview
Posted: Tue Jul 08, 2008 10:39 PM

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

Posts: 161
Joined: Wed Jan 25, 2006 10:45 AM
Error con TSBAR y Preview
Posted: Wed Jul 09, 2008 12:26 AM

... 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
Posts: 47
Joined: Wed Apr 05, 2006 07:42 PM
Error con TSBAR y Preview
Posted: Wed Jul 09, 2008 03:35 PM

Gracias Ricardo pero da el mismo error

Rene

Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Error con TSBAR y Preview
Posted: Wed Jul 09, 2008 05:05 PM
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
manuelmercado at prodigy dot net dot mx
Posts: 47
Joined: Wed Apr 05, 2006 07:42 PM
Error con TSBAR y Preview
Posted: Wed Jul 09, 2008 07:53 PM

gracias manuel... lo voy a revisar

Continue the discussion