Page 1 of 1
Liado con xBrowse
Posted: Wed Sep 10, 2014 4:48 pm
by 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?
Re: Liado con xBrowse
Posted: Wed Sep 10, 2014 9:24 pm
by 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
#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
Re: Liado con xBrowse
Posted: Wed Sep 10, 2014 10:23 pm
by 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.
Re: Liado con xBrowse
Posted: Thu Sep 11, 2014 8:02 am
by 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