Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

2023-06-01 17:50:58 -07:00
parent bf35af6218 7f0e733754
commit d29306f879
6 changed files with 342 additions and 70 deletions
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -122,7 +122,7 @@

                        <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
                            DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite,CveMovimiento"
-                            EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
+                            EmptyDataText="No se encontraron registros" 
                            CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                            data-sort="true"
                            data-freezerows="1"
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1911,16 +1911,6 @@ Partial Class Compras_Compras
                        TxtSerie.Enabled = False
                    End If

-                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora 
-                        divFolioGarantia.Visible = True
-                        Using objAcum As New ClsAcumuladores
-                            If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
-                                DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
-                                DdlFolioGarantia.DataBind()
-                            End If
-                        End Using
-                    End If
-
                    'PERMISO PARA MODIFICACIÓN DE FECHA AUN CON FACTURA
                    TxtFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
                    ImgFecha.Enabled = UsuarioActual.TienePermisoProceso(216)
@@ -4111,7 +4101,6 @@ Partial Class Compras_Compras
            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
        End If

-
        If Not ValidaVinculacionNotaFactura() Then
            Alert("Se requiere que la nota este aplciada a las facturas", TipoMensaje.MsgAdvertencia)
            Exit Sub
@@ -4530,6 +4519,13 @@ Partial Class Compras_Compras
        UM.Dispose()
        PSS.Dispose()

+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoCompra.SelectedValue = "12" Then 'cuando es garantía, debe de especificar la salida de almacen
+            If Not GvInv.HeaderRow.FCCheckBox("cbAll").Checked OrElse GvInv.HeaderRow.FCDropDownList("ddlAlmacen").SelectedValue.ToEntero <= 0 Then
+                Alert("No ha especificado la salida de almacen en la garantía.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
        'VALIDA IMPORTES
        If Not ValidaTotalesGuardar() Then
            Exit Sub
@@ -4551,9 +4547,9 @@ Partial Class Compras_Compras
            Exit Sub
        End If

-        If DdlFolioGarantia.Visible AndAlso DdlFolioGarantia.SelectedValue <> "-1" Then
-            If Not ValidaFolioGarantia() Then Exit Sub
-        End If
+        'If DdlFolioGarantia.Visible AndAlso DdlFolioGarantia.SelectedValue <> "-1" Then
+        '    If Not ValidaFolioGarantia() Then Exit Sub
+        'End If


        '------------------TERMINA VALIDACIONES------------------
@@ -5462,10 +5458,12 @@ Partial Class Compras_Compras
                                                Dim ListAlmacenes = (From CveAlmacen In DtInv.AsEnumerable() Where CveAlmacen.Field(Of Integer)("CveAlmacen") > 0 Select CveAlmacen.Field(Of Integer)("CveAlmacen")).Distinct().ToList
                                                Dim indice = 0
                                                Dim ImporteConcepto As Decimal = 0
+                                                Dim tCveFolioGarantia As Integer = -1
                                                Dim CveConceptoMovimiento As Integer = 2
                                                'apoyo logistico/garantia
-                                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then
+                                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then 'garantía
                                                    CveConceptoMovimiento = 13
+                                                    tCveFolioGarantia = DdlFolioGarantia.SelectedValue.ToEntero
                                                End If
                                                If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then

@@ -5478,7 +5476,7 @@ Partial Class Compras_Compras
                                                        Dim fecha As Date = TxtFecha.Text.ToDate
                                                        If Not UsuarioActual.Empresa.UsaAC Then fecha = Now

-                                                        CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), Modulo:="Comp/G2")
+                                                        CveMovimientoInventario = ObjInventario.AddMovimiento(tCveAlmacen, CveConceptoMovimiento, 1, fecha, 0, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompra, -1, -1, -1, TipoCambio:=If(DdlMoneda.SelectedValue.ToEntero = 1, -1, TipoCambioGuardar), CveFolioGarantia:=tCveFolioGarantia, Modulo:="Comp/G2")

                                                        If CveMovimientoInventario <= 0 Then
                                                            ErrorMovInv = True
@@ -13500,18 +13498,6 @@ Partial Class Compras_Compras
        Dim IdPolizaAnterior = -1
        Dim TotalRefact As Decimal = 0

-        'SI NO TIENE POLIZA NI PAGOS NO HACE NADA
-        'If ObjCompra.GetCompras(CveCompraRefacturacion, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) Then
-        '    If ObjCompra.DtResultados IsNot Nothing AndAlso ObjCompra.DtResultados.Rows.Count = 1 Then
-        '        Dim drc As DataRow = ObjCompra.DtResultados.Rows(0)
-        '        TotalRefact = drc("Total").ToString.ToDecimal
-        '        If drc("IdPoliza").ToString.ToEntero <= 0 AndAlso drc("Saldo").ToString.ToDecimal = drc("Total").ToString.ToDecimal AndAlso drc("CveMovimiento").ToString.ToEntero <= 0 Then
-        '            Alert("La factura a refacturar no esta contabilizada ni tiene pagos ni movimientos de almacen. No se puede refacturar, debera eliminar la factura anterior y agregar esta factura de forma normal.", TipoMensaje.MsgAdvertencia)
-        '            Return True
-        '        End If
-        '    End If
-        'End If
-
        'GUARDA ADJUNTOS Y LIGA EN BITACORA (RELACION DE FACTURA NUEVA Y VIEJA)
        ErrorBitacora = GuardaRefacturacionBitacora(ObjCompra, ObjEventos)

@@ -17232,6 +17218,9 @@ Partial Class Compras_Compras
        If DrPS IsNot Nothing Then
            Row("PSCodigo") = If(PSCodigo = "", DrPS("PSCodigo").ToString, PSCodigo)
            Row("CveMetodoInventario") = DrPS("Inv_CveMetodoInventario").ToString.ToEntero
+            If DdlTipoCompra.SelectedValue = "12" AndAlso DrPS("AplicaSerie").ToString = "True" Then
+                Row("CveMetodoInventario") = "1"
+            End If
        Else
            Row("PSCodigo") = PSCodigo
            Row("CveMetodoInventario") = 0
@@ -17278,8 +17267,6 @@ Partial Class Compras_Compras

        End Try

-
-
        Dim DecimalesPermitidos = 6

        Row("CveConcepto") = TmpDT.Rows.Count + 1
@@ -17323,8 +17310,6 @@ Partial Class Compras_Compras
                Row("IVAPorcentaje") = PorcentajeIVA
            End If

-
-
            Row("RetIVA") = Math.Round(RetIVA, DecimalesPermitidos)
            Row("RetIVAPorcentaje") = PorcentajeRetIVA
            Row("RetISR") = Math.Round(RetISR, DecimalesPermitidos)
@@ -19517,6 +19502,17 @@ Partial Class Compras_Compras
    Protected Sub DdlTipoCompra_SelectedIndexChanged(sender As Object, e As EventArgs)

        If DdlTipoCompra.SelectedValue.ToEntero.Contiene(9, 10, 12) Then 'Al seleccionar apoyo logístico se cargan los amancenes de  devoculcion proveedor para dar entrada
+
+            If DdlTipoCompra.SelectedValue = "12" AndAlso UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") Then 'cuando es emp acumuladora 
+                divFolioGarantia.Visible = True
+                Using objAcum As New ClsAcumuladores
+                    If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=2, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
+                        DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
+                        DdlFolioGarantia.DataBind()
+                    End If
+                End Using
+            End If
+
            'cambia si hay ps con uso de serie
            For Each dr As DataRow In TmpDT.Rows
                dr("CveMetodoInventario") = 1
@@ -19547,6 +19543,8 @@ Partial Class Compras_Compras
            Dim ExistenciasPSGarantia As New Dictionary(Of Integer, Decimal)
            Dim PSFaltantes As New Dictionary(Of Integer, Decimal)
            Dim DtGarantia As New DataTable
+            TxtDescripcion.Text = DdlFolioGarantia.SelectedItem.Text
+            UpParametros.Update()

            'Agrupa los CvePS iguales y suma sus cantidades
            For Each row In TmpDT.AsEnumerable()
@@ -19564,7 +19562,7 @@ Partial Class Compras_Compras
                    DtGarantia = ObjAcum.DtResultados
                    ExistenciasPSGarantia = DtGarantia.AsEnumerable().ToDictionary(Function(row) row.Field(Of Integer)("CvePS"), Function(row) row.Field(Of Decimal)("CantidadDisponible"))
                Else
-                    Alert($"Ocurrió un error al obtener la información de la garantía.</br> CveUsuario={UsuarioActual.CveUsuario}</br> CveFolioGarantia={DdlFolioGarantia.SelectedValue}", TipoMensaje.MsgError)
+                    Alert($"Ocurrió un error al obtener la información de la garantía.</br> CveU={UsuarioActual.CveUsuario}</br> CveFG={DdlFolioGarantia.SelectedValue}", TipoMensaje.MsgError)
                    Return False
                End If
            End Using
@@ -19587,13 +19585,34 @@ Partial Class Compras_Compras
                                   Select New With {.CvePS = Producto.Key, .NombrePS = row.Field(Of String)("PS"), .CantidadFaltante = Producto.Value}

            If PSFaltantes.Count > 0 Then
-                Dim mensaje As String = "Los siguientes productos no tienen suficientes existencias en la garantía seleccionada:</br></br>"
+                Dim mensaje As String = "Los siguientes productos no fueron registrados en la garantía seleccionada:</br></br>"
+
                For Each Producto In IEnumPSFaltantes
                    mensaje += $"Falta: &times;&hairsp;<b>{Producto.CantidadFaltante:0.##}</b>&emsp;{Producto.NombrePS}</br>"
                Next
+                'eliminar los registros 
+                Dim tImporteAjuste As Decimal = 0
+                Dim PSS = (From c In IEnumPSFaltantes Select c.CvePS).Distinct.ToList
+                For Each Producto In PSS
+                    Dim drr As DataRow() = TmpDT.Select($"CvePS = {Producto}")
+                    For Each drt As DataRow In drr
+                        If TmpDT.Rows.Count > 1 Then 'valida que exista cuando menos un registro
+                            tImporteAjuste += drt("Total").ToString.ToDecimal
+                            TmpDT.Rows.Remove(drt)
+                        End If
+                    Next
+                    TmpDT.AcceptChanges()
+                Next
+                If tImporteAjuste > 0 Then AjustaImporteUltimoConcepto(tImporteAjuste)
+                GvPS.DataSource = TmpDT
+                GvPS.DataBind()
+
+                CalculaTotales(True)
+                CargaGvInv()
+
                If MsgExito Then Alert(mensaje, TipoMensaje.MsgAdvertencia) Else Alert(mensaje, TipoMensaje.MsgError)
            Else
-                If MsgExito Then Alert("Todos los productos seleccionados están disponibles en el Folio de Garantía.")
+                If MsgExito Then Alert("Todos los productos seleccionados están registrados en el Folio de Garantía.")
                Return True
            End If
        Else
@@ -20251,10 +20270,8 @@ Partial Class Compras_Compras
            End If

        End If
-
    End Sub

-
    Protected Sub BtnFolioGarantiaRestantes_Click(sender As Object, e As EventArgs)

        Using ObjAcum As New ClsAcumuladores
@@ -20339,8 +20356,6 @@ Partial Class Compras_Compras
                            ErrorCompra = True
                            Exit For
                        End If
-
-
                    Next

                End If
@@ -20351,36 +20366,20 @@ Partial Class Compras_Compras

        Dim SBEliminacionCompra As New StringBuilder

-
        SBEliminacionCompra.Append($"Serie-Folio: {TxtSerie.Text}-{TxtFolio.Text}, Proveedor: {HplProveedor.Text}, Descripción: {TxtDescripcion.Text}, SubTotal: {TxtSubTotal2.Text}, ")

-        If TxtIVA.Text.Trim.ToDecimal > 0 Then
-            SBEliminacionCompra.Append($"IVA: { TxtIVA.Text},")
-        End If
+        If TxtIVA.Text.Trim.ToDecimal > 0 Then SBEliminacionCompra.Append($"IVA: { TxtIVA.Text},")

+        If TxtRetISR.Text.Trim.ToDecimal > 0 Then SBEliminacionCompra.Append($"Ret. ISR: { TxtRetISR.Text}, ")

-        If TxtRetISR.Text.Trim.ToDecimal > 0 Then
-            SBEliminacionCompra.Append($"Ret. ISR: { TxtRetISR.Text}, ")
-        End If
-
-        If TxtRetIVA.Text.Trim.ToDecimal > 0 Then
-            SBEliminacionCompra.Append($"Ret. IVA: { TxtRetIVA.Text}, ")
-        End If
-
-        If TxtIEPS.Text.Trim.ToDecimal > 0 Then
-            SBEliminacionCompra.Append($"IEPS: { TxtIEPS.Text}, ")
-        End If
+        If TxtRetIVA.Text.Trim.ToDecimal > 0 Then SBEliminacionCompra.Append($"Ret. IVA: { TxtRetIVA.Text}, ")

+        If TxtIEPS.Text.Trim.ToDecimal > 0 Then SBEliminacionCompra.Append($"IEPS: { TxtIEPS.Text}, ")

        SBEliminacionCompra.Append($"Total: {TxtTotal.Text}, ")
-
-
        SBEliminacionCompra.Append($"Moneda: {DdlMoneda.SelectedItem.Text}, ")

-        If TxtOC.Text.Trim.Length > 0 Then
-            SBEliminacionCompra.Append($"OC: {TxtOC.Text }, ")
-        End If
-
+        If TxtOC.Text.Trim.Length > 0 Then SBEliminacionCompra.Append($"OC: {TxtOC.Text }, ")

        SBEliminacionCompra.Append($"Fecha {TxtFecha.Text}, ")
        SBEliminacionCompra.Append($"Capturó: {LblUsuarioCaptura.Text}, ")
@@ -20394,7 +20393,6 @@ Partial Class Compras_Compras
        If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, CveCompra, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1,
                                            TxtModalEliminarCompraDescripcion.Text, "Compras", SBEliminacionCompra.ToString) Then
            ErrorCompra = True
-
        End If

        If Not ErrorCompra Then
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1542,7 +1542,7 @@ Partial Class General_SaldosIniciales
                    End If

                    'Compra
-                    If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDouble, FechaVencimiento,
+                    If Not ObjCompras.AddCompra(TipoDocto, "", Serie, Folio, Folio2, CveProveedor.ToEntero(), SubTotal, 0, 0, IVA, RetIVA, RetISR, IEPS, 0, 0, Total, Fecha, CveMoneda, TipoCambio.ToDecimal, FechaVencimiento,
                                                False, CodProvee, 1, CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveProveedorSucursal:=CveProveedorSucursal,
                                                NumeroReembolso:=Transaccion, PorcentajeIVA:=PorcentajeIVA.ToDecimal, TotalOriginal:=Total) Then
                        ErrorCompras = True
--- a/Nomina/Nomina.aspx
+++ b/Nomina/Nomina.aspx
@@ -278,7 +278,10 @@
                <asp:HyperLink ID="HypAsistencia" NavigateUrl="/RH/Asistencias.aspx" runat="server"><i class="fa fa-list" aria-hidden="true"></i>Ir a asistencia</asp:HyperLink>
            </li>
            <li>
-                <asp:LinkButton ID="LnkFormatoTabular" Visible="false" OnClick="LnkFormatoTabular_Click" CssClass="" runat="server"><i class="fa fa-download"></i> Nómina tabular</asp:LinkButton>
+                <asp:LinkButton ID="LnkFormatoTabular" Visible="false" OnClick="LnkFormatoTabular_Click" CssClass="" runat="server"><i class="fa fa-file-excel"></i> Nómina tabular</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="LnkFormatoFiscal" Visible="false" OnClick="LnkFormatoFiscal_Click" CssClass="" runat="server"><i class="fa fa-file-excel"></i> Nómina Fiscal</asp:LinkButton>
            </li>
            <li>
                <asp:LinkButton ID="LnkSimulador" OnClick="LnkSimulador_Click" runat="server"><i class="fa fa-calculator"></i> Simulador</asp:LinkButton>
@@ -300,6 +303,7 @@
        <Triggers>
            <asp:PostBackTrigger ControlID="LnkListaRaya" />
            <asp:PostBackTrigger ControlID="LnkFormatoTabular" />
+            <asp:PostBackTrigger ControlID="LnkFormatoFiscal" />
        </Triggers>
    </asp:UpdatePanel>

--- a/Nomina/Nomina.aspx.cs
+++ b/Nomina/Nomina.aspx.cs
@@ -259,7 +259,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
    {

        if (!IsPostBack)
-        { 
+        {
            enviarCorreoEnTimbrado = (UsuarioActual.CveEmpresa == 141 ? true : true);
            LnkCargaNetos.Visible = (UsuarioActual.Empresa.Funcionalidad(267) == "1") || (UsuarioActual.CveRol == 1);
            if (UsuarioActual.CveEmpresa == 141) { ddlfiniquito.SelectedValueExist("2"); }
@@ -567,6 +567,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                LnkAsistenciaIncidencias.Visible = true;

                LnkFormatoTabular.Visible = true;
+                LnkFormatoFiscal.Visible = (UsuarioActual.CveEmpresa == 141 || UsuarioActual.CveRol == 1);
                HypPDFSTimbrados.Visible = true;
                if (objnom.GetNominaEmpleado(FiltCveProyecto, FiltCveSubProyecto, FiltCveTurno, FiltCvePeriodo, CveEmpresa, FiltAgrupador, DdlRegimenContratacion.SelectedValue.ToEntero(), CveTipoTrabajador: CveTipoTrabajador, Neto: ddlfiniquito.SelectedValue.ToEntero()) && objnom.DTSetResultados.Tables.Count > 4)
                {
@@ -2837,7 +2838,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
        using (ClsRH objpersonal = new ClsRH())
        {

-            if (objpersonal.GetAsistencias(SRCvePersonal, -1, -1, -1, -1, -1,-1, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa))
+            if (objpersonal.GetAsistencias(SRCvePersonal, -1, -1, -1, -1, -1, -1, FechaInicioPeriodo, FechaFinPeriodo, UsuarioActual.CveEmpresa))
            { GVAsistencia.DataSource = objpersonal.DtResultados.FiltraParametros("Fecha IS NOT NULL"); }
            else
            {
@@ -5040,6 +5041,274 @@ public partial class Nomina_Nomina2 : ClsPaginas
        }
    }

+    protected void LnkFormatoFiscal_Click(object sender, EventArgs e)
+    {
+        DataTable dtnominas = null;
+        using (ClsNominas onom = new ClsNominas())
+        {
+            if (onom.GetNom_Nominas(-1, -1, CvePeriodoSeleccionado, -1, UsuarioActual.CveEmpresa))
+            {
+                dtnominas = onom.DtResultados;
+            }
+        }
+
+        try
+        {
+            ClosedXML.Excel.XLWorkbook wb = new ClosedXML.Excel.XLWorkbook();
+            var libro = wb.AddWorksheet("Nomina");
+            int column = 1;
+            int filainicio = 3;
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Cell(filainicio + 2, column).Value = "Codigo";
+            libro.Cell(filainicio + 3, column).Value = " ";
+            column++;
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Cell(filainicio + 2, column).Value = "Empleado";
+            libro.Cell(filainicio + 3, column).Value = " ";
+            column++;
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Cell(filainicio + 2, column).Value = "Folio Fiscal";
+            libro.Cell(filainicio + 3, column).Value = " ";
+            libro.Column(column).Width = 35;
+            libro.Cell(1, 1).Value = "Empresa";
+            libro.Range(1, 2, 1, 4).Merge().Value = UsuarioActual.Empresa.Empresa;
+            libro.Cell(2, 1).Value = "período";
+            string periodo = DdlPeriodo.SelectedItem.Text;
+            periodo = periodo.Substring(0, (periodo.Length > 27 ? 27 : periodo.Length));
+            libro.Range(2, 2, 2, 4).Merge().Value = periodo;
+
+            int iniciotipe = column;
+            foreach (DataRow row in dtConceptos.FiltraParametros("Tipo ='P' AND EsPadre = 1 ").Rows)
+            {
+
+                column++;
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
+                libro.Column(column).Width = 15;
+                if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
+                {
+                    libro.Column(column).Hide();
+                }
+
+            }
+            column++;
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Percepciones";
+            libro.Column(column).Width = 15;
+            if (iniciotipe < column)
+            {
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Percepciones";
+            }
+            iniciotipe = column;
+
+
+            foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
+            {
+                column++;
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
+                libro.Column(column).Width = 15;
+                if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
+                {
+                    libro.Column(column).Hide();
+                }
+
+            }
+
+            column++;
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Deducciones";
+            libro.Column(column).Width = 15;
+
+            if (iniciotipe < column)
+            {
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Deducciones";
+            }
+
+            column++;
+            libro.Cell(filainicio + 1, column).Value = " ";
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Total";
+            libro.Column(column).Width = 15;
+            iniciotipe = column;
+
+            foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O' AND EsPadre = 1 ").Rows)
+            {
+                column++;
+                libro.Cell(filainicio + 2, column).Value = row["Concepto"].ToString();
+                libro.Cell(filainicio + 3, column).Value = row["Codigo"].ToString();
+                libro.Column(column).Width = 15;
+                if ((dtempleados.SUM(string.Format("[V_{0}]", row["CveConcepto"].ToString())) == 0))
+                {
+                    libro.Column(column).Hide();
+                }
+
+            }
+            column++;
+            libro.Range(filainicio + 2, column, filainicio + 3, column).Merge().Value = "Obligaciones";
+            libro.Column(column).Width = 15;
+
+
+            if (iniciotipe < column)
+            {
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Style.Alignment.Horizontal = ClosedXML.Excel.XLAlignmentHorizontalValues.Center;
+                libro.Range(filainicio + 1, iniciotipe + 1, filainicio + 1, column).Merge().Value = "Obligaciones";
+            }
+
+            //libro.Row(1).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(2).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(3).CellsUsed().Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            //libro.Row(1).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(177, 160, 199));
+            //libro.Row(2).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            //libro.Row(3).Cell(1).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            //libro.Row(3).CellsUsed().Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+            int maxnocolumn = column;
+
+            int Fila = filainicio + 3;
+            int cveSupProyecto = -5;
+            string subproyecto = "";
+            int oldcveSupProyecto = -5;
+            bool newsubproyecto = false;
+            bool newsubproyectoTitulo = false;
+            DataTable dtsr = dtempleados.FiltraParametros("", "CveSubProyecto");
+            dtsr.Rows.Add(dtsr.NewRow());
+            foreach (DataRow erow in dtsr.Rows)
+            {
+                Fila++;
+                newsubproyecto = false; newsubproyectoTitulo = false;
+                if (cveSupProyecto != erow["CveSubProyecto"].ToString().ToEntero())
+                {
+
+                    if (oldcveSupProyecto != -5) { Fila += 2; newsubproyecto = true; }
+                    oldcveSupProyecto = cveSupProyecto;
+                    cveSupProyecto = erow["CveSubProyecto"].ToString().ToEntero();
+                    subproyecto = erow["SubProyecto"].ToString();
+                    if (cveSupProyecto != -5 && oldcveSupProyecto != -5) { Fila++; newsubproyectoTitulo = true; }
+                }
+                column = 1;
+                libro.Cell(Fila, column).Value = string.Format("'{0}", erow["Codigo"]);
+                column++;
+                if (newsubproyectoTitulo)
+                {
+                    libro.Cell(Fila - 1, column).Value = subproyecto;
+                    libro.Range(Fila - 1, 1, Fila - 1, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 194, 230));
+                }
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = "Total";
+                    libro.Range(Fila - 3, 1, Fila - 3, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(155, 194, 230));
+                }
+                libro.Cell(Fila, column).Value = erow["Nombre"];
+                column++;
+                if (dtnominas != null)
+                {
+                    DataRow drw = dtnominas.FiltroPrimero(string.Format("CvePersonal = {0}", erow["CvePersonal"].ToString().ToEntero()));
+                    if (drw != null)
+                    {
+                        libro.Cell(Fila, column).Value = drw["FolioFiscal"];
+                    }
+
+                }
+                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'P' AND EsPadre = 1 ").Rows)
+                {
+                    column++;
+                    string Concepto = string.Format("V_{0}", row["CveConcepto"]);
+                    libro.Cell(Fila, column).Value = erow[Concepto];
+
+
+                    if (newsubproyecto)
+                    {
+                        libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                    }
+
+                }
+
+                column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Value = erow["SumaPercepciones"];
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaPercepciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
+
+
+                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'D' AND EsPadre = 1 ").Rows)
+                {
+                    column++;
+                    string Concepto = string.Format("V_{0}", row["CveConcepto"]);
+                    libro.Cell(Fila, column).Value = erow[Concepto];
+
+                    if (newsubproyecto)
+                    {
+                        libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                    }
+                }
+
+                column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Value = erow["SumaDeducciones"];
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaDeducciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
+
+                column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Value = erow["Total"];
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("Total", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
+
+                foreach (DataRow row in dtConceptos.FiltraParametros("Tipo = 'O'  AND EsPadre = 1 ").Rows)
+                {
+                    column++;
+                    string Concepto = string.Format("V_{0}", row["CveConcepto"]);
+                    libro.Cell(Fila, column).Value = erow[Concepto];
+
+                    if (newsubproyecto)
+                    {
+                        libro.Cell(Fila - 3, column).Value = dtempleados.SUM(Concepto, string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                    }
+                }
+
+                column++;
+                libro.Cell(Fila, column).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(166, 166, 166));
+                libro.Cell(Fila, column).Value = erow["SumaObligaciones"];
+                if (newsubproyecto)
+                {
+                    libro.Cell(Fila - 3, column).Value = dtempleados.SUM("SumaObligaciones", string.Format("CveSubProyecto ={0} AND CvePersonal > 0 ", oldcveSupProyecto));
+                }
+            }
+
+
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Font.FontColor = ClosedXML.Excel.XLColor.White;
+            libro.Range(filainicio + 1, 1, filainicio + 4, maxnocolumn).Style.Fill.SetBackgroundColor(ClosedXML.Excel.XLColor.FromArgb(79, 129, 189));
+
+            System.IO.Stream fs = new System.IO.MemoryStream();
+            wb.SaveAs(fs);
+            fs.Position = 0;
+            System.IO.MemoryStream memoryStream = new System.IO.MemoryStream();
+            using (System.IO.Stream input = fs)
+
+            {
+                input.CopyTo(memoryStream);
+            }
+            memoryStream.Position = 0;
+
+            Response.Clear();
+            Response.Buffer = true;
+
+            Response.ContentType = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet";
+            Response.AddHeader("content-disposition", string.Format("attachment;filename={0} {1}.xlsx", "Nomina Fiscal", periodo));
+            Response.BinaryWrite(memoryStream.ToArray());
+            Response.End();
+        }
+        catch (Exception ex)
+        {
+            Alert("Ocurrio un error al generar el Formato de nominas" + ex.ToString());
+        }
+    }
+

    protected void LnkConceptoD_Click(object sender, EventArgs e)
    {
@@ -6843,7 +7112,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
        bool continuar = true;

        int chkImporte = 1;
-        int chkImporteGravado = 1;
+        int chkImporteGravado = 0;
        int chkImporteValor = 1;
        string[] getcolumnas = new string[] { "CvePersonal", "Nombre", "CveMetodoPago", "SumaPercepciones", "Total", "SalarioDiario", "SalarioDiarioIMSS", "SalarioDiarioIntegrado", "DiasLaborados", "DiasFaltados", "DiasVacaciones", "DiasIncapacidad" };

@@ -7006,7 +7275,7 @@ public partial class Nomina_Nomina2 : ClsPaginas

        }

-        
+
        RegistraScript("$('#DModalCargaASistenciaMasiva').modal();");
    }

@@ -7111,7 +7380,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
        }
        using (ClsRH objpersonal = new ClsRH())
        {
-            if (objpersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1,-1, fecha, fecha, UsuarioActual.CveEmpresa))
+            if (objpersonal.GetAsistencias(CvePersonal, -1, -1, -1, -1, -1, -1, fecha, fecha, UsuarioActual.CveEmpresa))
            {
                if (objpersonal.DtResultados.Rows.Count > 0)
                {
--- a/Nomina/ReportePTU.aspx.vb
+++ b/Nomina/ReportePTU.aspx.vb
@@ -49,6 +49,7 @@ Partial Class Nomina_ReportePTU
            DdlEjercicios.DataBind()
            If (DdlEjercicios.Items.Count > 0) Then
                DdlEjercicios.SelectedIndex = 0
+                DdlEjercicios.SelectedValueExist(DateTime.Now.Year.ToString())
                DdlEjercicios_SelectedIndexChanged(Nothing, Nothing)
            End If
        End If
@@ -71,7 +72,7 @@ Partial Class Nomina_ReportePTU

    Private Sub CargaPeriodos()
        Dim ObjPeriodos As New ClsNominas()
-        If ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, DdlEjercicios.SelectedValue.ToEntero(), -1, -1) Then
+        If ObjPeriodos.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, -1) Then
            dtPeriodos = ObjPeriodos.DtResultados.FiltraParametros("Estatus IN (0,1)")
        End If
        ObjPeriodos.Dispose()