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)

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
 

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"
@@ -4351,6 +4351,7 @@ Public Class ClsPaginas
             PaginaDict.Add("/Sistemas/PermisosPorUsuario.aspx".ToUpper(), 700)
             PaginaDict.Add("/Sistemas/Cierre.aspx".ToUpper(), 713)
             PaginaDict.Add("/Sistemas/CatTareasProgramadas.aspx".ToUpper(), -1)
+            PaginaDict.Add("/Sistemas/ConfiguracionEmpresa.aspx".ToUpper(), 683)
 #End Region
 #Region "Ventas"
             'VENTAS

App_Code/ClsProductosServicios.vb

@@ -1796,6 +1796,87 @@ Public Class ClsProductosServicios
     End Function
 #End Region
 
+#Region "Porcentaje Marcas de Productos"
+    Public Function GetPorcentajeMarcas(CveCliente As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los porcentajes de las Marcas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function AddPorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal, CveUsuario As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasAdd")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al agregar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function UpdatePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer, PorcentajeProducto As Decimal) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasUpdate")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@PorcentajeProducto", SqlDbType.SmallMoney).Value = PorcentajeProducto
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+    Public Function RemovePorcentajeMarcas(CveCliente As Integer, CveMarca As Integer) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_PorcentajeMarcasRemove")
+
+        With SqlAdapter.SelectCommand.Parameters
+
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al eliminar el porcentaje de la Marca.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+#End Region
 #Region "IDisposable Support"
 
 

App_Code/ClsRH.vb

@@ -1984,6 +1984,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")

App_Code/ClsVentas.vb

@@ -83,7 +83,7 @@ Public Class ClsVentas
             SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
             Try
                 SqlConexion.Open()
-                AddConexion()
+                ConexionAdd()
             Catch ex As Exception
                 OnError("Ocurrió un error al intentar conectarse a la base de datos.", ex)
             End Try
@@ -95,8 +95,6 @@ Public Class ClsVentas
         SqlAdapter = New SqlDataAdapter("", SqlConexion)
 
     End Sub
-
-
     Private Sub DataAdapter(ByVal pStrSQL As String, Optional ByVal TipoComando As CommandType = CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand
             .Parameters.Clear()
@@ -107,10 +105,8 @@ Public Class ClsVentas
         Data = New DataTable
     End Sub
 
-
 #Region "Conexiones"
 
-
     Private Sub ConexionAdd()
         If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
 
@@ -145,7 +141,6 @@ Public Class ClsVentas
         End If
 
     End Sub
-
 #End Region
 
     Public Function GetVenta(CveVenta As Integer, CveEmpresa As Integer) As Boolean
@@ -3676,6 +3671,23 @@ Public Class ClsVentas
         Return retorno
     End Function
 
+    Public Function TraspasaVentasAplicadasAnt(CveVentaNueva As Integer, CveVentaAnterior As Integer, CveEmpresa As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Vta_TraspasaVentasAplicadasAnt", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVentaNueva", SqlDbType.Int).Value = CveVentaNueva
+            .Add("@CveVentaAnterior", SqlDbType.Int).Value = CveVentaAnterior
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al traspasar las ventas aplicadas al nuevo anticipo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
+
 #Region " AUTORIZACION DESCUENTOS "
 
     Public Function AutorizacionDescuentosGet(CveAutorizacionDescuento As Integer, CveEmpresa As Integer) As Boolean
@@ -3925,7 +3937,6 @@ Public Class ClsVentas
     Protected Overridable Sub Dispose(disposing As Boolean)
         If Not Me.disposedValue Then
             If disposing Then
-                AddConexion()
                 ' TODO: dispose managed state (managed objects).
                 If Not Data Is Nothing Then Data.Dispose()
                 If Not Dataset Is Nothing Then Dataset.Dispose()

App_Code/Modelos.vb

@@ -2780,23 +2780,17 @@ Namespace Modelos
 
                     Next
 
-                End If
+                End If
-
+
-                If DtRemisionesRelacionadas Is Nothing Then
+                If ObjFactura.RemisionesLista.Count = 0 AndAlso (DtRemisionesRelacionadas IsNot Nothing AndAlso DtRemisionesRelacionadas.Rows.Count > 0) Then
-                    If ObjVentas.GetRemisionesRelacionadas(ObjFactura.CveVenta, ObjFactura.TipoDocto) AndAlso ObjVentas.DtResultados.Rows.Count > 0 Then
+                    For Each Row As DataRow In DtRemisionesRelacionadas.Rows
-                        DtRemisionesRelacionadas = ObjVentas.DtResultados.Copy()
+                        ObjFactura.RemisionesLista.Add(Row("CveVenta").ToString().ToEntero())
-                    End If
+                    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 CveEstatus.Contiene(4, 5) Then
-                    If Not ObjVentas.UpdateEstatusFactura(CveEstatus, FolioFiscal, CancelacionAcuse, CancelacionFecha, CveVenta, IDPoliza, CvePAC:=CvePACCancelacion, CveEstatusRefacturacion:=CveEstatusRefacturacion,
+                        If Not ObjVentas.UpdateCancelaVenta(CveVenta, CancelacionFecha, CancelacionAcuse, UsuarioActual.CveEmpresa, CvePACCancelacion) Then
-                                                      CveUsuarioCambiaEstatus:=UsuarioActual.CveUsuario, FechaCambioEstatus:=Now.ToString("yyyy-MM-dd hh:mm:ss.mmm")) Then
+                            ErrorCancelar = True
-                        ErrorCancelar = True
+                            MensajeError = "Ocurrió un error al guardar el estatus de cancelación."
-                        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)

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 UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx")
-        Dim ClaveServicio As String = If(UsuarioActual.Empresa.CvePAC = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018")
+        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 CvePACEspecial
-        Select Case UsuarioActual.Empresa.CvePAC
             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)

Bancos/CuentasBancariasDetalle.aspx.vb

@@ -33,7 +33,8 @@ Partial Class Bancos_CuentasBancariasDetalle
             CargarMoneda()
             ViewState("DTUsuarios") = Nothing
 
-            DdlUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre")
+            Dim tablaUsuariosAux As DataTable = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "Nombre", DistinctColumns:={"CveUsuario", "Nombre", "Usuario"})
+            DdlUsuarios.DataSource = CargarDdlUsuarios(tablaUsuariosAux)
             DdlUsuarios.DataBind()
 
             If Request("CveCuenta") IsNot Nothing AndAlso IsNumeric(Request("CveCuenta")) AndAlso Request("CveCuenta").ToEntero > 0 Then
