TSBrowse V.8.0

[mmercado]

Hola Amigos:

Después de 4 años sin actualizaciones, pongo a su disposición esta nueva versión a la que llamo 8.0 pero en realidad sería la 1.0 para FWH/(x)Harbour en 32 bits ya que he decidido suspender (por falta de tiempo) la compatibilidad con Clipper 16 bits.

En esta ocasión no habrá LoNuevo.txt o WhatsNew.txt ya que son tantas las modificaciones que le he hecho que la verdad ni las recuerdo.

Solamente mencionaré las que para mí son las más llamativas:

1- Transparencia, TSBrowse toma como fondo el fondo de la ventana o del diálogo al que pertenece, o bien de su propia imagen de fondo.

Ej. @ 0, 0 BROWSE oBrw of oDlg TRANSPARENT.....

2.- ToolTips para las Cabeceras de las columnas.

Ej. ADD COLUMN TO oBrw TITLE "ST" TOOLTIP "State"

3.- Conectividad con Excel. Ha sido para mí una gran ayuda para darle al usuario final una herramienta de extensión para la manipulación de la información mostrada por el browser.

ej. DEFINE BUTTON OF oBar ACTION oBrw:ExcelOle()

Actualmente estoy trabajando en la conexión ADO/TSBrowse, muy pronto tendrán noticias.

Espero que les sea de utilidad, aquí la pueden descargar:

http://hyperupload.com/download/022f125 ... E.zip.html

Manuel Mercado

[MauroArevalo]

Manuel:


Gracias por tu nuevo aporte a nuestra comunidad.

Que Dios te siga ilimuninando y dando Sabiduria e Inteligencia para seguir en la lucha.

¡GRACIAS¡

[Armando]

Maestro:

Muchas gracias.

Saludos

[EASYSOFT]

Gracias por todos esos aportes, estoy seguro que como yo habran muchos que estamos a la espera de ADO Y Tsbrowse

Una vez más gracias

Saludos
Oscar

[thefull]

Hola Amigos:
3.- Conectividad con Excel. Ha sido para mí una gran ayuda para darle al usuario final una herramienta de extensión para la manipulación de la información mostrada por el browser.

ej. DEFINE BUTTON OF oBar ACTION oBrw:ExcelOle()

Actualmente estoy trabajando en la conexión ADO/TSBrowse, muy pronto tendrán noticias.

Espero que les sea de utilidad, aquí la pueden descargar:

http://hyperupload.com/download/022f125 ... E.zip.html

Manuel Mercado

Que grande eres Maestro, y que alegria verte al pie de cañon otra vez.
Yo uso la TSbrowse muy parcheada por temas de los bugs que surgieron,
pero me gustaría saber de esta version 8.0

1.- Referente al excel, si el browse tiene SUPERHEADER, ¿ también se pasan al excel ?

2.- Si la celda es de un color determinado, ¿ se verá reflejado en el excel ?

3.- Los Headers pueden usar los themes del sistema, con la xBrowse ?

4.- A nivel de COMANDO, es compatible con la 7 ?

Será cuestión de hacer un hueco para ver como funciona.

[cmsoft]

Gracias Mestro, ya la estoy probando...

[ronaldo]

Excelente trabalho. não existe a possibilidade de adicionar o SUPERROW, ou seja, UM MERGE veja exemplo:

http://www.bazevani.com.br/ronaldo/brw.jpg

[Patricio Avalos Aguirre]

Muchas gracias maestro

en mis aplicaciones utilizo un 70% la Tsbrowse y el resto con la twBrowse de hernan


Maestro al colocar obr:Report ==> arroja error

lo he solucionado momentaneamente sacando la variable oFont

Code: Select all  Expand view  RUN

oRpt := RptBegin( {{||cTitle}}, { {||cHeader + ::aMsg[ 20 ] + Space( 1 ) + DToC( Date() ) + " - " + ;
                     ::aMsg[ 22 ] + Space( 1 ) + Time() } }, ;
                     { {|| cFooter + ::aMsg[ 21 ] + Str( oRpt:nPage, 3 ) } }, ;
                     /*If( oFont == Nil, Nil, {oFont} )*/,,,,,, lPreview,, oDevice, cCaption,,, "CENTER" )


[mmercado]

Hola Patricio:

En el método oBrw:Report() cambiaron varias cosas con respecto a la versión anterior.

Por favor muéstrame como estás llamando oBrw:Report() y el log del error.

