Solicitud de devolucion en devoluciones,agregar agenda de resguardo

Inventarios/ResguardoMaterial.aspx.vb

@@ -734,7 +734,7 @@ Partial Class Inventarios_ResguardoMaterial
 
     Private Sub Guardar(Concepto As Integer)
         Dim ObjInventario As New ClsInventarios
-        ObjInventario.IniciaTransacSQL() 'Inicia la transacción
+        Dim ObjEventos As New ClsOIEventos(ObjInventario.IniciaTransacSQL()) 'Inicia la transacción
         Dim TieneError = False
         Dim MensajeError As String = ""
         Dim ImporteConcepto = 0.0
@@ -893,6 +893,9 @@ Partial Class Inventarios_ResguardoMaterial
 
         End Select
 
+        If Not TieneError Then
+            TieneError = Not AgregarAgenda(ObjEventos, FolioEntrada, FolioSalida)
+        End If
 
         If Not TieneError Then
             Dim Msg As New StringBuilder
@@ -931,12 +934,29 @@ Partial Class Inventarios_ResguardoMaterial
         End If
 
         ObjInventario.Dispose()
-    End Sub
-
+        ObjEventos.Dispose()
+    End Sub
+    Private Function AgregarAgenda(ByRef ObjEventos As ClsOIEventos, FolioEntrada As Integer, FolioSalida As Integer) As Boolean
+        Dim TieneError As Boolean = False
+        Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1", CveAgendaTipo = 4, Prioridad = 3, CveTipoEvento = 2, Importe = -1
+
+        Dim Asunto As String = $"Vencimiento de Resguardo de Material. FolioEntrada:{FolioEntrada}, FolioSalida:{FolioSalida}"
+        Dim Descripcion As String = TxtObservaciones.Text.Trim()
+        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,
+                        RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=CveTipoEvento, Importe:=Importe)
+
+        Return Not TieneError
+    End Function
+
+
 #End Region
-
+
 #Region "TIPOS"
-
+
     Protected Sub RbTipo_CheckedChanged(sender As Object, e As EventArgs)
         DivCliente.Visible = False
         DivPersonal.Visible = False