App_Code/ClsRH.vb

@@ -1940,7 +1940,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String,
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1,
-        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1) As Boolean
+        Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp = False
@@ -2029,6 +2029,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@CveRegistroPatronal", SqlDbType.Int).Value = CveRegistroPatronal
             .Add("@CveEmpresaAsignado", SqlDbType.Int).Value = CveEmpresaAsignado
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
 
 
@@ -2074,7 +2075,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
         CveJornada As Integer, IdCtaContPersonal As Integer, CtaContPersonal As String, IdCtaContPrestamos As Integer, CtaContPrestamos As String, CveEmpresa As Integer, CveUsuarioNomina As Integer, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1,
         Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1,
         Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1,
-        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1) As Boolean
+        Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2169,6 +2170,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@CveMedioTransporte", SqlDbType.Int).Value = CveMedioTransporte
             .Add("@EsReserva", SqlDbType.Int).Value = EsReserva
             .Add("@Fiscalizable", SqlDbType.Int).Value = Fiscalizable
+            .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
 
         End With
 
@@ -7583,7 +7585,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
 #Region "TipoTrabajador"
 #Region "CRUD_TiposTrabajador"
-    Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean
+    Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveEmpresa As Int32) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure)
         addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador)

RH/Personal.aspx.vb

@@ -932,6 +932,7 @@ Partial Class RH_Personal
                 divBitacora.Visible = True
                 CargaGvBitacora()
             Else
+                cargatipoTrabajador()
                 MostrarOcultarFechasEstatus()
                 LoadDefaultValues()
                 'Configuración de Modalidad Insert
@@ -1080,29 +1081,43 @@ Partial Class RH_Personal
 
     Public Sub cargatipoTrabajador()
         Using objrh As New ClsRH()
-            If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
-                Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
-                Dim drow As DataRow = dt.NewRow()
-                If UsuarioActual.CveEmpresa <> 158 Then
-                    drow = dt.NewRow()
-                    drow("CveTipoTrabajador") = "2"
-                    drow("TipoTrabajadorB") = "Operativo"
-                    dt.Rows.InsertAt(drow, 0)
-                    drow = dt.NewRow()
-                    drow("CveTipoTrabajador") = "3"
-                    drow("TipoTrabajadorB") = "Administrativo"
+            If UsuarioActual.CveEmpresa <> 158 Then
+                If (objrh.TiposTrabajadorGet(-1, UsuarioActual.CveEmpresa)) Then
+                    Dim dt As DataTable = objrh.DtResultados
+                    Dim drow As DataRow = dt.NewRow()
+                    drow("CveTipoTrabajador") = "-1"
+                    drow("TipoTrabajadorB") = "Seleccione"
                     dt.Rows.InsertAt(drow, 0)
+                    DdlTipoTrabajador.DataSource = dt
+                    DdlTipoTrabajador.DataBind()
+                End If
 
-                End If
-                drow = dt.NewRow()
-                drow("CveTipoTrabajador") = "-1"
-                drow("TipoTrabajadorB") = "Seleccione"
-                dt.Rows.InsertAt(drow, 0)
-                If DdlTipoTrabajador.Items.Count() > 0 Then
-                    DdlTipoTrabajador.SelectedValueExist("-1")
-                End If
-                DdlTipoTrabajador.DataSource = dt
-                DdlTipoTrabajador.DataBind()
+            Else
+
+                'If (objrh.AgroDepartamentosGet(UsuarioActual.CveEmpresa, -1, -1)) Then
+                '    Dim dt As DataTable = objrh.DtResultados.FiltraParametros(String.Format("CveSubProyecto ={0}", DdlSubProyectoAsignado.SelectedValue), "", {"CveTipoTrabajador", "TipoTrabajadorB"})
+                '    Dim drow As DataRow = dt.NewRow()
+                '    If UsuarioActual.CveEmpresa <> 158 Then
+                '        drow = dt.NewRow()
+                '        drow("CveTipoTrabajador") = "2"
+                '        drow("TipoTrabajadorB") = "Operativo"
+                '        dt.Rows.InsertAt(drow, 0)
+                '        drow = dt.NewRow()
+                '        drow("CveTipoTrabajador") = "3"
+                '        drow("TipoTrabajadorB") = "Administrativo"
+                '        dt.Rows.InsertAt(drow, 0)
+
+                '    End If
+                '    drow = dt.NewRow()
+                '    drow("CveTipoTrabajador") = "-1"
+                '    drow("TipoTrabajadorB") = "Seleccione"
+                '    dt.Rows.InsertAt(drow, 0)
+                '    If DdlTipoTrabajador.Items.Count() > 0 Then
+                '        DdlTipoTrabajador.SelectedValueExist("-1")
+                '    End If
+                '    DdlTipoTrabajador.DataSource = dt
+                '    DdlTipoTrabajador.DataBind()
+                'End If
             End If
         End Using
     End Sub
@@ -1938,7 +1953,7 @@ Partial Class RH_Personal
                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.CveUsuario, UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(),
                TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(),
-               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero) Then
+               Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
                 If Archivo.Exists Then
 
@@ -2023,7 +2038,7 @@ Partial Class RH_Personal
                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,
                CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
-               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1)) Then
+               CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
                 'Funsion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then