FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Inercambair columnas en un Browse
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 11:23 AM

Hola;
Existe la opción de intercambiar columnas usando wBrowse de Hernán Checarelli?
La idea es: en un Browse de ancho fijo que una de las columnas pueda mostrar diferentes datos de un mismo registro.
Algun ejemplo, muchas gracias

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina
Posts: 782
Joined: Wed Dec 19, 2007 07:50 AM
Re: Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 03:08 PM
MarioG wrote:
La idea es: en un Browse de ancho fijo que una de las columnas pueda mostrar diferentes datos de un mismo registro.

No soy experto en la TWBrowse de Hernán pero creo que podrías usar algo como esto:

oLbx:aColumns[ nColumn ]:bData := {|| ALIAS->( FieldGet( nCampo ) ) }

Así el dato que se muestra dependerá del valor de la variable nCampo

Saludos

Manuel Mercado
manuelmercado at prodigy dot net dot mx
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 06:42 PM

No se si es lo que necesitas, Pero:

Si deseas que presente diferentes campos dependiendo de una condicion, puedes hacer:

IIF(lValor,_alias->Campo2,_alias->Campo2)

Si Quieres presentar informacion concatenada puedes:

_alias->Campo1+' - '+_alias->Campo2

Si al contrario deseas presentar valias lineas de un mismo registro:

_alias->Campo1+CRLF_Alias->Campo2

Por supuesto en este último caso deberás modificar el alto de la línea del Browse

Suerte!!!

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 06:44 PM

Ups!, me equivoqué (error de dedo)

_alias->Campo1+CRLF+_Alias->Campo2

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Posts: 299
Joined: Mon Oct 22, 2007 03:03 PM
Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 07:04 PM

Aqui Está un Ejemplo:

REDEFINE LISTBOX oLbx ;
FIELDS TRANSFORM(TMPLIMIT->F_INICIO,'99/99/9999') ,;
TRANSFORM(TMPLIMIT->F_FINAL,'99/99/9999') ,;
TMPLIMIT->VERS+CRLF+TMPLIMIT->VERS2 ,; //doble linea
TRANSFORM(TMPLIMIT->LIMITE,'999,999,999.99'),;
IIF(TMPLIMIT->FLK_ACTIVO,'Activo','Inactivo');
FIELDSIZES 75,75,95,105,95,95;
MESSAGE "Seleccione Versión/Límite/Vigencia ";
HEADERS "Desde","Hasta","Version","Monto Limite","Estatus";
ID 401 OF oDlg ;
WHEN lEdit .and. lMod

oLbx:cAlias := "tmplimit"
oLbx:nFreeze := 5 && Congela hasta la Quinta columna
oLbx:nHeaderHeight := 31 && Da la altura del header
oLbx:nLineHeight := 31 && Da la altura de Line
oLbx:Set3DStyle()
oLbx:Ajustify := {0,0,0,1,0}

Suerte!

Saludos



Angel, Valencia, Venezuela



xH .997 - FW 7.9 - BCC55 - WorkShop - MySql
Posts: 1380
Joined: Fri Oct 14, 2005 01:28 PM
Inercambair columnas en un Browse
Posted: Tue Feb 26, 2008 11:45 PM

Gracias por las respuestas
Por apurado no escribí bien la pregunta.
Supongamos que tengo una lista de Precios: Codigo - Descripcion - Precio
Lo que deseo mostrar, alternativamente y por selección, en la columna Precios es: Precio Publico (efectivo), Tarjeta, Precio sin/IVA, Precio Costo s/IVA, c/IVA (Por acá IVA es Impuesto al valor agregado)

Ya estuve leyendo que wBrowse devuelve las coordenadas de las cabeceras. Asi es que encuadrando en la columna Precio y mediante un menu secundario dispondría la selección y lo aplicaría a: :aColumns[ nColumn ]:bData := {|| ALIAS->( FieldGet( nCampo ) ) }, como indica Manuel
Bueno, es la primer idea

Saludos

Resistencia - "Ciudad de las Esculturas"

Chaco - Argentina

Continue the discussion