Saludos

Manuel Mercado

[Patricio Avalos Aguirre]

Maestro

En el metodo redefine de la clase TSBrowse

Code: Select all  Expand view  RUN

   if bRclick = NIL
      ::bRClicked := { |nR,nC| Menu_TSB( nR, nC, Self ) }
   else
      ::bRClicked   = bRClick
   endif


Code: Select all  Expand view  RUN

#define _cvar Alltrim(cValToChar( EVal( oLbx:aColumns[ oLbx:nCell ]:bData ) ))
function Menu_TsB( nRow, nCol, oLbx )
   local oMenu, oClp

   DEFINE CLIPBOARD oClp OF oLbx FORMAT TEXT

   MENU oMenu POPUP 2007
      MENUITEM "Copiar"  ACTION ;
                  iif( oClp:Open(), (;
                                       oClp:Clear(),;
                                       oClp:SetText( _cvar ),;
                                       oClp:End(),;
                                       oMenu:End() ),;
                      MsgInfo( "El clipboard no esta habilitado por ahora", "Usuario" ) )


      MENUITEM "&Excel"              ACTION oLbx:ExcelOle()
      SEPARATOR
      MENUITEM "&Imprimir"              ACTION oLbx:Report()

   ENDMENU

   ACTIVATE POPUP oMenu AT nRow, nCol-1 OF oLbx

return( .t. )
//--------------------------------------------------------------------------------------------------------


Code: Select all  Expand view  RUN

ERROR.LOG
Application
===========
   Path and name: D:\Apl\PRGS\Carmona\dbf\wcta.exe (32 bits)
   Size: 4,110,848 bytes
   Time from start: 0 hours 0 mins 7 secs
   Error occurred at: 28/02/2008, 13:02:08
   Error description: Error BASE/1083  Error de argumento: *
   Args:
     [   1] = U   
     [   2] = N   600

Stack Calls
===========
   Called from: REPORT.PRG => (b)TREPORT:NEW(0)
   Called from:  => AEVAL(0)
   Called from: REPORT.PRG => TREPORT:NEW(0)
   Called from: PDREPORT.PRG => RPTBEGIN(0)
   Called from: TSBROWSE.PRG => TSBROWSE:REPORT(8303)
   Called from: General.PRG => (b)MENU_TSB(1076)
   Called from: MENU.PRG => TMENU:ACTIVATE(0)
   Called from: General.PRG => MENU_TSB(1080)
   Called from: TSBROWSE.PRG => (b)TSBROWSE:REDEFINE(889)
   Called from: TSBROWSE.PRG => TSBROWSE:RBUTTONDOWN(8130)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: CONTROL.prg => TCONTROL:HANDLEEVENT(1414)
   Called from: TSBROWSE.PRG => TSBROWSE:HANDLEEVENT(6141)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => DIALOGBOX(0)
   Called from: DIALOG.PRG => TDIALOG:ACTIVATE(0)
   Called from: CartProd.PRG => CARTOLAPROD(373)
   Called from: Wcta.PRG => (b)MAIN(78)
   Called from: TOOLBAR.PRG => TTOOLBAR:COMMAND(0)
   Called from: DIALOG.PRG => TDIALOG:COMMAND(0)
   Called from:  => TWINDOW:HANDLEEVENT(0)
   Called from: DIALOG.PRG => TDIALOG:HANDLEEVENT(0)
   Called from: WINDOW.PRG => _FWH(0)
   Called from:  => WINRUN(0)
   Called from: WINDOW.PRG => TMDIFRAME:ACTIVATE(0)
   Called from: Wcta.PRG => MAIN(215)

Pero si le saco la la variable oFont funciona muy bien

[mmercado]

Hola Patricio:

Mis pruebas las he realizado con las versiones FWH 7.12 a 8.02 y no logro reproducir el error que comentas.

El programa de prueba SBTest usa el método oBrw:Report() (así sin parámetros) y a mí me funciona correctamente.

Cual versión de FWH estás usando ?
Estás usando la versión original de Report.prg ?
Estás usando \TSBrowse\Include\TSBrowse.ch de la V.8.0 ?

Saludos

Manuel Mercado

[Kleyber]

Hola Patricio,

Estas usando la RepExcel en tus reportes? Si la tienes, debes sacarla y probar nuevamente con TSbrowse.

Saludos,

[Patricio Avalos Aguirre]