@@ -678,6 +679,27 @@ Partial Class Bancos_CuentasBancariasDetalle
         End If
     End Sub
 
+    Private Function CargarDdlUsuarios(UsuariosGlobal As DataTable) As DataTable
+        Dim tablaUsuariosFormateada As DataTable = New DataTable("Usuarios")
+
+        Dim columnaNombre As DataColumn = New DataColumn("Nombre")
+        columnaNombre.DataType = System.Type.GetType("System.String")
+        Dim columnaCveUsuario As DataColumn = New DataColumn("CveUsuario")
+        columnaCveUsuario.DataType = System.Type.GetType("System.String")
+
+        tablaUsuariosFormateada.Columns.Add(columnaNombre)
+        tablaUsuariosFormateada.Columns.Add(columnaCveUsuario)
+
+        For Each eachRegistro As DataRow In UsuariosGlobal.Rows
+            Dim renglonAux As DataRow = tablaUsuariosFormateada.NewRow()
+
+            renglonAux.Item("Nombre") = $"{eachRegistro.Item("Nombre")}({eachRegistro.Item("Usuario")})"
+            renglonAux.Item("CveUsuario") = eachRegistro.Item("CveUsuario")
+
+            tablaUsuariosFormateada.Rows.Add(renglonAux)
+        Next
+        Return tablaUsuariosFormateada
+    End Function
 #End Region
 
 End Class

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

Bancos/ProveedoresAbonar.aspx

@@ -199,7 +199,7 @@
                                 </div>
                             </ContentTemplate>
                         </asp:UpdatePanel>
-                        <div class="row" runat="server" id="rowComisiones" visible="false">
+                        <div class="row"  >
                             <label class="col-md-2" runat="server" id="lblpagocomisiones">Comisiones:</label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlOtrosPagos" CssClass="form-control input-sm select2me" runat="server" AutoPostBack="true">

Bancos/ProveedoresAbonar.aspx.vb

@@ -310,9 +310,6 @@ Partial Class Bancos_ProveedoresAbonar
                 ViewState("CveCuentaRetISR") = 0
             End If
 
-            'If UsuarioActual.CveEmpresa.Contiene(1, 4, 5, 7, 11, 12, 72, 80, 126, 119, 122,145) Then
-            '    rowComisiones.Visible = True
-            'End If
 
             IdCuenta = 0
             CveCuentaB = 0

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
@@ -14522,7 +14520,7 @@ Partial Class Compras_Compras
             End If
         End If
 
-        If (HdnIEPSModificadoOC.Value.ToDecimal <> LbIEPSOC2.Text.ToDecimal) Then
+        If Math.Abs(HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal) > 0.05 Then
             Alert($"Hay una diferencia de IEPS entre la factura y la OC. Dif: {HdnIEPSModificadoOC.Value.ToDecimal - LbIEPSOC2.Text.ToDecimal}", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If

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>

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

Inventarios/EntradasSalidas.aspx.vb

@@ -1058,7 +1058,7 @@ Partial Class Inventarios_EntradasSalidas
                 ObjConta.IniciaTransacSQL()
             End If
 
-            If ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
+            If Not ObjGral.AddHistorialBitacora(Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, TxtDescripcion.Text, "Inventarios", TxtFolio.Text + " / " + DdlConcepto.SelectedItem.Text) Then
                 TieneError = True
             End If
 

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -152,10 +152,14 @@ Partial Class Inventarios_KardexAlmacen
                 dt = Nothing
                 Return dt
                 Exit Function
-            End If
+            End If
-        End If
+        Else
-
+            ObjMovimientos.Dispose()
-        ObjMovimientos.Dispose()
+            Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            Exit Function
+        End If
+
+
         GvDatos.DataBind()
 
         For index = 3 To GvDatos.Rows(0).Cells.Count - 1

Inventarios/RecepcionAlmacen.aspx.vb

@@ -2346,16 +2346,18 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
+                    If CvePrePolizaCompra > 0 Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                            ErrorMovInv = True
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
-                            MensajeError = "Error al unificar los conceptos contables"
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
                         If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
@@ -2458,17 +2460,20 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
 
                 'CONTABILIZAR - UNIFICAR Y SIMPLIFICAR CON PP DE LA COMPRA
-                If Not ErrorMovInv And CvePrePolizaCompra > 0 Then
+                If Not ErrorMovInv Then
 
-                    If UsuarioActual.Empresa.Funcionalidad(219) = "1" Or UsuarioActual.CveEmpresa = 119 Then
+                    If CvePrePolizaCompra > 0 Then
-                        If Not ObjConta.PrePolizaUnificacion(CvePrePolizaCompra, CvePrePoliza) Then
+                        If UsuarioActual.Empresa.Funcionalidad(219) = "1" Then
-                            ErrorMovInv = True
+                            If Not ObjConta.PrePolizaUnificacion(CvePrePoliza, CvePrePolizaCompra) Then
-                            MensajeError = "Error al unificar los conceptos contables"
+                                ErrorMovInv = True
+                                MensajeError = "Error al unificar los conceptos contables"
+                            End If
                         End If
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Or UsuarioActual.CveEmpresa = 119 Then
+
-                        If Not ObjConta.PrePolizaSimplificacion(CvePrePolizaCompra, UsuarioActual.CveEmpresa) Then
+                    If UsuarioActual.Empresa.Funcionalidad(220) <> "" Then
+                        If Not ObjConta.PrePolizaSimplificacion(CvePrePoliza, UsuarioActual.CveEmpresa) Then
                             ErrorMovInv = True
                             MensajeError = "Error al simplificar los conceptos contables"
                         End If
@@ -2743,6 +2748,17 @@ Partial Class Inventarios_RecepcionAlmacen
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(200) = "1" Then
+            ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+            ObjContaAC.IniciaTransacSQL()
+            If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContaAC) Then
+                MensajeError = $"<br>Movimiento contabilizado en el folio: <b><a class='Texto' href = '/Contabilidad/RegPoliza.aspx?IdPoliza={ObjConta.ContaIdPoliza}'>{ObjConta.ContaFolio}</a></b><br>"
+            Else
+                ErrorMovInv = True
+                MensajeError = "Error al contabilizar los conceptos contables"
+            End If
+        End If
+
 
         'FINAL
         If Not ErrorMovInv Then

