topic-45576

Board index FiveWin para Harbour/xHarbour Consulta sobre XBrowser

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Consulta sobre XBrowser
Posted: Fri Mar 28, 2025 12:16 PM

Un saludo, gente del foro.

Tengo una consulta o sugerencia sobre xbrowser.

Concretamente de la generación de la excel.

¿ Es posible usar el título del xbrowser como el Encabezado de la excel ?

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Consulta sobre XBrowser
Posted: Fri Mar 28, 2025 06:16 PM

Buenas tardes, ¿a través de este ejemplo puedes demostrar lo que realmente quieres?

Code: Select all Collapse

// C:\FWH\SAMPLES\OSCARXLS.PRG

#include 'FiveWin.ch'
#include 'xBrowse.ch'

FUNCTION Main()

   LOCAL oWnd, oBar, oBrw, nTotal := 0
   /*
   A. American format: "999,999,999.99"
   E. European format: "999.999.999,99"
   I. Indian   format: "99,99,999.99"
   */

   FwNumFormat( 'E', .T. )  // European Format

   IF FILE( "TESTXLS.DBF" )

      DELETEFILE( "TESTXLS.DBF" )

   ENDIF

   dbCreate( "TESTXLS", { { "DESCRIP", "C", 010, 000 }, ;
                          { "VALOR1 ", "N", 010, 001 }, ;
                          { "VALOR2 ", "N", 010, 002 }, ;
                          { "VALOR3 ", "N", 010, 003 }, ;
                          { "VALOR4 ", "N", 010, 004 }, ;
                          { "VALOR5 ", "N", 010, 005 } } )

   USE TESTXLS NEW ALIAS TESTXLS
   GO TOP

   FOR nTotal = 1 TO 33

      APPEND BLANK

      REPLACE DESCRIP WITH "Linea " + StrZero( nTotal, 2 )

      REPLACE VALOR1 WITH 99999 * nTotal / 777
      REPLACE VALOR2 WITH 99999 * nTotal / 777
      REPLACE VALOR3 WITH 99999 * nTotal / 777
      REPLACE VALOR4 WITH 99999 * nTotal / 777
      REPLACE VALOR5 WITH 99999 * nTotal / 777

      COMMIT

   NEXT

   GO TOP

   DEFINE WINDOW oWnd

   DEFINE BUTTONBAR oBar OF oWnd SIZE 80, 32 2007

   DEFINE BUTTON OF oBar PROMPT 'Para &Excel'         ;
      ACTION MsgMeter( {| oMeter, oText, oDlg, lEnd | ;
      Export2Excel( oBrw, oMeter, oText, oDlg, @lEnd ) } )

   DEFINE BUTTON OF oBar PROMPT '&Salida' ACTION( WndMain():End() )

   SET MESSAGE OF oWnd TO '' 2007

   @ 0, 0 XBROWSE oBrw OF oWnd ALIAS 'TESTXLS' AUTOCOLS CELL LINES

   oBrw:aCols[ 2 ]:bFooter = {|| Transform( Field->VALOR1, "@E 9.999.999,99" ) }
   oBrw:aCols[ 3 ]:bFooter = {|| Transform( Field->VALOR2, "@E 9.999.999,99" ) }
   oBrw:aCols[ 4 ]:bFooter = {|| Transform( Field->VALOR3, "@E 9.999.999,99" ) }
   oBrw:aCols[ 5 ]:bFooter = {|| Transform( Field->VALOR4, "@E 9.999.999,99" ) }
   oBrw:aCols[ 6 ]:bFooter = {|| Transform( Field->VALOR5, "@E 9.999.999,99" ) }

   oBrw:MakeTotals()
   oBrw:refresh()

   oBrw:CreateFromCode()

   oWnd:oClient      := oBrw

   ACTIVATE WINDOW oWnd MAXIMIZED

   CLOSE DATA

RETURN NIL

STATIC FUNCTION Export2Excel( oBrw, oMeter, oText, oDlg, lEnd )

   oBrw:ToExcel( {| n, t | oMeter:nTotal := t, ;
                           oMeter:Set( n ),    ;
   oText:SetText( Str( n ) + '/' + Str( t ) ), ;
   oDlg:Update(), .T. } )

RETURN NIL

// FIN / END - kapiabafwh@gmail.com

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

JoseAlvarez

Posts: 851

Joined: Sun Nov 09, 2014 05:01 PM

Re: Consulta sobre XBrowser
Posted: Fri Mar 28, 2025 10:01 PM

jose_murugosa wrote: Un saludo, gente del foro.

Tengo una consulta o sugerencia sobre xbrowser.
Concretamente de la generación de la excel.

