Liado con xBrowse

[jmartial]

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?

[xmanuel]

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: Select all  Expand view  RUN

#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
 

[jmartial]

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.

[xmanuel]

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