TSBrowse V.8.0

TSBrowse V.8.0

Postby mmercado » Wed Feb 27, 2008 4:14 am

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby MauroArevalo » Wed Feb 27, 2008 4:10 pm

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¡
Edgar Mauricio Arévalo Mogollón.
Bogotá DC. Colombia
FWH FTDN, xHarbour 1.2.1, Pelles C, Fivedit, Visual Studio Code, Borland 7.30, Mysql, Dbfs
http://www.hymplus.com http://www.hymlyma.com
Tratando de retomar la programación....
User avatar
MauroArevalo
 
Posts: 107
Joined: Thu Jan 19, 2006 11:47 pm
Location: Bogota DC. Colombia

Postby Armando » Wed Feb 27, 2008 4:56 pm

Maestro:

Muchas gracias.

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
User avatar
Armando
 
Posts: 3235
Joined: Fri Oct 07, 2005 8:20 pm
Location: Toluca, México

Postby EASYSOFT » Wed Feb 27, 2008 7:33 pm

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
Saludos
Oscar
Fwh 10.4, bcc55
EASYSOFT
 
Posts: 189
Joined: Sat Oct 22, 2005 1:17 pm
Location: Quito - Ecuador

Re: TSBrowse V.8.0

Postby thefull » Thu Feb 28, 2008 8:44 am

mmercado wrote: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.
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Postby cmsoft » Thu Feb 28, 2008 9:15 am

Gracias Mestro, ya la estoy probando...
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Postby ronaldo » Thu Feb 28, 2008 12:24 pm

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
User avatar
ronaldo
 
Posts: 139
Joined: Fri Nov 25, 2005 4:38 pm
Location: brasil

Postby Patricio Avalos Aguirre » Thu Feb 28, 2008 1:11 pm

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" )
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby mmercado » Thu Feb 28, 2008 2:59 pm

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby Patricio Avalos Aguirre » Thu Feb 28, 2008 3:56 pm

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
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby mmercado » Thu Feb 28, 2008 6:07 pm

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
User avatar
mmercado
 
Posts: 782
Joined: Wed Dec 19, 2007 7:50 am
Location: Salamanca, Gto., México

Postby Kleyber » Thu Feb 28, 2008 6:56 pm

Hola Patricio,

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

Saludos,
Kleyber Derick

FWH / xHb / xDevStudio / SQLLIB
User avatar
Kleyber
 
Posts: 581
Joined: Tue Oct 11, 2005 11:28 am
Location: São Luiz, Brasil

Postby Patricio Avalos Aguirre » Thu Feb 28, 2008 7:42 pm

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 ) } )
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
User avatar
Patricio Avalos Aguirre
 
Posts: 1060
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile

Postby mantonio_08 » Thu Feb 28, 2008 8:12 pm

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

Saludos,
Antonio
mantonio_08
 
Posts: 330
Joined: Fri May 25, 2007 9:06 pm

Re: TSBrowse V.8.0

Postby ruben Dario » Wed Mar 12, 2008 9:49 pm

mmercado wrote: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
User avatar
ruben Dario
 
Posts: 1070
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 52 guests

cron