Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsNominas.vb

@@ -2064,6 +2064,25 @@ Public Class ClsNominas
     End Function
 #End Region
 
+    Public Function GetSubTipoPeriodo(CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Nom_SubTipoPeriodo")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Períodos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
 #Region "Periodos"
     Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean
 
@@ -2108,7 +2127,7 @@ Public Class ClsNominas
     End Function
 
     Public Function AddPeriodo(CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, FechaInicio As Date, FechaFin As Date,
-      EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer) As Boolean
+      EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer, CveSubTipoPeriodo As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Nom_PeriodosAdd")
@@ -2131,6 +2150,7 @@ Public Class ClsNominas
             .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
             .Add("@CveUsuario", SqlDbType.VarChar).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
         End With
 
         Try
@@ -2151,7 +2171,7 @@ Public Class ClsNominas
 
     Public Function UpdatePeriodo(FechaInicio As Date, FechaFin As Date, EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean,
              EsInicioAño As Boolean, EsFinAño As Boolean, FueCalculado As Boolean, CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer,
-    Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer) As Boolean
+    Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer, CveSubTipoPeriodo As Integer) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2177,6 +2197,7 @@ Public Class ClsNominas
             .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo
             .Add("@CveTurno", SqlDbType.Int).Value = CveTurno
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
         End With
 
         Try

App_Code/ClsRH.vb

@@ -1942,7 +1942,7 @@ Public Class ClsRH
         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, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, 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, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-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, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
         Dim noguardoXcurp As Boolean = False
@@ -2032,6 +2032,7 @@ Public Class ClsRH
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
             .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
 
+            .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
 
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
@@ -2073,7 +2074,7 @@ Public Class ClsRH
         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, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1,
-       Optional TipoSangre As String = "-1") As Boolean
+       Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -2168,6 +2169,7 @@ Public Class ClsRH
             .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador
             .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo
             .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre
+            .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo
 
         End With
 

Inicio.aspx

@@ -1941,16 +1941,10 @@
 
                 
 
-            } else {                
+            } else {              
-
                 $("#<%=LnkTituloLink.ClientID%>").css("display", "");
-                if (event.CveTipoEvento == 1) { 
                     $("#<%=LnkTituloLink.ClientID%>").text("Tarea: " + event.title);
-                    $("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento=1&CveEvento=" + event.id);
+                $("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento="+event.CveTipoEvento+"&CveEvento=" + event.id);
-               
-                } else {
-                    $("#<%=LnkTituloLink.ClientID%>").css("display", "none");               
-                }
 
 
             }

Nomina/CatPeriodos.aspx

@@ -184,7 +184,7 @@
                             </tr>
                         </thead>
                     </table>
-                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
+                    <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePeriodo, CveTipoPeriodo,CveSubTipoPeriodo, Ejercicio, Numero, FechaInicio,FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, Estatus, CveTurno"
                         CssClass="table table-striped table-advance table-hover mysmallbtn ScrollAD Widthall GvDatos" data-tableheader=".tableheader" EmptyDataText="No se encontraron Periodos Registrados"
                         GridLines="None" data-rows="0" ShowHeader="false">
                         <Columns>
@@ -367,6 +367,10 @@
                                         <asp:DropDownList ID="DdlTipoPeriodoAdd" CssClass="select2me form-control" runat="server" DataValueField="CveTipoPeriodo" DataTextField="TipoPeriodo" Width="100%"></asp:DropDownList>
                                         <asp:HiddenField runat="server" ID="hdnCvePerido" Value="" />
                                     </div>
+                                    <div class="col-xs-2" style="text-align: left">Subtipo Periodo:</div>
+                                    <div class="col-xs-4">
+                                        <asp:TextBox ID="TxtCveSubTipoPeriodoAdd" runat="server" CssClass=" form-control input-sm" CausesValidation="true" MaxLength="70" ValidationGroup="GrpGuardar" Width="100%"></asp:TextBox>
+                                    </div>
                                 </div>
                                 <br />
                                 <div class="row">

Nomina/CatPeriodos.aspx.vb

@@ -217,6 +217,7 @@ Partial Class Nomina_CatPeriodos
     Private Sub LnkAddPeriodo_Click(sender As Object, e As EventArgs) Handles LnkAddPeriodo.Click
         LimpiarModal()
         Comando = "Agregar"
+        TxtCveSubTipoPeriodoAdd.Text = "1"
         lblTiulomodal.Text = "Agregar Periodo"
         RegistraScript("$('#divAddPeriodo').modal('show');")
     End Sub