LogMail.txt

@@ -0,0 +1 @@
+

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.

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>");

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
+            DdlMotivoBaja.SelectedValue = "-1"
-            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
+            Using ObjPersonal As New ClsRH()
-                Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
+                If ObjPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-                FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
+                    Nombre = ObjPersonal.DtResultados.Rows(0)("Nombre").ToString()
-                MotivoBaja = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("MotivoBaja"))
+                    FechaBaja = String.Format("{0:dd/MM/yyyy}", ObjPersonal.FechaBaja)
-                EstatusPersonal = String.Format("{0}", ObjPersonal.DtResultados.Rows(0)("EstatusPersonal"))
+                    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()
-                CveTipoPeriodo = ObjPersonal.DtResultados.Rows(0)("CveTipoPeriodo").ToString().ToEntero()
+                End If
-            End If
+                If ObjPersonal.GetPersonalAltas(CvePersonal) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then
-            ObjPersonal.Dispose()
+                    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
+            Using ObjNom As New ClsNominas()
-            If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
+                If ObjNom.GetFiniquitosPersonal(CvePersonal, UsuarioActual.CveEmpresa) Then
-                DTConceptosPersonal = ObjNom.DtResultados
+                    DTConceptosPersonal = ObjNom.DtResultados
-            End If
+                End If
-            ObjNom.Dispose()
+            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
+                LtlConcepto.Visible = False
-                ElseIf Estatus > 0 Then
+            ElseIf Estatus > 0 Then
-                    LtlImporte.Visible = False
+                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
+
+            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)

Sistemas/ConfiguracionEmpresa.aspx

@@ -0,0 +1,121 @@
+<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="ConfiguracionEmpresa.aspx.vb" Inherits="Sistemas_ConfiguracionEmpresa" %>
+
+<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
+<asp:Content ID="Content1" ContentPlaceHolderID="H" runat="Server">
+</asp:Content>
+<asp:Content ID="Content4" ContentPlaceHolderID="css" runat="Server">
+    <style>
+    </style>
+</asp:Content>
+<asp:Content ID="Content2" ContentPlaceHolderID="E" runat="Server">
+    <asp:Literal ID="LtlTitulo" runat="server" Text="Registro de Empresas"></asp:Literal>
+</asp:Content>
+<asp:Content ID="Content3" ContentPlaceHolderID="C" runat="Server">
+
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
+        <ContentTemplate>
+            <ajax:TabContainer ID="Tab" runat="server" Width="100%" ActiveTabIndex="0">
+                <ajax:TabPanel HeaderText="Contabilidad" ID="TabPanel1" runat="server">
+                    <ContentTemplate>
+
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:RadioButtonList ID="RblTipo" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                    <asp:ListItem Value="SIG" Selected="True"><label><b>SIG</b></label></asp:ListItem>
+                                    <asp:ListItem Value="CP"><label><b>Contpaq</b></label></asp:ListItem>
+                                </asp:RadioButtonList>
+                            </div>
+                        </div>
+
+
+                        <div class="row">
+                            <div class="col-md-6">
+                                <div class="portlet light smmallpadding bordered">
+                                    <div class="portlet-title">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span class="caption-subject bold uppercase">Cuenta</span>
+                                        </div>
+                                        <div class="actions">
+                                            <div class="btn-group">
+                                            </div>
+                                        </div>
+                                        <div class="tools">
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                    <div class="portlet-body">
+                                        <table border="0">
+                                            <tr>
+                                                <td>Clientes:</td>
+                                                <td>
+                                                    <asp:RadioButtonList ID="RadioButtonList1" runat="server" AutoPostBack="true" RepeatDirection="Horizontal" CssClass="input-group" CellSpacing="50">
+                                                        <asp:ListItem Value="1" Selected="True"><label><b>Individual</b></label></asp:ListItem>
+                                                        <asp:ListItem Value="2"><label><b>Global</b></label></asp:ListItem>
+                                                    </asp:RadioButtonList>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>Clave de Empresa:</td>
+                                                <td>
+                                                    <asp:TextBox ID="TxtCveEmpresa" runat="server" MaxLength="50" Width="60px"></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVCveEmpresa" runat="server" ControlToValidate="TxtCveEmpresa" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''CveEmpresa de la Empresa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCECveEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVCveEmpresa" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                </td>
+                                            </tr>
+                                            <tr>
+                                                <td>Razón Social:</td>
+                                                <td>
+                                                    <asp:TextBox ID="TxtEmpresa" runat="server" MaxLength="50" Width="350px"></asp:TextBox>
+                                                    <asp:RequiredFieldValidator ID="RFVEmpresa" runat="server" ControlToValidate="TxtEmpresa" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Nombre de la Empresa''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                                    <ajax:ValidatorCalloutExtender ID="VCEEmpresa" runat="server" HighlightCssClass="vco" TargetControlID="RFVEmpresa" Width="300px"></ajax:ValidatorCalloutExtender>
+                                                </td>
+                                            </tr>
+                                        </table>
+                                    </div>
+                                </div>
+                            </div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+                        </div>
+
+
+                    </ContentTemplate>
+                </ajax:TabPanel>
+            </ajax:TabContainer>
+
+            </br>
+
+            <div align="center">
+                <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
+                    <ContentTemplate>
+                        <asp:Button ID="BtnGuardar" runat="server" CssClass=" btn btn-primary " Text="Guardar" ValidationGroup="GrpGuardar" />
+                        <asp:Button ID="BtnEliminar" runat="server" CssClass=" btn btn-danger " Text="Eliminar" />
+                        <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </div>
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+</asp:Content>
+<asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">
+    <script type="text/javascript">
+
+
+</script>
+
+</asp:Content>

Sistemas/ConfiguracionEmpresa.aspx.vb

@@ -0,0 +1,23 @@
+Option Explicit On
+Option Strict On
+
+Imports System.Data
+Imports Extensiones
+Imports System.Runtime.InteropServices
+Imports System.IO
+
+Partial Class Sistemas_ConfiguracionEmpresa
+    Inherits ClsPaginas
+
+#Region " PROPIEDADES "
+
+#End Region
+
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+
+
+        End If
+    End Sub
+End Class

Ventas/Clientes.aspx

