Lotus Notes - Cerrar docto al meter usuario y contraseña incorre

 
Vista:

Cerrar docto al meter usuario y contraseña incorre

Publicado por mmcm (14 intervenciones) el 08/09/2010 18:24:06
Hola

Tengo un documento el cual en la propiedad postopen tengo un codigo en el cual pido un nombre de usuario y contraseña que tengo guardados en un campo

La cuestion es que quiero que cuando al teclear el usuario o contraseña incorrectas que solicite meter los datos correctamente,
o ya en su defecto, cuando meta cualquiera de los 2 datos mal que me cierre el documento
y cuando los datos esten correctos que me permita modificar el docto

Agradezco de antemano !!!

Este es el codigo que tengo:

nume := @Prompt([Password]; "Nombre del Auditor"; "Introduzca su usuario.");
FIELD name_auditor := nume;
FIELD user :=@IsMember(name_auditor;ActivityList);
@If(@IsMember(name_auditor;ActivityList); @Command( [FileCloseWindow] ) ; "0" );
algo := @Prompt([Password]; "Password"; "Introduzca el Password para tener acceso.");
FIELD clave2 :=@TextToNumber(algo);
FIELD InputActivity := name_auditor;
FIELD auditor := name_auditor;
FIELD Nombre := name_auditor;
iActivity := InputActivity;
iList := ActivityList;
listlength := @Elements(iList);
iLocator := @Member(iActivity;iList);
iInfo := @If(iLocator= listlength; @Subset(WorkingCell;-1);
iLocator = 1;@Subset(WorkingCell;1);
@Subset(@Subset(WorkingCell;iLocator);-1));
iCals:= @TextToNumber(@Word(iInfo;"~";2));
FIELD activityName :=@Trim(activityName:iActivity);
FIELD calpermin:=@If(CalperMin=NULL;iCals;calpermin:icals);
FIELD valida := clave2 - calpermin;
@If(valida != 0; @Command( [FileCloseWindow] ) ; "0" );
@Command( [RefreshHideFormulas] )

**********en esta parte el @Command( [FileCloseWindow] ) creo que no me esta funcionando
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:Cerrar docto al meter usuario y contraseña inco

Publicado por ElLobo (56 intervenciones) el 04/10/2010 16:19:33
Usa script con NotesUIWorkSpace y DialogBox si el usuario/password no es valido seria algo como Source.Close si esta en en PostOpen, si esta en el QueryOpen seria Continue=false
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