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/RecepcionEntrega.aspx.vb b/Inventarios/RecepcionEntrega.aspx.vb
index f53f4291d..d6f6cf9ab 100644
--- a/Inventarios/RecepcionEntrega.aspx.vb
+++ b/Inventarios/RecepcionEntrega.aspx.vb
@@ -625,10 +625,10 @@ Partial Class Inventarios_RecepcionEntrega
                     Dim Filtro As String '= If(ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString.Contiene({"Ing", "Dev", "Ped"}), "CveConcepto = 3", "CveConcepto = 9")
                     Select Case ObjInventario.DtResultados.Rows(0)("TipoDocto").ToString
                         Case "Ing", "Ped"
-                            Filtro = "CveConcepto = 3"
+                            Filtro = "CveConcepto IN (3,40)"
                         Case "Dev"
                             'cuand es devolucionventa=1, es cancelación de la devolución
-                            If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto = 3"
+                            If EsDevolucionVenta = 1 Then Filtro = "CveConcepto = 18" Else Filtro = "CveConcepto IN (3,40)"
                         Case Else
                             Filtro = "CveConcepto = 9"
                     End Select
@@ -1640,7 +1640,7 @@ Partial Class Inventarios_RecepcionEntrega
             Dim CantidadSaldo As Decimal = 0
 
 
-            If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) AndAlso TipoDocto <> "Ped" Then 'no debe considerar cuando es pedido de contrato
+            If CveVendedor > 0 AndAlso (UsuarioActual.Empresa.Funcionalidad(146) = "1" Or CveCliente > 0) Then 'no debe considerar cuando es pedido de contrato
                 If TipoMovimiento = 1 Then ' SI ES DEVOLUCION NO APLICA APARTADO
                     ' SALIDA POR TRASPASO DE LOS ALMACENES DE APARTADO
                     For Each Dr As DataRow In DtDatos.Rows
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