Lotus Notes - Comparar fechas.

   
Vista:

Comparar fechas.

Publicado por Alejandro (49 intervenciones) el 08/06/2010 09:39:55
Hola,

Tengo dos campos de tipo fecha (A y B), y necesito que en el campo B haya un código el cual no me deje continuar si la fecha del campo B es anterior a la del campo A. Yo lo haría poniendo código en el exiting del campo B pero no tengo ni idea de como hacer el código.

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:Comparar fechas.

Publicado por Hugo Correa (286 intervenciones) el 29/06/2010 17:39:08
Intenta con esto:
Sub Exiting(Source As Field)
Dim ws As NotesUiWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uiDoc.FieldGetText("fechaB") < uiDoc.FieldGetText("fechaA") Then
Messagebox "La fecha B es menor a
la fecha A.",_
0+16 , "Atención"
uiDoc.GotoField("fechaB")
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

RE:Comparar fechas.

Publicado por Alejandro (49 intervenciones) el 30/06/2010 12:47:39
Hola Hugo,

He probado con el código pero me da error a partir del then. Es decir a la hora de poner el mensaje. He mirado otros If y me funcionan. Debe ser por la sintaxis pero no llego a ver que es. Te adjunto ejemplo de uno que si funciona:

Sub Exiting(Source As Field)
Dim ws As NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument
If uidoc.FieldGetText("Nom")="" Then
Messagebox "SELECCIONE SU NOMBRE.",_
0+16, "PRESTE ATENCIÓN"
uiDoc.GotoField("Nom")

End If
End Sub

LA única diferencia que veo es que en el If no hace una comparación de dos campos

Gracias por ayudarme.
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

RE:Comparar fechas.

Publicado por Alejandro (49 intervenciones) el 30/06/2010 15:28:29
Hola Hugo,

Finalmente he conseguido que funcione pero ahora me da un error de "variable not set" a la hora de ejecutarlo. ¿me puedes ayudar?
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

RE:Comparar fechas.

Publicado por CORPERNICO (104 intervenciones) el 01/07/2010 11:03:27
Ese error te da pq usas una variable que no tiene valor. Es decir que la usas sin que tenga antes valor.
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

RE:Comparar fechas.

Publicado por Hugo Correa (286 intervenciones) el 07/07/2010 17:09:55
Te aconsejo que ejecutes tu aplicación con el debug y podrás ver que valor tiene tu variable.

Saludos
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

RE:Comparar fechas.

Publicado por Alejandro (49 intervenciones) el 08/07/2010 14:53:22
Gracias Hugo ha funcionado, pero alucina como:

Sub Exiting(Source As Field)
Dim ws As NotesUIWorkspace
Dim uiDoc As NotesUIDocument
Dim datasolicitud As String
Dim datainiciaccio As String
Set ws = New NotesUIWorkspace
Set uiDoc = ws.CurrentDocument

If uiDoc.FieldGetText("datainiciaccio") < uiDoc.FieldGetText("datasolicitud") Then Messagebox "LA FECHA PREVISTA DE ENTREGA ES MENOR QUE LA FECHA DE SOLICITUD.",_
0+56 , " ATENCIÓN"
uiDoc.GotoField("Datainiciaccio")

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

RE:Comparar fechas.

Publicado por ElLobo (18 intervenciones) el 04/10/2010 17:13:32
Formula del campo "Input Validation"

@If( Fecha2 < Fecha1;"Campo Fecha no valido" ; @Success )
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