RH/Personal.aspx.vb

@@ -939,9 +939,9 @@ Partial Class RH_Personal
     End Sub
     Private Sub SetValues()
         ViewState("Orden") = String.Empty
-        DdlClienteAsignado.Attributes.Add("onclick", "CargaClientes();")
-        DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
-        DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
+        'DdlClienteAsignado.Attributes.Add("onclick", "CargaClientes();")
+        'DdlClienteAsistenciaC.Attributes.Add("onclick", "CargaClientes();")
+        'DdlClienteAsistenciaA.Attributes.Add("onclick", "CargaClientes();")
         CargaClientes()
         Dim fechainicioasistencia As String
         Dim fechaFinasistencia As String
@@ -1064,20 +1064,24 @@ Partial Class RH_Personal
 
     End Sub
     Private Sub CargaClientes()
-        Dim ObjClientes As New ClsClientes
-        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
-            DdlClienteAsignado.DataSource = ObjClientes.DtResultados
-            DdlClienteAsistenciaC.DataSource = ObjClientes.DtResultados
-            DdlClienteAsistenciaA.DataSource = ObjClientes.DtResultados
-        Else
-            DdlClienteAsignado.DataSource = Nothing
-            DdlClienteAsistenciaC.DataSource = Nothing
-            DdlClienteAsistenciaA.DataSource = Nothing
-        End If
-        ObjClientes.Dispose()
-        DdlClienteAsignado.DataBind()
-        DdlClienteAsistenciaC.DataBind()
-        DdlClienteAsistenciaA.DataBind()
+        'Dim ObjClientes As New ClsClientes
+        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
+        '    DdlClienteAsignado.DataSource = ObjClientes.DtResultados
+        '    DdlClienteAsistenciaC.DataSource = ObjClientes.DtResultados
+        '    DdlClienteAsistenciaA.DataSource = ObjClientes.DtResultados
+        'Else
+        '    DdlClienteAsignado.DataSource = Nothing
+        '    DdlClienteAsistenciaC.DataSource = Nothing
+        '    DdlClienteAsistenciaA.DataSource = Nothing
+        'End If
+        'ObjClientes.Dispose()
+        'DdlClienteAsignado.DataBind()
+        'DdlClienteAsistenciaC.DataBind()
+        'DdlClienteAsistenciaA.DataBind()
+        DdlClienteAsignado.setEsWebService(True)
+        DdlClienteAsistenciaC.setEsWebService(True)
+        DdlClienteAsistenciaA.setEsWebService(True)
+        DdlClienteBuzon.setEsWebService(True)
     End Sub
 
     Private Sub CargaProyecto()
@@ -1173,7 +1177,13 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaTipoRegimen()
-        DdlRegimenContratacion.DataSource = GlobalDTNomSatRegimenContratacion
+        Dim dt As DataTable = GlobalDTNomSatRegimenContratacion.Copy()
+        For Each item As DataRow In dt.Rows
+            item("RegimenContratacion") = String.Format("{1}{0} {2}", item("CveSATRegimenContratacion"), If(item("CveSATRegimenContratacion").ToString().Length > 1, "", "0"), item("RegimenContratacion"))
+        Next
+        dt.AcceptChanges()
+
+        DdlRegimenContratacion.DataSource = dt.FiltraParametros("", "RegimenContratacion")
         DdlRegimenContratacion.DataBind()
     End Sub
 
@@ -1477,7 +1487,7 @@ Partial Class RH_Personal
                 ViewState("CveEstatusOriginal") = ObjPersonal.CveEstatusPersonal.ToString()
                 'Asignación
                 If ObjPersonal.CveCliente <> -1 Then
-                    DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString()))
+                    'DdlClienteAsignado.Items.Insert(1, New ListItem(ObjPersonal.Cliente, ObjPersonal.CveCliente.ToString()))
                     DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
                 Else
                     DdlClienteAsignado.SelectedValue = ObjPersonal.CveCliente.ToString()
@@ -2004,7 +2014,7 @@ Partial Class RH_Personal
 
     Private Sub BuzonCalidadLimpiaModal(ControlesActivos As Boolean)
 
-        DdlClienteBuzon.SelectedIndex = 0
+        DdlClienteBuzon.SelectedValue = "0"
         DdlClienteBuzon.Enabled = ControlesActivos
 
         DdlSucursalClienteBuzon.SelectedIndex = 0
@@ -2050,7 +2060,7 @@ Partial Class RH_Personal
 
         CvePersonalBuzon = GvRow.DataKey("CvePersonalBuzon").ToEntero
         CargaBuzonCalidadSeguimiento()
-        DdlClienteBuzon.SelectedValueExist(GvRow.DataKey("CveCliente"))
+        DdlClienteBuzon.SelectedValue = GvRow.DataKey("CveCliente")
         ' DdlClienteBuzon.Enabled = False
 
         If GvRow.DataKey("CveClienteSucursal").ToEntero > 0 Then
@@ -2223,7 +2233,7 @@ Partial Class RH_Personal
     End Sub
 
 
-    Private Sub DdlClienteBuzon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteBuzon.SelectedIndexChanged
+    Private Sub DdlClienteBuzon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClienteBuzon.selectedindexchange
         CargaClienteSucursal()
     End Sub
 
@@ -3188,6 +3198,14 @@ Partial Class RH_Personal
 
 #Region "I M P R I M I R     N O M I N A"
 
+    Private Function ValorNodoXML(n As System.Xml.XmlNode, Campo As String, Optional Retorno As String = "") As String
+        Dim o As System.Xml.XmlNode = n.Attributes.Cast(Of System.Xml.XmlAttribute)().SingleOrDefault(Function(a) String.Compare(a.Name, Campo, True) = 0)
+        If o Is Nothing Then
+            Return Retorno
+        Else
+            Return o.Value
+        End If
+    End Function
     Protected Sub LbPDF_Click(sender As Object, e As EventArgs)
 
         Dim LB = CType(sender, LinkButton)
@@ -3266,7 +3284,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
                 params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
                 params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
-                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedText))
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))
@@ -3360,7 +3378,7 @@ Partial Class RH_Personal
                 params.Add(New ReportParameter("Puesto", If(DdlPuesto.SelectedValue = "-1", "", DdlPuesto.SelectedItem.Text)))
                 params.Add(New ReportParameter("SupervisorRH", If(DdlSupervisor.SelectedValue = "-1", "", DdlSupervisor.SelectedItem.Text)))
                 params.Add(New ReportParameter("SupervisorInmediato", If(DdlSupervisorOrganigrama.SelectedValue = "-1", "", DdlSupervisorOrganigrama.SelectedItem.Text)))
-                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedItem.Text))
+                params.Add(New ReportParameter("Cliente", DdlClienteAsignado.SelectedText))
                 params.Add(New ReportParameter("Proyecto", DdlProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("SubProyecto", DdlSubProyectoAsignado.SelectedItem.Text))
                 params.Add(New ReportParameter("Estatus", If(DdlEstatusPersonal.SelectedValue = "-1", "", DdlEstatusPersonal.SelectedItem.Text)))