FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Desactivar Botones en xBrowse
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 05:35 PM
Saludos amigos y colegas

Hace días consulté por acá como podría pasar los resultados de una consulta MySql a Excel.
El amigo César de CMSOFT, me sugirió que la manera más fácil y rápida era usando xbrowse para mostrar los datos y allí mismo me aparecía la opción de exportar a excel.

Estaba en lo cierto. Gracias César.

Llevé los datos que me interesaban de la consulta a un array, los muestro con xBrowse y exporto a excel sin problemas.

Peeeeroooo (siempre hay un pero) no quiero que aparezcan los botones de agregar, editar y eliminar. Quisiera solo los de navegar, imprimir y exportar.

En la siguiente imagen muestro dentro del cuadro rojo, los botones que deseo desactivar o que no se muestren.



También quisiera saber si es posible cambiarle los nombres a las columnas que por defecto son letras A,B,C,D etc.. lo muestro con letras azules.

Quedo al pendiente y agradezco las ideas o sugerencias que puedan orientarme.

Un abrazo
"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.
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 09:36 PM
José:
Code (fw): Select all Collapse
local aCols:={"CodiCont","Nombre","SaldoAnt","MovDebe","MovHaber","SaldoAct"}
local aTitCols:={"Codigo"+CRLF+"Contable","Nombre de la Cuenta","Saldo al"+CRLF+"Inicio del Año","Debitos"+CRLF+"Del Año","Creditos"+CRLF+"del Año", "Acumulado"+CRLF+"del Año"}

   XBROWSER cAliasAct TITLE "Balanza Anual" ;
    COLUMNS aCols ;  
      SETUP ( oBrw:cHeaders := aTitCols,;
              oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 5 ]:Hide() ,;   //ocultar botones
                                          oDlg:aControls[ 6 ]:Hide() ,;
                                          oDlg:aControls[ 7 ]:Hide() } )
Espero te ayude.
Saludos.
Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 09:36 PM

Otra cosilla..

Habrá Manera de Cerrar automáticamente el xBrowse cuando termine de exportar a excel? o que se pueda mostrar un mensaje de "finalizado" ??

"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.
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 09:37 PM
FranciscoA wrote:José:
Code (fw): Select all Collapse
local aCols:={"CodiCont","Nombre","SaldoAnt","MovDebe","MovHaber","SaldoAct"}
local aTitCols:={"Codigo"+CRLF+"Contable","Nombre de la Cuenta","Saldo al"+CRLF+"Inicio del Año","Debitos"+CRLF+"Del Año","Creditos"+CRLF+"del Año", "Acumulado"+CRLF+"del Año"}

   XBROWSER cAliasAct TITLE "Balanza Anual" ;
    COLUMNS aCols ;  
      SETUP ( oBrw:cHeaders := aTitCols,;
              oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 5 ]:Hide() ,;   //ocultar botones
                                          oDlg:aControls[ 6 ]:Hide() ,;
                                          oDlg:aControls[ 7 ]:Hide() } )
Espero te ayude.
Saludos.
Gracias Francisco, voy a probar y te comento !!
"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.
EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM

Re: Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 10:19 PM

Buenas tardes disculpen la consulta pero tiene que algo que ver con el tema.

Como puedo dar dimension al xbrowser algo como el size y ponerlo dentro de un dialogo

Gracias.

Saludos

Oscar

Fwh 23.10, bcc55

JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Tue Aug 15, 2023 10:49 PM
Francisco,

Todo bien, hasta esta parte del codigo:
Code (fw): Select all Collapse
  XBROWSER aQueryToExcel TITLE cTitle ;
   SETUP ( oBrw:cHeaders := aTitCols)
Pero al poner todo el codigo, donde se quiere ocultar los botones, me arroja error
Code (fw): Select all Collapse
  XBROWSER aQueryToExcel TITLE cTitle ;
   SETUP ( oBrw:cHeaders := aTitCols,;
           oBrw:oWnd:bInit := { |oDlg| oDlg:aControls[ 5 ]:Hide() ,;   //ocultar botones
                                       oDlg:aControls[ 6 ]:Hide() ,;
                                       oDlg:aControls[ 7 ]:Hide() } )
