RH/Asistencias.aspx.vb

@@ -5,6 +5,14 @@ Imports Microsoft.Reporting.WebForms
 Partial Class RH_Asistencias
     Inherits ClsPaginas
 
+    Private Property dTAsistenciasInasistencias As DataTable
+        Get
+            Return DirectCast(ViewState("dTAsistenciasInasistencias"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("dTAsistenciasInasistencias") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
 
         If Not IsPostBack Then
@@ -13,6 +21,8 @@ Partial Class RH_Asistencias
             CargaSuperioresOrganigrama()
             CargaProyecto()
             CargaTurnos()
+            dTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
+
             If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola
                 divCliente.Visible = False
                 LblCliente.Visible = False
@@ -93,6 +103,9 @@ Partial Class RH_Asistencias
                 ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then
                     dt = dt.FiltraParametros("CvePersonalPadre IS NULL")
                 End If
+                'If UsuarioActual.CveEmpresa.Contiene(172, 173) Then
+                '    dt = dt.FiltraParametros("", "Tipo")
+                'End If
                 GV.DataSource = dt
             Else
                 GV.DataSource = Nothing
@@ -175,7 +188,7 @@ Partial Class RH_Asistencias
             e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples")
 
             'Carga Tipos de Asistencia
-            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = dTAsistenciasInasistencias
             e.Row.FCDropDownList("DdlTipoAsistencias").DataBind()
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
 

RH/Personal.aspx

@@ -1481,14 +1481,22 @@
                                                     </div>
 
                                                     <div class="form-group form-md-line-input input-iconright">
-                                                        <asp:DropDownList ID="DdlTipoPeriodo" runat="server" AppendDataBoundItems="true" Width="100%" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                        <asp:DropDownList ID="DdlTipoPeriodo" runat="server" OnSelectedIndexChanged="DdlTipoPeriodo_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" Width="100%" DataTextField="TipoPeriodo" DataValueField="CveTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
                                                             <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
                                                         </asp:DropDownList>
                                                         <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo" Text="Tipo de Período:"></asp:Label>
                                                         <asp:RequiredFieldValidator ID="RFVTipoPeriodo" runat="server" ControlToValidate="DdlTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                                         <i></i>
                                                     </div>
-
+                                                    
+                                                    <div id="divSubTipoPeriodo" runat="server" class="form-group form-md-line-input input-iconright">
+                                                        <asp:DropDownList ID="ddlSubTipoPeriodo" runat="server"  Width="100%" DataTextField="CveSubTipoPeriodo" DataValueField="CveSubTipoPeriodo" CssClass="form-control input-sm select2me" ValidationGroup="GrpGuardar">
+                                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+                                                        <asp:Label runat="server" AssociatedControlID="DdlTipoPeriodo" Text="Tipo de Período:"></asp:Label>
+                                                        <asp:RequiredFieldValidator ID="rfvddlSubTipoPeriodo" runat="server" ControlToValidate="ddlSubTipoPeriodo" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Periodo''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                        <i></i>
+                                                    </div>
                                                     <div class="form-group form-md-line-input input-iconright">
 
                                                         <asp:DropDownList ID="DDlTipoSalario" runat="server" CssClass="form-control input-sm select2me" Width="100%" ValidationGroup="GrpGuardar">

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