@@ -238,7 +239,10 @@ Partial Class Nomina_CatPeriodos
         Dim CveTipoPeriodo As Integer = DdlTipoPeriodoAdd.SelectedValue.ToEntero()
         Dim Estatus As Integer = DdlEstatusAdd.SelectedValue.ToEntero()
         Dim CvePeriodo As Integer = hdnCvePerido.Value.ToEntero()
-
+        Dim CveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoAdd.Text.ToEntero()
+        If CveSubTipoPeriodo <= 1 Then
+            CveSubTipoPeriodo = 1
+        End If
         For Each item As ListItem In CBLchk.Items
             Select Case item.Value.ToEntero()
                 Case 1
@@ -259,7 +263,7 @@ Partial Class Nomina_CatPeriodos
         Next
         If Comando = "Agregar" Then
 
-            If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero()) Then
+            If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
 
                 Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
@@ -275,7 +279,7 @@ Partial Class Nomina_CatPeriodos
             End If
         ElseIf Comando = "Actualizar" Then
 
-            If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero()) Then
+            If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then
 
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                 UpDatos.Update()
@@ -312,6 +316,8 @@ Partial Class Nomina_CatPeriodos
         TxtFechaFinAdd.Text = GvRow.DataKey("FechaFin").ToString()
         DdlEstatusAdd.SelectedValueExist(GvRow.DataKey("Estatus").ToString().ToEntero())
         hdnCvePerido.Value = GvRow.DataKey("CvePeriodo").ToString()
+        TxtCveSubTipoPeriodoAdd.Text = GvRow.DataKey("CveSubTipoPeriodo").ToString()
+
         For Each item As ListItem In CBLchk.Items
             Select Case item.Value.ToEntero()
                 Case 1

Nomina/Finiquito.aspx

@@ -366,7 +366,7 @@
                         <div class="portlet-title">
                             <div class="caption ">
                                 <i class="fa fa-bookmark font-yellow-gold"></i>
-                                <span class="caption-subject bold uppercase font-yellow-gold">Finiquito (Ordinario)</span>
+                                <span class="caption-subject bold uppercase font-yellow-gold">Finiquito (Ordinario) <asp:Label ID="LtlFiniquitoOrdinario" runat="server"  ></asp:Label></span>
                             </div>
                             <div class="tools">
                                 <a href="javascript:;" class="collapse" data-original-title="" title=""></a>

Nomina/Finiquito.aspx.cs

@@ -36,11 +36,11 @@ public partial class Nomina_Finiquito : ClsPaginas
         get { return ViewState["CvePersonalAltas"] != null ? ViewState["CvePersonalAltas"].ToString().ToEntero() : 0; }
         set { ViewState["CvePersonalAltas"] = value; }
     }
-    /*private int CvePeriodoIndemnizacion
+    private int CvePeriodoIndemnizacion
     {
         get { return ViewState["CvePeriodoIndemnizacion"] != null ? ViewState["CvePeriodoIndemnizacion"].ToString().ToEntero() : 0; }
         set { ViewState["CvePeriodoIndemnizacion"] = value; }
-    }*/
+    } 
     private int CvePeriodoFiniquito
     {
         get { return ViewState["CvePeriodoFiniquito"] != null ? ViewState["CvePeriodoFiniquito"].ToString().ToEntero() : 0; }
@@ -88,6 +88,40 @@ public partial class Nomina_Finiquito : ClsPaginas
 
         set { ViewState["dtempleados"] = value; }
     }
+
+
+
+    private DataTable dtConceptosIndemnizacion
+    {
+        get
+        {
+            if (ViewState["dtConceptosIndemnizacion"] == null) { return null; }
+            else { return (DataTable)ViewState["dtConceptosIndemnizacion"]; }
+        }
+
+        set { ViewState["dtConceptosIndemnizacion"] = value; }
+    }
+
+    private DataTable dtempleadosConceptosIndemnizacion
+    {
+        get
+        {
+            if (ViewState["dtempleadosConceptosIndemnizacion"] == null) { return null; }
+            else { return (DataTable)ViewState["dtempleadosConceptosIndemnizacion"]; }
+        }
+
+        set { ViewState["dtempleadosConceptosIndemnizacion"] = value; }
+    }
+    private DataTable dtempleadosIndemnizacion
+    {
+        get
+        {
+            if (ViewState["dtempleadosIndemnizacion"] == null) { return null; }
+            else { return (DataTable)ViewState["dtempleadosIndemnizacion"]; }
+        }
+
+        set { ViewState["dtempleadosIndemnizacion"] = value; }
+    }
     #endregion
     protected void Page_Load(object sender, EventArgs e)
     {
@@ -183,7 +217,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                     DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]);
                     TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}";
                     ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE");