@@ -255,10 +255,18 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+    <asp:UpdatePanel runat="server" ID="UpPorcentajeMarcas" RenderMode="Inline" UpdateMode="Conditional">
+        <ContentTemplate>
+            <li>
+                <asp:LinkButton ID="LnkPorcentajeMarcas" Visible="False" data-toggle="tooltip" data-placement="left" title="Modificar Precio de PS por Marca." runat="server" Text="<i class='fa fa-pencil'></i> Modificar Precio por Marca"></asp:LinkButton>
+            </li>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
     <asp:UpdatePanel runat="server" ID="UpPorcentajePrecios" RenderMode="Inline" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
-                <asp:LinkButton ID="LnkPorcentajePrecios" Visible="False" data-toggle="tooltip" data-placement="left" title="Modificar Precio de Productos." runat="server" Text="<i class='fa fa-pencil'></i> Modificar Precios"></asp:LinkButton>
+                <asp:LinkButton ID="LnkPorcentajePrecios" Visible="False" data-toggle="tooltip" data-placement="left" title="Modificar Precio por PS." runat="server" Text="<i class='fa fa-pencil'></i> Modificar Precio por Producto"></asp:LinkButton>
             </li>
         </ContentTemplate>
     </asp:UpdatePanel>
@@ -5464,13 +5472,13 @@
     </div>
     <%-- END MODAL UNIFICAR EMPRESA CRM --%>
 
-    <%-- MODAL MODIFICAR PORCENTAJE PRECIOS --%>
+    <%-- MODAL MODIFICAR PORCENTAJE MARCAS --%>
-    <div id="DivPorcentajePrecios" class="modal ADS fade" role="dialog">
+    <div id="DivPorcentajeMarcas" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
             <div class="modal-content" style="width: 700px;">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Modificar Precio de Productos</h4>
+                    <h4 class="modal-title">Modificar Precio de Productos por Marca</h4>
                 </div>
                 <asp:UpdatePanel ID="UpPorcentaje" UpdateMode="Conditional" runat="server">
                     <ContentTemplate>
@@ -5502,7 +5510,7 @@
                                                         </asp:DropDownList>
                                                         <br />
                                                         <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />--%>
-                                                        <%--                                                        <asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlProducto2" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                                        <%--                                                        <asp:RequiredFieldValidator ID="RFVProducto2" InitialValue="-1" runat="server" ControlToValidate="DdlProducto2" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Producto''</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VCEProducto2" runat="server" HighlightCssClass="vco" TargetControlID="RFVProducto2" Width="300px"></ajax:ValidatorCalloutExtender>--%>
                                                     </div>
                                                 </div>
@@ -5511,16 +5519,16 @@
                                                 <asp:Label ID="LbPrecioG" DataFormatString="{0:N2}" Width="55px" MaxLength="15" runat="server"></asp:Label>
                                             </td>--%>
                                             <td>
-                                                <asp:TextBox ID="txtPorcentaje" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS" Style="text-align: right"></asp:TextBox>
+                                                <asp:TextBox ID="txtPorcentaje" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgrega" Style="text-align: right"></asp:TextBox>
                                                 <ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPorcentaje" FilterType="Custom, Numbers" ValidChars=".," />
-                                                <asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                                <asp:RequiredFieldValidator ID="RFVPorcentaje" runat="server" ControlToValidate="txtPorcentaje" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgrega"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="VCEPorcentaje" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentaje" Width="300px"></ajax:ValidatorCalloutExtender>
                                             </td>
 <%--                                            <td>
                                                 <asp:Label ID="LbPrecioA" Width="55px" MaxLength="15" runat="server" ClientIDMode="Static"></asp:Label>
                                             </td>--%>
                                             <td align="center">
-                                                <asp:LinkButton ID="LbAgregar" runat="server" CssClass="btn btn-default" ValidationGroup="GprAgregaPS" Text="Agregar" />
+                                                <asp:LinkButton ID="LbAgregarMarca" runat="server" CssClass="btn btn-default" ValidationGroup="GprAgrega" Text="Agregar" />
                                             </td>
                                         </tr>
                                     </tbody>
@@ -5545,7 +5553,7 @@
                                                     </ItemTemplate>
                                                     <ItemStyle Width="28px"></ItemStyle>
                                                 </asp:TemplateField>
-                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="Producto" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
+                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="Marca" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
 <%--                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioG" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
 
 
@@ -5564,6 +5572,137 @@
 
 <%--                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioA" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />--%>
 
