FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse ocultar sin eliminar.... como_
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
xbrowse ocultar sin eliminar.... como_
Posted: Thu Apr 07, 2011 11:13 AM

hola.
necesito que un xbrowse no muestre una columna y que no aparezca en menu contextual para mostrarlo de nuevo pero si que no se lo elimine.

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: xbrowse ocultar sin eliminar.... como_
Posted: Fri Apr 15, 2011 02:27 PM
amigo no se si sea lo que necesitas

Code (fw): Select all Collapse
   ......
   Local vMuestra:=.t.
   ......
   oCol:= oLamcla:oBrwCaja:AddCol()
   oCol:bStrData  := { || Transform(nitonu(d_caja->canti),oLamcla:PIC1)}
   oCol:cHeader   := "Cantidad"
   oCol:nHeadStrAlign := AL_RIGHT
   oCol:nDataStrAlign := AL_RIGHT
   oCol:nWidth        := 80
   oCol:bFooter       = {|| Transform(0,oLamcla:PIC2)}
   oCol:nFootStrAlign = 1
   oCol:lHide = vMuestra


Luego cambias el valor de la variable para mostrar la columna de nuevo
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: xbrowse ocultar sin eliminar.... como_
Posted: Fri Apr 15, 2011 03:38 PM
hola:

no se si esto te sirva pero creo entender que necesitas trabajar con otros campos de una tabla pero que el usuario vea solo algunos campos.

yo lo uso de esta forma:
Code (fw): Select all Collapse
            REDEFINE XBROWSE oBrw ID 101 OF oFld:aDialogs[1] COLUMNS "CODE","NOMB" ALIAS "PA06" ;
                     AUTOSORT FOOTERS
                    
                     oBrw:aCols[1]:oHeaderFont := oFont[3]
                     oBrw:aCols[1]:cHeader     := 'Codigo'  

                     oBrw:aCols[2]:cHeader     := 'Nombre completo'
                     oBrw:aCols[2]:nWidth      := 305
                     oBrw:aCols[2]:oHeaderFont := oFont[3]
...
...


donde COLUMNS "CODE","NOMB" son los nombres de los campos de la tabla 'PA06'

y en: oBrw:aCols[1]:cHeader := 'Codigo' es el nombre de la columna del xbrowse.

la tabla PA06 tiene 14 campos en los cuales ocupo unos internamente y el usuario no los ve.

bueno espero que te sea de utilidad.

saludos
SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: xbrowse ocultar sin eliminar.... como_
Posted: Mon Apr 25, 2011 01:19 PM

gracias.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion