-

Inventarios/ResguardoMaterial.aspx.vb

@@ -945,10 +945,12 @@ Partial Class Inventarios_ResguardoMaterial
         Dim Fecha As DateTime = TxtFechaVigencia.Text.Trim().ToDateTime()
         Dim FechaI As DateTime = Fecha
         Dim FechaF As DateTime = Fecha.AddHours(22)
-
-        TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+        If Fecha > MinFecha Then
+            TieneError = Not ObjEventos.AddEventoAgenda(CveAgendaTipo, Asunto, Descripcion, Prioridad, FechaI, FechaF, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
                         RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe)
 
+        End If
+
         Return Not TieneError
     End Function