RH/ActualizacionMasiva.aspx.vb

@@ -6,13 +6,13 @@ Imports System.Data
 
 Partial Class RH_ActualizacionMasiva
     Inherits ClsPaginas
-
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             SetPermisos()
 
             'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
             'CargaProyecto()
+            ViewState("gvtsubproyectos") = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
             CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto)
             divddlproyeto.Visible = DdlProyecto.Visible
             GvDatos.Columns(2).Visible = DdlProyecto.Visible
@@ -23,6 +23,7 @@ Partial Class RH_ActualizacionMasiva
             GvDatos.CssClass = String.Format("{0} {1}", GvDatos.CssClass, If(DdlProyecto.Visible, "Columns4", ""))
             CargaTurnos()
             CargaSupervisores()
+            CargaSuperioresOrganigrama()
         End If
     End Sub
 
@@ -100,6 +101,22 @@ Partial Class RH_ActualizacionMasiva
         ViewState("DTTurno") = dt
     End Sub
 
+    Private Sub CargaSuperioresOrganigrama()
+        Dim ObjRH As New ClsRH
+
+        If ObjRH.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+            ViewState("dtSupervisores") = ObjRH.DtResultados
+            DdlSupervisor.DataSource = ObjRH.DtResultados
+        Else
+            DdlSupervisor.DataSource = Nothing
+            Alert("Ocurrió un error al cargar el catálogo de Jefes Inmediatos")
+        End If
+        ObjRH.Dispose()
+
+        If DdlSupervisor.DataSource IsNot Nothing Then
+            DdlSupervisor.DataBind()
+        End If
+    End Sub
     Private Sub CargaSupervisores()
         ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND EsSupervisorRH = 1 ", UsuarioActual.CveEmpresa))
 
@@ -120,7 +137,7 @@ Partial Class RH_ActualizacionMasiva
     End Sub
     Public Sub consultardata()
         Using ObjPersonal As New ClsRH()
-            If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, -1, UsuarioActual.CveEmpresa) Then
+            If ObjPersonal.GetPersonalMasivo(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlSupervisor.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlClientesfilter.SelectedValue.ToEntero()) Then
                 GvDatos.DataSource = ObjPersonal.DtResultados
             Else
                 GvDatos.DataSource = Nothing
@@ -159,7 +176,7 @@ Partial Class RH_ActualizacionMasiva
             If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlCodigo").Text = String.Format("<b>{0}:</b> {1}", LblSubProyeccto.Text, If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto")))
 
-                e.Row.Cells(0).ColumnSpan = 11
+                e.Row.Cells(0).ColumnSpan = 8
                 For i As Integer = 1 To 10
                     e.Row.Cells(i).Visible = False
                 Next
@@ -167,7 +184,7 @@ Partial Class RH_ActualizacionMasiva
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                 e.Row.FCLiteral("LtlCodigo").Text = String.Format("<b>Turno:</b> {0}", e.Row.DBCampo("Turno"))
-                e.Row.Cells(0).ColumnSpan = 11
+                e.Row.Cells(0).ColumnSpan = 8
                 For i As Integer = 1 To 10
                     e.Row.Cells(i).Visible = False
                 Next
@@ -183,7 +200,10 @@ Partial Class RH_ActualizacionMasiva
 
                 e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
 
-                e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
+                e.Row.FCDropDownList("DdlGVSubProyecto").DataSource = ViewState("gvtsubproyectos")
+                e.Row.FCDropDownList("DdlGVSubProyecto").DataBind()
+                e.Row.FCDropDownList("DdlGVSubProyecto").SelectedValueExist(e.Row.DBCampo("CveSubProyecto").ToString())
+                e.Row.FCDropDownList("DdlSupervisor").DataSource = ViewState("dtSupervisores")
                 e.Row.FCDropDownList("DdlSupervisor").DataBind()
                 e.Row.FCDropDownList("DdlSupervisor").Items.Insert(0, New ListItem("Sin Supervisor Asignado", "-1"))
                 e.Row.FCDropDownList("DdlSupervisor").SelectedValueExist(e.Row.DBCampo("CveSupervisor").ToString())
@@ -223,6 +243,12 @@ Partial Class RH_ActualizacionMasiva
                     '    ObjPersonal.RollBack()
                     '    Exit For
                     'End If
+                    If Not ObjPersonal.UpdatePersonalMasivoData(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, DirectCast(Row.FindControl("DdlClientes"), ADServerControl.Dropdownlost).SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero(),
+                                                            Row.DataKey("CvePersonal").ToEntero(), UsuarioActual.CveEmpresa) Then
+                        OcurrioError = True
+                        ObjPersonal.RollBack()
+                        Exit For
+                    End If
                     If ObjPersonal.UpdateSalarios(Row.DataKey("CvePersonal").ToEntero(), DateTime.Now.ToString("yyyy/MM/dd"), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCTextBox("TxtSDI").Text.ToDecimal(), Row.FCTextBox("TxtSalarioCotizado").Text.ToDecimal(), Row.FCTextBox("TxtSalarioDiario").Text.ToDecimal(),
                                                   Row.FCCheckBox("ChkCalcularSDI").Checked) Then
@@ -410,19 +436,36 @@ Partial Class RH_ActualizacionMasiva
         For Each Row As GridViewRow In GvDatos.Rows
             CvePersonal = Row.DataKey("CvePersonal").ToEntero()
             If CvePersonal > 0 Then
-                listpersonal.Add(New RequestUpSupervisorMasiva() With {.CvePersonal = CvePersonal, .CveUsuario = Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero(),
+                listpersonal.Add(New RequestUpSupervisorMasiva() With {.CvePersonal = CvePersonal, .CveUsuario = Row.FCDropDownList("DdlGVSubProyecto").SelectedValue.ToEntero(),
                                  .CveCliente = Row.FCDropDownLost("DdlClientes").SelectedValue.ToEntero()})
             End If
         Next
         Dim continuar As Boolean = False
+        Dim OcurrioError As Boolean = False
         Using ObjPersonal As ClsRH = New ClsRH()
             ObjPersonal.IniciaTransacSQL()
-            If ObjPersonal.UpPersonalSupervisorMasiva(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, listpersonal) Then
-                ObjPersonal.Commit()
-                continuar = True
-                Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+
+            For Each Row As GridViewRow In GvDatos.Rows
+
+                If Row.DataKey("CvePersonal") <> "" Then
+                    If Not ObjPersonal.UpdatePersonalMasivoData(Row.FCDropDownList("DdlTurno").SelectedValue.ToEntero, DirectCast(Row.FindControl("DdlClientes"), ADServerControl.Dropdownlost).SelectedValue.ToEntero, Row.FCDropDownList("DdlSupervisor").SelectedValue.ToEntero(),
+                                                            Row.DataKey("CvePersonal").ToEntero(), UsuarioActual.CveEmpresa) Then
+                        OcurrioError = True
+                        ObjPersonal.RollBack()
+                        Exit For
+                    End If
+                End If
+            Next
+            If OcurrioError Then
             Else
-                ObjPersonal.RollBack()
+                If ObjPersonal.UpPersonalSupervisorMasiva(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, listpersonal) Then
+                    ObjPersonal.Commit()
+                    continuar = True
+                    Alert("La información se guardó correctamente.", TipoMensaje.MsgInformacion)
+                Else
+                    ObjPersonal.RollBack()
+                End If
+
             End If
         End Using
         If continuar Then