Clipper/FiveWin - Picture Condicionado

Buenos gracias a este foro y a todos los colaboradores, mi primera duda en este foro, estoy iniciando y hago una aplicación tipo Bitacora, debo de indicar el numero de identificación de la persona que se atiende pero existe diferentes tipos de identificaciòn, va por categoria: NACIONAL, EXTRANJERO CON IDE SEGURO SOCIAL, EXTRANJERO CEDULA RECIDENCIA, EXTRANJERO PASAPORTE. Bueno hice una dialog con cPelles y coloque lo campos de luego por codigo utilizo REDEFINE GET para asi indicar las variables y los Pictures que se utilizaran, un valor de un caracter es el que sirve como guia para saber cual Picture debo utilizar!

REDEFINE Get oP:oGet00 VAR cTipo ID 4013 OF oDlg FONT oFont PICTURE "!" VALID Verifica(cTipo)


y esto hace la función Verifica:


Function Verifica(cTipo)
do case
case cTipo = "0"
* MsgInfo("NACIONAL")
REDEFINE Get oP:oGet01 VAR oP:Ident ID 4002 OF oDlg FONT oFont;
PICTURE "9-9999-9999";
UPDATE
oP:oGet01:Refresh()
oDlg:Update()
case cTipo = "1"
* MsgInfo("EXTRANJERO CON NUMERO DE SEGURO SOCIAL")
REDEFINE Get oP:oGet01 VAR oP:Ident ID 4002 OF oDlg FONT oFont;
PICTURE "9-99-9999999";
UPDATE
oP:oGet01:Refresh()
oDlg:Update()
case cTipo = "2"
* MsgInfo("EXTRANJERO CEDULA RECIDENCIA")
REDEFINE Get oP:oGet01 VAR oP:Ident ID 4002 OF oDlg FONT oFont;
PICTURE "9999-9999-9999";
UPDATE
oP:oGet01:Refresh()
oDlg:Update()
casE cTipo = "3"
* MsgInfo("EXTRANJERO CON PASAPORTE")
REDEFINE Get oP:oGet01 VAR oP:Ident ID 4002 OF oDlg FONT oFont ;
PICTURE "999999999999!";
UPDATE
oP:oGet01:Refresh()
oDlg:Update()
otherwise
MsgInfo(" Debe indicar un valor entre 0 - 3 ")
oP:oGet00 = ""
cTipo = ""
Return .F.
endcase

Return .t.


*** PERO NO FUNCIONA LAS MASCARA DEL GET NUNCA CAMBIA, NO SE QUE ESTOY HACIENDO MAL, O MAS BIEN NO SE COMO HACER ESTO, CREO QUE LO HAGO BIEN PERO NO ESTOY SEGURO, APENAS TENGO UNOS DIAS DE HABER INICIADO A PROGRAMAR EN FIVEWIN!

Gracias de antemano por su ayuda!

]Billy:

Es mas facil tirar de objetos para hacer lo que quieres.

un simple

oP:oGet1:cPicture := "9999999 ( o lo que necesites)"

hará la magia que buscas.

No es necesario ni el ::Refresh(), ni el oDlg:Update() en cada CASE

Gracias, aplique lo que me indicas pero sigo con el mismo problema, esta instrucción es ignodada por el compilardo, o sea no hace nada de nada!

Utiliza PICTURE "@R 99-99-999999". Si vas a meter caractéres especiales en la picture (guiones, textos), antepon "@R" a la PICTURE. Por ejemplo, si quiero una picture 99.999.999 Euros, haria PICTURE "@R 99,999,999 Euros"
Un saludo,
Fernando Morales