XBrowse con Controles diferentes en la misma Columna

[softruz]

Muy buenas foro, ¿alguien me podria decir si podemos en nuestro XBrowse poner en la misma columna pero en diferentes filas, unas con Checkbox, otras con Button, etc...?

Un saludo y mil gracias.

[jnavas]

Colega


oCol:nEditType :=1

oCol:nEditType := EDIT_GET

#define EDIT_NONE 0
#define EDIT_GET 1
#define EDIT_LISTBOX 2
#define EDIT_BUTTON 3
#define EDIT_GET_LISTBOX 4
#define EDIT_GET_BUTTON 5

[jnavas]

Para cambiar el control segun (Condicion) debes cambiar el tipo en la columna,

#define EDIT_NONE 0
#define EDIT_GET 1
#define EDIT_LISTBOX 2
#define EDIT_BUTTON 3
#define EDIT_GET_LISTBOX 4
#define EDIT_GET_BUTTON 5


FUNCTION CAMBIAREDITOR()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]

IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF

IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF

Recuerda los bloques de codigo para :

oCol:bOnPostEdit :={|oCol,uValue|FUNCION(oCol,uValue)}

[joseluisysturiz]

Muy buenas foro, ¿alguien me podria decir si podemos en nuestro XBrowse poner en la misma columna pero en diferentes filas, unas con Checkbox, otras con Button, etc...?

Un saludo y mil gracias.

Saludos, pareciera un poco complicado lo que quieres, ya que creo cuando se evalua una condicion para los objetos se toma en cuenta la COL y no las filas, lo que pides es un arroz con mangoo como decimos aca en Venezuela, porque seria algo como FILA 1, COL 2, un CHECK, FILA 3, COL 2, un GET, etc, etc, segun la condicion de alguna VAR o del valor de otra CELDA en otra COL, habria que ver que intentas hacer, pero bueno, nose si lo vistes en algun sistema o es solo algo que se te vino a la mente, considero que en el xbrowse la ultima palabra la tiene Daniel, saludos...

[jnavas]

Jose Luis
Soy Juan Navas de AdaptaPro, necesito contactarte, mi correo es jnavas@datapronet.com y mi tel 0414-3000518 - 0414-2931707

[jnavas]

softruz

Utiliza el bloque de codigo bChange

oBrw:bChange:={|| SETCONTROL()}

FUNCTION SETCONTROL()


LOCAL oCol:=oBrw:aCols[MICOLUMNA]

IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF

IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF

oCol:Edit()


RETURN

Para cambiar el control segun (Condicion) debes cambiar el tipo en la columna,

#define EDIT_NONE 0
#define EDIT_GET 1
#define EDIT_LISTBOX 2
#define EDIT_BUTTON 3
#define EDIT_GET_LISTBOX 4
#define EDIT_GET_BUTTON 5


FUNCTION CAMBIAREDITOR()
LOCAL oCol:=oBrw:aCols[MICOLUMNA]

IF lCondicion1
oCol:nEditType:=EDIT_GET
ENDIF

IF lCondicion2
oCol:nEditType:=EDIT_BUTTON
ENDIF

Recuerda los bloques de codigo para :

oCol:bOnPostEdit :={|oCol,uValue|FUNCION(oCol,uValue)}