Lotus Notes - Condicion IF en un campo.

   
Vista:

Condicion IF en un campo.

Publicado por Alejandro (49 intervenciones) el 21/05/2009 14:27:41
Buenas tardes,

Necesito que me echen una mano con la siguiente cauistica:

Tengo un campo (PrecioMaximo1) con una cantidad X. Por otro lado tengo un campo (PrecioComprasO) que el usuario debe rellenar PERO debe dejar rellenarlo si la cantidad introducida es mayor que la que hay dentro del campo preciomaximo1. Por favor, alguien me puede echar una mano.

Muchas gracias.
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:Condicion IF en un campo.

Publicado por Hugo Correa (286 intervenciones) el 25/05/2009 15:35:58
En el evento EXITING del campo preciocomprasO copia el siguiente còdigo:

Sub Exiting(Source As Field)
Dim ws As NotesUiWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uiDoc.FieldGetText("preciocompras0") < uiDoc.FieldGetText("preciomaximo1") Then
Messagebox "el precio compras es menor que el precio maximo.",_
0+16 , "Atención"
uiDoc.GotoField("preciocomprasO")
End If
End Sub
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