Application
===========
Path and name: C:\Cuentas32\Cuentas32.exe (32 bits)
Size: 5,436,416 bytes
Compiler version: Harbour 3.2.0dev (r2104281802)
FiveWin version: FWH 19.06
C compiler version: Borland/Embarcadero C++ 7.4 (32-bit)
Windows version: 6.2, Build 9200

Time from start: 0 hours 0 mins 15 secs
Error occurred at: 15/08/2023, 19:23:29
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... } length: 2
[ 2] = N 5

Stack Calls
===========
Called from: => (b)EVAL( 26 )
Called from: .\source\function\XBROWSER.PRG => FITSIZES( 301 )
Called from: .\source\function\XBROWSER.PRG => (b)XBROWSE( 250 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 864 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 1120 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: .\source\function\XBROWSER.PRG => XBROWSE( 278 )
Called from: Prg\ExportToExcel.PRG => FNCT_EXPORTTOEXCEL( 26 )
Called from: Prg\Facturas.PRG => (b)FNCT_FACTURAS( 280 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 704 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 990 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2030 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 304 )
Called from: Prg\Facturas.PRG => FNCT_FACTURAS( 284 )
Called from: Prg\Menus.PRG => (b)FBARRADEBOTONES( 534 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:CLICK( 704 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:LBUTTONUP( 990 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1791 )
Called from: .\source\classes\BTNBMP.PRG => TBTNBMP:HANDLEEVENT( 2030 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3546 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1078 )
Called from: Prg\Cuentas32.PRG => CUENTAS32( 499 )
"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.
Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM

Re: Desactivar Botones en xBrowse

Posted: Wed Aug 16, 2023 10:06 PM
José,
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "xBrowse.ch"

function printSigma
   local aCols    := { "CodiCont","Nombre","SaldoAnt","MovDebe","MovHaber", "SaldoAct" }
   local aTitCols:={"Codigo"+CRLF+"Contable","Nombre de la Cuenta","Saldo al"+CRLF+"Inicio del Año","Debitos"+CRLF+"Del Año","Creditos"+CRLF+"del Año", "Acumulado"+CRLF+"del Año"}
   LOCAL oBrw, oCtrl

   XBROWSER oBrw TITLE "Balanza Anual" ;
      COLUMNS aCols ;  
      SETUP ( oBrw:cHeaders := aTitCols,;
              oBrw:oWnd:bInit := { |oDlg| oCtrl := oDlg:aControls[1] ,;
                                                   oCtrl:aControls[5]:Hide() ,;
                                                   oCtrl:aControls[5]:lGroup:=.F. ,;
                                                   oCtrl:aControls[6]:Hide() ,;
                                                   oCtrl:aControls[7]:Hide() ,;
                                                   oCtrl:aControls[8]:Hide() ,;
                                                   oCtrl:aControls[8]:lGroup:=.F. ,;
                                                   oCtrl:aControls[9]:Hide() } )
return nil

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Wed Aug 16, 2023 11:19 PM

Excelente amigo Cgallegoa

funcionó de maravilla, justo lo que queria

Ahora solo me falta que al terminar de exportar, salga del xBrowser retornando a la pantalla anterior. O colocar un mensaje de "finalizado" ya que no hay manera de saber cuando el proceso termina. Buscare en el foro, si no logro dar con la solución pediré ayuda.

Muchas Gracias a todos !!!

"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.
FranciscoA
Posts: 2170
Joined: Fri Jul 18, 2008 01:24 AM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 01:07 AM

Probablemente algo ha cambiado en XBROWSER en versiones posteriores a la que uso.

El ejemplo que puse lo tengo funcionando perfectamente con la 1709.

Saludos.

Francisco J. Alegría P.

Chinandega, Nicaragua.



Fwxh-MySql-TMySql
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 02:58 AM
FranciscoA wrote:Probablemente algo ha cambiado en XBROWSER en versiones posteriores a la que uso.
El ejemplo que puse lo tengo funcionando perfectamente con la 1709.
Saludos.
Francisco,

Estoy seguro que es así.

Esto sucede a menudo entre las diferentes versiones.

Muy agradecido con tu ayuda de siempre.

Un abrazo.
"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.
cmsoft
Posts: 1344
Joined: Wed Nov 16, 2005 09:14 PM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 12:21 PM
Si lo que quieres es que exporte al excel y despues salga una vez que exportó puedes hacer
Code (fw): Select all Collapse
SETUP ( oBrw:cHeaders := aTitCols,;               
               oBrw:oWnd:bInit := { |oDlg| oCtrl := oDlg:aControls[1] ,;
                                                   oCtrl:aControls[5]:Hide() ,;
                                                   oCtrl:aControls[5]:lGroup:=.F. ,;
                                                   oCtrl:aControls[6]:Hide() ,;
                                                   oCtrl:aControls[7]:Hide() ,;
                                                   oCtrl:aControls[8]:Hide() ,;
                                                   oCtrl:aControls[8]:lGroup:=.F. ,;
                                                   oCtrl:aControls[9]:bAction := {|o| o:oWnd:oWnd:aControls[2]:ToExcel(),;
                                                                                  o:oWnd:oWnd:End() } } )
Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com
JoseAlvarez
Posts: 851
Joined: Sun Nov 09, 2014 05:01 PM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 03:29 PM
cmsoft wrote:Si lo que quieres es que exporte al excel y despues salga una vez que exportó puedes hacer
Code (fw): Select all Collapse
SETUP ( oBrw:cHeaders := aTitCols,;               
               oBrw:oWnd:bInit := { |oDlg| oCtrl := oDlg:aControls[1] ,;
                                                   oCtrl:aControls[5]:Hide() ,;
                                                   oCtrl:aControls[5]:lGroup:=.F. ,;
                                                   oCtrl:aControls[6]:Hide() ,;
                                                   oCtrl:aControls[7]:Hide() ,;
                                                   oCtrl:aControls[8]:Hide() ,;
                                                   oCtrl:aControls[8]:lGroup:=.F. ,;
                                                   oCtrl:aControls[9]:bAction := {|o| o:oWnd:oWnd:aControls[2]:ToExcel(),;
                                                                                  o:oWnd:oWnd:End() } } )
César, saludos amigo

Funcionó de 10. gracias ¡¡

Con la ayuda de francisco, cgallegoa y de tu persona, ya tengo el módulo de exportación tal como quería.

Muchisímas gracias a los tres, y a este maravilloso foro.

Salud a todos !!
"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.
EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 04:27 PM

Buenas tardes.

Disculpen la insistencia, se puede dar a este xbrowser las dimensiones que uno quiera.

Gracias

Saludos

Oscar

Fwh 23.10, bcc55

Cgallegoa
Posts: 514
Joined: Sun Oct 16, 2005 03:32 AM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 05:34 PM
Así puedes definir las dimensiones inciales:
Code (fw): Select all Collapse
      SETUP ( oBrw:cHeaders := aTitCols,;
              olajoda := { |oBrw| xBrowse(oDlg,"bPainted bla bla") } ,;
                            oBrw:oWnd:bInit := { |oDlg| oCtrl := oDlg:aControls[1] ,;
                                          oCtrl:aControls[5]:Hide() ,;
                                          oCtrl:aControls[5]:lGroup:=.F. ,;
                                          oCtrl:aControls[6]:Hide() ,;
                                          oCtrl:aControls[7]:Hide() ,;
                                          oCtrl:aControls[8]:Hide() ,;
                                          oCtrl:aControls[8]:lGroup:=.F. ,;
                                          oCtrl:aControls[9]:bAction := {|o| o:oWnd:oWnd:aControls[2]:ToExcel(),;
                                                                             o:oWnd:oWnd:End() },;
                                          oDlg:SetSize(1300,700) } )
Saludos,
Carlos Gallego

Saludos,



Carlos Gallego



*** FWH-25.12, xHarbour 1.3.1 Build 20241008, Borland C++7.70, PellesC, ADS 11.1***

EASYSOFT
Posts: 195
Joined: Sat Oct 22, 2005 01:17 PM

Re: Desactivar Botones en xBrowse

Posted: Thu Aug 17, 2023 05:43 PM

Muchas gracias.

Funciona perfecto

Saludos

Oscar

Fwh 23.10, bcc55

Static archive · New replies & topics via GitHub Discussions