RH/Personal.aspx.vb

@@ -1075,8 +1075,8 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlMotivoBaja.DataBind()
+        'DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        'DdlMotivoBaja.DataBind()
     End Sub
 
     Private Sub CargaEstatusPersonal()
@@ -1524,14 +1524,13 @@ Partial Class RH_Personal
 
                 DdlPuesto.SelectedValue = ObjPersonal.CvePuesto.ToString()
                 DdlRuta.SelectedValue = ObjPersonal.CveRuta.ToString()
-                DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
+                'DdlMotivoBaja.SelectedValue = ObjPersonal.CveMotivoBaja.ToString()
 
-                TxtFechaBaja.Text = If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)
 
-                If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
-                    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
-                End If
+                'If ObjPersonal.DtResultados IsNot Nothing AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                '    TxtFechaActivo.Text = If(drow("FechaActivo").ToString().Length > 0, drow("FechaActivo").ToString().ToDate.ToString("dd/MM/yyyy"), drow("FechaIng").ToString().ToDate.ToString("dd/MM/yyyy"))
+                '    TxtFechaReingreso.Text = If(drow("FechaReingreso").ToString().Length > 0, drow("FechaReingreso").ToString().ToDate.ToString("dd/MM/yyyy"), "")
+                'End If
 
                 DdlEstatusPersonal.SelectedValue = ObjPersonal.CveEstatusPersonal.ToString()
 
@@ -1713,19 +1712,18 @@ Partial Class RH_Personal
         Dim Mensaje = ""
         Dim Accion = ""
 
-        Dim FechaBaja As Date = MinFecha
-        Dim FechaActivo As Date = MinFecha
-        Dim FechaReingreso As Date = MinFecha
+        'Dim FechaBaja As Date = MinFecha
+        'Dim FechaActivo As Date = MinFecha
+        'Dim FechaReingreso As Date = MinFecha
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
-            If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
-                FechaActivo = TxtFechaActivo.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
-                FechaBaja = TxtFechaBaja.Text.ToDate
-            ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
-                FechaReingreso = TxtFechaReingreso.Text.ToDate
-            End If
-        End If
+        'If DdlEstatusPersonal.SelectedValue.ToEntero <> CvePersonalEstatusInicial Then
+        '    If DdlEstatusPersonal.SelectedValue.ToEntero = 1 Then
+        '        FechaActivo = TxtFechaActivo.Text.ToDate
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 2 Then
+        '    ElseIf DdlEstatusPersonal.SelectedValue.ToEntero = 5 Then
+        '        FechaReingreso = TxtFechaReingreso.Text.ToDate
+        '    End If
+        'End If
 
         If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
             TxtSalarioCotizado.Text = TxtSDI.Text
@@ -1745,7 +1743,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1816,7 +1814,7 @@ Partial Class RH_Personal
                DdlEscolaridad.SelectedValue.ToEntero,
                DdlEstadoCivil.SelectedValue.ToEntero,
                DdlGenero.SelectedValue.ToEntero,
-               DdlMotivoBaja.SelectedValue.ToEntero, If(DdlEstatusPersonal.SelectedValue = "2", TxtFechaBaja.Text.Trim, "-1"),
+               -1, "-1",
                DdlEstatusPersonal.SelectedValue.ToEntero, TxtFechaNacimiento.Text.ToDate,
                TxtLugarNacimiento.Text.Trim, TxtCalle.Text.Trim, TxtNumExt.Text.Trim, TxtNumInt.Text.Trim, TxtColonia.Text.Trim, TxtCP.Text.Trim, TxtCiudad.Text.Trim,
                DdlEstados.SelectedValue.ToEntero, TxtTelefono.Text.Trim, TxtCelular.Text.Trim, TxtRFC.Text.Trim,
@@ -1826,7 +1824,7 @@ Partial Class RH_Personal
                URL, DdlSupervisor.SelectedValue.ToEntero, TxtCLABE.Text.Trim, TxtBancoNumCuenta.Text.Trim, DdlJornada.SelectedValue.ToEntero, DdlViaticos.SelectedValue.ToEntero, DdlViaticos.SelectedItem.Text,
                DdlPrestamos.SelectedValue.ToEntero, DdlPrestamos.SelectedItem.Text, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero, DdlSubproyectoZona.SelectedValue.ToEntero, CveUniforme:=DdlUniforme.SelectedValue.ToEntero,
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario,
-               FechaActivo:=FechaActivo, FechaReingreso:=FechaReingreso, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
+               CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), CvePais:=DdlPais.SelectedValue.ToEntero) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -2652,16 +2650,18 @@ Partial Class RH_Personal
 
     Private Sub MostrarOcultarFechasEstatus()
 
+        'DivFechaReingreso.Visible = False
+        'DivFechaActivo.Visible = False
 
-        If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
-            DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
-            DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
-            DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
-        Else
-            DivFechaActivo.Visible = False
-            DivFechaBaja.Visible = False
-            DivFechaReingreso.Visible = False
-        End If
+        'If DdlEstatusPersonal.SelectedValue.ToEntero.Contiene(1, 2, 5) Then
+        '    DivFechaActivo.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 1, True, False)
+        '    'DivFechaBaja.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 2, True, False)
+        '    'DivFechaReingreso.Visible = If(DdlEstatusPersonal.SelectedValue.ToEntero = 5, True, False)
+        'Else
+        '    DivFechaActivo.Visible = False
+        '    'DivFechaBaja.Visible = False
+        '    DivFechaReingreso.Visible = False
+        'End If
 
     End Sub
 
@@ -3396,7 +3396,7 @@ Partial Class RH_Personal
                 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)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))
@@ -3490,7 +3490,7 @@ Partial Class RH_Personal
                 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)))
-                params.Add(New ReportParameter("MotivoBaja", If(DdlMotivoBaja.SelectedValue = "-1", "", DdlMotivoBaja.SelectedItem.Text)))
+                params.Add(New ReportParameter("MotivoBaja", ""))
                 params.Add(New ReportParameter("FechaInicio", ObjPersonal.FechaIng.ToShortDateString))
                 params.Add(New ReportParameter("FechaFin", If(ObjPersonal.FechaBaja.ToShortDateString = "01/01/0001", "", ObjPersonal.FechaBaja.ToShortDateString)))
                 params.Add(New ReportParameter("CuentaContable", DdlViaticos.SelectedItem.Text))