topic-16766

Board index FiveWin para Harbour/xHarbour Mi pelea con xbrowsw

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Mi pelea con xbrowsw
Posted: Mon Sep 21, 2009 11:37 AM

Hola.
Tengo un grograma en el que utilizo el twbrowse de Hernan, y quiero rehacerlo pero con txbrowse, supongo que todo será posible, pero no acabo de ver la forma de hacerlo. Las columnas del browse no siempre son las mismas, la edición es por celda aunque no todas las columnas son editables, las cabeceras de las columnas tienen definidas acciones, y está definido en los recursos, paso aponer parte del código:

Code (fw): Select all Collapse

rdefine->(dbgotop())
while !rdefine->(eof())
    ccampos:=ccampos+",rtiempo->tiempo"+ALLTRIM(STR(indice,2,0))
    aadd(acargo,"rtiempo->tiempo"+ALLTRIM(STR(indice,2,0)))
    aadd(acabezas,rdefine->inicial)
    aadd(atamano,75)
    aadd(aacion,{|a,row,col|olbx:drawheaders(a:natcol(col)),rcheck(a:natcol(col),a)})
    aadd(acargo,"rtiempo->pena"+ALLTRIM(STR(indice,2,0)))
    ccampos:=ccampos+",str(rtiempo->pena"+ALLTRIM(STR(indice,2,0))+",4,0)"
    aadd(acabezas,"Pen.")
    aadd(atamano,35)
    aadd(aacion,{|a,row,col|olbx:drawheaders(a:natcol(col)),rcheck(a:natcol(col)-1,a)})
    indice++
    rdefine->(dbskip())
enddo
ccampos:=ccampos+",rtiempo->clasificar,str(rtiempo->penalizar)}}"
aadd(acargo,"rtiempo->clasificar")
aadd(acargo,"rtiempo->penalizar")
aadd(acabezas,"Clasificación")
aadd(acabezas,"Penalización")
aadd(atamano,90)
aadd(atamano,90)
aadd(aacion,{|a,row,col|olbx:drawheaders(a:natcol(col)),rcheck(a:natcol(col),a)})
aadd(aacion,{|a,row,col|olbx:drawheaders(a:natcol(col)),rcheck(a:natcol(col)-1,a)})
rtiempo->(dbsetfilter({||rtiempo->autorizado},"rtiempo->autorizado"))
rtiempo->(dbgotop())
olbx:=txbrowse():new(60,60,100,100,&ccampos,acabezas,atamano,rodlg,,,,,,,supfont,,,,,,"rtiempo")
olbx:bRClicked:={|nrow,ncol,nflag| rdescal(olbx,olbx:natcol(ncol))}
olbx:bldblclick:={|nrow,ncol,nflag| dblral(nrow,ncol,nflag,olbx,osay1)}
oLbx:bkeydown := { | nkey, nFlags | KBDral(nkey,nflags,olbx,osay1)}
olbx:leditcell:=.t.
olbx:lcellstyle:=.t.
OLBX:LAUTOEDIT:=.f.
olbx:nfreeze:=2
olbx:ldrawfooters:=.t.
olbx:aheaders:=acabezas
olbx:afooters:=acabezas
olbx:aactions:=aacion
olbx:cargo:=acargo
olbx:bbkcolor:={|r,c| olbxreg:=&(olbx:cAlias)->(OrdKeyNo()),if(olbxreg%2=0,rgb(255,255,150),16777215)}
olbx:btextcolor:={|r,c| 0}
olbx:lAdjBrowse:=.t.
olbx:lAdjLastCol:=.f.
olbx:nlinestyle:=10

Como podría hacer algo similar con xbrowse?
Un saludo y muchas gracias
José Luis

VPOZO

Posts: 32

Joined: Tue Jun 24, 2008 05:19 PM

Re: Mi pelea con xbrowsw
Posted: Mon Sep 21, 2009 03:00 PM

Hola..! no manejo muy bien el tema del xbrowse pero quizás te ayude ver el ejemplo \FWH\SAMPLES\TESTXBRW.PRG... ojala te ayude...

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Mi pelea con xbrowsw
Posted: Tue Sep 22, 2009 12:14 PM

