diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb
index 597854f57..75aaea0c6 100644
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -5778,6 +5778,8 @@ Public Class ClsContabilidad
             ValorPolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@Valor").Value.ToString.ToEntero
             MensajePolizaDescuadre = SqlAdapter.SelectCommand.Parameters("@MsgSalida").Value.ToString
             ValorDiferencia = SqlAdapter.SelectCommand.Parameters("@Diferencia").Value.ToString
+            Dim MsgPrePoliza As String = SqlAdapter.SelectCommand.Parameters("@MsgPrePolizaSalida").Value.ToString
+            If MsgPrePoliza <> "" Then MsgPrePoliza.GuardaLogAD("LogPrePoliza")
         Catch ex As Exception
             OnError("Ocurrió un error al validar la PrePoliza.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index 5311877ee..272fa5234 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/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
 
diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index d77b1c6be..0ac68a0f0 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2240,7 +2240,7 @@ Partial Class OC
         End If
 
         'Valida que tenga proveedore
-        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC"4) AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
+        If (EsNuevo = True AndAlso TipoOC.ToUpper = "OC") AndAlso DdlProveedores.SelectedValue.ToEntero() <= 0 Then
             Alert("Debe seleccionar un proveedor.", TipoMensaje.MsgAdvertencia)
             TieneError = True
         End If