Scripts posted recently tagged to Lotus in Kelpi

Esta formula visualiza un mensaje con el titulo "Atención" y el botón "OK", al presionar el botón cierra la ventana.
@Prompt([Ok];"Atención";" No se envio la confirmación.");
@Command([FileCloseWindow])
http://www.hugosoft.cjb.net

Busca el contenido de un campo en una vista.
Dim NS As New NOTESSESSION 
Dim View As NotesView
Dim Doc As NotesDocument
Dim item As NotesItem

Esta formula realiza el nuevo consecutivo en un campo al grabar el documento.
Para esto se debera crea un campo llamado SaveOptions de Text y un valor por default en "0" (cero con las comillas), 
utilizaremos una campo llamado int_consecutivo de Number donde se guardara el número consecutivo y una vista llamado General donde el primer campo debera ser int_consecutivo y tendrá que estar ordenada descendentemente.
Utilizaremos una variable llamada v_consecutivo. 
El campo SaveOptions al estar el "0" dejara grabar el registro, por default siempre esta en "1".

Los sistemas actuales de windows los detecta como "Windows/32"
Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim plat As String

Los sistemas actuales de windows los detecta como "Windows/32"
Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim workspace As New NotesUIWorkspace
	Dim plat As String

En este ejemplo, se valida un documento que si es capturado entre 8:30 a 9:30 toma la fecha del dia actual,
pero si es capturado despues de las 9:30 le asignara la fecha del dia siguiente validando que no se asigne fecha si el dia
siguiente es "Sabado" o "Domingo".
@If(@Time(@Created ) >= @TextToTime("8:30 a.m.") & @Time(@Created ) <= @TextToTime("9:30 a.m.");@Today;
@If(@Weekday(@Today)=1;@SetField ("dFechEnvio";@Adjust(@Today;0;0;+1;0;0;0)) ;  'domingo

@Command([FilePrintSetup]);
@Command([FilePrint];"";"";"";"";"Nombre de la Vista")
Solo se veran las columnas que se puedan imprimir en la hoja
http://www.hugosoft.cjb.net

Abre una base de datos con Formul@:
@Command([FileOpenDatabase];"Server":"Directorio1//Directorio2//base.nsf")
Http://www.hugosoft.cjb.net

Sólo dejamos introducir caracteres de la "a" a la "z" mayuscula y minuscula y números del 0 al 9. 
@If( @Matches(campo_valor; "+{0-9}"); @Success; 
     @Matches(campo_valor; "+{a-zA-Z}"); @Success;
     @Do( @Prompt([OK]; "Atención"; "Caracteres erroneos."); 
     @Return("")) ) 

Aparace ventana donde se seleccionaran los registros con un rango de fecha con @Command([EditSelectByDate]) y paera enviar a impresora lo seleccionado se deberá poner @Command([FilePrint];"";"";"";"";"";"";"pagebreak"), todo esto deberá esta en la vista.
@Command([EditSelectByDate]);
@Command([FilePrint];"";"";"";"";"";"";"pagebreak")
http://www.hugosoft.cjb.net