Revisando, estoy utilizandolo asi

Code: Select all  Expand view  RUN

REDEFINE BROWSE oLbx GRID ALIAS "CPROTMP" ;
        COLORS CLR_BLACK, RGB( 255, 255, 235) ;
        ID 103 OF oDlg;
        ON DBLCLICK Detalle()

oLbx:nHeightCell += 2  //filas
oLbx:nHeightHead += 6  //columnas

oLbx:SetColor( { 9, 10 }, { CLR_BLACK, oBrush } )  // brushed Footers background
oLbx:SetColor( { 5, 6, 4, 15 }, ;
               { CLR_WHITE, CLR_BLACK, ; // cursor
                 oBrush,               ; // brushed headers background
                 CLR_BLACK },          ; // grid lines
                 NIL )
oLbx:lNoMoveCols := .t.
oLbx:lNoHScroll := .t.

ADD COLUMN TO BROWSE oLbx DATA oLbx:nAt      ;
      TITLE "Item"                            ;
      SIZE 40 PIXELS                         ;
      3DLOOK TRUE,TRUE,FALSE                   ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER      ;
      COLORS CLR_BLACK, CLR_HGRAY//RGB( 255, 255, 235)

ADD COLUMN TO BROWSE oLbx DATA CProTmp->Fecha    ;
      TITLE "Fecha"                               ;
      SIZE 76 PIXELS                            ;
      3DLOOK TRUE,TRUE,FALSE                      ;
      ALIGN DT_CENTER,DT_CENTER,DT_CENTER         ;
      COLORS CLR_BLACK, RGB( 255, 255, 235)


pero cuando reviso report de fwh me da lo siguiente

val:Classname() = "TFONT"
val:nWidth == NIL
val:nHeight== 13
val:cfacename == Ms San Serif

ahi el error nWidth

Code: Select all  Expand view  RUN

AEval( aFont,;
          { | val, elem | ;
          ::aFont[elem]:= TFont():New( val:cFaceName,;
          Int( val:nWidth* ::nLogPixX / 72 ),;
          Int( val:nHeight* ::nLogPixY / 72 ),;
          .f.,;
          val:lBold,;
          val:nEscapement,;
          val:nOrientation,;
          val:nWeight,;
          val:lItalic,;
          val:lUnderline,;
          val:lStrikeOut,;
          val:nCharSet,;
          val:nOutPrecision,;
          val:nClipPrecision,;
          val:nQuality ) } )

[mantonio_08]

Maestro, nuevamente muchas gracias por todos sus aportes, que engrandecen nuestras aplicaciones.

Saludos,
Antonio

[ruben Dario]

Hola Amigos:

Después de 4 años sin actualizaciones, pongo a su disposición esta nueva versión a la que llamo 8.0 pero en realidad sería la 1.0 para FWH/(x)Harbour en 32 bits ya que he decidido suspender (por falta de tiempo) la compatibilidad con Clipper 16 bits.

En esta ocasión no habrá LoNuevo.txt o WhatsNew.txt ya que son tantas las modificaciones que le he hecho que la verdad ni las recuerdo.

Solamente mencionaré las que para mí son las más llamativas:

1- Transparencia, TSBrowse toma como fondo el fondo de la ventana o del diálogo al que pertenece, o bien de su propia imagen de fondo.

Ej. @ 0, 0 BROWSE oBrw of oDlg TRANSPARENT.....

2.- ToolTips para las Cabeceras de las columnas.

Ej. ADD COLUMN TO oBrw TITLE "ST" TOOLTIP "State"

3.- Conectividad con Excel. Ha sido para mí una gran ayuda para darle al usuario final una herramienta de extensión para la manipulación de la información mostrada por el browser.

ej. DEFINE BUTTON OF oBar ACTION oBrw:ExcelOle()

Actualmente estoy trabajando en la conexión ADO/TSBrowse, muy pronto tendrán noticias.

Espero que les sea de utilidad, aquí la pueden descargar:

http://hyperupload.com/download/022f125 ... E.zip.html

Manuel Mercado

Para Manuel, hice la pruebas perfecto, te pregunto solamente funciona don tablas DBF , estoy probando manejando el ADORR

USE test00 VIA "ADORDD" TABLE "ACCOUNTS" MYSQL ;
FROM "www.freesql.org" USER "myuser" PASSWORD "mypass"


Pero me genera error, al ejecutarlo. No se si tienes un ejemplo