+                                                <asp:TemplateField>
+                                                    <EditItemTemplate>
+                                                        <center>
+                                                <asp:LinkButton ID="imgU" runat="server" AlternateText="Actualizar" CausesValidation="True" CommandName="Update" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" ValidationGroup="GrpGV" />
+                                                &nbsp;<asp:LinkButton ID="imgC" runat="server" AlternateText="Cancelar" CausesValidation="False" CommandName="Cancel" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-times'></i>" />
+                                            </center>
+                                                    </EditItemTemplate>
+                                                    <ItemTemplate>
+                                                        <asp:LinkButton ID="imgE" runat="server" AlternateText="Editar" CausesValidation="False" CommandName="Edit" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                                                        <asp:LinkButton ID="lnkRemove" runat="server" AlternateText="Eliminar" OnClick="DeleteRowMarca" CommandArgument='<%# Eval("No")%>' CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el porcentaje?" data-btn-ok-label="si" />
+                                                    </ItemTemplate>
+                                                    <ItemStyle Width="73px"></ItemStyle>
+                                                </asp:TemplateField>
+                                            </Columns>
+                                            <RowStyle CssClass="Texto" />
+                                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                                        </asp:GridView>
+                                    </ContentTemplate>
+                                </asp:UpdatePanel>
+                            </div>
+
+
+
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnGuardarPorcentajesMarca" runat="server" Text="Guardar" CssClass="btn btn-primary" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </ContentTemplate>
+                </asp:UpdatePanel>
+            </div>
+        </div>
+    </div>
+    <%-- FIN MODAL MODIFICAR PORCENTAJE MARCAS --%>
+
+        <%-- MODAL MODIFICAR PRECIOS PS --%>
+    <div id="DivPorcentajePrecios" class="modal ADS fade" role="dialog">
+        <div class="modal-dialog">
+            <div class="modal-content" style="width: 700px;">
+                <div class="modal-header ">
+                    <button type="button" class="close" data-dismiss="modal">&times;</button>
+                    <h4 class="modal-title">Modificar Precio de Productos</h4>
+                </div>
+                <asp:UpdatePanel ID="UpPorcentajeP" UpdateMode="Conditional" runat="server">
+                    <ContentTemplate>
+                        <div class="modal-body">
+
+
+                            <div class="row" style="margin: 5px;">
+
+                                <table border="0" cellpadding="0" class="Widthall grides" cellspacing="0">
+                                    <tbody>
+                                        <tr class="Titulos">
+                                            <th style="width: 28px">#</th>
+                                            <th style="width: 200px">Clasificación<br />
+                                                Producto </th>
+                                            <th width="73px">Precio<br />
+                                                General </th>
+                                            <th width="73px">%</th>
+                                            <th width="73px">Precio<br />
+                                                Aplicado </th>
+                                            <th style="width: 73px;"></th>
+                                        </tr>
+                                        <tr align="center">
+                                            <td></td>
+                                            <td style="text-align: center;">
+                                                <div class="psagregar">
+                                                    <div class="comboxes">
+                                                        <asp:DropDownList ID="DdlClasificacion2" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="100%" Class="form-control input-sm select2me">
+                                                            <asp:ListItem Selected="True" Text="Seleccione la Clasificación (Todas)" Value="-1"></asp:ListItem>
+                                                        </asp:DropDownList>
+                                                        <br />
+                                                        <ADS:Dropdownlost runat="server" ID="DdlProducto2" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                                    </div>
+                                                </div>
+                                            </td>
+                                            <td>
+                                                <asp:Label ID="LbPrecioG" DataFormatString="{0:N2}" Width="55px" MaxLength="15" runat="server"></asp:Label>
+                                            </td>
+                                            <td>
+                                                <asp:TextBox ID="TxtPorcentajePS" CssClass="form-control input-sm" Width="55px" MaxLength="15" runat="server" ValidationGroup="GprAgregaPS" Style="text-align: right"></asp:TextBox>
+                                                <ajax:FilteredTextBoxExtender ID="FilteredTextBoxExtender3" runat="server" TargetControlID="TxtPorcentajePS" FilterType="Custom, Numbers" ValidChars=".," />
+                                                <asp:RequiredFieldValidator ID="RFVPorcentajeP" runat="server" ControlToValidate="TxtPorcentajePS" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''%'' Porcentaje</b> es necesario, por favor ingréselo." ValidationGroup="GprAgregaPS"></asp:RequiredFieldValidator>
+                                                <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender4" runat="server" HighlightCssClass="vco" TargetControlID="RFVPorcentajeP" Width="300px"></ajax:ValidatorCalloutExtender>
+                                            </td>
+                                            <td>
+                                                <asp:Label ID="LbPrecioA" Width="55px" MaxLength="15" runat="server" ClientIDMode="Static"></asp:Label>
+                                            </td>
+                                            <td align="center">
+                                                <asp:LinkButton ID="LbAgregar" runat="server" CssClass="btn btn-default" ValidationGroup="GprAgregaPS" Text="Agregar" />
+                                            </td>
+                                        </tr>
+                                    </tbody>
+                                </table>
+                                <asp:Button ID="BtnCambiaPorcentaje" Text="" OnClick="BtnCambiaPorcentaje_Click" ClientIDMode="Static" Style="display: none;" runat="server" />
+                            </div>
+
+                            <br />
+                            <div class="row" style="margin: 5px;">
+                                <asp:UpdatePanel ID="UpPorcentajePS" runat="server" UpdateMode="Conditional">
+                                    <ContentTemplate>
+                                        <asp:GridView ID="GvP" runat="server" GridLines="none" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn" DataKeyNames="No" EmptyDataText="Aún no hay registros." AutoGenerateColumns="False" AllowPaging="False" ShowHeaderWhenEmpty="True">
+                                            <Columns>
+                                                <asp:TemplateField HeaderText="" ItemStyle-Font-Size="6pt">
+                                                    <EditItemTemplate>
+                                                        <asp:Literal ID="lbNo" runat="server" Text='<%# Eval("No")%>'></asp:Literal>
+                                                    </EditItemTemplate>
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="lbNo" runat="server" Text='<%# Eval("No")%>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                    <ItemStyle Width="28px"></ItemStyle>
+                                                </asp:TemplateField>
+                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="Producto" ItemStyle-Width="200px" ItemStyle-HorizontalAlign="Left" />
+                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioG" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+
+
+                                                <asp:TemplateField HeaderText="">
+                                                    <EditItemTemplate>
+                                                        <asp:TextBox ID="TxtPorcentajeP" CssClass="form-control input-sm" runat="server" Width="80px" Text='<%# Eval("PorcentajeProducto", "{0:N2}")%>' Style="text-align: right"></asp:TextBox>
+                                                        <ajax:FilteredTextBoxExtender ID="ftbe" runat="server" TargetControlID="txtPorcentajeP" FilterType="Custom, Numbers" ValidChars=".," />
+                                                    </EditItemTemplate>
+                                                    <ItemTemplate>
+                                                        <asp:Literal ID="lblPorcentajeP" runat="server" Text='<%# Eval("PorcentajeProducto", "{0:N2}")%>'></asp:Literal>
+                                                    </ItemTemplate>
+                                                    <ItemStyle Width="73px" HorizontalAlign="Right"></ItemStyle>
+                                                    <FooterStyle HorizontalAlign="Right"></FooterStyle>
+                                                </asp:TemplateField>
+
+
+                                                <asp:BoundField HeaderText="" ReadOnly="true" DataField="PrecioA" ItemStyle-Width="73px" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+
                                                 <asp:TemplateField>
                                                     <EditItemTemplate>
                                                         <center>
@@ -5597,7 +5736,8 @@
             </div>
         </div>
     </div>
-    <%-- FIN MODAL IMPORTAR SALDOS --%>
+    <%-- FIN MODAL MODIFICAR PRECIOS PS --%>
+
 </asp:Content>
 
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">

Ventas/Clientes.aspx.vb

@@ -1253,6 +1253,7 @@ Partial Class Clientes
                 'CargaFormaPago33()
                 'CargaComboCFDI()
 
+                LnkPorcentajeMarcas.Visible = True
                 LnkPorcentajePrecios.Visible = True
 
                 If UsuarioActual.TienePermisoProceso(261) Then LnkVerGrafica.Visible = True
@@ -8132,14 +8133,12 @@ Partial Class Clientes
     End Sub
 #End Region
 
