FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Liado con xBrowse
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Liado con xBrowse
Posted: Wed Sep 10, 2014 04:48 PM

Hola,

Necesito saber como resetear un xBrowse creado desde recursos.

Tengo un xBrowse, pero quiero que muestre ciertas columnas de una dbf con unas cabeceras, resetearlo y que muestre otras columnas con otras cabeceras de otra
dbf distinta.

¿Alguien sabe como? ¿Alguien sabe como borrar rápido todas las columnas y el alias, y asignar otras?

Un Saludo,

Joaquín Martínez
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM
Re: Liado con xBrowse
Posted: Wed Sep 10, 2014 09:24 PM
Creo que usando el método SetRDD, este es el prototipo:
SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows )
Ningun parametro es obligatorio asi que haz la siguiente prueba:

SELECT Cliente

oBrw:setRDD()
oBrw:refresh()

Luego podrás probar con parametros :-)

En los ejemplos de FWH hay uno que se llama xbrwalia.prg muy pequeñito que creo que hace eso mismo:
Code (fw): Select all Collapse
#include "FiveWin.ch"
#include "XBrowse.ch"

function Main()

   local oDlg, oBrw

   USE Clients

   USE Customer NEW

   DEFINE DIALOG oDlg RESOURCE "Test"

   REDEFINE XBROWSE oBrw ID 10 OF oDlg AUTOCOLS ALIAS "Customer"
   
   REDEFINE BUTTON ID 20 OF oDlg ACTION Customer->( oBrw:SetRDD() )
   
   REDEFINE BUTTON ID 30 OF oDlg ACTION Clients->( oBrw:SetRDD() )

   ACTIVATE DIALOG oDlg

return nil
______________________________________________________________________________

Sevilla - Andalucía
Posts: 458
Joined: Tue Mar 14, 2006 07:26 PM
Re: Liado con xBrowse
Posted: Wed Sep 10, 2014 10:23 PM

Hola Manu,

Cuanto tiempo!!

Hasta ahí había llegado, pero, de cada dbf quiero mostrar
Sólo unos campos y además se llaman y son de tipo diferente.

La idea es:
1- crear xbrowse desde recursos
2- crear sus columnas, cabeceras y asignar una dbf
3- resetear el xbrowse y que quede como en el punto 1
4- repetir el punto 2.

No sé los pasos a seguir para resetearlo.

Un Saludo,

Joaquín Martínez
Posts: 817
Joined: Sun Jun 15, 2008 07:47 PM
Re: Liado con xBrowse
Posted: Thu Sep 11, 2014 08:02 AM
Te había contestado sin saber quien eras!!!

A ver si quedamos un día por Dos Hermans o en Utrera no?

Creo que el metodo tiene lo que tu quieres:
SetRDD( lAddColumns, lAutoOrder, aFldNames, aRows )

Sólo tendrías que crear los arrays pertinentes
______________________________________________________________________________

Sevilla - Andalucía

Continue the discussion