Apoyo logistico, ordenes de servicio

Ashx/CargaEventos.ashx

@@ -94,6 +94,49 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
         Dim ObjEventos As New ClsOIEventos
         Dim ErrorEventos = False
         Dim CveEmpresaCRM As Integer = 0
+
+        Dim DT_SubProyectos As New System.Data.DataTable
+
+        DT_SubProyectos.Columns.Add("CveSubProyecto", GetType(Integer))
+        DT_SubProyectos.Columns.Add("backgroundColor")
+
+        'son 26
+        Dim Colores() As String = {"#006699", "#0099cc", "#0066cc", "#0033cc", "#0000ff", "#3333ff", "#3333ff", "#6600ff", "#9933ff", "#cc00ff", "#cc00cc", "#cc0099", "#cc3399", "#cc6699", "#cc0066", "#009933", "#00cc00", "#00cc66", "#009999", "#669900", "#99cc00", "#cccc00", "#cc9900", "#ff9900", "#006666", "#669999"}
+
+
+        If CveOS = -2 Then
+
+            Dim objSub As New ClsSubProyectos
+            Dim DtTempSubproyectos As New DataTable
+
+            If objSub.GetSubProyectos(CveEmpresa) Then
+                DtTempSubproyectos = objSub.DtResultados.FiltraParametros("", "CveSubProyecto")
+            End If
+
+            objSub.Dispose()
+
+            Dim ColorIndex As Integer = 0
+
+            If DtTempSubproyectos.Rows.Count > 0 Then
+                For Each drow As DataRow In DtTempSubproyectos.Rows
+
+
+                    Dim Subrow = DT_SubProyectos.NewRow
+                    Subrow("CveSubProyecto") = drow("CveSubProyecto").ToString.ToEntero
+                    Subrow("backgroundColor") = Colores(ColorIndex)
+
+                    DT_SubProyectos.Rows.Add(Subrow)
+
+                    ColorIndex = ColorIndex + 1
+                    If ColorIndex >= 25 Then
+                        ColorIndex = 0
+                    End If
+
+                Next
+            End If
+
+        End If
+
         If ObjEventos.GetEventos(-1, -1, -1, "-1", "-1", -1, CveUsuario, CveUsuarioPara, -1, -1, -1, "-1", -1, -1, -1, -1, CveOS, -1, -1, -1, -1, -1, CveUsuario, CveUsuario, CveUsuario, CveEmpresa, pFI, pFF, CveSubProyecto:=CveSubProyecto) Then
 
             If ObjEventos.DtResultados.Rows.Count > 0 Then
@@ -144,6 +187,7 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                             cevent.CveOS = dr("CveOS").ToString.ToEntero
                             cevent.CveOSDetalle = dr("CveOSDetalle").ToString.ToEntero
                             cevent.CveUsuarioAtendio = dr("CveUsuarioAtendio").ToString.ToEntero
+                            cevent.CveSubProyectoUsuarioAtendio = dr("CveSubProyectoUsuarioAtendio").ToString.ToEntero
 
                             cevent.NombreAcercamiento = dr("NombreAcercamiento").ToString
 
@@ -157,6 +201,11 @@ Public Class CargaEventos : Implements IHttpHandler, IRequiresSessionState
                                 cevent.backgroundColor = "#1BBC9B"
                             End If
 
+                            If CveOS = -2 Then
+                                cevent.backgroundColor = DT_SubProyectos.FiltroPrimeroValor("backgroundColor", $" CveSubProyecto = {cevent.CveSubProyectoUsuarioAtendio } ")
+                                cevent.backgroundColor = If(cevent.backgroundColor.Trim = "", "#1BBC9B", cevent.backgroundColor.Trim)
+                            End If
+
                             'VERIFICAMOS SI TIENE O NO RECURRENCIA
                             If Not cevent.recurrenciatipo > 0 Then