RH/ActualizacionMasiva.aspx.vb

@@ -12,7 +12,15 @@ Partial Class RH_ActualizacionMasiva
             SetPermisos()
 
             'DdlCliente.Attributes.Add("onclick", "CargaClientes();")
-            CargaProyecto()
+            'CargaProyecto()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyeccto)
+            divddlproyeto.Visible = DdlProyecto.Visible
+            GvDatos.Columns(2).Visible = DdlProyecto.Visible
+            GvDatos.Columns(3).HeaderText = LblSubProyeccto.Text
+            GvDatos.DataSource = New DataTable()
+            GvDatos.DataBind()
+
+            GvDatos.CssClass = String.Format("{0} {1}", GvDatos.CssClass, If(DdlProyecto.Visible, "Columns4", ""))
             CargaTurnos()
             CargaSupervisores()
         End If
@@ -70,16 +78,6 @@ Partial Class RH_ActualizacionMasiva
     '    DdlCliente.Attributes.Remove("onclick")
     'End Sub
 
-    Private Sub CargaProyecto()
-        ViewState("DTProyectos") = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
-
-        Dim Row As DataRow = DirectCast(ViewState("DTProyectos"), DataTable).NewRow()
-        Row("CveProyecto") = -1 : Row("Proyecto") = "Sin Proyecto asignado"
-        DirectCast(ViewState("DTProyectos"), DataTable).Rows.InsertAt(Row, 0)
-
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 1)
-        DdlProyecto.DataBind()
-    End Sub
 
     Private Sub CargaSubProyecto()
         ViewState("DTSubProyectos") = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
@@ -90,20 +88,18 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaTurnos()
-        ViewState("DTTurno") = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        ViewState("DTTurno") = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
         DdlTurno.DataBind()
     End Sub
 
     Private Sub CargaSupervisores()
-        ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
+        ViewState("DTUsuarios") = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND EsSupervisorRH = 1 ", UsuarioActual.CveEmpresa))
 
         Dim Row As DataRow = DirectCast(ViewState("DTUsuarios"), DataTable).NewRow()
         Row("CveUsuario") = -1 : Row("Nombre") = "Sin Supervisor Asignado"
         DirectCast(ViewState("DTUsuarios"), DataTable).Rows.InsertAt(Row, 0)
 
-        'DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
-        'DdlSupervisor.DataBind()
     End Sub
 
 #End Region
@@ -113,9 +109,10 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-
-        Using ObjPersonal As New ClsRH
-
+        consultardata()
+    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
                 GvDatos.DataSource = ObjPersonal.DtResultados
             Else
@@ -123,7 +120,6 @@ Partial Class RH_ActualizacionMasiva
             End If
         End Using
 
-
         GvDatos.DataBind()
         UPDatos.Update()
     End Sub
@@ -154,18 +150,21 @@ Partial Class RH_ActualizacionMasiva
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
-                e.Row.FCLiteral("LtlNombre").Text = "<b>Sub Proyecto:</b> " & If(e.Row.DBCampo("SubProyecto") = String.Empty, "Sin Proyecto Asignado", e.Row.DBCampo("SubProyecto"))
-                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 6
+                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
+                For i As Integer = 1 To 10
                     e.Row.Cells(i).Visible = False
                 Next
+                e.Row.CssClass = "Titulos2"
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
-                e.Row.FCLiteral("LtlNombre").Text = "<b>Turno:</b> " & e.Row.DBCampo("Turno")
-                e.Row.Cells(0).ColumnSpan = 7
-                For i As Integer = 1 To 6
+                e.Row.FCLiteral("LtlCodigo").Text = String.Format("<b>Turno:</b> {0}", e.Row.DBCampo("Turno"))
+                e.Row.Cells(0).ColumnSpan = 11
+                For i As Integer = 1 To 10
                     e.Row.Cells(i).Visible = False
                 Next
+                e.Row.CssClass = "Titulos3"
                 e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
             Else
                 'If e.Row.DBCampo("CveProyecto") <> String.Empty Then e.Row.FCDropDownList("DdlGVProyecto").SelectedValue = e.Row.DBCampo("CveProyecto")
@@ -177,6 +176,14 @@ Partial Class RH_ActualizacionMasiva
 
                 e.Row.FCTextBox("TxtSalarioCotizado").Text = e.Row.FCTextBox("TxtSalarioCotizado").Text.Replace(",", "")
 
+                e.Row.FCDropDownList("DdlSupervisor").DataSource = DTUsuarios
+                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())
+
+                e.Row.FCDropDownLost("DdlClientes").SelectedValue = e.Row.DBCampo("CveCliente")
+                e.Row.FCDropDownLost("DdlClientes").SelectedText = e.Row.DBCampo("Cliente")
+
                 ''Deshabilita todo
                 'e.Row.Cells(1).Enabled = True : e.Row.Cells(2).Enabled = True : e.Row.Cells(3).Enabled = True : e.Row.Cells(4).Enabled = True
                 'e.Row.Cells(5).Enabled = True : e.Row.Cells(6).Enabled = True : e.Row.Cells(7).Enabled = True
@@ -188,7 +195,7 @@ Partial Class RH_ActualizacionMasiva
         End If
     End Sub
 
-    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs)
         'Dim ObjPersonal As New ClsRH
         'ObjPersonal.IniciaTransacSQL()
 
@@ -309,7 +316,7 @@ Partial Class RH_ActualizacionMasiva
             Response.BinaryWrite(memoryStream.ToArray())
             Response.[End]()
         Catch ex As Exception
-            Alert("Ocurrio un error al generar el Formato de salario" & ex.ToString())
+            Alert(String.Format("Ocurrio un error al generar el Formato de salario {0}", ex.ToString()))
         End Try
     End Sub
     Protected Sub LnkCargarSalarios_Click(sender As Object, e As EventArgs)
@@ -344,8 +351,7 @@ Partial Class RH_ActualizacionMasiva
                 DTEXcel = Extensiones.ModExtensiones.ReadExcelFile(fileItem.FileUrl, True).FiltraParametros("  LEN(Codigo)>0  ")
             Catch ex As Exception
                 continuar = False
-                stringError = "Ocurrio un Error al procesar el excel "
-                String.Format("{0} " & vbCrLf & "{0}", stringError, ex.ToString()).GuardaLog()
+                String.Format("Ocurrio un Error al procesar el excel  {0}{1}", vbCrLf, ex.ToString()).GuardaLog()
             End Try
         End If
         If continuar Then
@@ -386,4 +392,30 @@ Partial Class RH_ActualizacionMasiva
 
         End If
     End Sub
+
+    Protected Sub BtnGuardarSupervisor_Click(sender As Object, e As EventArgs)
+        Dim CvePersonal As Integer = 0
+        Dim listpersonal As New List(Of RequestUpSupervisorMasiva)
+        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(),
+                                 .CveCliente = Row.FCDropDownLost("DdlClientes").SelectedValue.ToEntero()})
+            End If
+        Next
+        Dim continuar 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)
+            Else
+                ObjPersonal.RollBack()
+            End If
+        End Using
+        If continuar Then
+            consultardata()
+        End If
+    End Sub
 End Class