-                    //CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
+                    CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
                     CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
                     if (CvePeriodoFiniquito > 0)
                     {
@@ -720,7 +754,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                 if (continuar && ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked, TxtObservaciones.Text) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
                 {
                     DataRow da = ObjPersonal.DtResultados.Rows[0];
-                    //CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
+                    CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
                     CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
                     // Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito));
                 }
@@ -763,7 +797,7 @@ public partial class Nomina_Finiquito : ClsPaginas
                 if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0)
                 {
                     DataRow da = ObjPersonal.DtResultados.Rows[0];
-                    //CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
+                    CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero();
                     CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero();
                     // Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito));
                 }
@@ -822,6 +856,8 @@ public partial class Nomina_Finiquito : ClsPaginas
         List<NConcepto> finindem = null;
         dtempleadosConceptos = null;
         dtempleados = null;
+        dtempleadosConceptos = null;
+        dtempleados = null;
         LnkAutorizar.Visible = true;
         if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1)
         {
@@ -835,13 +871,37 @@ public partial class Nomina_Finiquito : ClsPaginas
             UpAcciones.Update();
             dtempleadosConceptos = objnom.DTSetResultados.Tables[4];
             dtConceptos = objnom.DTSetResultados.Tables[0];
-            LnkCancelar.Visible = !LnkAutorizar.Visible? false: LnkCancelar.Visible;
+            LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible;
-            LnkGuardarDatos.Visible = !LnkAutorizar.Visible?false: LnkGuardarDatos.Visible;
+            LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible;
+            LtlFiniquitoOrdinario.Text = $"";
+            DataRow dre = dtempleados.FiltroPrimero(string.Format("  CvePersonal ={0}", CvePersonal));
+            if (dre != null)
+            {
+                LtlFiniquitoOrdinario.Text = string.Format(" del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} {0}", (dre["CveTipoPeriodo"].ToString()=="6"? "Extraordinario" : "Ordinario"), dre["FechaInicio"], dre["FechaFin"]);
+            }
+        }
+        if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoIndemnizacion, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1)
+        {
+            dtempleadosIndemnizacion = objnom.DTSetResultados.Tables[3];
+            dtempleadosConceptosIndemnizacion = objnom.DTSetResultados.Tables[4];
+            dtConceptosIndemnizacion = objnom.DTSetResultados.Tables[0];
+            LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", string.Format("NomAutorizado =0 AND CvePersonal ={0}", CvePersonal)) > 0);
+            NominaAutorizada = !LnkAutorizar.Visible;
+            LnkFormatoRenuncia.Visible = true;
+            LnkGuardarDatos.Enabled = LnkAutorizar.Visible;
+            LnkTimbrar.Visible = !(LnkAutorizar.Visible) && (dtempleados.COUNT("CvePersonal", string.Format("SeTimbro=0  AND CvePersonal ={0}", CvePersonal)) > 0);
+            LnkCancelarNomina.Visible = !LnkAutorizar.Visible && LnkTimbrar.Visible;
+            UpAcciones.Update();
+            LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible;
+            LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible;
         }
         if (dtConceptos != null && dtempleadosConceptos != null && dtempleados != null)
         {
-            finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados);
+            finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados); 
-            finindem = cargasobrericiboconceptosIndemnizacion(dtConceptos, dtempleadosConceptos, dtempleados);
+        }
+        if (dtConceptosIndemnizacion != null && dtempleadosConceptosIndemnizacion != null && dtempleadosIndemnizacion != null)
+        { 
+            finindem = cargasobrericiboconceptosIndemnizacion(dtConceptosIndemnizacion, dtempleadosConceptosIndemnizacion, dtempleadosIndemnizacion);
         }
 
         GvFinOrdinario.DataSource = finordin;
@@ -860,30 +920,9 @@ public partial class Nomina_Finiquito : ClsPaginas
     private List<NConcepto> cargasobrericiboconceptos(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados)
     {
         int SRCvePersonal = this.CvePersonal;
-        DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema NOT IN(10,11,32) ");
+        DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1  ");
-        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema  NOT IN( 47,101)");
+        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 ");
-        double percepcionesindem = 0;
+        
-        double deduccionesindem = 0;
-        foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)
-        {
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            string Concepto = row["Concepto"].ToString();
-            string Codigo = row["Codigo"].ToString();
-            //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-            double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
-            percepcionesindem += Importe;
-        }
-        foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema  =47").Rows)
-        {
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            string Concepto = row["Concepto"].ToString();
-            string Codigo = row["Codigo"].ToString();
-            //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-            double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
-            deduccionesindem += Importe;
-        }
-
-
         dtper.Columns.Add("BorradoLogico", typeof(int));
         dtded.Columns.Add("BorradoLogico", typeof(int));
 