-#Region "PORCENTAJE PRECIO DE PRODUCTOS"
+#Region "PORCENTAJE PRECIO DE MARCAS"
-    Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
+    Private Sub LnkPorcentajeMarcas_Click(sender As Object, e As EventArgs) Handles LnkPorcentajeMarcas.Click
-        RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
+        RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajeMarcas"))
 
         CreaDT()
 
-        'txtPorcentaje.Attributes.Add("onchange", String.Format("FnCambiaPorcentaje({0});", "5"))
-        'CargaPorcentajesProductos()
         CargaMarcas()
         LimpiaModalPorcentaje()
     End Sub
@@ -8156,6 +8155,7 @@ Partial Class Clientes
 
         DTPorcentajeTemp.Columns.Add(column)
         DTPorcentajeTemp.Columns.Add("CveMarca", GetType(Integer))
+        DTPorcentajeTemp.Columns.Add("Marca", GetType(String))
         DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal))
         DTPorcentajeTemp.Columns.Add("Estatus", GetType(String))
         DTPorcentajePrecios = DTPorcentajeTemp.Clone
@@ -8171,58 +8171,11 @@ Partial Class Clientes
         CargaGridPorcentajes()
         UpPorcentaje.Update()
     End Sub
-    'Private Sub CargaPorcentajesProductos()
-    '    'Llenar el dropdownlist de Secciones
-    '    If UsuarioActual.CveEmpresa = 66 Then
-    '        DdlClasificacion2.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
-    '    Else
-    '        Dim ObjClasificaciones As New ClsClasificaciones
-    '        If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
-    '            DdlClasificacion2.DataSource = ObjClasificaciones.DtResultados
-    '        End If
-    '        ObjClasificaciones.Dispose()
-    '    End If
-    '    DdlClasificacion2.DataBind()
-
-    '    CargaPS()
-    '    CargaGridPorcentajes()
-
-    '    UpPorcentaje.Update()
-    'End Sub
-    'Private Sub CargaPS()
-    '    DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
-
-    '    If UsuarioActual.CveEmpresa = 66 Then
-    '        DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
-    '    End If
-
-    '    If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
-    '        DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2")
-
-    '        DdlProducto2.DataBind()
-
-    '        DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
-    '    End If
-
-    'End Sub
-
-    'Protected Sub DdlProducto2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlProducto2.selectedindexchange
-    '    DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
-    'End Sub
-    'Private Sub DdlProducto2IndexChange(CvePSParametro As Integer, Ddl As ADServerControl.Dropdownlost)
-    '    Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
-
-    '    If drPS IsNot Nothing Then
-    '        Dim Precio = drPS("Precio").ToString.ToDouble
-    '        LbPrecioG.Text = Precio.FormatoNumero()
-    '        LbPrecioA.Text = ((Precio * txtPorcentaje.Text.ToDecimal) / 100).FormatoNumero
-    '    End If
-    'End Sub
 
     Private Sub CargaGridPorcentajes()
         Dim ObjPS As New ClsProductosServicios
 
-        If ObjPS.GetPorcentajeProductos(CveCliente) Then
+        If ObjPS.GetPorcentajeMarcas(CveCliente) Then
             DTPorcentajePrecios = ObjPS.DtResultados
             GvM.DataSource = DTPorcentajePrecios
         End If
@@ -8244,13 +8197,14 @@ Partial Class Clientes
         DdlMarcaPS.SelectedValue = "-1"
     End Sub
 
-    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+    Protected Sub LbAgregarMarca_Click(sender As Object, e As EventArgs) Handles LbAgregarMarca.Click
         If txtPorcentaje.Text.ToDecimal >= 0 And txtPorcentaje.Text.ToDecimal <= 100 Then
 
             Dim registro As DataRow = DTPorcentajePrecios.NewRow
 
             registro.Item("No") = DTPorcentajePrecios.Rows.Count + 1
             registro.Item("CveMarca") = DdlMarcaPS.SelectedValue.ToEntero
+            registro.Item("Marca") = DdlMarcaPS.SelectedItem.Text
             registro.Item("PorcentajeProducto") = txtPorcentaje.Text.ToDecimal
             registro.Item("Estatus") = "I"
             DTPorcentajePrecios.Rows.Add(registro)
@@ -8262,7 +8216,7 @@ Partial Class Clientes
         LimpiaModalPorcentaje()
     End Sub
 
-    Protected Sub DeleteRow(sender As Object, e As EventArgs)
+    Protected Sub DeleteRowMarca(sender As Object, e As EventArgs)
 
         Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
 
@@ -8322,6 +8276,238 @@ Partial Class Clientes
 
     End Sub
 
