Consulta sobre XBrowser

[jose_murugosa]

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 ?

[karinha]

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

Code: Select all | Expand

// 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.

[JoseAlvarez]

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 | Expand

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)

[jose_murugosa]

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.

[cnavarro]

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

[jose_murugosa]

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.

[Enrrique Vertiz]

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 )