Muchas gracias, he mirado los distintos ejemplos, pero no acabo de ver la forma de crear las columnas, en funcion de la estructura del dbf abierto, por que sólo se pueden mostrar las columnas de determinados campos y no todas, pero es que además no siempre es el mismo número de campos.
Agradecería alguna ayuda
Un saludo
José Luis

VPOZO

Posts: 32

Joined: Tue Jun 24, 2008 05:19 PM

Re: Mi pelea con xbrowsw
Posted: Tue Sep 22, 2009 01:20 PM

Por lo que yo he visto si tu haces algo asi:

USE CUSTOMER NEW
GO TOP
oBrw := TXBrowse():New( oWnd )
oBrw:SetRDD()
oBrw:CreateFromCode()

debiera crear un browse con todos los campos de la tabla customer, lo que yo estoy haciendo para filtrar solo algunos campos de la tabla es algo asi:

FUNCTION MAIN()
Select Rubros
Go Top
aNcamp:={1,2} //--> son los numeros correspondientes a la ubicacion de los campos
aTCamp:={"COD","DESCRIPCION"} //--> titulos de las columnas en el browse
Explora("RUBROS","TABLA DE RUBROS", aNCamp, aTCamp)
*
CLOSE DATA
RETURN Nil

*-------------------------------------------------------------------*
* Mantenedor de Tablas Pequeñas
* cAlias = Alias de la Tabla
* cTitu = Titulo del Formulario
* aNcamp = Numero del Campo dentro de la Tabla
* aTcamp = Titulo para el campo o columa en l browse
*-------------------------------------------------------------------*
FUNCTION EXPLORA(cAlias, cTitu, aNcamp, aTcamp)

DEFINE DIALOG oDlgExp FROM 2,3 TO 40, 40 TITLE cTitu RESOURCE "DLG_MANTENEDOR"
oDlgExp:lHelpIcon := .F.

//--> Construye el Browse
DbselectArea(cAlias)
DbGotop()

//--> Arma el Browse
oBrwEx = TXBrowse():New( oDlgExp )
oBrwEx:nMarqueeStyle := MARQSTYLE_HIGHLROW
oBrwEx:nColDividerStyle := LINESTYLE_BLACK
oBrwEx:nHeaderLines := 1
oBrwEx:lVScroll := .F.
oBrwEx:lHScroll := .F.
oBrwEx:nFreeze := 1
oBrwEx:lFastEdit := .T.

For i:= 1 To Len(aNcamp)
Aadd( aCol, oBrwEx:AddCol() )
aCol[i]:cHeader := aTcamp[i]
aCol[i]:bStrData := GenFieldBlock( cAlias, aNcamp[i])

Next i

//--> Crea el Brw
oBrwEx:CreateFromResource( 900 )
oBrwEx:SetRDD()

ACTIVATE DIALOG oDlgExp CENTERED
RETURN Nil

*-----------------------------------*
* Retorna el Campo dentro de una tabla
*-----------------------------------*
STATIC FUNCTION GenFieldBlock( cAlias, nField )
RETURN {|| cValToChar( ( cAlias )->( FieldGet( nField ) ) ) }

Lo que hago es llenar los campos que voy a mostrar en arreglos, La funcion GenFieldBlock retorna el nombre del campo en caracter, pero creo que igual funcionaria si en el arreglo con los numeros de los campos pusiera el numbre del campo en forma literar como string.

Ojala lo soluciones..Suerte..!!

groiss

Posts: 234

Joined: Tue Sep 01, 2009 07:55 AM

Re: Mi pelea con xbrowsw
Posted: Wed Sep 23, 2009 12:22 PM

Muchas gracias, parece que con tu ayuda esto empieza a ir para adelante, lo que me sucede es que soy incapaz de editar ninguna celda, aquí pongo mi código, a ver si me ayudas a ver en donde meto la pata.
Muchisimas gracias nuevamente

Code (fw): Select all Collapse

@ 2,2 xbrowse olbx of rodlg