+    Protected Sub BtnGuardarPorcentajesMarca_Click(sender As Object, e As EventArgs) Handles BtnGuardarPorcentajesMarca.Click
+
+        Dim TieneError As Boolean = False
+
+        Dim ObjPS As New ClsProductosServicios
+        ObjPS.IniciaTransacSQL()
+
+        For Each Dr As DataRow In DTPorcentajePrecios.Rows
+
+            If Dr("Estatus").ToString <> "" Then
+
+                If Dr("Estatus").ToString = "I" Then
+                    If Not ObjPS.AddPorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal, UsuarioActual.CveUsuario) Then
+                        TieneError = True
+                    End If
+                ElseIf Dr("Estatus").ToString = "U" Then
+                    If Not ObjPS.UpdatePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero, Dr("PorcentajeProducto").ToString.ToDecimal) Then
+                        TieneError = True
+                    End If
+                ElseIf Dr("Estatus").ToString = "D" Then
+                    If Not ObjPS.RemovePorcentajeMarcas(CveCliente, Dr("CveMarca").ToString.ToEntero) Then
+                        TieneError = True
+                    End If
+                End If
+
+            End If
+        Next
+
+        If TieneError Then
+            ObjPS.RollBack()
+        Else
+            ObjPS.Commit()
+            Alert("Los Porcentajes se guardaron correctamente.", TipoMensaje.MsgInformacion)
+            RegistraScript("$('#DivPorcentajeMarcas').modal('hide')", "hidemodal")
+        End If
+
+        ObjPS.Dispose()
+
+    End Sub
+#End Region
+
+#Region "PORCENTAJE PRECIO DE PRODUCTOS"
+    Private Sub LnkPorcentajePrecios_Click(sender As Object, e As EventArgs) Handles LnkPorcentajePrecios.Click
+        RegistraScript(String.Format("$('#{0}').modal();", "DivPorcentajePrecios"))
+
+        CreaDT2()
+
+        TxtPorcentajePS.Attributes.Add("onchange", String.Format("FnCambiaPorcentaje({0});", "5"))
+        CargaPorcentajesProductos()
+        LimpiaModalPorcentaje2()
+    End Sub
+    Private Sub CreaDT2()
+        Dim DTPorcentajeTemp As New DataTable
+
+        Dim column As DataColumn = New DataColumn("No")
+        column.DataType = Type.GetType("System.Int32")
+        With column
+            .AutoIncrement = True
+            .AutoIncrementSeed = 1
+            .AutoIncrementStep = 1
+        End With
+
+        DTPorcentajeTemp.Columns.Add(column)
+        DTPorcentajeTemp.Columns.Add("CvePS", GetType(Integer))
+        DTPorcentajeTemp.Columns.Add("Producto", GetType(String))
+        DTPorcentajeTemp.Columns.Add("PrecioG", GetType(Decimal))
+        DTPorcentajeTemp.Columns.Add("PorcentajeProducto", GetType(Decimal))
+        DTPorcentajeTemp.Columns.Add("PrecioA", GetType(Decimal))
+        DTPorcentajeTemp.Columns.Add("Estatus", GetType(String))
+        DTPorcentajePrecios = DTPorcentajeTemp.Clone
+    End Sub
+    Private Sub CargaPorcentajesProductos()
+        'Llenar el dropdownlist de Secciones
+        If UsuarioActual.CveEmpresa = 66 Then
+            DdlClasificacion2.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa).FiltraParametros("", Orderby:="Clasificacion")
+        Else
+            Dim ObjClasificaciones As New ClsClasificaciones
+            If ObjClasificaciones.GetClasificacionesExistencias(UsuarioActual.CveEmpresa) Then
+                DdlClasificacion2.DataSource = ObjClasificaciones.DtResultados
+            End If
+            ObjClasificaciones.Dispose()
+        End If
+        DdlClasificacion2.DataBind()
+
+        CargaPS()
+        CargaGridPorcentajes2()
+
+        UpPorcentajeP.Update()
+    End Sub
+    Private Sub CargaPS()
+        DdlProducto2.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
+
+        If UsuarioActual.CveEmpresa = 66 Then
+            DdlProducto2.ddlWS.Attributes.Add("data-pagina", "Inventarios")
+        End If
+
+        If Not DdlProducto2.UsaWebService AndAlso CType(DdlProducto2.DataSource, DataTable) Is Nothing Then
+            DdlProducto2.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoPS = 2")
+
+            DdlProducto2.DataBind()
+
+            DdlProducto2.ddl.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+
+    End Sub
+
+    Protected Sub DdlProducto2_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DdlProducto2.selectedindexchange
+        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
+    End Sub
+    Private Sub DdlProducto2IndexChange(CvePSParametro As Integer, Ddl As ADServerControl.Dropdownlost)
+        Dim drPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePSParametro).FiltroPrimero("")
+
+        If drPS IsNot Nothing Then
+            Dim Precio = drPS("Precio").ToString.ToDouble
+            LbPrecioG.Text = Precio.FormatoNumero()
+            LbPrecioA.Text = ((Precio * TxtPorcentajePS.Text.ToDecimal) / 100).FormatoNumero
+        End If
+    End Sub
+
+    Private Sub CargaGridPorcentajes2()
+        Dim ObjPS As New ClsProductosServicios
+
+        If ObjPS.GetPorcentajeProductos(CveCliente) Then
+            DTPorcentajePrecios = ObjPS.DtResultados
+            GvP.DataSource = DTPorcentajePrecios
+        End If
+        ObjPS.Dispose()
+
+        GvP.DataBind()
+        UpPorcentajePS.Update()
+
+    End Sub
+    Private Sub CargaDTPorcentajePrecios2(DtTemp As DataTable)
+        GvP.DataSource = DtTemp
+        GvP.DataBind()
+
+        UpPorcentajePS.Update()
+    End Sub
+
+    Private Sub LimpiaModalPorcentaje2()
+        TxtPorcentajePS.Text = ""
+        DdlClasificacion2.SelectedValue = "-1"
+        DdlProducto2.SelectedText = ""
+    End Sub
+
+    Protected Sub LbAgregar_Click(sender As Object, e As EventArgs) Handles LbAgregar.Click
+
+        If DdlProducto2.SelectedText <> "" Then
+            If TxtPorcentajePS.Text.ToDecimal >= 0 And TxtPorcentajePS.Text.ToDecimal <= 100 Then
+
+                Dim registro As DataRow = DTPorcentajePrecios.NewRow
+
+                registro.Item("No") = DTPorcentajePrecios.Rows.Count + 1
+                registro.Item("CvePS") = DdlProducto2.SelectedValue.ToEntero
+                registro.Item("Producto") = DdlProducto2.SelectedText
+                registro.Item("PrecioG") = LbPrecioG.Text.ToDecimal
+                registro.Item("PrecioA") = LbPrecioG.Text.ToDecimal * TxtPorcentajePS.Text.ToDecimal / 100
+                registro.Item("PorcentajeProducto") = TxtPorcentajePS.Text.ToDecimal
+                registro.Item("Estatus") = "I"
+                DTPorcentajePrecios.Rows.Add(registro)
+                CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
+            Else
+                Alert("El Porcentaje debe estar en un rango entre 0 y 100", TipoMensaje.MsgAdvertencia)
+            End If
+        Else
+            Alert("El campo <b>''Producto''</b> es necesario, por favor ingréselo.", TipoMensaje.MsgAdvertencia)
+        End If
+
+        LimpiaModalPorcentaje()
+    End Sub
+
+    Protected Sub DeleteRow(sender As Object, e As EventArgs)
+
+        Dim lnkRemove As LinkButton = DirectCast(sender, LinkButton)
+
+
+        If DTPorcentajePrecios.Rows.Count > 0 And lnkRemove.CommandArgument.ToString.Length > 0 Then
+            Dim i As Integer
+            i = lnkRemove.CommandArgument.ToString.ToEntero
+            Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", i))
+            If Drs.Count > 0 Then
+                If CveCliente > 0 AndAlso Drs(0)("CvePS").ToString.ToEntero > 0 Then
+                    Drs(0)("Estatus") = "D"
+                Else
+                    Drs(0).Delete()
+                End If
+
+            End If
+            DTPorcentajePrecios.AcceptChanges()
+        End If
+
+        GvP.EditIndex = -1
+
+        CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
+
+    End Sub
+
+    Protected Sub GvP_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GvP.RowEditing
+        GvP.EditIndex = e.NewEditIndex
+
+        CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
+    End Sub
+    Protected Sub GvP_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GvP.RowCancelingEdit
+        GvP.EditIndex = -1
+
+        CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
+    End Sub
+    Protected Sub GvP_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GvP.RowUpdating
+
+        Dim PorcentajeProducto As Double = GvP.Rows(e.RowIndex).FCTextBox("TxtPorcentajeP").Text.ToDouble
+
+        If PorcentajeProducto >= 0 And PorcentajeProducto <= 100 Then
+            Dim No As Integer = GvP.Rows(e.RowIndex).DataKey("No").ToEntero
+
+            Dim Drs As DataRow() = DTPorcentajePrecios.Select(String.Format("No = {0}", No))
+
+            If Drs.Count > 0 Then
+                Drs(0)("PorcentajeProducto") = PorcentajeProducto
+                Drs(0)("PrecioA") = Drs(0)("PrecioG").ToString.ToDouble * PorcentajeProducto / 100
+                Drs(0)("Estatus") = "U"
+            End If
+
+            DTPorcentajePrecios.AcceptChanges()
+            GvP.EditIndex = -1
+
+            CargaDTPorcentajePrecios2(DTPorcentajePrecios.FiltraParametros("Estatus <> 'D' "))
+        Else
+            Alert("El Porcentaje debe estar en un rango entre 0 y 100", TipoMensaje.MsgAdvertencia)
+        End If
+
+    End Sub
+
     Protected Sub BtnGuardarPorcentajes_Click(sender As Object, e As EventArgs) Handles BtnGuardarPorcentajes.Click
 
         Dim TieneError As Boolean = False
@@ -8362,9 +8548,9 @@ Partial Class Clientes
 
     End Sub
 
-    'Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnCambiaPorcentaje_Click(sender As Object, e As EventArgs)
-    '    DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
+        DdlProducto2IndexChange(DdlProducto2.SelectedValue.ToEntero, DdlProducto2)
-    'End Sub
+    End Sub
 #End Region
 
 #Region " A C U M U L A D O R E S"

Ventas/Ventas.aspx.vb

@@ -10281,6 +10281,13 @@ Partial Class Ventas
                 End If
             End If
 
+            'EN CASO DE SER REFACTURACION DE ANTICIPO SE ACTUALIZAN LAS VENTAS APLICADAS HACIA EL NUEVO
+            If NuevaFactura = 1 AndAlso CveDevolucion > 0 AndAlso ObjFactura.TipoDocto.Contiene("Ant") Then
+                If Not ObjVentas.TraspasaVentasAplicadasAnt(ObjFactura.CveVenta, CveDevolucion, UsuarioActual.CveEmpresa) Then
+                    ErrorPrepoliza = True
+                End If
+            End If
+
             Return ErrorPrepoliza
         Catch ex As Exception
             GuardaLog(ex.ToString())
@@ -15750,13 +15757,12 @@ Partial Class Ventas
             Next
         End If
 
-        Dim ErrorLista As New StringBuilder
         'Orden Produccion'
         If Not OcurrioError Then
             If UsuarioActual.CveEmpresa.Contiene(126) Then
                 If CveVenta > 0 And DdlOrdenProduccion.SelectedValue.ToEntero > 0 Then
                     If Not ObjCGame.UpdateOrdenProduccionVenta(DdlOrdenProduccion.SelectedValue.ToEntero(), CveVenta) Then
-                        ErrorLista.Append("Ocurrió un error al actualizar la orden de producción")
+                        OcurrioError = True
                     End If
                 End If
             End If
@@ -15766,7 +15772,7 @@ Partial Class Ventas
             If ObjConta.ValorPolizaDescuadre > 0 Then
                 If ObjConta.ValorPolizaDescuadre = 2 Then
                     OcurrioError = True
-                    ErrorLista.Append(ObjConta.MensajePolizaDescuadre)
+                    Alert(ObjConta.MensajePolizaDescuadre, TipoMensaje.MsgError)
                 End If
             End If
         End If
@@ -15779,7 +15785,7 @@ Partial Class Ventas
 
         If OcurrioError Then
             ObjVentas.RollBack()
-            Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo." & ErrorLista.ToString, TipoMensaje.MsgError)
+            Alert("Ocurrió un error al guardar los cambios. Por favor intente de nuevo.", TipoMensaje.MsgError)
         Else
             ObjVentas.Commit()
             If ObjAC IsNot Nothing Then ObjAC.Commit()
@@ -17449,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
@@ -21436,6 +21446,11 @@ Partial Class Ventas
             CargaFormaPago(DdlMetodoPago33.SelectedValue.ToEntero)
             DdlFormaPago33.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveFormaPago"))
 
+            DiasCredito = dtSeleccionadas.FiltroPrimeroValor("DiasCredito").ToEntero
+            EsDiasCreditoFijo = CBool(dtSeleccionadas.FiltroPrimeroValor("EsDiasCreditoFijo"))
+
+
+
             'validación, cuando las remisiones sean de una sucursal y el usuario solo tenga acceso a otra, deberá tener priodidad la sucursal de la que solo se factura
             If DdlSubProyectoDatos.Enabled = True Then
                 DdlSubProyectoDatos.SelectedValueExist(dtSeleccionadas.FiltroPrimeroValor("CveSubProyecto"))
@@ -21569,11 +21584,14 @@ Partial Class Ventas
             End If
         End If
 
+        TxtFechaPago.Text = If(EsDiasCreditoFijo, Now.AddDays(DiasCredito).ToShortDateString, TxtFechaPago.Text)
+
         UpRemisionesFacturas.Update()
         UpFacturar.Update()
         UpPS.Update()
         UpParametros.Update()
         UPEstimaciones.Update()
+        UPCondicionesPago.Update()
         HuboCambioRemi = Not HuboCambioRemi
         RegistraScript("$('#DivRemisiones').modal('hide');", "DivRemisionesHide")
     End Sub

localhost.sln

@@ -0,0 +1,45 @@
+
+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

packages/AjaxControlToolkit.15.1.4.0/Content/Web.config.transform

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <system.web>
+    <pages>
+      <controls>
+        <add tagPrefix="ajaxToolkit" assembly="AjaxControlToolkit" namespace="AjaxControlToolkit" />
+      </controls>
+    </pages>
+  </system.web>
+</configuration>