RepServicioDomicilio base

OS/Asignaciones.aspx.vb

@@ -191,6 +191,9 @@ Partial Class OS_Asignaciones
         Dim time As DateTime
         Dim contadorOrdenesAsignadas As Integer = 0
 
+
+        ObjOS.IniciaTransacSQL()
+
         For Each row As GridViewRow In GvNA.Rows
             If row.RowType = DataControlRowType.DataRow Then
 
@@ -215,20 +218,44 @@ Partial Class OS_Asignaciones
 
 
                     If Not TieneError Then
+
                         If Not ObjOS.UpdateOrdenesServiciosEstatus(CveEstatusOS.ToEntero, UsuarioActual.CveUsuario, row.DataKey("CveOS").ToEntero) Then
                             TieneError = True
                         End If
+
+
+                        If Not TieneError Then
+
+                            Dim RecurrenciaTipo = 0, Frecuencia = -1, DiasSemana = "-1", Dias = -1, Mes = -1, RecurrenciaFin = "-1"
+                            Dim Fecha As DateTime = time
+
+
+                            Dim OIDescripcion As String = $"{DdlTecnico.SelectedItem.Text}   <b><a href='/OS/OrdenesServicios.aspx?CveOS={row.DataKey("CveOS")}' target='_blank' class='Texto' >Orden de servicio {row.DataKey("Folio")} </a></b>"
+
+                            Dim ObjEventos As New ClsOIEventos(ObjOS.IniciaTransacSQL())
+                            If Not ObjEventos.AddEventoAgenda(2, DdlTecnico.SelectedItem.Text, OIDescripcion, 2, time, time.AddHours(1), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+                                                RecurrenciaTipo:=RecurrenciaTipo, Frecuencia:=Frecuencia, DiasSemana:=DiasSemana, Dia:=Dias, Mes:=Mes, RecurrenciaFin:=RecurrenciaFin, CveTipoEvento:=2, Importe:=0, CveOS:=row.DataKey("CveOS").ToEntero) Then
+                                TieneError = True
+                            End If
+
+                        End If
+
+
                     End If
                 End If
             End If
         Next
+
         If contadorOrdenesAsignadas > 0 Then
+
             If Not TieneError Then
+                ObjOS.Commit()
                 Alert("Se asignaron las ordenes de servicio correctamente", TipoMensaje.MsgInformacion)
                 CargaOrdenesServiciosAsignadasXPersona()
                 CargaOrdenesServiciosNoAsignadas()
             End If
         Else
+            ObjOS.RollBack()
             Alert("No se han seleccionado ordenes de servicio para asignar", TipoMensaje.MsgAdvertencia)
         End If