ocol:=olbx:addcol()
ocol:bstrdata:={||rtiempo->nombre}
ocol:cheader:="Corredor"
ocol:odatafont:=supfont
ocol:cargo:="rtiempo->nombre"
ocol:nwidth:=200

ocol:=olbx:addcol()
ocol:bstrdata:={||rtiempo->dorsal}
ocol:cheader:="Nº"
ocol:odatafont:=supfont
ocol:cargo:="rtiempo->dorsal"
ocol:nwidth:=30

ocol:=olbx:addcol()
ocol:bstrdata:={||rtiempo->Vehiculo}
ocol:cheader:="Vehiculo"
ocol:odatafont:=supfont
ocol:cargo:="rtiempo->vehiculo"
ocol:nwidth:=160

ocol:=olbx:addcol()
ocol:bstrdata:={||alltrim(rtiempo->clase)+alltrim(rtiempo->division)}
ocol:cheader:="GR"
ocol:odatafont:=supfont
ocol:cargo:="rtiempo->clase"
ocol:nwidth:=40

indice:=1
rdefine->(dbgotop())
while !rdefine->(eof())
    ocol:=olbx:addcol()
    ocol:bstrdata:=GenFieldBlock( "rtiempo->tiempo", indice )//{||rtiempo->nombre}
    ocol:cheader:=rdefine->inicial
        ocol:cfooter:=""
    ocol:odatafont:=supfont
        ocol:cargo:="rtiempo->tiempo"+ALLTRIM(STR(indice,2,0))
        ocol:nwidth:=75
        ocol:blclickheader:={|row,col,falg,self|rcheck(ocol:cargo,self)}
    ocol:=olbx:addcol()
    ocol:bstrdata:=GenFieldBlocktext( "rtiempo->pena", indice )//{||rtiempo->nombre}
    ocol:cheader:="Pen."
    ocol:cfooter:=""
    ocol:odatafont:=supfont
        ocol:cargo:="rtiempo->pena"+ALLTRIM(STR(indice,2,0))
        ocol:nwidth:=30
    indice++
    rdefine->(dbskip())
enddo

    ocol:=olbx:addcol()
    ocol:bstrdata:={||rtiempo->clasificar}
    ocol:cheader:="Clasificación"
        ocol:cfooter:=""
    ocol:odatafont:=supfont
        ocol:cargo:="rtiempo->clasificar"
        ocol:blclickheader:={|row,col,falg,self|rcheck(ocol:cargo,self)}
        ocol:nwidth:=75
    ocol:=olbx:addcol()
    ocol:bstrdata:={||str(rtiempo->penalizar,5,0)}
    ocol:cheader:="Penalización"
        ocol:cfooter:=""
    ocol:odatafont:=supfont
        ocol:cargo:="rtiempo->penalizar"
        ocol:nwidth:=90
rtiempo->(dbsetfilter({||rtiempo->autorizado},"rtiempo->autorizado"))
rtiempo->(dbgotop())
dbselectarea("rtiempo")
olbx:nmarqueestyle:=3
olbx:lfastedit:=.t.
olbx:ncoldividerstyle:=LINESTYLE_BLACK
olbx:lcoldividercomplete:=.t.
olbx:lfooter:=.t.
olbx:calias:="rtiempo"
olbx:l2007:=.t.
olbx:bskip:={|n| rtiempo->(dorskip(n,osay1,"rtiempo"))}
olbx:bclrstd:={||{ CLR_BLACK , if((rtiempo->(ordkeyno()))%2=0,rgb(255,255,150),16777215)}}
olbx:nfreeze:=2
olbxladjust:=.t.
for indice=5 to len( olbx:acols)
    olbx:acols[indice]:bRClickData:={|nrow,ncol,nflag,o| rdescal(olbx,o:cargo)}

        olbx:acols[indice]:nedittype(1)
next indice
olbx:createfromcode()

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Mi pelea con xbrowsw
Posted: Wed Sep 23, 2009 12:45 PM

Saludos Groiss

colocale a cada columna que quieras sea editada oCol:nEditType = EDIT_GET //1

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

FiveTech Support Forums

Continue the discussion