Validar rich text field en lotus script

Hace poco conocí comencé a trabajar con Lotus Notes, la verdad ha sido muy productivo todo el aprendizaje que he podido tener gracias a mis compañeros y nuevos jefes, y por eso hoy quise compartir mi primer apunte esta vez en Lotus Script, no es mi intención explicar todos los componentes de Notes, ni que papel desempeña Lotus Script en el, este post esta mas bien dirigido a quienes ya trabajan en Notes, debido a que existe poco material en español, espero poder aportar humildemente con las cosillas que vaya aprendiendo.

En este post compartiré un apunte que encontre en IBM cuando me enfrenté a un primer desafío en lotus script, Validar un Rich Text Field. el apunte original esta en ingles, yo solo intentaré resumir lo mas relevante.

Metodo Nº1

Este metodo valida la existencia de cualquier caracter(Incluyendo un espacio en balnco), en el campo Rich Text, como la mayoría de las validaciones el codigo debería estar en el evento Query Save del formulario donde se encuentra el campo a validar. El codigo es el siguiente.

Sub Querysave(Source As Notesuidocument, Continue As Variant)
            If ( Source.FieldGetText( "rtfield" ) = "" ) Then
		Messagebox( "Por favor ingrese al gun texto en el campo." )
		Call Source.GotoField( "rtfield" )
		Continue = False
                Exit Sub
	    End If
End Sub
Lo que hace el código anterior es básicamente obtener texto desde el campo rich text llamado rtfield,
sino encuentra nada, no continua el proceso de grabación, en caso contrario
pasará la validación.

Metodo Nº2

Este metodo, valida que el campo richt text tenga un dato adjunto. Tambien para esto usaremos el 
querysave. El codigo es el siguiente.
Sub Querysave(Source As Notesuidocument, Continue As Variant)

	Dim rtitem As NotesRichTextItem
	Set doc = Source.Document
	Set rtitem = doc.GetFirstItem( "rtfield" )
	Dim text As String

	text$ = Source.FieldGetText("rtfield")
	trimmed$ = Trim(text)

	If(doc.Hasembedded)  Then
		Continue = True

	Elseif ( trimmed$ = "") Then
		Msgbox "Please enter some text."
		Continue = False
		source.GotoField("rtfield")
		source.Refresh(True)
	Else
		Continue = True

            End If
End Sub
Espero que todo esto les haya sido útil. El link del árticulo original es.
http://www.ibm.com/developerworks/lotus/library/rich-text-field-notes/index.html
Anuncios

Acerca de calitrunks

Carlos Astudillo Jamett(@calitrunks), Adventista del 7° Día. Ingeniero en Informática, de la Universidad Tecnológica de Chile. Desarrollador de Software, Apasionado por la tecnología, el emprendimiento y con muchas ganas de compartir el conocimiento y experiencias. Creador de la web http://www.somosaventureros.cl un sitio para difundir el club de aventureros, un lugar donde los niños pueden convertirse en mejores personas y saber que siempre hay oportunidades en la vida sin importar las circunstancias que se enfrenten. Email: castudill@hotmail.com Twitter: https://es.twitter.com/calitrunks

Publicado el septiembre 23, 2008 en Lotus Notes, Scripts, Tecnologia y etiquetado en , . Guarda el enlace permanente. Deja un comentario.

¿Que te pareció este post?

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: