Clipper/FiveWin - Enmascarar columna twbrowse()

 
Vista:

Enmascarar columna twbrowse()

Publicado por probaco (153 intervenciones) el 19/08/2004 19:29:44
Hola a todos!

Alguien me puede orientar como poner una mascara (como se protege un variableclave ********) en una columna de twbrowse(), para ocultar la informacion real?

Ya que tengo una tbrowse donde hay columnas de costos que tienen que estar ocultas.

Es clipper 5.3 DOS

Desde ya muchas gracias
Probaco
Argentina
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enmascarar columna twbrowse()

Publicado por Armando Estrada Bucio (167 intervenciones) el 19/08/2004 22:24:41
Probaco (Es tu nombre ?):

Aunque no entiendo para quieres mostrar una columna que despues quieres enmascarar se me ocurre que puedes mostrar la columna sin el correspondiente TRANSFORM() y te va a mostrar unos caracteres raros. en fin es solo una idea.

Saludos, Armando

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enmascarar columna twbrowse()

Publicado por Jose Lopez (49 intervenciones) el 19/08/2004 22:25:37
Si quieres que una columna no se despliegue simplemente no la incluyas
en el Tbrowse. Elimina la linea de la funcion xxx:addcolumn() del costo.

Si quieres que aparezca o desaparezca a voluntad con clave o algo asi usa
xxx:delcolumn(nNumero_de_columna) para desaparecerla y
xxx:addcolumn(tbcolumnnew('Costo',{||mi_costo})) para reaparecerla.
Solamente debes programar la forma en que se realizara ya sea con clave
y/o con una conbinacion de teclas.

Un ejemplo basico.

on_off := .f. //variable para controlar ver o no ver

//dentro del ciclo del browse.

case lastkey() = -20 // ctrl-F1
@22,60 say 'Cla
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enmascarar columna twbrowse()

Publicado por Jose Lopez (49 intervenciones) el 19/08/2004 22:26:24
//dentro del ciclo del browse.

case lastkey() = -20 // ctrl-F1
@22,60 say 'Clave:'
m_clave = getsecret('*****',22,67)
read
if m_clave = 'xxxxx'
if on_off
on_off := .f.
bro:delcolumn(3) //digamos que el costo es columna 3
else
on_off := .t.
bro:addcolumn(tbcolumnnew('Costo',{||mi_costo}))
endif
endif

Jose.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Enmascarar columna twbrowse()

Publicado por Gustavo Alvarez Gambini (274 intervenciones) el 20/08/2004 11:21:06
Cesar, ( Probaco ) Hola !!!
Agregando algo a lo que te escribió Jose y Armando. Si lo que quieres es que te aparezcan asteriscos por ej. sería algo así:
xxx:addcolumn(tbcolumnnew('Costo',{|| "********" }))
Con ésto puedes jugar un poco como por ej. que si pone alguna clave se la muestres y si no le muestras asteriscos. Tienes que ponerle un codeblock para que muestre lo que quieres.
Saludos.
Gustavo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enmascarar columna twbrowse()

Publicado por probaco (153 intervenciones) el 20/08/2004 15:10:53
Hola Gustavo,
y hola y gracias a todos por responder.!
El tema de mostrar la columna y que el usuario quiera que se vea el contenido o no, o la opcion de ocultar directamente la columna, son cosas diferentes. Lo he vivido en la practica, y yo como programador (dentro de lo razonable), trato de cumplir con lo que me piden.

Creo, que estaba encaminado, porque suponia que estaba en el PICTURE de la columna, pero gracias a sus respuestas, aclare mis dudas.

Desde ya muchas gracias!
Cesar
Probaco
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Enmascarar columna twbrowse()

Publicado por Jose Cordero (33 intervenciones) el 23/08/2004 16:13:42
Sr. por que no prueba,:

nTecla := Inkey(0)
IF nTecla== K_ENTER
IF oTbr:ColPos = 1 // Campo1
// Descencripta info. de columna
Edita con @x,y SAY xDatp GET xDat
Guarda cambios
Transforma columna.
END IF

Espero haya pidido orientarte un poco

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar