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

2019-09-02 10:05:57 -05:00
parent 9a4d9b3df8 06ecb0e085
commit 3d1c6028ea
16 changed files with 489 additions and 273 deletions
--- a/.gitignore
+++ b/.gitignore
@@ -1,127 +1,267 @@
-################################################################################
-# Este archivo .gitignore ha sido creado automáticamente por Microsoft(R) Visual Studio.
-################################################################################
-
-/Empresas
-/Menu
-/Web.config
-/Log.txt
-/.vs/localhost/v14/.suo
-/LogMail.txt
-/.vs
-/packages
-/Temp/637019018406489106-FormatoPS (1).xlsx
-/Temp/637025911245561139-FormatoAlmacenTest2.xlsx
-/Temp/637025910298823073-FormatoAlmacenTest2.xlsx
-/Temp/637025890843842072-FormatoAlmacenTest.xlsx
-/Temp/637025890070124286-FormatoAlmacenTest.xlsx
-/Temp/637025889649837823-FormatoAlmacenTest.xlsx
-/Temp/637025888979809566-FormatoAlmacenTest.xlsx
-/Temp/637025888317991027-FormatoAlmacenTest.xlsx
-/Temp/637025886969280729-FormatoAlmacenTest.xlsx
-/Temp/637025883478481189-FormatoAlmacenTest.xlsx
-/Temp/637025881893726971-FormatoAlmacenTest.xlsx
-/Temp/637025875318390368-FormatoAlmacenTest.xlsx
-/Temp/637025873461693799-FormatoAlmacenTest.xlsx
-/Temp/637025867243299753-FormatoAlmacenTest.xlsx
-/Temp/637025866028329141-FormatoAlmacenTest.xlsx
-/Temp/637025858967837880-FormatoAlmacen (8).xlsx
-/Temp/637025856623805153-FormatoAlmacenTest.xlsx
-/Temp/637025854225974598-FormatoAlmacenTest.xlsx
-/Temp/637025850746443741-FormatoAlmacenTest.xlsx
-/Temp/637025849906896827-FormatoAlmacenTest.xlsx
-/Temp/637025811751064573-FormatoAlmacen (9).xlsx
-/Temp/637025802306385270-FormatoAlmacen (9).xlsx
-/Temp/637024955677385188-FormatoAlmacen (8).xlsx
-/Temp/637024223339157610-FormatoAlmacen (8).xlsx
-/Temp/637024211080831453-FormatoAlmacen (8).xlsx
-/Temp/637024208748075824-FormatoAlmacen (8).xlsx
-/Temp/637024206124827330-FormatoAlmacen (8).xlsx
-/Temp/637024198603668842-FormatoAlmacen (8).xlsx
-/Temp/637024194937999485-FormatoAlmacen (8).xlsx
-/Temp/637024187194477421-FormatoAlmacen (8).xlsx
-/Temp/637024175396114926-FormatoAlmacen(1).xlsx
-/Temp/637024174152414578-FormatoAlmacen(1).xlsx
-/Temp/637024172516905613-FormatoAlmacen(1).xlsx
-/Temp/637024172339379953-FormatoAlmacen(1).xlsx
-/Temp/637024168678743644-FormatoAlmacen(1).xlsx
-/Temp/637024167899990250-FormatoAlmacen(1).xlsx
-/Temp/637024163796303799-FormatoAlmacen(1).xlsx
-/Temp/637024162382548932-FormatoAlmacen(1).xlsx
-/Temp/637024154734150595-FormatoAlmacen(1).xlsx
-/Temp/637024152618695056-FormatoAlmacen(1).xlsx
-/Temp/637024129146071459-FormatoAlmacen(1).xlsx
-/Temp/637024111695874769-FormatoAlmacen(1).xlsx
-/Temp/637022418959236013-FormatoAlmacen (4).xlsx
-/Temp/637022412610855769-FormatoAlmacen (4).xlsx
-/Temp/637022411585353362-FormatoAlmacen (4).xlsx
-/Temp/637022404788752537-FormatoAlmacen (3).xlsx
-/Temp/637022403501450734-FormatoAlmacen (3).xlsx
-/Temp/637022402924630398-FormatoAlmacen (3).xlsx
-/Temp/637022401250489074-FormatoAlmacen (5).xlsx
-/Temp/637022398545213986-FormatoAlmacen (3).xlsx
-/Temp/637022382214133336-FormatoAlmacen (5).xlsx
-/Temp/637022380557097080-FormatoAlmacen (5).xlsx
-/Temp/637022379412790662-FormatoAlmacen (5).xlsx
-/Temp/637022378793902185-FormatoAlmacen (5).xlsx
-/Temp/637021654534481890-FormatoAlmacen (3).xlsx
-/Temp/637021651345315739-FormatoAlmacen (3).xlsx
-/Temp/637021616508913486-FormatoAlmacen (3).xlsx
-/Temp/637021593875864770-FormatoAlmacen (3).xlsx
-/Temp/637021592631992296-FormatoAlmacen (3).xlsx
-/Temp/637021592488982043-FormatoAlmacen (3).xlsx
-/Temp/637021560097934922-FormatoAlmacen (3).xlsx
-/Temp/637021554559110062-FormatoPS (1).xlsx
-/Temp/637021550053083909-FormatoAlmacen (3).xlsx
-/Temp/637021547214247040-FormatoAlmacen (3).xlsx
-/Temp/637021545638924577-FormatoAlmacen (3).xlsx
-/Temp/637021527971651311-FormatoAlmacen (3).xlsx
-/Temp/637021527073950270-FormatoAlmacen (3).xlsx
-/Temp/637021526064707043-FormatoAlmacen (3).xlsx
-/Temp/637021522586485282-FormatoAlmacen (3).xlsx
-/Temp/637021521403851473-FormatoAlmacen (3).xlsx
-/Temp/637021519837377736-FormatoAlmacen (3).xlsx
-/Temp/637021515778751967-FormatoAlmacen (3).xlsx
-/Temp/637020728341171393-FormatoAlmacen (2).xlsx
-/Temp/637020724850629405-FormatoAlmacen (2).xlsx
-/Temp/637020723186758192-FormatoAlmacen (2).xlsx
-/Temp/637020721382428289-FormatoAlmacen (2).xlsx
-/Temp/637019818530193505-FormatoPS (1).xlsx
-/Temp/637019811169546741-FormatoPS (1).xlsx
-/Temp/637019803848526814-FormatoPS (1).xlsx
-/Temp/637019796396388291-FormatoPS (1).xlsx
-/Temp/637019783731773074-FormatoPS (1).xlsx
-/Temp/637019781961714106-FormatoPS (1).xlsx
-/Temp/637019780290041928-FormatoPS (1).xlsx
-/Temp/637019777705293557-FormatoPS (1).xlsx
-/Temp/637019766664551609-FormatoPS (1).xlsx
-/Temp/637019765307733182-FormatoPS (1).xlsx
-/Temp/637019764041447352-FormatoPS (1).xlsx
-/Temp/637019759922681271-FormatoPS (1).xlsx
-/Temp/637019028539049368-FormatoPS (1).xlsx
-/Temp/637019027752495331-FormatoPS (1).xlsx
-/Temp/637019026870914833-FormatoPS (1).xlsx
-/Temp/637019020024023961-FormatoPS (1).xlsx
-/Temp/637019018783282466-FormatoPS (1).xlsx
-/Temp/637025921934403738-FormatoAlmacen (4)(1).xlsx
-/Temp/637025871940254054-FormatoAlmacenTest.xlsx
-/Temp/637025819297716436-FormatoAlmacen (9).xlsx
-/Temp/637025813094826506-FormatoAlmacen (9).xlsx
-/Temp/637025803627482072-FormatoAlmacen (9).xlsx
-/Temp/637024210197949659-FormatoAlmacen (8).xlsx
-/Temp/637024207387517397-FormatoAlmacen (8).xlsx
-/Temp/637024203939520361-FormatoAlmacen (8).xlsx
-/Temp/637024200918571845-FormatoAlmacen (8).xlsx
-/Temp/637024199786848948-FormatoAlmacen (8).xlsx
-/Temp/637024188637374314-FormatoAlmacen (8).xlsx
-/Temp/637024170730017118-FormatoAlmacen(1).xlsx
-/Temp/637024164939543846-FormatoAlmacen(1).xlsx
-/Temp/637024164072145623-FormatoAlmacen(1).xlsx
-/Temp/637024156159485931-FormatoAlmacen(1).xlsx
-/Temp/637024153420640718-FormatoAlmacen(1).xlsx
-/Temp/637024148711869965-FormatoAlmacen(1).xlsx
-/Temp/637022414752610497-FormatoAlmacen (4).xlsx
-/Temp/637021629396074854-FormatoAlmacen (3).xlsx
-/Temp/637021627402424201-FormatoAlmacen (3).xlsx
-/Temp/637021547606916146-FormatoAlmacen (3).xlsx
-/Temp/637021529455078900-FormatoAlmacen (3).xlsx
+## Ignore Visual Studio temporary files, build results, and
+## files generated by popular Visual Studio add-ons.
+web.config
+*.txt
+[Mm]enu/
+[Tt]emp/
+[Ee]mpresas/
+# User-specific files
+*.suo
+*.user
+*.userosscache
+*.sln.docstates
+
+# User-specific files (MonoDevelop/Xamarin Studio)
+*.userprefs
+
+# Build results
+[Dd]ebug/
+[Dd]ebugPublic/
+[Rr]elease/
+[Rr]eleases/
+x64/
+x86/
+bld/
+[Bb]in/
+[Oo]bj/
+[Ll]og/
+
+# Visual Studio 2015 cache/options directory
+.vs/
+# Uncomment if you have tasks that create the project's static files in wwwroot
+#wwwroot/
+
+# MSTest test Results
+[Tt]est[Rr]esult*/
+[Bb]uild[Ll]og.*
+
+# NUNIT
+*.VisualState.xml
+TestResult.xml
+
+# Build Results of an ATL Project
+[Dd]ebugPS/
+[Rr]eleasePS/
+dlldata.c
+
+# DNX
+project.lock.json
+project.fragment.lock.json
+artifacts/
+
+*_i.c
+*_p.c
+*_i.h
+*.ilk
+*.meta
+*.obj
+*.pch
+*.pdb
+*.pgc
+*.pgd
+*.rsp
+*.sbr
+*.tlb
+*.tli
+*.tlh
+*.tmp
+*.tmp_proj
+*.log
+*.vspscc
+*.vssscc
+.builds
+*.pidb
+*.svclog
+*.scc
+
+# Chutzpah Test files
+_Chutzpah*
+
+# Visual C++ cache files
+ipch/
+*.aps
+*.ncb
+*.opendb
+*.opensdf
+*.sdf
+*.cachefile
+*.VC.db
+*.VC.VC.opendb
+
+# Visual Studio profiler
+*.psess
+*.vsp
+*.vspx
+*.sap
+
+# TFS 2012 Local Workspace
+$tf/
+
+# Guidance Automation Toolkit
+*.gpState
+
+# ReSharper is a .NET coding add-in
+_ReSharper*/
+*.[Rr]e[Ss]harper
+*.DotSettings.user
+
+# JustCode is a .NET coding add-in
+.JustCode
+
+# TeamCity is a build add-in
+_TeamCity*
+
+# DotCover is a Code Coverage Tool
+*.dotCover
+
+# NCrunch
+_NCrunch_*
+.*crunch*.local.xml
+nCrunchTemp_*
+
+# MightyMoose
+*.mm.*
+AutoTest.Net/
+
+# Web workbench (sass)
+.sass-cache/
+
+# Installshield output folder
+[Ee]xpress/
+
+# DocProject is a documentation generator add-in
+DocProject/buildhelp/
+DocProject/Help/*.HxT
+DocProject/Help/*.HxC
+DocProject/Help/*.hhc
+DocProject/Help/*.hhk
+DocProject/Help/*.hhp
+DocProject/Help/Html2
+DocProject/Help/html
+
+# Click-Once directory
+publish/
+
+# Publish Web Output
+*.[Pp]ublish.xml
+*.azurePubxml
+# TODO: Comment the next line if you want to checkin your web deploy settings
+# but database connection strings (with potential passwords) will be unencrypted
+#*.pubxml
+*.publishproj
+
+# Microsoft Azure Web App publish settings. Comment the next line if you want to
+# checkin your Azure Web App publish settings, but sensitive information contained
+# in these scripts will be unencrypted
+PublishScripts/
+
+# NuGet Packages
+*.nupkg
+# The packages folder can be ignored because of Package Restore
+**/packages/*
+# except build/, which is used as an MSBuild target.
+!**/packages/build/
+# Uncomment if necessary however generally it will be regenerated when needed
+#!**/packages/repositories.config
+# NuGet v3's project.json files produces more ignoreable files
+*.nuget.props
+*.nuget.targets
+
+# Microsoft Azure Build Output
+csx/
+*.build.csdef
+
+# Microsoft Azure Emulator
+ecf/
+rcf/
+
+# Windows Store app package directories and files
+AppPackages/
+BundleArtifacts/
+Package.StoreAssociation.xml
+_pkginfo.txt
+
+# Visual Studio cache files
+# files ending in .cache can be ignored
+*.[Cc]ache
+# but keep track of directories ending in .cache
+!*.[Cc]ache/
+
+# Others
+ClientBin/
+~$*
+*~
+*.dbmdl
+*.dbproj.schemaview
+*.jfm
+*.pfx
+*.publishsettings
+node_modules/
+orleans.codegen.cs
+
+# Since there are multiple workflows, uncomment next line to ignore bower_components
+# (https://github.com/github/gitignore/pull/1529#issuecomment-104372622)
+#bower_components/
+
+# RIA/Silverlight projects
+Generated_Code/
+
+# Backup & report files from converting an old project file
+# to a newer Visual Studio version. Backup files are not needed,
+# because we have git ;-)
+_UpgradeReport_Files/
+Backup*/
+UpgradeLog*.XML
+UpgradeLog*.htm
+
+# SQL Server files
+*.mdf
+*.ldf
+
+# Business Intelligence projects
+*.rdl.data
+*.bim.layout
+*.bim_*.settings
+
+# Microsoft Fakes
+FakesAssemblies/
+
+# GhostDoc plugin setting file
+*.GhostDoc.xml
+
+# Node.js Tools for Visual Studio
+.ntvs_analysis.dat
+
+# Visual Studio 6 build log
+*.plg
+
+# Visual Studio 6 workspace options file
+*.opt
+
+# Visual Studio LightSwitch build output
+**/*.HTMLClient/GeneratedArtifacts
+**/*.DesktopClient/GeneratedArtifacts
+**/*.DesktopClient/ModelManifest.xml
+**/*.Server/GeneratedArtifacts
+**/*.Server/ModelManifest.xml
+_Pvt_Extensions
+
+# Paket dependency manager
+.paket/paket.exe
+paket-files/
+
+# FAKE - F# Make
+.fake/
+
+# JetBrains Rider
+.idea/
+*.sln.iml
+*.sln
+
+# CodeRush
+.cr/
+
+# Python Tools for Visual Studio (PTVS)
+__pycache__/
+*.pyc
+/Utilerias
--- a/App_Code/ClsContPAQi.vb
+++ b/App_Code/ClsContPAQi.vb
@@ -2005,7 +2005,7 @@ Public Class ClsContPAQi
    ''' <remarks></remarks>
    ''' 
    Public Function AddPoliza(TipoPol As Integer, Concepto As String, Cargos As Double, Abonos As Double, CveUsuario As Integer, FechaPoliza As Date, Optional pFolio As String = "-1",
-                              Optional pTipo As String = "", Optional Guid As String = "-1") As Integer
+                              Optional pTipo As String = "", Optional Guid As String = "-1", Optional CvePlantillaPoliza As Integer = -1) As Integer
        'Tipo As String, pFolioPoliza As Integer) As Boolean
        Dim Retorno As Integer = 0
        If Guid = "-1" Then Guid = System.Guid.NewGuid().ToString()
@@ -2078,11 +2078,11 @@ Public Class ClsContPAQi

        StrSQL.AppendLine("                    INSERT INTO Polizas (Id, RowVersion, Ejercicio, Periodo, TipoPol, Folio, Clase, Impresa, ")
        StrSQL.AppendLine("                                                Concepto, Fecha, Cargos, Abonos, IdDiario, SistOrig, Ajuste, IdUsuario, ")
-        StrSQL.AppendLine("                                                ConFlujo, ConCuadre, TimeStamp,Guid)")
+        StrSQL.AppendLine("                                                ConFlujo, ConCuadre, TimeStamp,Guid,CvePlantillaPoliza)")
        StrSQL.AppendLine("     ")
        StrSQL.AppendLine("                     VALUES (@IdPoliza, @RowVersion, @Ejercicio, @Periodo, @TipoPol, @Folio, @Clase, @Impresa, ")
        StrSQL.AppendLine("                                   @Concepto, @Fecha, ROUND(@Cargos,2), ROUND(@Abonos,2), @IdDiario, @SistOrig, @Ajuste, @IdUsuario, ")
-        StrSQL.AppendLine("                                   @ConFlujo, @ConCuadre, @TimeStamp,@Guid)")
+        StrSQL.AppendLine("                                   @ConFlujo, @ConCuadre, @TimeStamp,@Guid,@CvePlantillaPoliza)")
        StrSQL.AppendLine("    ")
        StrSQL.AppendLine("                    EXEC PA_UpdateId 'Id_Poliza';")
        StrSQL.AppendLine("       ")
@@ -2123,6 +2123,7 @@ Public Class ClsContPAQi
            .Add("@FechaPoliza", SqlDbType.DateTime).Value = FechaPoliza
            .Add("@pFolio", SqlDbType.VarChar).Value = pFolio
            .Add("@Guid", SqlDbType.VarChar).Value = Guid
+            .Add("@CvePlantillaPoliza", SqlDbType.Int).Value = CvePlantillaPoliza
            .Add("@IdPoliza", SqlDbType.Int).Direction = ParameterDirection.Output
        End With

@@ -7308,7 +7309,7 @@ Public Class ClsContPAQi
        Return Retorno
    End Function

-    Public Function GetPolizasMasivo(Inicio As Date, Fin As Date, FolioI As Integer, FolioF As Integer, TipoPol As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveCuenta As Integer) As Boolean
+    Public Function GetPolizasMasivo(Inicio As Date, Fin As Date, FolioI As Integer, FolioF As Integer, TipoPol As Integer, CveUsuario As Integer, CveSubProyecto As Integer, CveCuenta As Integer, CveGrupoPlantillaPoliza As Integer) As Boolean
        Dim Retorno As Boolean = False

        StrSQL.Clear()
@@ -7338,6 +7339,12 @@ Public Class ClsContPAQi
        StrSQL.Append("     AND (@CveSubProyecto = -1 OR  ( MP.IdPoliza IN (SELECT IdPoliza FROM @DtSeg)) OR (@CveSubProyecto = -2 AND MP.IdSegNeg = 0) )  ")
        StrSQL.Append("     AND (@CveUsuario = -1 OR  P.IdUsuario = @CveUsuario)  ")
        StrSQL.Append("     AND (@Cvecuenta = -1 OR  C.Id = @Cvecuenta)  ")
+        StrSQL.Append("     AND (@CveGrupoPlantillaPoliza = -1 
+                            OR ( @CveGrupoPlantillaPoliza = 1 AND ISNULL(P.CvePlantillaPoliza,0) IN (1,22,43, 53, 60, 69, 74, 58, 59, 58, 59, 61, 62, 70,78, 89,94,95,96, 97,99,
+				                 64,65,68,72,75,79,80,81,82,83,84,90,91,93,40,41,42,48,54,55,14,24,32,34,37) ) 
+                            OR ( @CveGrupoPlantillaPoliza = 2 AND ISNULL(P.CvePlantillaPoliza,0) IN (4,7,47,10,12,74) )  
+                            OR ( @CveGrupoPlantillaPoliza = 3 And ISNULL(P.CvePlantillaPoliza,0) IN (2, 3, 5, 8, 9, 13,15,17,19,21, 36,44, 45, 49, 50, 51, 52,  56, 57, 67, 71,73,77,85,86,87,88, 92,98,76,23,38) )  
+                            OR ( @CveGrupoPlantillaPoliza = 4 AND ISNULL(P.CvePlantillaPoliza,0) IN (6, 11,16,  63,46,47,39,100)  ) )")
        StrSQL.Append("   ORDER BY P.Folio, MP.NumMovto ")
        StrSQL.Append("  END; ")

@@ -7353,6 +7360,8 @@ Public Class ClsContPAQi
            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@cvecuenta", SqlDbType.Int).Value = CveCuenta
+            .Add("@CveGrupoPlantillaPoliza", SqlDbType.Int).Value = CveGrupoPlantillaPoliza
+
        End With
        Try
            SqlAdapter.Fill(Data)
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -1050,7 +1050,7 @@ Public Class ClsContabilidad


            Dim tIdPoliza As Integer
-            Dim CveTipoPoliza, FolioFijo As Integer
+            Dim CveTipoPoliza, FolioFijo, CvePlantillaPoliza As Integer
            Dim Cargos As Decimal
            Dim Abonos As Decimal
            Dim NumPoliza As String = ""
@@ -1087,6 +1087,7 @@ Public Class ClsContabilidad
                    FolioFijo = Data.Rows(0)("FolioFijo").ToString.ToEntero
                    TipoPoliza = Data.Rows(0)("TipoPoliza").ToString
                    CodigoNumeroPoliza = Data.Rows(0)("CodigoNumeroPoliza").ToString
+                    CvePlantillaPoliza = Data.Rows(0)("CvePlantillaPoliza").ToString.ToEntero

                    'FolioFiscal = Data.Rows(0)("FolioFiscal").ToString
                    'MetodoPagoSAT = Data.Rows(0)("ClaveSAT").ToString
@@ -1106,7 +1107,7 @@ Public Class ClsContabilidad
                        ObjConta.RemoveCausacionesIVA(-1, tIdPoliza)
                        ObjConta.RemoveDevolucionesIVA(-1, tIdPoliza)
                    Else
-                        tIdPoliza = ObjConta.AddPoliza(CveTipoPoliza, Concepto, Cargos, Abonos, CveUsuario, Fecha, FolioFijo.ToString, CodigoNumeroPoliza)
+                        tIdPoliza = ObjConta.AddPoliza(CveTipoPoliza, Concepto, Cargos, Abonos, CveUsuario, Fecha, FolioFijo.ToString, CodigoNumeroPoliza, CvePlantillaPoliza:=CvePlantillaPoliza)
                        ContaFolio = ObjConta.Folio.ToString
                    End If

--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -4124,7 +4124,7 @@ Public Class ClsPaginas
            PaginaDict.Add("/Nomina/CatSatRegimenContratacion.aspx".ToUpper(), 257)
            PaginaDict.Add("/Nomina/CatSatTipoIncapacidad.aspx".ToUpper(), 258)
            PaginaDict.Add("/Nomina/CatSatRiesgoPuesto.aspx".ToUpper(), 259)
-            PaginaDict.Add("/Nomina/Utilidades.aspx".ToUpper(), 870)
+            PaginaDict.Add("/Nomina/ReportePTU.aspx".ToUpper(), 870)
 #End Region
            'Ordenes de Servicios
 #Region "OS"
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -2024,6 +2024,28 @@ Public Class ClsRH
        Return Retorno
    End Function

+    Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean) As Boolean
+        Dim Retorno As Boolean = False
+        SqlDataAdapter("PA_RH_PersonalAltasUp")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio
+            .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin
+            .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito
+            .Add("@CveMotivoBaja", SqlDbType.Int).Value = CveMotivoBaja
+            .Add("@esLiquidacion", SqlDbType.Int).Value = If(esLiquidacion, 1, 0)
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de Altas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
    Public Function GetPersonalAltas(CvePersonal As Integer) As Boolean
        Dim Retorno As Boolean = False
        SqlDataAdapter("PA_RH_PersonalAltasGet")
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2780,23 +2780,17 @@ Namespace Modelos

                    Next

-                End If
-
-                If DtRemisionesRelacionadas Is Nothing Then
-                    If ObjVentas.GetRemisionesRelacionadas(ObjFactura.CveVenta, ObjFactura.TipoDocto) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
-                        DtRemisionesRelacionadas = ObjVentas.DtResultados.Copy()
-                    End If
+                End If
+
+                If ObjFactura.RemisionesLista.Count = 0 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) Then
+                    For Each Row As DataRow In DtRemisionesRelacionadas.Rows
+                        ObjFactura.RemisionesLista.Add(Row("CveVenta").ToString().ToEntero())
+                    Next
                End If

                'Si es Facturacion de una remision cancelamos, traspasamos saldos y agregamos evento a la bitacora
                If (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) OrElse ObjFactura.RemisionesLista.Count > 0 Then

-                    If ObjFactura.RemisionesLista.Count = 0 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) Then
-                        For Each Row As DataRow In DtRemisionesRelacionadas.Rows
-                            ObjFactura.RemisionesLista.Add(Row("CveVenta").ToString().ToEntero())
-                        Next
-                    End If
-
                    If ObjFactura.RemisionesLista.Count > 0 Then
                        For Each CveRemision As Integer In RemisionesLista
                            If Not ObjConta.TraspasarSaldosRemision(CveRemision, ObjFactura.CvePrePoliza, ObjFactura.CveVenta) Then
@@ -2817,25 +2811,30 @@ Namespace Modelos
                                Exit For
                            End If
                        Next
-                    End If
-
-                    'REGRESA SALDO A LAS REMISIONES QUE SE FACTURARON EN EL INGRESO QUE SE ESTA CANCELANDO
-                    If ObjFactura.TipoDocto = "Ing" And ValorMultiplicador = -1 AndAlso NuevaFactura <> 1 AndAlso Not SeCancelaRemisionProceso Then ' se debe de excluir cuando es refacturación
-                        For Each Dr As DataRow In DtRemisionesRelacionadas.Rows
-
-                            Dim DebeCancelar As Boolean = CancelarRemisiones AndAlso ListaRemisionesCancelar.Any(Function(CveRemision) CveRemision = Dr("CveVenta").ToString.ToEntero())
-
-                            If Not DebeCancelar Then
-                                If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString.ToEntero, ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then
-                                    ErrorPrepoliza = True
-                                End If
-                                If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString.ToEntero) Then
-                                    ErrorPrepoliza = True
-                                End If
-                            End If
-                        Next
                    End If
-
+                End If
+
+                If DtRemisionesRelacionadas Is Nothing Then
+                    If ObjVentas.GetRemisionesRelacionadas(ObjFactura.CveVenta, ObjFactura.TipoDocto) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+                        DtRemisionesRelacionadas = ObjVentas.DtResultados.Copy()
+                    End If
+                End If
+
+                'REGRESA SALDO A LAS REMISIONES QUE SE FACTURARON EN EL INGRESO QUE SE ESTA CANCELANDO
+                If ObjFactura.TipoDocto = "Ing" And ValorMultiplicador = -1 AndAlso NuevaFactura <> 1 AndAlso Not SeCancelaRemisionProceso AndAlso DtRemisionesRelacionadas IsNot Nothing Then ' se debe de excluir cuando es refacturación
+                    For Each Dr As DataRow In DtRemisionesRelacionadas.Rows
+
+                        Dim DebeCancelar As Boolean = CancelarRemisiones AndAlso ListaRemisionesCancelar.Any(Function(CveRemision) CveRemision = Dr("CveVenta").ToString.ToEntero())
+
+                        If Not DebeCancelar Then
+                            If Not ObjConta.TraspasarSaldosRemision(Dr("CveVenta").ToString.ToEntero, ObjFactura.CvePrePoliza, ObjFactura.CveVenta, 1) Then
+                                ErrorPrepoliza = True
+                            End If
+                            If Not ObjEventos.AddEventoBitacora($"Facturación cancelada en: <a href='/Ventas/Ventas.aspx?CveVenta={ObjFactura.CveVenta}' target='_blank' class='Texto'>{ObjFactura.Folio}</a>", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=Dr("CveVenta").ToString.ToEntero) Then
+                                ErrorPrepoliza = True
+                            End If
+                        End If
+                    Next
                End If


@@ -3583,6 +3582,13 @@ Namespace Modelos

            Dim TieneAlmacen As Boolean = False

+            If ObjFactura.SaldoAlmacen <> 0 Then
+                Retorno.Mensaje = "El pedido no se puede cancelar ya que tiene movimientos de almacén.<br/>Nota: Primero hay que hacer la devolución al almacén."
+                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
+
+                Return Retorno
+            End If
+
            'VALIDA QUE LA FACTURA NO TENGA PAGOS
            If ObjFactura.TipoDocto.Contiene("Ing", "Rem") AndAlso ObjFactura.Pagado > 0 Then
                Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
@@ -3608,7 +3614,7 @@ Namespace Modelos
            End If

            'LA VALIDACION DE SALDOS CUANDO ES REFACTURACION SE HACE ANTES ASI QUE SI ES REFACTURACION IGNORAMOS ESTA CONDICION, SI ES ANTICIPO VERIFICA QUE NO ESTÉ APLICADO
-            If ObjFactura.TipoDocto = "Ant" AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
+            If ObjFactura.TipoDocto.Contiene("Ing", "Ant", "Rem") AndAlso ObjFactura.Pagado > 0 AndAlso DTDocumentosRelacionados.Rows.Count > 0 Then
                Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene pagos vinculados."
                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia

@@ -3670,7 +3676,7 @@ Namespace Modelos
            Dim RevivirRemisiones = Not EsRefacturacion AndAlso ((TieneRemisionesRelacionadas AndAlso ListaRemisionesCancelar Is Nothing) OrElse (DtRemisionesRelacionadas.Rows.Count > ListaRemisionesCancelar.Count))

            'REMISION YA SE DEBE HACER POR EL PROCESO DE DEVOLUCION DE ALMACEN
-            If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen > 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then
+            If Not EsRefacturacion AndAlso (ObjFactura.SaldoAlmacen <> 0 AndAlso ObjFactura.EsDevolucionVenta.Contiene(0, 1)) AndAlso Not RealizarDevolucionAlmacen And RevivirRemisiones = False Then

                Retorno.Mensaje = "La factura no se puede cancelar debido a que tiene movimientos de inventario."
                Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia
@@ -4190,7 +4196,8 @@ Namespace Modelos

                End If

-                Dim CveEstatusRefacturacion As Integer = 0
+                Dim CveEstatusRefacturacion As Integer = If(ObjFactura.CveEstatusRefacturacion <= 0, 0, ObjFactura.CveEstatusRefacturacion)
+
                'ACTUALIZA ESTATUS 
                If Not ErrorCancelar Then
                    Select Case ObjFactura.TipoDocto
@@ -4208,11 +4215,17 @@ Namespace Modelos
                        End If
                    End If

-
-                    If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
-                                                      CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd hh:mm:ss.mmm")) Then
-                        ErrorCancelar = True
-                        MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
+                    If CveEstatus.Contiene(4, 5) Then
+                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion) Then
+                            ErrorCancelar = True
+                            MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
+                        End If
+                    Else
+                        If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
+                                  CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd hh:mm:ss.mmm")) Then
+                            ErrorCancelar = True
+                            MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
+                        End If
                    End If

                    If CancelarRemisiones Then
@@ -4701,8 +4714,8 @@ Namespace Modelos
 #End Region


-#Region "P R O P I E D A D E S"
-
+#Region "P R O P I E D A D E S"
+        Public Property CveEstatusRefacturacion As Integer = 0
        Public Property NuevaFactura As Integer
        Public Property EnviarCorreo As Boolean = False
        Public Property ErrorList As List(Of String)
--- a/App_Code/Timbrado.vb
+++ b/App_Code/Timbrado.vb
@@ -634,7 +634,7 @@ Public Class Timbrado
                    'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
            Case 4

-                Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual)
+                Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
                Retorno = If(Ret = "", True, False)

        End Select
@@ -1571,7 +1571,10 @@ Public Class Timbrado
        'GC.Collect()
        Return Retorno
    End Function
-    Public Function TimbrarFacturaGoCFDIv33(Ventas As Modelos.Factura, UsuarioActual As Usuario) As String
+    Public Function TimbrarFacturaGoCFDIv33(Ventas As Modelos.Factura, UsuarioActual As Usuario, Optional CvePACEspecial As Integer = -1) As String
+        If CvePACEspecial = -1 Then
+            CvePACEspecial = UsuarioActual.Empresa.CvePAC
+        End If
        Dim sw As New Diagnostics.Stopwatch
        Dim swmili As Long = 0
        Dim swTiempo As New StringBuilder
@@ -1581,8 +1584,8 @@ Public Class Timbrado
        '        'Sucursal matriz de la empresa
        Dim ArchivoLLave As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoKey)
        Dim ArchivoCertificado As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer)
-        Dim UsuarioServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx")
-        Dim ClaveServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018")
+        Dim UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx")
+        Dim ClaveServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018")
        Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey
        Dim EmisorRFC As String = UsuarioActual.Empresa.RFC
        Dim UrlServicio As String = "" ' Produccion
@@ -1591,8 +1594,7 @@ Public Class Timbrado
        Dim SubTotal As Decimal = 0
        Dim TimbraProduccion As Boolean = True
        If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
-
-        Select Case UsuarioActual.Empresa.CvePAC
+        Select Case CvePACEspecial
            Case 2
                UrlServicio = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL"
            Case 4
@@ -1606,7 +1608,7 @@ Public Class Timbrado
            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\CSD01_AAA010101AAA.cer"
            Clave = "12345678a"
            TimbraProduccion = False
-            Select Case UsuarioActual.Empresa.CvePAC
+            Select Case CvePACEspecial
                Case 2
                    UsuarioServicio = "fgomez"
                    ClaveServicio = "12121212"
@@ -2090,7 +2092,7 @@ Public Class Timbrado

                            Using ObjVentas As New ClsVentas()

-                                If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=UsuarioActual.Empresa.CvePAC) Then
+                                If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial) Then
                                    Retorno = ""
                                Else
                                    Retorno = "Error"
@@ -2113,7 +2115,7 @@ Public Class Timbrado
                        If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
                            Using ObjNomina2 As New ClsNominas()

-                                If ObjNomina2.UpdateEstatusNomNominas(3, UsuarioActual.Empresa.CvePAC, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then
+                                If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, "", ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0) Then
                                    Retorno = ""
                                Else
                                    Retorno = "Error"
@@ -2159,7 +2161,7 @@ Public Class Timbrado
        End If

 #End Region
-        GuardaLogTimbrado(swTiempo.ToString, UsuarioActual.Empresa.CvePAC)
+        GuardaLogTimbrado(swTiempo.ToString, CvePACEspecial)
        Return Retorno
    End Function
    Public Sub GuardaLogTimbrado(Str As String, CvePAC As Integer)
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3939,7 +3939,7 @@ Partial Class Bancos_IE
                    End If

                Else
-                    Alert("Se presento un error al cancelar el complemento.")
+                    Alert("Se presento un error al cancelar el complemento.", TipoMensaje.MsgAdvertencia)
                End If
            Else
                ErrorCancelarComplemento = False
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6207,7 +6207,6 @@ Partial Class Compras_Compras

                                                                Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"

-                                                                If importeMovimiento <> 0 Then
                                                                    'Conta ContPAQ
                                                                    If IdCtaContable = 0 Then
                                                                        CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6224,9 +6223,8 @@ Partial Class Compras_Compras
                                                                    End If


-                                                                End If

-                                                                Dim ContienePSNeteoBonif As Boolean = False
+                                                                    Dim ContienePSNeteoBonif As Boolean = False
                                                                For Each Dr As DataRow In TmpDT.Rows
                                                                    If Dr("CveClasificacion").ToString.ToEntero.Contiene(20319) Then 'clasificación de Bonificación, no se incluirá en el neteo
                                                                        ContienePSNeteoBonif = True
--- a/Contabilidad/PolizasImpresion.aspx
+++ b/Contabilidad/PolizasImpresion.aspx
@@ -84,6 +84,16 @@
                    <div class="col-md-2 ">
                        <asp:DropDownList ID="DdlCuenta" DataTextField="CodigoNombre" DataValueField="Id" CssClass="form-control input-sm select2me" runat="server"></asp:DropDownList>
                    </div>
+                    <label class="col-md-1 truncate" data-toggle="tooltip" data-placement="top" title="Grupo Plantilla">Grupo Plantilla:</label>
+                    <div class="col-md-2 ">
+                        <asp:DropDownList ID="DdlGrupoPlantilla" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true">
+                            <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
+                            <asp:ListItem Text="Compras" Value="1"></asp:ListItem>
+                            <asp:ListItem Text="Ventas" Value="2"></asp:ListItem>
+                            <asp:ListItem Text="Pago Compra" Value="3"></asp:ListItem>
+                            <asp:ListItem Text="Pago Venta" Value="4"></asp:ListItem>
+                        </asp:DropDownList>
+                    </div>
                </div>

            </div>
--- a/Contabilidad/PolizasImpresion.aspx.vb
+++ b/Contabilidad/PolizasImpresion.aspx.vb
@@ -40,7 +40,7 @@ Partial Class Contabilidad_PolizasImpresion


        Dim objcont As New ClsContPAQi(UsuarioActual.Empresa)
-        If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero) Then
+        If objcont.GetPolizasMasivo(TxtFechaInicio.Text.ToDate, TxtFechaFin.Text.ToDate, foli, folf, ddlTipoPoliza.SelectedValue.ToEntero, DdlUsuarioRegistro.SelectedValue.ToEntero, DdlSegmentoNeg.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, DdlGrupoPlantilla.SelectedValue.ToEntero) Then
            If objcont.DtResultados.Rows.Count < 10000 Then

                If objcont.DtResultados.Rows.Count > 0 Then
--- a/LogTimbrado.txt
+++ b/LogTimbrado.txt
@@ -0,0 +1,4 @@
+
+ .. PAC: 4 - Verificado : (5) 5 Certificado : (501) 506 Armado: (25) 531 Genera: (494) 1025 Timbrado: (748) 1773  ..20/08/2019:03:33 p. m.
+
+ .. PAC: 4 - Verificado : (2) 2 Certificado : (388) 390 Armado: (4) 394 Genera: (440) 834 Timbrado: (1030) 1864 Guardado: (361) 2225 Actualizado: (99) 2324  ..20/08/2019:03:39 p. m.
--- a/Nomina/Finiquito.aspx
+++ b/Nomina/Finiquito.aspx
@@ -188,6 +188,10 @@
                                        </asp:DropDownList>
                                        <asp:Label runat="server" Text="Concepto:" AssociatedControlID="DdlConcepto"></asp:Label>
                                    </div>
+                                    <div class="form-group form-md-line-input input-iconright">
+                                        <asp:TextBox ID="TxtImporte" CssClass="form-control" runat="server"></asp:TextBox>
+                                        <asp:Label runat="server" Text="Concepto:" AssociatedControlID="DdlConcepto"></asp:Label>
+                                    </div>
                                </div>
                                <div class="modal-footer">
                                    <asp:UpdatePanel runat="server" UpdateMode="Conditional">
@@ -228,6 +232,10 @@
                                            </asp:DropDownList>
                                            <asp:Label runat="server" Text="Motivo de Baja: " AssociatedControlID="DdlMotivoBaja"></asp:Label>
                                        </div>
+                                        <div class="">
+                                            ¿es Liquidación?
+                                            <asp:CheckBox ID="ChkesLiquidacion" CssClass="chksino" Text=" " runat="server" />
+                                        </div>
                                        <div class="row">
                                            <div class="col-md-6" style="padding-right: 0px">
                                                <div class="form-group form-md-line-input input-iconright">
@@ -285,6 +293,22 @@
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
    <%--"<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>"--%>
    <script>
+        function insertParam(key, value) {
+            key = encodeURIComponent(key); value = encodeURIComponent(value);
+
+            var s = document.location.search;
+            var kvp = key + "=" + value;
+
+            var r = new RegExp("(&|\\?)" + key + "=[^\&]*");
+
+            s = s.replace(r, "$1" + kvp);
+
+            if (!RegExp.$1) { s += (s.length > 0 ? '&' : '?') + kvp; };
+
+            //again, do what you will here
+            document.location.search = s;
+        }
+
        function ADSBegin() {
            if ($('.thTituloConcepto').length == 0) {
                $('.GvConceptos').prepend("<tr class=\"thTituloConcepto\"> <th scope=\"col\" colspan=\"2\">Percepciones</th><th scope=\"col\" colspan=\"2\">Deducciones</th> </tr>");
--- a/Nomina/Finiquito.aspx.vb
+++ b/Nomina/Finiquito.aspx.vb
@@ -130,7 +130,7 @@ Partial Class Nomina_Finiquito
                        obj.EstatusD = dtD.Rows(index)("Estatus").ToString().ToEntero()
                    ElseIf index = noD Then
                        obj.EstatusD = -1
-                        obj.ConceptoD  = "Agregar"
+                        obj.ConceptoD = "Agregar"
                    End If
                    listaconceptos.Add(obj)
                Next
@@ -155,7 +155,7 @@ Partial Class Nomina_Finiquito
            objT.CveConcepto = 0
            objT.Concepto = ""
            objT.Estatus = -3
-            objT.ImporteD = objST.Importe - objT.Importe
+            objT.ImporteD = objST.Importe + objST.ImporteD
            objT.CveConceptoD = 0
            objT.ConceptoD = "Total"
            objT.EstatusD = -3
@@ -188,6 +188,20 @@ Partial Class Nomina_Finiquito
            ViewState("DTConceptos") = Value
        End Set
    End Property
+
+
+    Private Property esLiquidacion As Boolean
+        Get
+            If Not IsNothing(ViewState("esLiquidacion")) Then
+                Return CBool(ViewState("esLiquidacion"))
+            Else
+                Return False
+            End If
+        End Get
+        Set
+            ViewState("esLiquidacion") = Value
+        End Set
+    End Property
 #End Region
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
@@ -217,7 +231,7 @@ Partial Class Nomina_Finiquito
    End Sub
    Private Sub CargaDdlPersonal()
        Dim ObjPersonal As New ClsRH
-        If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) Then
+        If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
            DdlPersonal.DataSource = ObjPersonal.DtResultados
            DdlPersonal.DataBind()
        End If
@@ -227,29 +241,40 @@ Partial Class Nomina_Finiquito
    Private Function CargaDatosFiniquito() As Boolean
        Dim retorno As Boolean = True
        If CvePersonal > 0 Then
+
            DdlPersonal.SelectedValueExist(CvePersonal.ToString())
            Dim Nombre As String = ""
            Dim FechaBaja As String = ""
-            Dim MotivoBaja As String = ""
            Dim EstatusPersonal As String = ""
            CvePeriodoFiniquito = 0
            CveTipoPeriodo = 0
+            esLiquidacion = False
            pnlupValoresFiniquito.Visible = False
-            Dim ObjPersonal As New ClsRH
-            If ObjPersonal.GetPersonal(CvePersonal, "-1", "-1", "-1", "-1", -1, -1, -1, -1, -1, -1, -1, 2, -1, -1, "-1", -1, -1, -1, -1, -1, -1, "-1", "-1", "-1", "-1", UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
-                FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
-                MotivoBaja = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("MotivoBaja"))
-                EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal"))
-                CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero()
-                CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero()
-            End If
-            ObjPersonal.Dispose()
+            DdlMotivoBaja.SelectedValue = "-1"
+            Using ObjPersonal As New ClsRH()
+                If ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                    Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
+                    FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
+                    EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal"))
+                    CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero()
+                End If
+                If ObjPersonal.GetPersonalAltas(CvePersonal) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+                    CvePeriodoFiniquito = ObjPersonal.DtResultados.Rows(0)("CvePeriodoFiniquito").ToString().ToEntero()
+                    FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.DtResultados.Rows(0)("FechaFin"))
+                    DdlMotivoBaja.SelectedValueExist(ObjPersonal.DtResultados.Rows(0)("CveMotivoBaja").ToString().ToEntero())
+                    Dim stringesliquidacion = ObjPersonal.DtResultados.Rows(0)("esLiquidacion").ToString()
+                    esLiquidacion = (stringesliquidacion = "True" OrElse stringesliquidacion = "1")

+                End If
+            End Using
+            If DdlMotivoBaja.SelectedValue.ToEntero() > 0 Then
+                LblMotivoBaja.Text = DdlMotivoBaja.SelectedItem.Text
+            Else
+                LblMotivoBaja.Text = ""
+            End If
            HypEmpleado.Text = Nombre
            HypEmpleado.NavigateUrl = String.Format("/RH/Personal.aspx?CvePersonal={0}", CvePersonal)
            LblFechaBaja.Text = FechaBaja
-            LblMotivoBaja.Text = MotivoBaja
            LblEstatus.Text = EstatusPersonal
            TxtFechaBaja.Text = FechaBaja
            If CvePeriodoFiniquito <= 0 Then
@@ -257,11 +282,11 @@ Partial Class Nomina_Finiquito
                retorno = False
                pnlupValoresFiniquito.Visible = True
            End If
-            Dim ObjNom As New ClsNominas
-            If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-                DTConceptosPersonal = ObjNom.DtResultados
-            End If
-            ObjNom.Dispose()
+            Using ObjNom As New ClsNominas()
+                If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+                    DTConceptosPersonal = ObjNom.DtResultados
+                End If
+            End Using
            GvConceptos.DataSource = ConceptsPersonas
            GvConceptos.DataBind()
        Else
@@ -273,6 +298,13 @@ Partial Class Nomina_Finiquito

    Protected Sub LnkCampiarEmpleado_Click(sender As Object, e As EventArgs)
        CvePersonal = DdlPersonal.SelectedValue.ToEntero()
+
+
+        Using ObjPersonal As New ClsRH()
+            If ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
+
+            End If
+        End Using
        If pnlupValoresFiniquito.Visible Then

        End If
@@ -295,7 +327,9 @@ Partial Class Nomina_Finiquito

    End Sub
    Protected Sub DdlPersonal_SelectedIndexChanged(sender As Object, e As EventArgs)
-
+        Response.Redirect($"/Nomina/Finiquito.aspx?CvePersonal={DdlPersonal.SelectedValue}")
+        'Alert($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')")
+        'RegistraScript($"insertParam('CvePersonal','{DdlPersonal.SelectedValue}')")
    End Sub
    Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs)
        Dim CveTipoPeriodoactual As Integer = If(DdlTipoPeriodo.SelectedValue.ToEntero() > 0, DdlTipoPeriodo.SelectedValue.ToEntero(), CveTipoPeriodo)
@@ -354,24 +388,24 @@ Partial Class Nomina_Finiquito
            End If

            If Estatus = -1 Then
-                    LtlConcepto.Visible = False
-                ElseIf Estatus > 0 Then
-                    LtlImporte.Visible = False
-                End If
-
-                If EstatusD = -1 Then
-                    LtlConceptoD.Visible = False
-                ElseIf EstatusD > 0 Then
-                    LtlImporteD.Visible = False
-                End If
-
-
-                LnkConcepto.Visible = Not LtlConcepto.Visible
-                LnkConceptoD.Visible = Not LtlConceptoD.Visible
-                LnkImporte.Visible = Not LtlImporte.Visible
-                LnkImporteD.Visible = Not LtlImporteD.Visible
-
+                LtlConcepto.Visible = False
+            ElseIf Estatus > 0 Then
+                LtlImporte.Visible = False
            End If
+
+            If EstatusD = -1 Then
+                LtlConceptoD.Visible = False
+            ElseIf EstatusD > 0 Then
+                LtlImporteD.Visible = False
+            End If
+
+
+            LnkConcepto.Visible = Not LtlConcepto.Visible
+            LnkConceptoD.Visible = Not LtlConceptoD.Visible
+            LnkImporte.Visible = Not LtlImporte.Visible
+            LnkImporteD.Visible = Not LtlImporteD.Visible
+
+        End If
    End Sub

    Protected Sub LnkConcepto_Click(sender As Object, e As EventArgs)
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -17455,7 +17455,11 @@ Partial Class Ventas
            If resp.CveEstatus = 5 Then
                Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnEnviarMailCancelacion();", TextoConfirmacion:="&nbsp;&nbsp;&nbsp;&nbsp;Si&nbsp;&nbsp;&nbsp;&nbsp;", TextoCancelacion:="&nbsp;&nbsp;&nbsp;&nbsp;<a onclick='Recargar()'>No</>&nbsp;&nbsp;&nbsp;&nbsp;")
            Else
-                Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
+                If Not EsRefacturacion Then
+                    Alert(resp.Mensaje, resp.TipoMensaje, JSBtnAceptar:="BtnRefrescarPagina();")
+                Else
+                    Response.Redirect($"/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={Me.CveVenta}")
+                End If
            End If

            ObjFactura.CveAlmacen = -1
--- a/localhost.sln
+++ b/localhost.sln
@@ -1,45 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.27703.2035
-MinimumVisualStudioVersion = 10.0.40219.1
-Project("{E24C65DC-7377-472B-9ABA-BC803B73C61A}") = "http://localhost", "http://localhost", "{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}"
-	ProjectSection(WebsiteProperties) = preProject
-		SccProjectName = ""$/localhost", CAAAAAAA"
-		SccAuxPath = ""
-		SccLocalPath = "."
-		SccProvider = "MSSCCI:Microsoft Visual SourceSafe"
-		UseIISExpress = "false"
-		TargetFrameworkMoniker = ".NETFramework,Version%3Dv4.6"
-		Debug.AspNetCompiler.VirtualPath = "/localhost"
-		Debug.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\"
-		Debug.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
-		Debug.AspNetCompiler.Updateable = "true"
-		Debug.AspNetCompiler.ForceOverwrite = "true"
-		Debug.AspNetCompiler.FixedNames = "false"
-		Debug.AspNetCompiler.Debug = "True"
-		Release.AspNetCompiler.VirtualPath = "/localhost"
-		Release.AspNetCompiler.PhysicalPath = "..\..\..\..\..\inetpub\SIGIT\"
-		Release.AspNetCompiler.TargetPath = "PrecompiledWeb\localhost\"
-		Release.AspNetCompiler.Updateable = "true"
-		Release.AspNetCompiler.ForceOverwrite = "true"
-		Release.AspNetCompiler.FixedNames = "false"
-		Release.AspNetCompiler.Debug = "False"
-		SlnRelativePath = "..\..\..\..\..\inetpub\SIGIT\"
-	EndProjectSection
-EndProject
-Global
-	GlobalSection(SolutionConfigurationPlatforms) = preSolution
-		Debug|Any CPU = Debug|Any CPU
-	EndGlobalSection
-	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{82D0C8D1-3CF5-471D-92AF-71A9AE4B4335}.Debug|Any CPU.Build.0 = Debug|Any CPU
-	EndGlobalSection
-	GlobalSection(SolutionProperties) = preSolution
-		HideSolutionNode = FALSE
-	EndGlobalSection
-	GlobalSection(ExtensibilityGlobals) = postSolution
-		SolutionGuid = {B4590109-7BF9-411C-A1AE-792C02707CE6}
-	EndGlobalSection
-EndGlobal