RH/Personal.aspx.vb

@@ -30,6 +30,20 @@ Partial Class RH_Personal
             ViewState("salarioVariable") = value
         End Set
     End Property
+
+
+    Property CveSubTipoPeriodo As Integer
+        Get
+            If ViewState("CveSubTipoPeriodo") Is Nothing Then
+                Return -1
+            Else
+                Return DirectCast(ViewState("CveSubTipoPeriodo"), Integer)
+            End If
+        End Get
+        Set(value As Integer)
+            ViewState("CveSubTipoPeriodo") = value
+        End Set
+    End Property
     Property CcveMovtoPermanente As Integer
         Get
             If ViewState("CcveMovtoPermanente") Is Nothing Then
@@ -246,6 +260,14 @@ Partial Class RH_Personal
     End Property
 
 
+    Private Property dtSubTipoPeriodo As Data.DataTable
+        Get
+            Return CType(ViewState("dtSubTipoPeriodo"), DataTable)
+        End Get
+        Set(value As Data.DataTable)
+            ViewState("dtSubTipoPeriodo") = value
+        End Set
+    End Property
     Private Property dtNomConceptos As Data.DataTable
         Get
             Return CType(ViewState("dtNomConceptos"), DataTable)
@@ -893,7 +915,10 @@ Partial Class RH_Personal
             Using objno As New ClsNominas
                 objno.GetConceptos()
                 dtNomConceptos = objno.DtResultados
+                objno.GetSubTipoPeriodo(UsuarioActual.CveEmpresa)
+                dtSubTipoPeriodo = objno.DtResultados
             End Using
+            divSubTipoPeriodo.Visible = False
             PnlSalarios.Visible = showsalarios
 
             ViewState("Orden") = ""
@@ -1056,6 +1081,7 @@ Partial Class RH_Personal
         DdlRegimenContratacion.SelectedValueExist(1)
         DdlMetodoPago.SelectedValueExist(1)
         DdlTipoPeriodo.SelectedValueExist(1)
+        DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
         DdlTipoContrato.SelectedValueExist(2)
         DdlJornada.SelectedValueExist(6)
         DdlPuesto.SelectedIndex = 1
@@ -1658,6 +1684,7 @@ Partial Class RH_Personal
             If ObjPersonal.DtResultados.Rows.Count > 0 Then
                 Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0)
                 Retorno = True
+                CveSubTipoPeriodo = drow("CveSubTipoPeriodo").ToString().ToEntero()
                 ChkEstemporal.Checked = drow("esTemporal").ToString() = "1"
                 CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1"
                 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE")
@@ -1817,6 +1844,7 @@ Partial Class RH_Personal
                 'Carga Nómina
                 TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString
                 DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString()
+                DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing)
                 TxtNumeroSS.Text = ObjPersonal.NumeroSS
                 ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS
                 TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString()
@@ -1996,6 +2024,7 @@ Partial Class RH_Personal
                     If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then
                         TxtSalarioCotizado.Text = TxtSDI.Text
                     End If
+                    CveSubTipoPeriodo = ddlSubTipoPeriodo.SelectedValue.ToEntero()
 
                     If CvePersonal = -1 Then
                         URL = ""
@@ -2021,7 +2050,7 @@ Partial Class RH_Personal
                            UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, 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, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
+                           CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
 
                             If Archivo.Exists Then
 
@@ -2107,7 +2136,7 @@ Partial Class RH_Personal
                            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), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then
+                           Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then
 
                             'Funcion usa RH Familiares
                             If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
@@ -8004,6 +8033,19 @@ Partial Class RH_Personal
 
 
 
+    End Sub
+
+    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
+        Dim dt As DataTable = dtSubTipoPeriodo.FiltraParametros(String.Format("CveTipoPeriodo ={0}", DdlTipoPeriodo.SelectedValue.ToEntero()))
+
+        divSubTipoPeriodo.Visible = dt.Rows.Count > 1
+        ddlSubTipoPeriodo.DataSource = dt
+        ddlSubTipoPeriodo.DataBind()
+        If dt.Rows.Count > 0 Then
+            ddlSubTipoPeriodo.SelectedIndex = 0
+        End If
+        ddlSubTipoPeriodo.SelectedValueExist(CveSubTipoPeriodo.ToString())
+        UpDatos.Update()
     End Sub
 End Class