@@ -967,14 +1006,14 @@ public partial class Nomina_Finiquito : ClsPaginas
         SubTotales.CveConceptoP = 0;
         SubTotales.ConceptoP = "Total Percepciones";
         SubTotales.EstatusP = -2;
-        SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - percepcionesindem;
+        SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ;
         ///Alert(SubTotales.ImporteP.ToString());
 
 
         SubTotales.CveConceptoD = 0;
         SubTotales.ConceptoD = "Total Deducciones";
         SubTotales.EstatusD = -2;
-        SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - deduccionesindem;
+        SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ;
 
         double neto = SubTotales.ImporteP - SubTotales.ImporteD;
         NConcepto Totales = new NConcepto();
@@ -992,28 +1031,9 @@ public partial class Nomina_Finiquito : ClsPaginas
     private List<NConcepto> cargasobrericiboconceptosIndemnizacion(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados)
     {
         int SRCvePersonal = this.CvePersonal;
-        DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND CveSistema IN(10,11,32) ");
+        DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1");
-        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema = 47");
+        DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1");
-        double percepcionesindem = 0;
+
-        double deduccionesindem = 0;
-        foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows)
-        {
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            string Concepto = row["Concepto"].ToString();
-            string Codigo = row["Codigo"].ToString();
-            //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-            double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
-            percepcionesindem += Importe;
-        }
-        foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema  =47").Rows)
-        {
-            int CveConcepto = row["CveConcepto"].ToString().ToEntero();
-            string Concepto = row["Concepto"].ToString();
-            string Codigo = row["Codigo"].ToString();
-            //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0);
-            double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal));
-            deduccionesindem += Importe;
-        }
         dtper.Columns.Add("BorradoLogico", typeof(int));
         dtded.Columns.Add("BorradoLogico", typeof(int));
 
@@ -1096,14 +1116,15 @@ public partial class Nomina_Finiquito : ClsPaginas
         SubTotales.CveConceptoP = 0;
         SubTotales.ConceptoP = "Total Percepciones";
         SubTotales.EstatusP = -2;
-        SubTotales.ImporteP = percepcionesindem;
+        SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal));
         ///Alert(SubTotales.ImporteP.ToString());
 
 
         SubTotales.CveConceptoD = 0;
         SubTotales.ConceptoD = "Total Deducciones";
         SubTotales.EstatusD = -2;
-        SubTotales.ImporteD = deduccionesindem;
+        SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal));
+
 
         double neto = SubTotales.ImporteP - SubTotales.ImporteD;
         NConcepto Totales = new NConcepto();

OI/TareaDetalle.aspx.cs

@@ -510,7 +510,7 @@ public partial class OI_TareaDetalle : ClsPaginas
                 else if (CveCompra > 0)
                 {
                     titulo = "Compra ";
-                    link = string.Format("<a href=\"/Compras/Proveedores.aspx?CveProveedor={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
+                    link = string.Format("<a href=\"/Compras/Compras.aspx?CveCompra={1}\" class=\"linkCorreo\">{0} </a>", drow["Compra"], CveCompra);
 
                 }
                 else if (CvePersonal > 0)

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
 

Sistemas/Empresa.aspx

@@ -1272,7 +1272,7 @@
                                                         <div class="col-md-12">
 
                                                             <div runat="server" class="form-group form-md-line-input input-iconright">                                                                                                                             
-                                                                <asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control"></asp:TextBox>
+                                                                <asp:TextBox ID="TxtAsuntoCotizacion" runat="server" ClientIDMode="Static" MaxLength="150" CssClass="form-control" TextMode="SingleLine"></asp:TextBox>
                                                                 <label for="<%=  TxtAsuntoCotizacion.ClientID.ToString()%>">Asunto:</label>                                                                
                                                                  <i></i>
                                                              </div>

Sistemas/Empresa.aspx.vb

@@ -305,8 +305,8 @@ Partial Class Sistemas_Empresa
                     TxtPlantillaVenta.Text = .PlantillaMailVenta
                     TxtAsunto.Text = .AsuntoPlantillaMailVenta
 
-                    TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
+                    TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion
-                    TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion
+                    TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion
 
                     'NUEVOS
                     TxtAreaGeografica.Text = .AreaGeografica
@@ -652,8 +652,8 @@ Partial Class Sistemas_Empresa
             UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim
             UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim
 
-            UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
+            UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
-            UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim
+            UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim
 
             'TxtPlantillaVenta.Text = ""
             'TxtAsunto.Text = ""