Posts: 28

Joined: Wed Mar 07, 2007 11:34 PM

Duda con Twbrowse
Posted: Fri Oct 12, 2007 05:03 PM

Señores

Tenemos duda en twbrowse, en el cual utilizamos un archivo llamado catastro que tiene Diez (10) Campos; donde solamente deseo mostrar dos (2) de ellos.

Lo he realizado como lo ven en el siguiente ejemplo, pero al compilarlo me muestra todos los campos, mas los dos que deseo que me muestre

Estoy utilizando FWH 7.01

Que debo hacer para que no muestre todos los campos?.

STATIC FUNCTION ChgColors

define DIALOG_15 15

local oChild, oBrw,oDlg11,oCOL
select 1
USE CATASTRO
go top

DEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd
oBrw := TXBrowse():New( oDlg11 )

oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrw:nColDividerStyle := LINESTYLE_BLACK
oBrw:nRowDividerStyle := LINESTYLE_BLACK
oBrw:lColDividerComplete := .t.
oBrw:SetRDD()

oBrw:bClrStd := {|| {CLR_BLACK, iif( Field->color1, CLR_WHITE, CLR_HCYAN ) } }
oBrw:CreateFromResource( 101 )

oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->CODIP01}
oCol:cHeader := "Código Catastral"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 100

oCol := oBrw:AddCol()
oCol:bStrData := { || _FIELD->NOMIP01}
oCol:cHeader := "Propietario"
oCol:nHeadStrAlign := AL_LEFT
oCol:nDataStrAlign := AL_LEFT
oCol:nWidth := 400

oDlg11:oClient := oBrw
activate window oDlg11

return nil

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Duda con Twbrowse
Posted: Fri Oct 12, 2007 07:33 PM

JHON,

El método SetRdd() por defecto añade las columnas correspondientes a los campos de la DBF en uso. Para poder evitarlo tienes que modificar este método así:

Code: Select all Collapse

METHOD SetRDD( lAddColumns ) CLASS TXBrowse
...
   DEFAULT lAddColumns := .T.
...
   if lAddColumns
      if len( ::aCols ) == 0
         nFields := ( cAlias )->( FCount() )
         for nFor := 1 to nFields
            oCol := ::AddCol()
            oCol:cHeader  := ( cAlias )->( FieldName( nFor ) )
            oCol:bStrData := GenFieldBlock( cAlias, nFor )
         next
      endif
   endif

Ahora en tu código sólo tienes que hacer:
oBrw:SetRdd( .F. )

regards, saludos

Antonio Linares
www.fivetechsoft.com

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Las puedes quitar asi....
Posted: Fri Oct 12, 2007 10:56 PM

Las puedes quitar de la siguiente Manera:

Code: Select all Collapse

STATIC FUNCTION ChgColors 

#define DIALOG_15 15 

local oChild, oBrw,oDlg11,oCOL 
select 1 
USE CATASTRO 
go top 

DEFINE DIALOG oDlg11 RESOURCE DIALOG_15 of oWnd 
oBrw := TXBrowse():New( oDlg11 ) 


oBrw:nMarqueeStyle := MARQSTYLE_HIGHLROW 
oBrw:nColDividerStyle := LINESTYLE_BLACK 
oBrw:nRowDividerStyle := LINESTYLE_BLACK 
oBrw:lColDividerComplete := .t. 
oBrw:SetRDD() 


oBrw:bClrStd := {|| {CLR_BLACK, iif( Field->color1, CLR_WHITE, CLR_HCYAN ) } } 
oBrw:CreateFromResource( 101 ) 

oCol := oBrw:AddCol() 
oCol:bStrData := { || _FIELD->CODIP01} 
oCol:cHeader := "Código Catastral" 
oCol:nHeadStrAlign := AL_LEFT 
oCol:nDataStrAlign := AL_LEFT 
oCol:nWidth := 100 


oCol := oBrw:AddCol() 
oCol:bStrData := { || _FIELD->NOMIP01} 
oCol:cHeader := "Propietario" 
oCol:nHeadStrAlign := AL_LEFT 
oCol:nDataStrAlign := AL_LEFT 
oCol:nWidth := 400 

oBrw:DelCol(3)
oBrw:DelCol(4)
oBrw:DelCol(5)
oBrw:DelCol(6)

oDlg11:oClient := oBrw 
activate window oDlg11 

return nil

Espero te sirva...

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) ]

JHON JAIRO VALENCIA DIAZ

Posts: 28

Joined: Wed Mar 07, 2007 11:34 PM

Duda con Twbrowse
Posted: Tue Oct 16, 2007 07:32 PM

gracias, nos funcionó.

//////////////////////////////////

Otra de Las dudas que tenemos; Es como hacer que dentro del mismo TXBROWSE dando doble clic sobre un registro, nos despliegue una ventana, para modificarlo.

Leandro, Necesito tu teléfono ó Celular Para Contactarnos.

Gracias;

Jhon Jairo Valencia Diaz Y Adolfredo Martinez
"Aracataca - Magdalena" Colombia

:?:

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Duda con Twbrowse
Posted: Tue Oct 16, 2007 07:39 PM

Jhon:

Con doble clic:
oLbx:blDblClick := { | nRow, nCol, nKey | TuFuncion()}

Y con ENTER:
oLbx:bKeyDown := { | nKey, nFlags | TuFuncion()}

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

JHON JAIRO VALENCIA DIAZ

Posts: 28

Joined: Wed Mar 07, 2007 11:34 PM

Duda con Twbrowse
Posted: Wed Oct 17, 2007 07:55 PM

Gracias, Armando.

Espera llamada en cualquier momento.

Si tienes ejemplos de manejo completo con TXBROWSE, te lo agradezco me lo envies al siguiente correo. jhonjvd@yahoo.es ó adolfredomartinez_1963@yahoo.com

:lol:

FiveTech Support Forums

define DIALOG_15 15

Continue the discussion