¿ Es posible usar el título del xbrowser como el Encabezado de la excel ?

Hola José.
No se si será lo que buscas.

Code: Select all Collapse

local oBrw
local aTitCols

   aTitCols := { "Kardex", "Descripcion", "codeArtic", "FechaMov", "Doc", "cantMov", "Razon Social", "Tipo Mov", "Exist", "Exist_K", "Status"}

   XBrowser aKardex TITLE "Kardex" ;
   Setup ( oBrw:cHeaders   := aTitCols)

"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: Consulta sobre XBrowser
Posted: Mon Mar 31, 2025 09:15 AM

La pregunta es si es posible que si yo hago un xbrowser con el título 'Listado de ventas de xfecha'

Si es posible que al presionar el botón para generar una excel que EN LA EXCEL coloque una primera línea con el título 'Listado de ventas de xfecha' y debajo de ese título entonces si poner los titulos de las columnas que yo haya establecido para el browse.

Espero esté más claro ahora.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Consulta sobre XBrowser
Posted: Mon Mar 31, 2025 06:34 PM

Jose, no se contempla actualmente esa posibilidad, pero se intentará implementar para futuras versiones

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: Consulta sobre XBrowser
Posted: Tue Apr 01, 2025 02:51 PM

cnavarro wrote: Jose, no se contempla actualmente esa posibilidad, pero se intentará implementar para futuras versiones

Gracias por tu respuesta Cristóbal,
Me parece que sería como la frutilla de la torta para xbrowse, porque permitiría sacar reportes simples con un título.
Ojalá se pueda implementar en una próxima versión.

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

Enrrique Vertiz

Posts: 582

Joined: Fri Oct 07, 2005 02:17 PM

Re: Consulta sobre XBrowser
Posted: Sat Apr 12, 2025 10:36 AM

Saludos Estimados

No se con cuantos registros los han probado, tengo algunos casos con 500,000 registros para exportar, pero con este ejemplo, cerca de los 140,000 sale este error: Error Excel.Application:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: PASTE

Uso el ultimo FW con Bcc77 y el ultimo xHb, la maquina tiene 32gb de RAM, alguna idea ??

Aqui el error completo

pplication

===========

Path and name: D:\Fwh\Fwh2501\samples\oscarxlsx.exe (32 bits)

Size: 4,240,896 bytes

Compiler version: xHarbour 1.3.1 Intl. (SimpLex) (Build 20250226)

FiveWin version: FWH 25.01

C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)

Windows 11 64 Bits, version: 6.2, Build 9200

Time from start: 0 hours 2 mins 0 secs

Error occurred at: 04/12/25, 04:45:09

Error description: Error Excel.Application:ACTIVESHEET/3 DISP_E_MEMBERNOTFOUND: PASTE

Args:

Stack Calls

===========

Called from: => TOLEAUTO:PASTE( 0 )

Called from: .\source\classes\xbrowse.prg => TXBROWSE:TOEXCEL( 11119 )

Called from: oscarxlsx.prg => EXPORT2EXCEL( 89 )

Called from: oscarxlsx.prg => (b)MAIN( 57 )

Called from: .\source\function\msgmeter.prg => (b)MSGMETER( 28 )

Called from: .\source\classes\dialog.prg => (b)TDIALOG:TDIALOG( 101 )

Called from: => TDIALOG:DISPLAY( 0 )

Called from: .\source\classes\dialog.prg => TDIALOG:HANDLEEVENT( 1234 )

Called from: => DIALOGBOXINDIRECT( 0 )

Called from: .\source\classes\dialog.prg => TDIALOG:ACTIVATE( 325 )

Called from: .\source\function\msgmeter.prg => MSGMETER( 31 )

Called from: oscarxlsx.prg => (b)MAIN( 57 )

Called from: .\source\classes\btnbmp.prg => TBTNBMP:CLICK( 816 )

Called from: .\source\classes\btnbmp.prg => TBTNBMP:LBUTTONUP( 1103 )

Called from: .\source\classes\control.prg => TCONTROL:HANDLEEVENT( 1867 )

Called from: .\source\classes\btnbmp.prg => TBTNBMP:HANDLEEVENT( 2145 )

Called from: .\source\classes\window.prg => _FWH( 1008 )

Called from: => WINRUN( 0 )

Called from: .\source\classes\window.prg => TWINDOW:ACTIVATE( 1137 )

Called from: oscarxlsx.prg => MAIN( 78 )

Enrrique Vertiz Pitta

Lima-Peru

xHb 1.23.1026X, Fwh 25.01, BCC74, MySQL 8.0.X, SQLLIB 1.9m

FiveTech Support Forums

Continue the discussion