-

App_Code/ClsInventarios.vb

@@ -325,7 +325,7 @@ Public Class ClsInventarios
     End Function
     Public Function GetRepAlmacenes(FechaInicio As String, FechaFin As String, CveEmpresa As Integer, CveTipoAlmacen As String, Contabilizable As Integer, Inventariable As Integer,
                                     Optional SoloMovimientosContables As Boolean = False, Optional Almacenes As String = "-1", Optional CveSubProyecto As Integer = -1,
-                                    Optional CveUsuarioConsulta As Integer = -1) As Boolean
+                                    Optional CveUsuarioConsulta As Integer = -1, Optional Gpo As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_AlmacenesRepGet")
 
@@ -340,6 +340,7 @@ Public Class ClsInventarios
             .Add("@Almacenes", SqlDbType.VarChar).Value = Almacenes
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@Gpo", SqlDbType.Int).Value = Gpo
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsPaginas.vb

@@ -9717,12 +9717,12 @@ Public Class ClsPaginas
             'Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(6, VentaActual.CveMoneda, True, 1)
             If Pago.CveMonedaPago > 1 Then
                 'Agregamos la Extranjera
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 296, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
                 ImporteMN = (Pago.ImportePago * TCValuacionPago - Pago.ImportePago).RoundSQL
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, ImporteMN, 227, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=VentaActual.CveSubProyecto) Then ErrorMovtos = True
             Else
                 'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Pago.ImportePago, Pago.ImportePago, 11, Pago.Referencia, Concepto, CveVenta:=Pago.CveVentaAmortizacion, CveVentaAmortizacion:=Pago.CveVentaNC, CveCliente:=VentaActual.CveCliente, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambioPago:=Pago.TCPago) Then ErrorMovtos = True
             End If
         End If
         If Pago.TipoPago = "NC" AndAlso Not ErrorMovtos AndAlso AplicarConceptoAplicacion Then ' N O T A   D E   C R E D I T O 
@@ -9832,6 +9832,7 @@ Public Class ClsPaginas
         Public Property CveMonedaPago As Integer = 1
         Public Property TCPago As Decimal = 1
         Public Property CveVentaAmortizacion As Integer = 0
+        Public Property CveVentaNC As Integer = -1
         Public Property OtroGastoIngreso As Decimal = 0
         'Public Property CveConceptoPago As Integer = -1 'no definido de inicio
         Public Property CveCreditoDetalle As Integer = -1
@@ -11399,5 +11400,109 @@ Public Class ClsPaginas
 
         End If
     End Sub
+
+    Public Shared Function PlantillaMailVenta(ObjFactura As Modelos.Factura, UsuarioActual As Usuario) As MCuerpoFacturaMail
+        Dim Retorno As New MCuerpoFacturaMail()
+        Try
+            Dim Asunto As String = String.Empty
+            Dim Cuerpo As String = String.Empty
+            Dim TipoComprobante As String = ""
+
+            Dim TipoDocto = ObjFactura.TipoDocto
+
+            If TipoDocto = "Ing" Then TipoComprobante = "Factura"
+            If TipoDocto = "Egs" Then TipoComprobante = "Nota de Crédito"
+            If TipoDocto = "Dev" Then TipoComprobante = "Nota de Devolución"
+            If TipoDocto = "Rem" Then TipoComprobante = "Remisión"
+            If TipoDocto = "Cot" Then TipoComprobante = "Cotización"
+            If TipoDocto = "Ant" Then TipoComprobante = "Anticipo"
+
+
+            If TipoDocto = "Cot" Then
+                If UsuarioActual.Empresa.PlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVentaCotizacion
+                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
+                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
+                    Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
+                    Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
+                    Cuerpo = Cuerpo.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
+                    Cuerpo = Cuerpo.Replace("{""AtencionA""}", ObjFactura.AtencionA)
+                    Cuerpo = Cuerpo.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
+                    Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
+                End If
+
+                If UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion.Trim.Length > 0 Then
+                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion
+                    Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Asunto = Asunto.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
+                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Asunto = Asunto.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
+                    Asunto = Asunto.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
+                    Asunto = Asunto.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""AtencionA""}", ObjFactura.AtencionA)
+                    Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
+                    Asunto = Asunto.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
+                End If
+            Else
+                If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
+                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
+                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
+                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
+                    Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
+                    Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
+                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
+                    Cuerpo = Cuerpo.Replace("{""AtencionA""}", ObjFactura.AtencionA)
+                    Cuerpo = Cuerpo.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
+                    Cuerpo = Cuerpo.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
+                End If
+
+                If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
+                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
+                    Asunto = Asunto.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
+                    Asunto = Asunto.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
+                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
+                    Asunto = Asunto.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""Total""}", ObjFactura.Total.FormatoNumero(2))
+                    Asunto = Asunto.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
+                    Asunto = Asunto.Replace("{""Vigencia""}", ObjFactura.Vigencia.ToString("dd/MM/yyyy"))
+                    Asunto = Asunto.Replace("{""AtencionA""}", ObjFactura.AtencionA)
+                    Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
+                    Asunto = Asunto.Replace("{""DescripcionVenta""}", ObjFactura.DescripcionVenta)
+                End If
+            End If
+
+            Dim DisplayName As String = ""
+            If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
+
+            Retorno.DisplayName = DisplayName
+            Retorno.Cuerpo = Cuerpo
+            Retorno.Asunto = Asunto
+
+        Catch ex As Exception
+
+        End Try
+
+        Return Retorno
+    End Function
+    Public Class MCuerpoFacturaMail
+        Public Sub New()
+            Asunto = ""
+            Cuerpo = ""
+            DisplayName = ""
+            Archivos = New List(Of ClsSisMail.ArchivoMail)
+        End Sub
+        Public Property Asunto As String
+        Public Property Cuerpo As String
+        Public Property DisplayName As String
+        Public Property Archivos As List(Of ClsSisMail.ArchivoMail)
+    End Class
 End Class
 

App_Code/ClsVentas.vb

@@ -1744,7 +1744,7 @@ Public Class ClsVentas
                                  CveVendedor As String, CveUsuario As Integer, CveEstatus As String, IVA As String, CveEmpresa As Integer, Gpo As Integer, Optional TipoDocto As String = "-1",
                                  Optional CveProyecto As Integer = -1, Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveUsuarioConsulta As Integer = -1,
                                  Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
+                                 Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRep")
 
@@ -1777,6 +1777,7 @@ Public Class ClsVentas
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
             .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
             .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
+            .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
         End With
 
         Try
@@ -1923,7 +1924,7 @@ Public Class ClsVentas
                                         CveSubProyectoEjecucion As Integer, CveEmpresa As Integer, FechaIEjec As Date, FechaFEjec As Date, Optional CveProyecto As Integer = -1,
                                         Optional CveSubProyecto As String = "-1", Optional TipoCambio As Integer = 1, Optional TCEspecifico As Decimal = -1, Optional CveMoneda As Integer = -1, Optional CveUsuarioConsulta As Integer = -1,
                                          Optional CveClienteClasificacion As Integer = -1, Optional CveCondicionesPago As Integer = -1, Optional TipoCliente As Integer = -1, Optional ModalidadContable As Boolean = False,
-                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1) As Boolean
+                                        Optional EsDistribuidor As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ServicioDomicilio As Integer = -1, Optional EsFacturaGlobal As Integer = -1, Optional EsFilial As Integer = -1, Optional CveTipoVenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_VentasGetRepDetalle")
 
@@ -1961,6 +1962,7 @@ Public Class ClsVentas
             .Add("@ServicioDomicilio", SqlDbType.Int).Value = ServicioDomicilio
             .Add("@EsFacturaGlobal", SqlDbType.Int).Value = EsFacturaGlobal
             .Add("@EsFilial", SqlDbType.Int).Value = EsFilial
+            .Add("@CveTipoVenta", SqlDbType.Int).Value = CveTipoVenta
         End With
 
         Try

App_Code/Modelos.vb

@@ -3551,6 +3551,7 @@ Namespace Modelos
                                                             PagoAnt.CveMonedaPago = CveMonedaAnticipo
                                                             PagoAnt.TipoPago = "A"
                                                             PagoAnt.Fecha = ObjFactura.Fecha
+                                                            PagoAnt.CveVentaNC = ObjFactura.CveVenta
                                                             PagoAnt.CveVentaAmortizacion = RowAnticipo("CveVenta").ToString().ToEntero()
                                                             PagoAnt.TCPago = RowAnticipo("TipoCambioPago").ToString().ToDecimal()
                                                             PagoAnt.AplicaTraslado = False

Ashx/E194.ashx

@@ -36,7 +36,17 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
                     pFechaF = context.Request("FechaF")
                 End If
 
-                Retorno = IniciaFacturacionMasiva(CveEmpresaFacturar.ToString, pFechaI, pFechaF)
+                Retorno = IniciaFacturacionMasiva(context, CveEmpresaFacturar.ToString, pFechaI, pFechaF)
+            End If
+
+            If Metodo = "EnviarMailDemo" Then
+                Dim pFechaI As String = ""
+                Dim pFechaF As String = ""
+
+                If context.Request("CveVenta") IsNot Nothing Then
+                    Dim CveVenta = context.Request("CveVenta").ToString().ToEntero()
+                    Retorno = EnviarMailDemo(context, CveEmpresaFacturar.ToString, CveVenta)
+                End If
             End If
 
         Catch ex As Exception
@@ -52,7 +62,20 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
     End Sub
 
-    Private Function IniciaFacturacionMasiva(pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
+    Private Function EnviarMailDemo(ByVal context As HttpContext, pCveEmpresa As String, CveVenta As Integer) As Boolean
+        Dim Retorno As Boolean = True
+        Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
+
+        If CveEmpresa > 0 Then
+            GuardaLogFacturacion($"EnviarMail - CveE:{CveEmpresa}")
+            Dim Usuario = ValidaUsuarioSistema(CveEmpresa, context)
+            EnviarCorreo(CveVenta, Usuario)
+        End If
+
+        Return Retorno
+    End Function
+
+    Private Function IniciaFacturacionMasiva(ByVal context As HttpContext, pCveEmpresa As String, pFechaI As String, pFechaF As String) As Boolean
         Dim Retorno As Boolean = True
         Dim JsonRetorno As New JObject()
         Dim CveEmpresa As Integer = pCveEmpresa.ToEntero()
@@ -60,9 +83,8 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
         GuardaLogFacturacion("- Inicio de facturación ")
         If CveEmpresa > 0 Then
             GuardaLogFacturacion($"1.10 - CveE:{CveEmpresa}")
-            Dim Usuario = ValidaUsuarioSistema(CveEmpresa)
+            Dim Usuario = ValidaUsuarioSistema(CveEmpresa, context)
             Dim FechaI, FechaF As DateTime
-            'EnviarCorreoFactura(New Modelos.Factura(Usuario, 844966, 1, context.ModExtensiones.DirectorioBaseEmpresas), Usuario)
 
             If String.IsNullOrEmpty(pFechaI) AndAlso String.IsNullOrEmpty(pFechaF) Then
                 GuardaLogFacturacion("1.200")
@@ -156,7 +178,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
 
                         If Resp.CveVenta > 0 AndAlso Not Resp.TieneError Then
                             If Resp.SeTimbro OrElse Not Produccion Then
-                                EnviarCorreo(ObjFactura, UsuarioActual)
+                                EnviarCorreo(Resp.CveVenta, UsuarioActual)
                             End If
                         End If
 
@@ -223,7 +245,7 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
     End Function
 
 #Region "V A L I D A  - D A T O S"
-    Private Function ValidaUsuarioSistema(CveEmpresa As Integer) As Usuario
+    Private Function ValidaUsuarioSistema(CveEmpresa As Integer, ByVal context As HttpContext) As Usuario
         Dim UsuarioActual As Usuario = Nothing
         Dim NombreCadena As String = ClsPaginas.GlobalNombreCadenaConexion(CveEmpresa)
         Dim ObjUsuarios As New ClsSisUsuarioAutenticacion(NombreCadena:=NombreCadena)
@@ -232,8 +254,13 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
             Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
             Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
             UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa:=CveEmpresa)
+            If UsuarioActual IsNot Nothing AndAlso context.Session("UsuarioSIG") Is Nothing Then
+                context.Session("UsuarioSIG") = UsuarioActual
+            End If
         End If
         ObjUsuarios.Dispose()
+
+
         Return UsuarioActual
     End Function
     Private Sub CreaObjetoEmpresa(ByRef UsuarioActual As Usuario)
@@ -758,8 +785,9 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
     End Function
 #End Region
 #Region "E N V I O - C O R R E O"
-    Private Sub EnviarCorreo(Objfactura As Modelos.Factura, UsuarioActual As Usuario)
+    Private Sub EnviarCorreo(CveVenta As Integer, UsuarioActual As Usuario)
         Try
+            Dim ObjFactura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, CargaDatosCliente:=True)
             Dim Hilo As New System.Threading.Thread(Sub() EnviarCorreoFactura(Objfactura, UsuarioActual))
             Hilo.Start()
         Catch ex As Exception
@@ -790,115 +818,94 @@ Public Class E194 : Implements IHttpHandler, System.Web.SessionState.IRequiresSe
     End Function
 
     Private Sub EnviarCorreoFactura(ObjFactura As Modelos.Factura, UsuarioActual As Usuario)
-        Dim ObjMail As New ClsSisMail()
+        If ObjFactura.CveVenta > 0 Then
-        Dim ObjVentas As New ClsVentas
+            Dim ObjMail As New ClsSisMail()
-        Dim ObjCliente As New ClsClientes
+            Dim ObjVentas As New ClsVentas
-        Dim Mail As String = ""
+            Dim ObjCliente As New ClsClientes
-        Dim MailCC As String = ""
+            Dim Mail As String = ""
+            Dim MailCC As String = ""
 
-        Dim ArchivoXML As String = ""
+            Dim ArchivoXML As String = ""
-        Dim ArchivoPDF As String = ""
+            Dim ArchivoPDF As String = ""
-        Dim ArchivoPDFBytes As Byte() = Nothing
+            Dim ArchivoPDFBytes As Byte() = Nothing
-        Dim ExistePDF As Boolean = False
+            Dim ExistePDF As Boolean = False
-        Try
-            ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
-            ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
-
-            If Not File.Exists(ArchivoPDF) Then
-                ArchivoPDFBytes = DescargarFactura(ObjFactura.CveVenta, ObjFactura.CveEmpresa)
-            Else
-                ExistePDF = True
-            End If
-
-            If ObjFactura.CveClienteSucursal > 0 Then
-                If ObjCliente.GetSucursales(ObjFactura.CveCliente, ObjFactura.CveClienteSucursal) Then
-                    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                        Dim Correo As String = ObjCliente.DtResultados.Rows(0)("Correo").ToString
-                        If Correo.Trim.Length > 0 Then
-                            Mail = Correo
-                        End If
-                        MailCC = ObjCliente.NotificarA
-                    End If
-                End If
-            Else
-                If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
-                    If ObjCliente.DtResultados.Rows.Count > 0 Then
-                        Mail = If(ObjFactura.TipoDocto = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
-                    End If
-                End If
-            End If
-
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener el correo", ex)
-        Finally
-            ObjCliente.Dispose()
-        End Try
-
-        If Not String.IsNullOrEmpty(Mail) Then
             Try
-                Dim Asunto As String = String.Empty
+                ArchivoXML = String.Format("{0}XML\{1}\{2}.xml", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
-                Dim Cuerpo As String = String.Empty
+                ArchivoPDF = String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, ObjFactura.TipoDocto, ObjFactura.SerieFolio)
-                Dim ResultadoMail As Integer = 0
 
-                Dim TipoComprobante As String = ""
+                If Not File.Exists(ArchivoPDF) Then
-
+                    ArchivoPDFBytes = DescargarFactura(ObjFactura.CveVenta, ObjFactura.CveEmpresa)
-                If ObjFactura.TipoDocto = "Ing" Then TipoComprobante = "Factura"
-                If ObjFactura.TipoDocto = "Egs" Then TipoComprobante = "Nota de Crédito"
-                If ObjFactura.TipoDocto = "Dev" Then TipoComprobante = "Nota de Devolución"
-                If ObjFactura.TipoDocto = "Rem" Then TipoComprobante = "Remisión"
-                If ObjFactura.TipoDocto = "Cot" Then TipoComprobante = "Cotización"
-                If ObjFactura.TipoDocto = "Ant" Then TipoComprobante = "Anticipo"
-
-                If UsuarioActual.Empresa.PlantillaMailVenta.Trim.Length > 0 Then
-                    Cuerpo = UsuarioActual.Empresa.PlantillaMailVenta
-                    Cuerpo = Cuerpo.Replace("{""NombreEmpresa""}", UsuarioActual.Empresa.Empresa)
-                    Cuerpo = Cuerpo.Replace("{""NombreCliente""}", ObjFactura.Cliente.NombreComercial)
-                    Cuerpo = Cuerpo.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Cuerpo = Cuerpo.Replace("{""Fecha""}", ObjFactura.Fecha.ToString("dd/MM/yyyy"))
-                    Cuerpo = Cuerpo.Replace("{""Total""}", ObjFactura.Total.ToString)
-                    Cuerpo = Cuerpo.Replace("{""FechaVencimiento""}", ObjFactura.FechaVencimiento.ToString("dd/MM/yyyy"))
-                    Cuerpo = Cuerpo.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
-                End If
-
-                If UsuarioActual.Empresa.AsuntoPlantillaMailVenta.Trim.Length > 0 Then
-                    Asunto = UsuarioActual.Empresa.AsuntoPlantillaMailVenta
-                    Asunto = Asunto.Replace("{""TipoDocumento""}", TipoComprobante)
-                    Asunto = Asunto.Replace("{""Sucursal""}", ObjFactura.SubProyecto.SubProyecto)
-                    Asunto = Asunto.Replace("{""SerieFolio""}", ObjFactura.SerieFolio)
-                End If
-
-                Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-                LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoXML})
-                If ExistePDF Then
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoPDF})
                 Else
-                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = ArchivoPDFBytes, .NombreArchivo = String.Format("{0}.pdf", ObjFactura.SerieFolio)})
+                    ExistePDF = True
                 End If
 
-                Dim DisplayName As String = ""
+                If ObjFactura.CveClienteSucursal > 0 Then
-                If UsuarioActual.CveEmpresa = 119 Then DisplayName = "Facturación Agroquímicos JAM"
+                    If ObjCliente.GetSucursales(ObjFactura.CveCliente, ObjFactura.CveClienteSucursal) Then
-
+                        If ObjCliente.DtResultados.Rows.Count > 0 Then
-                If ObjMail.SendMail(UsuarioActual.Empresa, Mail, Asunto, Cuerpo, If(String.IsNullOrEmpty(MailCC), "", MailCC), LSRutasMail, Displayname:=DisplayName) Then
+                            Dim Correo As String = ObjCliente.DtResultados.Rows(0)("Correo").ToString
-                    ResultadoMail = 1
+                            If Correo.Trim.Length > 0 Then
+                                Mail = Correo
+                            End If
+                            MailCC = ObjCliente.NotificarA
+                        End If
+                    End If
                 Else
-                    GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
+                    If ObjCliente.GetClientes(ObjFactura.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, TipoCliente:=-1) Then
-                    GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
+                        If ObjCliente.DtResultados.Rows.Count > 0 Then
-                    ResultadoMail = 3
+                            Mail = If(ObjFactura.TipoDocto = "Cot", ObjCliente.MailCotizacion, ObjCliente.Mail)
+                        End If
+                    End If
                 End If
 
-                ObjVentas.UpdateVentaMail(ResultadoMail, ObjFactura.CveVenta)
+                'Mail = "japmx95@gmail.com"
 
             Catch ex As Exception
-                OnError("Ocurrió error al mandar el Mail", ex)
+                OnError("Ocurrió un error al obtener el correo", ex)
-                GuardaLogFacturacion(ex.ToString())
-                ObjVentas.UpdateVentaMail(3, ObjFactura.CveVenta)
             Finally
-                ObjVentas.Dispose()
+                ObjCliente.Dispose()
-                If ObjFactura IsNot Nothing Then
-                    ObjFactura.Dispose()
-                End If
             End Try
+
+            If Not String.IsNullOrEmpty(Mail) Then
+                Try
+                    Dim ObjCuerpoMail = ClsPaginas.PlantillaMailVenta(ObjFactura, UsuarioActual)
+
+                    Dim Asunto As String = ObjCuerpoMail.Asunto
+                    Dim Cuerpo As String = ObjCuerpoMail.Cuerpo
+                    Dim ResultadoMail As Integer = 0
+                    Dim LSRutasMail = ObjCuerpoMail.Archivos
+
+                    LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoXML})
+                    If ExistePDF Then
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.Ruta = ArchivoPDF})
+                    Else
+                        LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = ArchivoPDFBytes, .NombreArchivo = String.Format("{0}.pdf", ObjFactura.SerieFolio)})
+                    End If
+
+                    Dim DisplayName As String = ObjCuerpoMail.DisplayName
+
+                    If ObjMail.SendMail(UsuarioActual.Empresa, Mail, Asunto, Cuerpo, If(String.IsNullOrEmpty(MailCC), "", MailCC), LSRutasMail, Displayname:=DisplayName) Then
+                        ResultadoMail = 1
+                    Else
+                        GuardaLogFacturacion($"No se envio el correo {Mail}, {Asunto}, {Cuerpo}, {MailCC},")
+                        GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
+                        ResultadoMail = 3
+                    End If
+
+                    ObjVentas.UpdateVentaMail(ResultadoMail, ObjFactura.CveVenta)
+
+                Catch ex As Exception
+                    OnError("Ocurrió error al mandar el Mail", ex)
+                    GuardaLogFacturacion(ex.ToString())
+                    ObjVentas.UpdateVentaMail(3, ObjFactura.CveVenta)
+                Finally
+                    ObjVentas.Dispose()
+                    If ObjFactura IsNot Nothing Then
+                        ObjFactura.Dispose()
+                    End If
+                End Try
+            End If
         End If
+
     End Sub
 #End Region
 

Bancos/ProveedoresAbonar.aspx.vb

@@ -888,6 +888,8 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
 
+
+
                                 'Importe de pago
                                 Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                                 'Tipos de cambio
@@ -941,15 +943,15 @@ Partial Class Bancos_ProveedoresAbonar
                                     If descuentoParts.Length = 0 Then
                                         Descuento = 0
                                     Else
-
+                                        Descuento = gvr.DataKey("Saldo").ToString.ToDecimal - gvr.FCTextBox("TxtAbonar").Text.ToDecimal
-                                        For i As Integer = 0 To descuentoParts.Length - 1
+                                        'For i As Integer = 0 To descuentoParts.Length - 1
-                                            Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
+                                        '    Dim descuentoPart As Decimal = descuentoParts(i).Trim().ToDecimal
-                                            If descuentoPart > 0 Then
+                                        '    If descuentoPart > 0 Then
-                                                Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
+                                        '        Descuento = Descuento + ((TotalTemp - Descuento) * (descuentoPart / 100))
-                                            Else
+                                        '    Else
-                                                Continue For
+                                        '        Continue For
-                                            End If
+                                        '    End If
-                                        Next
+                                        'Next
 
                                     End If
 
@@ -970,7 +972,7 @@ Partial Class Bancos_ProveedoresAbonar
                                             FolioRNC = serieFolioArray(0)
                                         End If
 
-                                        Descuento = Descuento.RoundSQL(2)
+                                        'Descuento = Descuento.RoundSQL(2)
                                         If PorcentajeIVA > 0 Then
 
                                             Descuento = ((Descuento) / (1 + PorcentajeIVA))

Compras/Compras.aspx.vb

@@ -5571,6 +5571,17 @@ Partial Class Compras_Compras
                                             CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
                                             Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
                                         End If
+
+
+                                        If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
+                                            CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
+                                            If Not CvePersonal > 0 Then
+                                                Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
+                                                ErrorDetalles = True
+                                            End If
+                                        End If
+
+
                                         Cont = Cont + 1
 
                                         'Si es AF-INSUMO se guarda CveAF en CompraDetalle

Compras/PopUpVerFactura.aspx.vb

@@ -2891,7 +2891,7 @@ Partial Class PopUpVerFactura
         Dim ResponsableRecibio As String = ObjInventarios.ResponsableRecibio
         Dim UsuarioCapturo As String = ObjInventarios.DtResultados.FiltroPrimeroValor("UsuarioCapturo")
         Dim CvePrePoliza As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
-
+        Dim DireccionCliente As String = ObjInventarios.DtResultados.FiltroPrimeroValor("DireccionCliente")
 
         Dim Ruta As String = ""
         Dim Supervisor As String = ""
@@ -3096,7 +3096,7 @@ Partial Class PopUpVerFactura
                           PuestoEnrego, RazonSocial, ResponsableCarga, ResponsableRecibio, NombreCliente,
                           CantidadProductos:=CantidadProductos, CantidadUsados:=CantidadUsados, CveTipoAlmacen:=CveTipoAlmacen, NombreEntrego:=NombreEntrego,
                           CveConceptoMovRelacionado:=CveConceptoMovtoRelacionado, FolioRelacionado:=FolioRelacionado, UsuarioRegistro:=UsuarioCapturo,
-                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola)
+                          Ruta:=Ruta, Supervisor:=Supervisor, Guia:=Guia, Consola:=Consola, DireccionCliente:=DireccionCliente)
 
     End Sub
     Private Sub PUanacExtr(CveMoneda As Integer) 'preciounitario a moneda nacional o extranjera
@@ -3115,7 +3115,7 @@ Partial Class PopUpVerFactura
                                   EstadoDestino As String, PaisDestino As String, CPDestino As String, FechaMovimiento As Date, NombreCapturo As String, PuestoRecibio As String, PuestoEntrego As String,
                                   RazonSocial As String, ResponsableCarga As String, ResponsableRecibio As String, NombreCliente As String, Optional CantidadProductos As Decimal = 0, Optional CantidadUsados As Decimal = 0,
                                   Optional CveTipoAlmacen As Integer = -1, Optional NombreEntrego As String = "", Optional CveConceptoMovRelacionado As Integer = -1, Optional FolioRelacionado As String = "", Optional UsuarioRegistro As String = "",
-                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1")
+                                  Optional Ruta As String = Nothing, Optional Supervisor As String = Nothing, Optional Guia As String = "", Optional Consola As String = "-1", Optional DireccionCliente As String = "")
 
 
         Select Case CveConcepto
@@ -3924,7 +3924,7 @@ Partial Class PopUpVerFactura
                     Observaciones = ObservacionesSolicitud
                 End If
 
-                If UsuarioActual.CveEmpresa.Contiene(119, 186) Then
+                If UsuarioActual.CveEmpresa.Contiene(119, 186, 201) Then
                     If CalleOrigen.Length > 0 Then
                         SBDireccionO.AppendFormat("{0}", CalleOrigen)
                         If NoExtOrigen.Length > 0 Then SBDireccionO.AppendFormat(", No.Ext: {0}", NoExtOrigen)
@@ -3976,6 +3976,18 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
                         params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
                         params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+                    ElseIf UsuarioActual.CveEmpresa = 201 Then
+                        params.Add(New ReportParameter("AlmacenOrigen", Almacen))
+                        params.Add(New ReportParameter("AlmacenDestino", ""))
+                        params.Add(New ReportParameter("DireccionCliente", DireccionCliente))
+                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
+                        params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))
+                        params.Add(New ReportParameter("CveTipoAlmacenDestino", DtMovimientos(0)("CveTipoAlmacenDestino").ToString))
+                        params.Add(New ReportParameter("CveVentaDetalle", DtMovimientos(0)("CveVentaDetalle").ToString))
+                        params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                        params.Add(New ReportParameter("Factura", DtMovimientos(0)("SerieFolio").ToString))
+
+                        NombreArchivo = String.Format("Saldia del sistema - {0}", Folio)
                     Else
                         params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
                         params.Add(New ReportParameter("CveAlmacen", DtMovimientos(0)("CveTipoAlmacen").ToString))

Contabilidad/RepGastosCC.aspx

@@ -81,9 +81,55 @@
             outline: 0;
         }
 
-        .grid-column250 {
+
-                width: 250px; /* Define el ancho en píxeles */
+        /*Begin ScrollADS V2*/
-            }
+
+.divContainerads {
+    width: 100%;
+    max-height: calc(100vh - 260px);
+    overflow-y: auto;
+}
+table.adssigscroll {
+    min-width: 100%;
+    background-color: #fff;
+}
+    table.adssigscroll tbody, table.adssigscroll thead {
+        background-color: #fff;
+    }
+
+    table.adssigscroll tr {
+        background-color: inherit;
+    }
+
+        table.adssigscroll tr.stickyRow {
+            position: sticky;
+            top: 0; /* Se mantiene pegado en la parte superior */
+            background-color: inherit; /* Para que no se superponga con otros elementos */
+            z-index: 4; /* Asegura que esté sobre otros elementos */
+        }
+.tr_order tr > th::after {
+    content: "\f0dc";
+    font:normal normal normal 14px / 1 FontAwesome;
+    display: inline-block;
+    margin-left: 5px;
+    color: #32A1CF;
+}
+.tr_order tr > th.asce::after { 
+    content: "\f0de";
+}
+
+.tr_order tr > th.desc::after {
+    content: "\f0dd";
+}
+        /*END ScrollADS V2*/
+        
+    table.GvDatos{ 
+
+    }
+    table.GvDatos tr td:nth-child(1){
+        min-width:300px;
+        /*white-space:nowrap;*/
+    }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
@@ -174,15 +220,14 @@
     </div>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <div class="row">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText=""   
-                <div class="col-md-12">                     
+                CssClass="table table-striped table-advance table-hover Widthall ScrollAD"
-                        <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="True" EmptyDataText=""   
+                data-sort="true"  GridLines="None">
-                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-cols="1" data-sort="true"  GridLines="None">                                 
+                
-                            <RowStyle CssClass="Texto" />
+                <HeaderStyle CssClass="Titulos" />
-                            <AlternatingRowStyle CssClass="TextoAlterno" />
+                <RowStyle CssClass="Texto" />
-                        </asp:GridView>                     
+                <AlternatingRowStyle CssClass="TextoAlterno" />
-                </div>
+            </asp:GridView>
-            </div>
         </ContentTemplate>
     </asp:UpdatePanel>
      

Empresas/189/Formatos/Factura.mrt

@@ -192,7 +192,7 @@
             <Image1 Ref="9" type="Image" isKey="true">
               <AspectRatio>True</AspectRatio>
               <Brush>Transparent</Brush>
-              <ClientRectangle>0.2,-0,6,2.4</ClientRectangle>
+              <ClientRectangle>0.2,0,6,2.4</ClientRectangle>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
               <IconColor>68, 114, 196</IconColor>
@@ -1155,7 +1155,6 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
               <Name>Text6</Name>
               <Page isRef="7" />
               <Parent isRef="42" />
-              <PrintOn>OnlyLastPage</PrintOn>
               <Text>{ImporteLetra}</Text>
               <TextBrush>Black</TextBrush>
               <Type>Expression</Type>
@@ -1285,7 +1284,6 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
                   <Name>DataBand8</Name>
                   <Page isRef="7" />
                   <Parent isRef="50" />
-                  <PrintOn>OnlyLastPage</PrintOn>
                   <Sort isList="true" count="0" />
                 </DataBand8>
               </Components>
@@ -1312,18 +1310,31 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
               <TextBrush>Black</TextBrush>
               <Type>Expression</Type>
             </Text4>
-            <Textbox26 Ref="61" type="Text" isKey="true">
+            <Text7 Ref="61" type="Text" isKey="true">
+              <Brush>[227:108:9]</Brush>
+              <CanGrow>True</CanGrow>
+              <ClientRectangle>15.6,1.28,5.29,0.14</ClientRectangle>
+              <Conditions isList="true" count="0" />
+              <Expressions isList="true" count="0" />
+              <Font>Arial,10,Regular,Point,False,0</Font>
+              <Margins>2,2,2,2</Margins>
+              <Name>Text7</Name>
+              <Page isRef="7" />
+              <Parent isRef="42" />
+              <TextBrush>Black</TextBrush>
+            </Text7>
+            <Textbox26 Ref="62" type="Text" isKey="true">
               <Brush>Transparent</Brush>
               <CanGrow>True</CanGrow>
               <ClientRectangle>5.4,1.88,10.25,1.68</ClientRectangle>
               <Conditions isList="true" count="0" />
               <Expressions isList="true" count="0" />
               <Font>Myriad Pro,7,Regular,Point,False,0</Font>
+              <GrowToHeight>True</GrowToHeight>
               <Margins>2,2,2,2</Margins>
               <Name>Textbox26</Name>
               <Page isRef="7" />
               <Parent isRef="42" />
-              <PrintOn>OnlyLastPage</PrintOn>
               <Text>TERMINOS Y CONDICIONES PARA SOLICITAR DEVOLUCION DE MATERIAL
 1.- SE TIENE UN PLAZO DE 30 DIAS A PARTIR DE FECHA FACTURA PARA SOLICITAR  DEVOLUCION
 2.- PRESENTAR FACTURA DE LA COMPRA
@@ -1335,23 +1346,10 @@ iigAooooAKKKKAP/2Q==</ImageBytes>
               <TextBrush>Black</TextBrush>
               <Type>Expression</Type>
             </Textbox26>
-            <Text7 Ref="62" type="Text" isKey="true">
-              <Brush>[227:108:9]</Brush>
-              <CanGrow>True</CanGrow>
-              <ClientRectangle>15.6,1.28,5.29,0.14</ClientRectangle>
-              <Conditions isList="true" count="0" />
-              <Expressions isList="true" count="0" />
-              <Font>Arial,10,Regular,Point,False,0</Font>
-              <Margins>2,2,2,2</Margins>
-              <Name>Text7</Name>
-              <Page isRef="7" />
-              <Parent isRef="42" />
-              <PrintOn>OnlyLastPage</PrintOn>
-              <TextBrush>Black</TextBrush>
-            </Text7>
           </Components>
           <Conditions isList="true" count="0" />
           <Expressions isList="true" count="0" />
+          <KeepFooterTogether>False</KeepFooterTogether>
           <Name>FooterBand1</Name>
           <Page isRef="7" />
           <Parent isRef="7" />
@@ -6364,10 +6362,10 @@ FUERO DE MI DOMICILIO. LA CANTIDAD DE $ {Total} SON:  {(ImporteLetra)}.</Text>
     <value>Stimulsoft.Report.Dll</value>
   </ReferencedAssemblies>
   <ReportAlias>Factura</ReportAlias>
-  <ReportChanged>12/30/2024 5:44:19 PM</ReportChanged>
+  <ReportChanged>3/21/2025 12:49:26 PM</ReportChanged>
   <ReportCreated>7/11/2022 2:49:19 PM</ReportCreated>
-  <ReportFile>Factura.mrt</ReportFile>
+  <ReportFile>C:\inetpub\wwwSIG\Empresas\189\Formatos\Factura.mrt</ReportFile>
-  <ReportGuid>33bb66bee0224df694ddbbead45940b8</ReportGuid>
+  <ReportGuid>e53f4619d7e549e6a19a6047fc704c17</ReportGuid>
   <ReportName>Factura</ReportName>
   <ReportUnit>Centimeters</ReportUnit>
   <ReportVersion>2022.4.5.0</ReportVersion>

Empresas/189/Formatos/SaldoAntNCDev.rdlc

@@ -21,6 +21,10 @@
           <DataField>SerieFolio</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="SerieFolioEstatus">
+          <DataField>SerieFolioEstatus</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="FechaAplicado">
           <DataField>FechaAplicado</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -29,6 +33,10 @@
           <DataField>Importe</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
         </Field>
+        <Field Name="TotalNC">
+          <DataField>TotalNC</DataField>
+          <rd:TypeName>System.Double</rd:TypeName>
+        </Field>
         <Field Name="Moneda">
           <DataField>Moneda</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -63,14 +71,13 @@
                               <TextRun>
                                 <Value>Folio</Value>
                                 <Style>
-                                  <FontFamily>MYRIAd Pro</FontFamily>
+                                  <FontSize>9pt</FontSize>
-                                  <FontSize>8pt</FontSize>
                                   <FontWeight>Bold</FontWeight>
                                 </Style>
                               </TextRun>
                             </TextRuns>
                             <Style>
-                              <TextAlign>Center</TextAlign>
+                              <TextAlign>Left</TextAlign>
                             </Style>
                           </Paragraph>
                         </Paragraphs>
@@ -80,10 +87,19 @@
                             <Color>#e36c09</Color>
                             <Style>Solid</Style>
                           </Border>
+                          <TopBorder>
+                            <Color>LightGrey</Color>
+                          </TopBorder>
+                          <BottomBorder>
+                            <Color>LightGrey</Color>
+                          </BottomBorder>
+                          <LeftBorder>
+                            <Color>LightGrey</Color>
+                          </LeftBorder>
                           <RightBorder>
                             <Style>None</Style>
                           </RightBorder>
-                          <BackgroundColor>#e36c09</BackgroundColor>
+                          <BackgroundColor>LightGrey</BackgroundColor>
                           <PaddingTop>1pt</PaddingTop>
                         </Style>
                       </Textbox>
@@ -98,10 +114,10 @@
                   <Width>3.42604cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>3.37313cm</Width>
+                  <Width>2.43119cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>3.00271cm</Width>
+                  <Width>3.94465cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -135,7 +151,7 @@
                             <Border>
                               <Style>None</Style>
                             </Border>
-                            <BackgroundColor>White</BackgroundColor>
+                            <BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
                             <PaddingTop>0.5pt</PaddingTop>
                           </Style>
                         </Textbox>
@@ -167,7 +183,7 @@
                             <Border>
                               <Style>None</Style>
                             </Border>
-                            <BackgroundColor>White</BackgroundColor>
+                            <BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
                             <PaddingTop>0.5pt</PaddingTop>
                           </Style>
                         </Textbox>
@@ -175,14 +191,14 @@
                     </TablixCell>
                     <TablixCell>
                       <CellContents>
-                        <Textbox Name="Importe">
+                        <Textbox Name="TotalNC">
                           <CanGrow>true</CanGrow>
                           <KeepTogether>true</KeepTogether>
                           <Paragraphs>
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Importe.Value</Value>
+                                  <Value>=Fields!TotalNC.Value</Value>
                                   <Style>
                                     <FontFamily>MYRIAd Pro</FontFamily>
                                     <FontSize>7.5pt</FontSize>
@@ -195,12 +211,12 @@
                               </Style>
                             </Paragraph>
                           </Paragraphs>
-                          <rd:DefaultName>Importe</rd:DefaultName>
+                          <rd:DefaultName>TotalNC</rd:DefaultName>
                           <Style>
                             <Border>
                               <Style>None</Style>
                             </Border>
-                            <BackgroundColor>White</BackgroundColor>
+                            <BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
                             <PaddingTop>0.5pt</PaddingTop>
                           </Style>
                         </Textbox>
@@ -225,24 +241,23 @@
                               <TextRun>
                                 <Value>Fecha</Value>
                                 <Style>
-                                  <FontFamily>MYRIAd Pro</FontFamily>
+                                  <FontSize>9pt</FontSize>
-                                  <FontSize>8pt</FontSize>
                                   <FontWeight>Bold</FontWeight>
                                 </Style>
                               </TextRun>
                             </TextRuns>
                             <Style>
-                              <TextAlign>Center</TextAlign>
+                              <TextAlign>Left</TextAlign>
                             </Style>
                           </Paragraph>
                         </Paragraphs>
                         <rd:DefaultName>Textbox19</rd:DefaultName>
                         <Style>
                           <Border>
-                            <Color>#e36c09</Color>
+                            <Color>LightGrey</Color>
                             <Style>Solid</Style>
                           </Border>
-                          <BackgroundColor>#e36c09</BackgroundColor>
+                          <BackgroundColor>LightGrey</BackgroundColor>
                           <PaddingTop>1pt</PaddingTop>
                         </Style>
                       </Textbox>
@@ -262,24 +277,23 @@
                               <TextRun>
                                 <Value>Moneda</Value>
                                 <Style>
-                                  <FontFamily>MYRIAd Pro</FontFamily>
+                                  <FontSize>9pt</FontSize>
-                                  <FontSize>8pt</FontSize>
                                   <FontWeight>Bold</FontWeight>
                                 </Style>
                               </TextRun>
                             </TextRuns>
                             <Style>
-                              <TextAlign>Center</TextAlign>
+                              <TextAlign>Left</TextAlign>
                             </Style>
                           </Paragraph>
                         </Paragraphs>
                         <rd:DefaultName>Textbox21</rd:DefaultName>
                         <Style>
                           <Border>
-                            <Color>#e36c09</Color>
+                            <Color>LightGrey</Color>
                             <Style>Solid</Style>
                           </Border>
-                          <BackgroundColor>#e36c09</BackgroundColor>
+                          <BackgroundColor>LightGrey</BackgroundColor>
                           <PaddingTop>1pt</PaddingTop>
                         </Style>
                       </Textbox>
@@ -299,24 +313,23 @@
                               <TextRun>
                                 <Value>Importe</Value>
                                 <Style>
-                                  <FontFamily>MYRIAd Pro</FontFamily>
+                                  <FontSize>9pt</FontSize>
-                                  <FontSize>8pt</FontSize>
                                   <FontWeight>Bold</FontWeight>
                                 </Style>
                               </TextRun>
                             </TextRuns>
                             <Style>
-                              <TextAlign>Center</TextAlign>
+                              <TextAlign>Right</TextAlign>
                             </Style>
                           </Paragraph>
                         </Paragraphs>
                         <rd:DefaultName>Textbox23</rd:DefaultName>
                         <Style>
                           <Border>
-                            <Color>#e36c09</Color>
+                            <Color>LightGrey</Color>
                             <Style>Solid</Style>
                           </Border>
-                          <BackgroundColor>#e36c09</BackgroundColor>
+                          <BackgroundColor>LightGrey</BackgroundColor>
                           <PaddingTop>1pt</PaddingTop>
                         </Style>
                       </Textbox>
@@ -330,16 +343,16 @@
                 <TablixMember>
                   <Group Name="GPO" />
                   <TablixHeader>
-                    <Size>2.39924cm</Size>
+                    <Size>6.69369cm</Size>
                     <CellContents>
-                      <Textbox Name="SerieFolio">
+                      <Textbox Name="SerieFolioEstatus">
                         <CanGrow>true</CanGrow>
                         <KeepTogether>true</KeepTogether>
                         <Paragraphs>
                           <Paragraph>
                             <TextRuns>
                               <TextRun>
-                                <Value>=Fields!SerieFolio.Value</Value>
+                                <Value>=Fields!SerieFolioEstatus.Value</Value>
                                 <Style>
                                   <FontFamily>MYRIAd Pro</FontFamily>
                                   <FontSize>7.5pt</FontSize>
@@ -351,12 +364,12 @@
                             </Style>
                           </Paragraph>
                         </Paragraphs>
-                        <rd:DefaultName>SerieFolio</rd:DefaultName>
+                        <rd:DefaultName>SerieFolioEstatus</rd:DefaultName>
                         <Style>
                           <Border>
                             <Style>None</Style>
                           </Border>
-                          <BackgroundColor>White</BackgroundColor>
+                          <BackgroundColor>=IIF(Fields!TotalNC.Value &lt; 0, "#e7505a","White")</BackgroundColor>
                           <PaddingTop>0.5pt</PaddingTop>
                         </Style>
                       </Textbox>
@@ -369,9 +382,9 @@
             <FixedColumnHeaders>true</FixedColumnHeaders>
             <DataSetName>DataSet1</DataSetName>
             <Top>0.12375cm</Top>
-            <Left>0.06614cm</Left>
+            <Left>0.25664cm</Left>
             <Height>0.8825cm</Height>
-            <Width>12.20112cm</Width>
+            <Width>16.49557cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>

Empresas/Grales/Formatos/RepTraspasoAlmacen.rdlc

@@ -21,6 +21,10 @@
           <DataField>Cantidad</DataField>
           <rd:TypeName>System.Double</rd:TypeName>
         </Field>
+        <Field Name="CantidadOriginal">
+          <DataField>CantidadOriginal</DataField>
+          <rd:TypeName>System.Decimal</rd:TypeName>
+        </Field>
         <Field Name="UnidadMedida">
           <DataField>UnidadMedida</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -93,32 +97,35 @@
                 <TablixColumn>
                   <Width>1.69333cm</Width>
                 </TablixColumn>
+                <TablixColumn>
+                  <Width>1.29923cm</Width>
+                </TablixColumn>
                 <TablixColumn>
                   <Width>1.16467cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.51446cm</Width>
+                  <Width>1.17434cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>3.37414cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>5.82471cm</Width>
+                  <Width>6.19513cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>1.53921cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.57859cm</Width>
+                  <Width>1.86963cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.32298cm</Width>
+                  <Width>2.02533cm</Width>
                 </TablixColumn>
                 <TablixColumn>
                   <Width>2.21787cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.36613cm</Width>
+                  <Width>2.44551cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -237,6 +244,62 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox23">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>C.Orig.</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox23</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <TopBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </TopBorder>
+                            <BottomBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </BottomBorder>
+                            <LeftBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </LeftBorder>
+                            <RightBorder>
+                              <Color>Black</Color>
+                              <Style>Solid</Style>
+                              <Width>1pt</Width>
+                            </RightBorder>
+                            <BackgroundColor>Silver</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox3">
@@ -582,7 +645,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Alm. Origen</Value>
+                                  <Value>Alm.Origen</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -638,7 +701,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Alm. Destino</Value>
+                                  <Value>Alm.Destino</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                     <FontWeight>Bold</FontWeight>
@@ -817,6 +880,43 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="CantidadOriginal">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!CantidadOriginal.Value</Value>
+                                  <Style>
+                                    <FontSize>7pt</FontSize>
+                                    <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>#,0.00</Format>
+                                    <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style>
+                                <TextAlign>Center</TextAlign>
+                              </Style>
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>CantidadOriginal</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Style>None</Style>
+                            </Border>
+                            <BackgroundColor>=IIf(Fields!PS.Value = "", "#9cacc1", "NoColor")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Cantidad">
@@ -1004,6 +1104,7 @@
                                   <Style>
                                     <FontSize>7pt</FontSize>
                                     <FontWeight>=IIf(Fields!PS.Value = "", "Bold", "Default")</FontWeight>
+                                    <Format>#,0.00</Format>
                                     <Color>=IIf(Fields!PS.Value = "", "White", "Black")</Color>
                                   </Style>
                                 </TextRun>
@@ -1152,6 +1253,7 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -1171,7 +1273,7 @@
             <DataSetName>DataSet1</DataSetName>
             <Top>0.17639cm</Top>
             <Height>1.0148cm</Height>
-            <Width>24.56252cm</Width>
+            <Width>25.96481cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -1182,7 +1284,7 @@
         <Height>0.67394in</Height>
         <Style />
       </Body>
-      <Width>9.67028in</Width>
+      <Width>10.22237in</Width>
       <Page>
         <PageHeader>
           <Height>3.48078cm</Height>
@@ -1318,7 +1420,7 @@
             <Line Name="Line1">
               <Top>3.30439cm</Top>
               <Height>0cm</Height>
-              <Width>24.56252cm</Width>
+              <Width>25.96481cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>
@@ -1477,7 +1579,7 @@
             <Line Name="Line2">
               <Top>0.15875cm</Top>
               <Height>0cm</Height>
-              <Width>24.56252cm</Width>
+              <Width>25.96481cm</Width>
               <ZIndex>4</ZIndex>
               <Style>
                 <Border>

Inventarios/KardexAlmacenHorizontal.aspx

@@ -348,7 +348,7 @@ table.adssigscroll {
         <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda2','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
     </div>
 
-    <asp:UpdatePanel ID="UpDatos" runat="server">
+    <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
 
             <div class="divContainerads">

Inventarios/KardexAlmacenHorizontal.aspx.vb

@@ -161,6 +161,9 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
     End Sub
     Private Sub CargarKardex(CvePS As Integer)
+        'GvDatos.Columns.Clear()
+        'GvDatos.AutoGenerateColumns = True
+
         Dim dt As New DataTable
         Dim ObjMovimientos As New ClsInventarios
         Dim FechaI As String = "-1" ' If(TxtFechaI.Text <> "" AndAlso TxtFechaI.Text <> "__/__/____", TxtFechaI.Text, "-1")
@@ -202,13 +205,16 @@ Partial Class Inventarios_KardexAlmacenHorizontal
                 GvDatos.DataSource = dt
             Else
                 Alert("La búsqueda no contiene resultados.", TipoMensaje.MsgAdvertencia)
-                GvDatos.Columns.Clear()
+                GvDatos.DataSource = dt
-                dt = Nothing
+                GvDatos.DataBind()
+                UpDatos.Update()
+
                 Exit Sub
             End If
         Else
             ObjMovimientos.Dispose()
             Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError)
+            UpDatos.Update()
             Exit Sub
         End If
         GvDatos.DataBind()
@@ -232,6 +238,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal
 
         Next
 
+        UpDatos.Update()
     End Sub
 
     Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound

Inventarios/PrestamosdeProveedor.aspx

@@ -19,7 +19,7 @@
 
       </ContentTemplate>
       <Triggers>
-          <asp:PostBackTrigger ControlID="LnkExportar" />
+          <asp:PostBackTrigger ControlID="LnkExportar" />   
       </Triggers>
   </asp:UpdatePanel>
 </asp:Content>
@@ -59,7 +59,7 @@
     <br />
 
     <div class="row">
-        <div class="col-md-5">
+        <div class="col-md-6">
 
             <asp:UpdatePanel runat="server" ID="UPDatosAlmacen" UpdateMode="Conditional">
                 <ContentTemplate>
@@ -68,7 +68,7 @@
                         <div class="portlet-title">
                             <div class="caption font-green">
                                 <i class="icon-pin font-green"></i>
-                                <span class="caption-subject bold uppercase">RECEPCIÓN DE TRASPASO</span>
+                                <span class="caption-subject bold uppercase">Devolución de Préstamo</span>
                             </div>
                             <div class="actions">
                                 <div class="btn-group">
@@ -80,10 +80,10 @@
                             </div>
                         </div>
                         <div class="portlet-body rowpadding">
-                            <div class="row">
+                            <div class="row" style="padding:0px">
-                                <label class="col-md-3">Fecha:</label>
+                                <label class="col-md-1">Fecha:</label>
-                                <div class="col-md-9">
+                                <div class="col-md-4" >
-                                    <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy">
+                                    <div class="input-group input-sm  input-small date date-picker" data-date-format="dd/mm/yyyy" style="margin-left:-10px">
                                         <asp:TextBox ID="TxtFechaEntrega" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10" ValidationGroup="GrpRecibir" Width="100px" ClientIDMode="Static"></asp:TextBox>
                                         <span class="input-group-btn ">
                                             <asp:LinkButton runat="server" ID="ImgFechaEntrega" class="btn default"> <i class="fa fa-calendar"></i>  </asp:LinkButton>
@@ -99,35 +99,33 @@
                                         <ajax:ValidatorCalloutExtender ID="VCOFechaEntrega3" runat="server" HighlightCssClass="vco" TargetControlID="RVFechaEntrega" Width="350px"></ajax:ValidatorCalloutExtender>
                                     </div>
                                 </div>
-                            </div>
+
-                            <div class="row">
+                                 <asp:HiddenField ID="HdnCveProveedor" runat="server" />
-                                <asp:HiddenField ID="HdnCveProveedor" runat="server" />
+                                 <label class="col-md-2">Almacén:</label>
-                                <label class="col-md-3">Almacén:</label>
+                                 <div class="col-md-4">
-                                <div class="col-md-9">
+                                     <asp:DropDownList ID="DdlAlmacenOrigen" Width="100%" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
-                                    <asp:DropDownList ID="DdlAlmacenOrigen" Width="150px" AppendDataBoundItems="true" runat="server" DataTextField="Almacen" DataValueField="CveAlmacen" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                     <asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
-                                    <asp:RequiredFieldValidator ID="RFVAlmacenOrigen" runat="server" ControlToValidate="DdlAlmacenOrigen" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Almacen Origen''</b> es necesario, por favor seleccione uno." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
+                                     <ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <ajax:ValidatorCalloutExtender ID="VCEAlmacenOrigen" runat="server" HighlightCssClass="vco" TargetControlID="RFVAlmacenOrigen" Width="350px"></ajax:ValidatorCalloutExtender>
+                                 </div>
-                                </div>
+
-                            </div>
+                            </div>                            
-                            <div class="row">
+                            <div class="row" style="padding:0px">
-                                <label class="col-md-3">Recibió:</label>
+                                <label class="col-md-1">Recibió:</label>
-                                <div class="col-md-9">
+                                <div class="col-md-4">
                                     <asp:TextBox runat="server" ID="TxtRecibio" />
                                 </div>
-                            </div>
+                                 <label class="col-md-2">Observaciones:</label>
-                            <div class="row">
+                                 <div class="col-md-4">
-                                <label class="col-md-3">Observaciones:</label>
+                                     <asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="100%"></asp:TextBox>
-                                <div class="col-md-9">
+                                     <asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
-                                    <asp:TextBox ID="TxtObservacionesEntrega" TextMode="MultiLine" Rows="2" runat="server" Width="300px"></asp:TextBox>
+                                     <ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <asp:RequiredFieldValidator ID="RfvObservaciones" runat="server" ControlToValidate="TxtObservacionesEntrega" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Observaciones''</b> es necesario, por favor seleccione uno." ValidationGroup="GrpRecibir"></asp:RequiredFieldValidator>
+                                 </div>
-                                    <ajax:ValidatorCalloutExtender ID="VceObservaciones" runat="server" HighlightCssClass="vco" TargetControlID="RfvObservaciones" Width="350px"></ajax:ValidatorCalloutExtender>
+                            </div>                            
-                                </div>
+                            <div class="row" style="padding:0px">
-                            </div>
-                            <div class="row">
                                 <div style="text-align: center;" class="col-sm-12">
                                     <asp:UpdatePanel runat="server">
                                         <ContentTemplate>
-                                            <asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir" />
+                                            <asp:Button ID="BtnRecibir" runat="server" Text="Devolver Préstamo" OnClick="BtnRecibir_Click" class="btn btn-primary" ValidationGroup="GrpRecibir"  Visible="false" />
                                         </ContentTemplate>
                                     </asp:UpdatePanel>
                                 </div>

Inventarios/PrestamosdeProveedor.aspx.vb

@@ -22,12 +22,17 @@ Partial Class Inventarios_PrestamosdeProveedor
     End Property
 
     Private Sub Inventarios_PrestamosdeProveedor_Load(sender As Object, e As EventArgs) Handles Me.Load
-        If Not Page.IsPostBack Then
+        If Not Page.IsPostBack Then
+
             CargaCombos()
             CveMovimiento = 0
             CveProveedor = 0
-
             CargaDatos()
+
+            If UsuarioActual.TienePermisoProceso(409) Then
+                BtnRecibir.Visible = True
+            End If
+
         End If
     End Sub
 

Inventarios/RepAlmacen.aspx

@@ -140,7 +140,7 @@
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1 truncate v-center" style="text-align: right!important">Tipo Almacen:</div>
-                        <div class="col-md-2 v-center">
+                        <div class="col-md-1 v-center">
                             <asp:ListBox ID="DdlTipoAlmacen" SelectionMode="Multiple" CssClass="form-control  ddlFiltros input-sm select2me Widthall" DataTextField="TipoAlmacen" DataValueField="CveTipoAlmacen" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
                          <div class="col-md-1 truncate" style="text-align: right!important">Aplica Almacen</div>
@@ -149,8 +149,26 @@
                                 <asp:ListItem Text="Todos" Value="-1" Selected="True"> </asp:ListItem>
                                 <asp:ListItem Text="Inventariable" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="No Inventariable" Value="0"></asp:ListItem>
-                            </asp:DropDownList>                           
+                            </asp:DropDownList>                             
                         </div>
+
+
+
+
+
+                         <div class="col-md-1 truncate" style="text-align: right!important">Grupo:</div>
+                            <div class="col-md-2">
+                                 <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="input-small input-sm select2me" Width="100%">                                    
+                                    <asp:ListItem Text="Almacen" Value="1"></asp:ListItem>
+                                    <asp:ListItem Text="Clasificación" Value="2"></asp:ListItem>
+                                </asp:DropDownList>         
+                            </div>
+
+
+
+
+
+
                     </div>
                 </div>
             </div>
@@ -159,11 +177,12 @@
 
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+            <asp:GridView ID="GVAlmacen" runat="server" AutoGenerateColumns="False" data-sort="true" EmptyDataText="No se encontraron Almacenes" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None" 
+                 DataKeyNames="Gpo,CveAlmacen,CveClasificacion,FechaInicio,FechaFin" >
                 <Columns>
                     <asp:TemplateField HeaderText="Almacén">
                         <ItemTemplate>
-                            <asp:HyperLink ID="HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>
+                            <%--<asp:HyperLink ID="HyperLink1" Target="_blank" NavigateUrl='<%# String.Format("/Inventarios/RepEntradasSalidas.aspx?CveAlmacen={0}&FechaInicio={1:d}&FechaCorte={2:d}&Tipo=-1", Eval("CveAlmacen").ToString, Eval("FechaInicio"), Eval("FechaFin"))%>' runat="server"><%# Eval("Almacen") %></asp:HyperLink>--%>
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField HeaderText="Tipo Almacén">

Inventarios/RepAlmacen.aspx.vb

@@ -44,8 +44,11 @@ Partial Class Inventarios_RepAlmacen
     End Sub
 
     Private Sub CargaDatos()
-        Dim objInv As New ClsInventarios
+        Dim objInv As New ClsInventarios
-
+
+        GVAlmacen.Columns(1).Visible = If(DdlGrupo.SelectedValue.ToEntero = 1, True, False)
+        GVAlmacen.Columns(1).HeaderText = If(DdlGrupo.SelectedValue.ToEntero = 1, "Almacen", "Clasificación")
+
         Dim FechaI, FechaF As String
         FechaI = If(IsDate(TxtFechaI.Text.Trim()), TxtFechaI.Text.Trim(), "-1")
         FechaF = If(IsDate(TxtFechaF.Text.Trim()), TxtFechaF.Text.Trim(), "-1")
@@ -54,7 +57,7 @@ Partial Class Inventarios_RepAlmacen
         Dim CveSubProyecto As Integer = DdlSucursal.SelectedValue.ToEntero()
 
         If objInv.GetRepAlmacenes(FechaI, FechaF, UsuarioActual.CveEmpresa, TipoAlmacen, DdlModalidadFiltro.SelectedValue.ToEntero, DdlAplicaInventario.SelectedValue.ToEntero,
-                                  Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                                  Almacenes:=Almacenes, CveSubProyecto:=CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, Gpo:=DdlGrupo.SelectedValue.ToEntero) Then
             GVAlmacen.DataSource = objInv.DtResultados
             TmpDT = objInv.DtResultados
         End If
@@ -98,17 +101,40 @@ Partial Class Inventarios_RepAlmacen
         params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
         params.Add(New ReportParameter("Filtros", StrFiltro.ToString))
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
-        ImprimirPDF("Empresas/Grales/Formatos/RepAlmacen.rdlc", TmpDT, params, "ReporteAlmacen", Formato)
+
+        Dim Archivo As String = If(DdlGrupo.SelectedValue.ToEntero = 1, "RepAlmacen.rdlc", "RepAlmacenClasificacion.rdlc")
+
+        ImprimirPDF($"Empresas/Grales/Formatos/{Archivo}", TmpDT, params, "ReporteAlmacen", Formato)
     End Sub
     Protected Sub LnkPdf_Click(sender As Object, e As EventArgs) Handles LnkPdf.Click
         GenerarPDF()
     End Sub
-    Private Sub GVAlmacen_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAlmacen.RowDataBound
+    Private Sub GVAlmacen_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVAlmacen.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
+
-            If e.Row.FCLabel("LtlAlmacen").Text = "" Then
+        If e.Row.RowType = DataControlRowType.DataRow Then
+
+            'If e.Row.FCLabel("LtlAlmacen").Text = "" Then
+            '    e.Row.CssClass = "Totales"
+            'End If
+
+            If e.Row.DataKey("Gpo") = "Total" Then
                 e.Row.CssClass = "Totales"
-            End If
+            End If
+
+
+            Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
+
+            'If DdlGrupo.SelectedValue.ToEntero = 1 Then
+            '    Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            '    e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
+            'Else
+            '    Dim Liga As String = $"./RepEntradasSalidas.aspx?CveAlmacen={e.Row.DataKey("CveAlmacen").ToEntero}&CveClasificacion={e.Row.DataKey("CveClasificacion").ToEntero}&FechaInicio={e.Row.DataKey("FechaInicio").ToDate.ToString("dd/MM/yyyy")}&FechaCorte={e.Row.DataKey("FechaFin").ToDate.ToString("dd/MM/yyyy")}&Tipo=-1"
+            '    e.Row.Cells(0).Text = $"<a href='{Liga}' target='_blank' >{e.Row.DataKey("Gpo")}</a>"
+            'End If
+
         End If
+
     End Sub
 #End Region
 
@@ -169,4 +195,6 @@ Partial Class Inventarios_RepAlmacen
 #End Region
     Public Overrides Sub VerifyRenderingInServerForm(control As Control)
     End Sub
+
+
 End Class

Inventarios/RepEntradasSalidas.aspx.vb

@@ -74,31 +74,42 @@ Partial Class Inventarios_ReporteEntradasSalidas
             FechaFinal = "-1"
 
             CargaCombos()
-
             GvM.DataBind(True)
-            If Not IsNothing(Request("CveAlmacen")) Then
+            CargaRequest()
-                DdlAlmacen.SelectedValue = Request("CveAlmacen").ToString()
-                TxtFechaI.Text = "01/01/2000"
-                If Not IsNothing(Request("FechaCorte")) Then
-                    TxtFechaF.Text = Request("FechaCorte")
-                End If
-
-                If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
-                    TxtFechaI.Text = Request("FechaInicio")
-                End If
-
-                If Not IsNothing(Request("Tipo")) Then
-                    DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
-                End If
-
-                btConsultar_Click(Nothing, Nothing)
-            End If
             CargaPermisos()
             CargaGvBitacora()
+
             ' Lnkcompuxlsinventarios.Visible = UsuarioActual.CveEmpresa = 72
         End If
     End Sub
 
+    Private Sub CargaRequest()
+
+        Dim CveAlmacen As Integer = If(Not IsNothing(Request("CveAlmacen")) AndAlso Request("CveAlmacen").ToEntero > 0, Request("CveAlmacen").ToEntero, -1)
+        Dim CveClasificacion As Integer = If(Not IsNothing(Request("CveClasificacion")) AndAlso Request("CveClasificacion").ToEntero > 0, Request("CveClasificacion").ToEntero, -1)
+
+        If CveAlmacen > 0 Or CveClasificacion > 0 Then   ' CveClasificacion
+
+            DdlAlmacen.SelectedValuesIfExist(CveAlmacen.ToString)
+            DdlClasificacion.SelectedValueExist(CveClasificacion)
+
+            TxtFechaI.Text = "01/01/2000"
+            If Not IsNothing(Request("FechaCorte")) Then
+                TxtFechaF.Text = Request("FechaCorte")
+            End If
+
+            If Not IsNothing(Request("FechaInicio")) And IsDate(Request("FechaInicio")) Then
+                TxtFechaI.Text = Request("FechaInicio")
+            End If
+
+            If Not IsNothing(Request("Tipo")) Then
+                DdlMovs.SelectedValueExist(Request("Tipo").ToEntero)
+            End If
+
+            CargaDatos()
+        End If
+
+    End Sub
     Private Sub CargaPermisos()
         Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201)
 

Nomina/Nomina.aspx

@@ -206,6 +206,15 @@
         .form-group.form-md-line-input .form-control.input-sm ~ label {
             padding-bottom: 20px;
         }
+        .allspacevhwh{
+            width:100vw !important;
+            height:100vh !important;
+            padding-right: calc((100% - 900px) / 2);
+            padding-left: calc((100% - 910px) / 2);
+        }
+        .allspacevhwh >.modal-content{
+            width:900px !important
+        }
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -830,8 +839,12 @@
     <asp:Button ID="BtnImprimirsobrerecibo" OnClick="BtnImprimirsobrerecibo_Click" UseSubmitBehavior="false" runat="server" Text="Imprimir" CssClass="btn btn-primary hidden" />
     <div id="ModalConceptos" class="modal ADS fade" role="dialog">
 
-        <asp:UpdatePanel class="modal-dialog modal-lg" runat="server" ID="UpModalConceptos" UpdateMode="Conditional">
+        <asp:UpdatePanel class="modal-dialog modal-lg " runat="server" ID="UpModalConceptos" UpdateMode="Conditional">
             <ContentTemplate>
+                
+    <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
+    <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
+            <asp:Button ID="BtnSobreRecibo" CssClass="BtnSobreRecibo hidden" OnClick="LnkSobreRecibo_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
                 <div class="modal-content">
                     <div class="modal-header ">
                         <h4 class="modal-title">Sobre Recibo</h4>
@@ -2185,13 +2198,6 @@
                     </div>
                 </div>
 
-            </ContentTemplate>
-            <Triggers>
-                <%--<asp:PostBackTrigger  ControlID="BtnImprimirsobrerecibo"  />--%>
-            </Triggers>
-        </asp:UpdatePanel>
-    </div>
-
     <div id="ModalMovtoPermanente" class="modal ADS fade" role="dialog">
         <asp:UpdatePanel ID="UpMovtosPermanentesModal" UpdateMode="Conditional" class="modal-dialog" runat="server">
             <ContentTemplate>
@@ -2362,6 +2368,14 @@
         </asp:UpdatePanel>
     </div>
 
+            </ContentTemplate>
+            <Triggers>
+                <%--<asp:PostBackTrigger  ControlID="BtnImprimirsobrerecibo"  />--%>
+            </Triggers>
+        </asp:UpdatePanel>
+    </div>
+
+
     <div id="ModalUpConcepto" class="modal ADS fade" role="dialog">
 
         <asp:UpdatePanel class="modal-dialog " runat="server" ID="UPpanelModalUpConcepto" UpdateMode="Conditional">
@@ -5263,13 +5277,10 @@
             </Triggers>
         </asp:UpdatePanel>
     </div>
-    <asp:TextBox ID="TxtCvePeriodo" CssClass="TxtCvePeriodo hidden" runat="server"></asp:TextBox>
-    <asp:TextBox ID="TxtCvePersonal" CssClass="TxtCvePersonal hidden" runat="server"></asp:TextBox>
     <asp:Button ID="BtnGeneratepdf" CssClass="BtnGeneratepdf hidden" OnClick="BtnGeneratepdf_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
 
     <asp:UpdatePanel runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:Button ID="BtnSobreRecibo" CssClass="BtnSobreRecibo hidden" OnClick="LnkSobreRecibo_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
             <asp:Button ID="BtnGenerateXml" CssClass="BtnGenerateXml hidden" OnClick="BtnGenerateXml_Click" UseSubmitBehavior="false" runat="server" Text="Button" />
             <span class="ltlxml">
                 <asp:Literal ID="LtlXml" runat="server"></asp:Literal></span>

Nomina/Nomina.aspx.cs

@@ -2950,7 +2950,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         pnlAddupMovto.Visible = false;
         CargaMovtoPermanente();
         CargaPersonalIncapacidad();
-        RegistraScript("$('#ModalConceptos').modal();");
+        RegistraScript("$('#C_UpModalConceptos.allspacevhwh').removeClass('allspacevhwh');$('#ModalConceptos').modal();");
     }
 
     #region Asistencias
@@ -7692,7 +7692,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
         GVMovtoPermanenteSaldos.DataBind();
 
         UpMovtosPermanentesModal.Update();
-        RegistraScript("$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
+        RegistraScript("$('#C_UpModalConceptos:not(.allspacevhwh)').addClass('allspacevhwh');$('#ModalMovtoPermanente').modal({backdrop: 'static', keyboard: false});");
 
     }
 

Nomina/RepMovtosPermanentes.aspx

@@ -192,6 +192,11 @@
                             <asp:Label ID="lblmontoLimite" runat="server" Text='<%# Eval("MontoLimite","{0:N2}")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="">
+                        <ItemTemplate>
+                            <asp:Label ID="lblAcumulado" runat="server" Text='<%# Eval("Acumulado","{0:N2}")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField HeaderText="">
                         <ItemTemplate>
                             <asp:Label ID="lblsaldo" runat="server" Text='<%# Eval("Saldo","{0:N2}")%>'> </asp:Label>
@@ -230,6 +235,7 @@
                             <th>Movimientos</th>
                             <th>Activos</th>
                             <th>Inactivos</th>
+                            <th>Acumulado</th>
                             <th>Saldo</th>
                             <th></th>
                         </tr>

RH/CalculoSBC.aspx

@@ -10,7 +10,9 @@
 
         .GVCalculosSBC tr th:nth-child(n+13):not(:nth-child(n+16)) {
             background-color: #88d6cd !important;
-        }
+        }.GVDetalleParteVariable tr > td:nth-child(n+2) {
+    text-align: right;
+}
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -472,7 +474,7 @@
                 <ajax:TabPanel ID="TabDetalleParteVariable" runat="server" HeaderText="Detalle parte variable">
                     <ContentTemplate>
                         <asp:GridView ID="GVDetalleParteVariable" HeaderStyle-CssClass="ADtr" runat="server" GridLines="None" OnRowDataBound="GVDetalleParteVariable_RowDataBound"
-                            CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor"></asp:GridView>
+                            CssClass="table table-hover table-striped ScrollAD Widthall GVBuscaddor GVDetalleParteVariable"></asp:GridView>
                     </ContentTemplate>
                 </ajax:TabPanel>
             </ajax:TabContainer>

RH/Personal.aspx.vb

@@ -7055,7 +7055,7 @@ Partial Class RH_Personal
 
                         If objRH.DtResultados.Rows.Count > 0 Then
                             Dim diasvaca As Integer = objRH.DtResultados(0)("Dias").ToString().ToEntero()
-                            TxtFIDiasVacaciones.Text = If(diasvaca > 5, diasvaca, 6).ToString()
+                            TxtFIDiasVacaciones.Text = If(diasvaca > 11, diasvaca, 12).ToString()
                         Else
                             TxtFIDiasVacaciones.Text = "12"
                         End If

Ventas/ClientesAbonar.aspx.vb

@@ -1662,6 +1662,7 @@ Partial Class Ventas_ClientesAbonar
             DtVentasNC.AcceptChanges()
 
             ObjFacturaDevolucion.DtVentasNC = DtVentasNC
+            ObjFacturaDevolucion.CveTipoVenta = 8 'PRONTO PAGO
 
             ObjFacturaDevolucion.Timbre = PreParaTimbre(ObjFacturaDevolucion, ListaVentasGenerarNC)
 

Ventas/ProductosServicios.aspx.vb

@@ -1470,7 +1470,7 @@ Partial Class ProductosyServicios
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked AndAlso DivListaPrecios.Visible Then
             Dim tcontador As Integer = 0
             For Each GvRow As GridViewRow In GvPLMultiple.Rows
                 Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
@@ -3012,13 +3012,12 @@ Partial Class ProductosyServicios
         If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra
             Dim objPS As New ClsProductosServicios
             If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CvePS:=CvePS) Then
-                GvPLMultiple.DataSource = objPS.DtResultados
+                GvPLMultiple.DataSource = objPS.DtResultados.Copy()
             End If
             objPS.Dispose()
-            DivListaPrecios.Visible = True
             GvPLMultiple.DataBind()
+            DivListaPrecios.Visible = True
         End If
-
     End Sub
 
     Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)
@@ -3035,16 +3034,19 @@ Partial Class ProductosyServicios
         Dim TieneError As Boolean = False
 
         Try
-            For Each GvRow As GridViewRow In GvPLMultiple.Rows
+            If DivListaPrecios.Visible Then
-                Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
+                For Each GvRow As GridViewRow In GvPLMultiple.Rows
-                Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
+                    Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
+                    Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
 
-                TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
+                    TieneError = Not ObjPS.UpdatePSPreciosLista(Precio, CvePrecioLista, 0, CvePS, UsuarioActual.CveUsuario, NowADS(), True)
+
+                    If TieneError Then
+                        Exit For
+                    End If
+                Next
+            End If
 
-                If TieneError Then
-                    Exit For
-                End If
-            Next
         Catch ex As Exception
             OnError("Ocurrió un error al actualizar precios", ex)
             TieneError = True

Ventas/RepPedidosSTF.aspx

@@ -236,7 +236,8 @@
                     <ContentTemplate>
                         <div style="min-height: 250px; overflow-x: scroll">
                             <asp:GridView ID="GvE" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas con los filtros especificados"
-                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio" data-sort="true" GridLines="None" Width="99%">
+                                CssClass="table table-striped table-advance table-hover Widthall ScrollAD" DataKeyNames="CveCliente,CveVendedor,CveSubProyecto,CvePS,CveUnidadMedida,Cantidad,PU,CveVentaDetalle,GastosEnvio,CveVenta,SerieFolio" data-sort="true" GridLines="None" Width="99%"
+                                OnRowDataBound="GvE_RowDataBound">
                                 <Columns>
                                     <asp:BoundField HeaderText="Cliente" DataField="NombreComercial" ItemStyle-Width="30%" />
                                     <asp:BoundField HeaderText="SerieFolio" DataField="SerieFolio" ItemStyle-Width="10%" />

Ventas/RepPedidosSTF.aspx.vb

@@ -150,6 +150,11 @@ Partial Class Ventas_RepPedidosSTF
 
             If e.Row.DBCampo("TipoRenglon") = "1" Then e.Row.CssClass = "SubTotales"
 
+            If UsuarioActual.TienePermisoPagina(6) Then
+                e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
+            End If
+
+
         End If
 
         If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
@@ -444,4 +449,16 @@ Partial Class Ventas_RepPedidosSTF
         UpBodyHorariosPedidos.Update()
         RegistraScript("$('#divHorariosPedidos').modal({ backdrop: 'static',  keyboard: false});")
     End Sub
+
+    Protected Sub GvE_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            If UsuarioActual.TienePermisoPagina(6) Then
+                e.Row.Cells(1).Text = $"<a href='./Ventas.aspx?CveVenta={e.Row.DataKey("CveVenta")}' target='_blank' class ='Texto' >{e.Row.DataKey("SerieFolio")}</a>"
+            End If
+        End If
+
+
+
+    End Sub
 End Class

Ventas/RepRecuperacion.aspx

@@ -52,6 +52,25 @@
             width: 100%;
             height: 500px;
         }
+        .select2-container--default .select2-selection--multiple .select2-selection__choice {
+              /*max-width: 150px;*/ /* Ajusta a tu gusto */
+              max-width: calc(100% - 2em);
+              text-overflow: ellipsis;
+              overflow: hidden;
+              white-space: nowrap;
+            }
+        /*.select2-selection__choice__remove{*/
+                /* o absolute/fixed, según necesites */
+                 /*position: absolute; 
+                z-index: 9999;*/     /* un valor alto para estar sobre los demás */
+        /*}
+        .select2-search.select2-search--inline .select2-search__field .select2-selection__rendered .select2-container--default .select2-container--focus {
+
+            position: absolute;
+            z-index: 1;            
+        }*/
+
+  
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
@@ -253,7 +272,7 @@
                         <a href="javascript:;" class="expand"></a>
                     </div>
                     <div class="titlefiltros  caption">
-                        <div class="row" style="height: 32px;">
+                        <div class="row" style="height: 32px; display:flex; align-items:center;">
                             <label class="col-md-1">Tipo: </label>
                             <div class="col-md-2">
                                 <asp:ListBox ID="DdlTipoComprobante" data-text="Todos" SelectionMode="Multiple" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server">
@@ -262,42 +281,40 @@
                                     <asp:ListItem Value="Ant" Text="Anticipos"></asp:ListItem>
                                 </asp:ListBox>
                             </div>
-                            <div class="col-md-1 truncate">
+                            <div class="col-md-3" style="display:flex; align-items:center">
-                                Fecha Inicio:
+                                <div style="width: 240px; display: flex; align-items: center">
-                           
+                                    <label style="width:80px;">Fecha Inicio:</label>
-                            </div>
+
-                            <div class="col-md-1" style="min-width: 115px">
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                        <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                    <asp:TextBox Width="80px" ID="txtFechaI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                        <span class="input-group-btn ">
-                                    <span class="input-group-btn ">
+                                            <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                        <asp:LinkButton ID="imgCalendario" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                        </span>
-                                    </span>
+                                    </div>
+                                    <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                    <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                    <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
                                 </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaI" runat="server" TargetControlID="txtFechaI" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                <div style="width: 210px; display: flex; align-items: center">
-                                <ajax:CalendarExtender runat="server" ID="Calendario" TargetControlID="txtFechaI" PopupButtonID="ImgCalendario" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                    <label style="width:80px;">Fecha Fin:</label>
-                                <asp:RequiredFieldValidator ID="rfvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                    <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
-                                <asp:CompareValidator ID="cvFechaI" runat="server" ControlToValidate="txtFechaI" Display="None" ErrorMessage="El campo <b>''Fecha Inicial''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                        <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
-                                <ajax:ValidatorCalloutExtender ID="vcoFfvFI" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        <span class="input-group-btn ">
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaI" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                            </div>
+                                        </span>
-                            <div class="col-md-1 truncate">
+                                    </div>
-                                Fecha Fin: 
+                                    <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                           
+                                    <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                            </div>
+                                    <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                            <div class="col-md-1" style="min-width: 115px">
+                                    <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                    <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <asp:TextBox Width="80px" ID="txtFechaF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                    <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                    <span class="input-group-btn ">
-                                        <asp:LinkButton ID="imgCalendarioF" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
-                                    </span>
                                 </div>
-                                <ajax:MaskedEditExtender ID="MEEFechaF" runat="server" TargetControlID="txtFechaF" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
-                                <ajax:CalendarExtender runat="server" ID="Calendario2" TargetControlID="txtFechaF" PopupButtonID="imgCalendarioF" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
-                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
-                                <asp:CompareValidator ID="cvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
-                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
-                                <ajax:ValidatorCalloutExtender ID="vcoCvFF" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+
                             <label class="col-md-1 ">Grupo:</label>
                             <div class="col-md-2">
                                 <asp:DropDownList ID="DdlGrupo" runat="server" CssClass="form-control  input-small input-sm select2me" Width="100%">
@@ -315,7 +332,7 @@
                                     <asp:ListItem Text="Usuario" Value="8"></asp:ListItem>
                                     <asp:ListItem Text="Estatus Fact." Value="9"></asp:ListItem>
                                     <asp:ListItem Text="% IVA" Value="10"></asp:ListItem>
-                                    <asp:ListItem Text="Forma de Pago" Value="15"></asp:ListItem>
+                                    <asp:ListItem Text="Tipo Transacción" Value="15"></asp:ListItem>
                                     <asp:ListItem Text="Vendedor/Cliente" Value="16"></asp:ListItem>
                                     <asp:ListItem Text="Sucursal Cobranza" Value="19"></asp:ListItem>
                                 </asp:DropDownList>
@@ -339,7 +356,8 @@
                         </div>
                         <label class="col-md-1 truncate">Vendedor:</label>
                         <div class="col-md-2">
-                            <asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
+                            <%--<asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>--%>
+                            <asp:ListBox ID="DdlVendedor" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control  input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                         </div>
                     </div>
                     <div class="row">
@@ -425,7 +443,7 @@
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1 truncate">F. Registro IE inicio:</div>
-                        <div class="col-md-1" style="padding-left: 0px">
+                        <div class="col-md-2" style="padding-left: 0px">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                 <asp:TextBox Width="80px" ID="TxtFechaRegistroIEI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -440,7 +458,7 @@
                             <ajax:ValidatorCalloutExtender ID="vcoCvFRegistroIEI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaRegistroIEI" Width="350px"></ajax:ValidatorCalloutExtender>
                         </div>
                         <div class="col-md-1 truncate">F. Registro IE Fin:</div>
-                        <div class="col-md-1">
+                        <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                 <asp:TextBox Width="80px" ID="TxtFechaRegistroIEF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -471,7 +489,7 @@
                             </asp:DropDownList>
                         </div>
                         <div class="col-md-1 truncate">F. Conciliado inicio:</div>
-                        <div class="col-md-1" style="padding-left: 0px">
+                        <div class="col-md-2" style="padding-left: 0px">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                 <asp:TextBox Width="80px" ID="TxtFechaAplicadoI" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -486,7 +504,7 @@
                             <ajax:ValidatorCalloutExtender ID="vcoCvFAplicadoI" runat="server" HighlightCssClass="vco" TargetControlID="cvFechaAplicadoI" Width="350px"></ajax:ValidatorCalloutExtender>
                         </div>
                         <div class="col-md-1 truncate">F. Conciliado Fin:</div>
-                        <div class="col-md-1">
+                        <div class="col-md-2">
                             <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important;">
                                 <asp:TextBox Width="80px" ID="TxtFechaAplicadoF" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                 <span class="input-group-btn ">
@@ -525,15 +543,18 @@
                                 <asp:ListItem Text="Dolares" Value="2"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1 truncate">
+                            Tipo Transacción:                       
+                        </div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlTipoTransaccion" Width="100%" CssClass="form-control input-sm select2me" runat="server" DataTextField="TipoTransaccion" DataValueField="CveTipoTransaccion">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">Lectura administrativa:</label>
-                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
-                        </div>
                         <label title="Es parte relacionada" data-toggle="tooltip" class="col-md-1 truncate" runat="server" id="Label4">Parte Relacionada:</label>
                         <div class="col-md-2" runat="server" id="DivFilial">
-                            <asp:DropDownList ID="DdlFilial" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                            <asp:DropDownList ID="DdlFilial" runat="server" Width="100%" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                 <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                 <asp:ListItem Text="Solo parte relacionadas" Value="1"></asp:ListItem>
                                 <asp:ListItem Text="Sin parte relacionadas" Value="0"></asp:ListItem>

Ventas/RepRecuperacion.aspx.vb

@@ -92,9 +92,15 @@ Partial Class Ventas_RepRecuperacion
 
     End Sub
 
+    Private Sub CargaTipoTransaccion()
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
+        DdlTipoTransaccion.DataBind()
+        DdlTipoTransaccion.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
 
     Private Sub CargaCombos()
-        'Carga Clientes
+        CargaTipoTransaccion()
+        'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
             DdlClientes.setEsWebService(True)
             DdlClientes.Attributes.Add("data-metodo", "getcliente")
@@ -192,7 +198,7 @@ Partial Class Ventas_RepRecuperacion
             TCEspecifico = -1
         End If
 
-        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+        Dim ModalidadContable As Boolean = True
 
         Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
         Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
@@ -220,7 +226,7 @@ Partial Class Ventas_RepRecuperacion
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero,
-                                  CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
+                                  CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
                                   FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
             GvDatos.DataSource = ObjMovtos.DtResultados
             DtDatos = ObjMovtos.DtResultados
@@ -370,7 +376,7 @@ Partial Class Ventas_RepRecuperacion
 
             Dim Liga As String = $"/Ventas/RepRecuperacionDetalle.aspx?GPO={DdlGrupo.SelectedValue}&AnioVenta={e.Row.DBCampo("AnioVenta")}&MesVenta={e.Row.DBCampo("MesVenta")}&AnioMesVenta={e.Row.DBCampo("AnioMesVenta")}&FechaVenta={e.Row.DBCampo("FechaVenta")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}"
 
-            Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
+            Liga = $"{Liga}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={e.Row.DBCampo("TipoCambio")}&TCEspecifico={e.Row.DBCampo("TCEspecifico")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={ e.Row.DBCampo("CveCondicionesPago")}&TipoCliente={DdlTipoCliente.SelectedValue}&ModalidadContable={1}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
 
             Liga = $"{Liga}&CveResponsable={e.Row.DBCampo("CveResponsable")}&CveBanco={e.Row.DBCampo("CveBanco")}&CveEstatusCliente={e.Row.DBCampo("CveEstatusCliente")}&CveCuenta={e.Row.DBCampo("CveCuenta")}&CveTipoTransaccion={e.Row.DBCampo("CveTipoTransaccion")}&FechaAplicadoI={FechaAplicadoI}&FechaAplicadoF={FechaAplicadoF}&FechaRegistroIEI={FechaRegistroIEI}&FechaRegistroIEF={FechaRegistroIEF}&CveSubProyectoCobranza={e.Row.DBCampo("CveSubProyectoCobranza")}&Grupo={e.Row.DBCampo("GPO")}"
 

Ventas/RepRecuperacionDetalle.aspx

@@ -620,10 +620,6 @@
                         </div>
                     </div>
                     <div class="row">
-                        <label class="col-md-1 truncate">Lectura administrativa:</label>
-                        <div class="col-md-2">
-                            <asp:CheckBox ID="ChkLecturaAdmin" runat="server" Checked="false" CssClass="input-sm" />
-                        </div>
                         <label title="Es parte relacionada" data-toggle="tooltip" class="col-md-1 truncate" runat="server" id="Label4">Parte Relacionada:</label>
                         <div class="col-md-2" runat="server" id="DivFilial">
                             <asp:DropDownList ID="DdlFilial" runat="server" AppendDataBoundItems="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me">

Ventas/RepRecuperacionDetalle.aspx.vb

@@ -92,7 +92,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         End If
     End Sub
 
-#Region "CARGAS"
+#Region "CARGAS"
 
     Private Sub CargaCombos()
         Dim CveCliente, CveUsuario, CveProyecto, CveSubProyectoCobranza,
@@ -103,8 +103,8 @@ Partial Class Ventas_RepRecuperacionDetalle
         Dim CveSucursal, CveSubProyecto, CveVendedor, CveSubProyectoEjecucion, CveEstatusFactura, CveCorte, IVA, CveCondicionesPago, CveTipoRelacion As String
         Dim AnioVenta, MesVenta, AnioMesVenta, FechaVenta As String
         Dim AnioEjec, MesEjec, AnioMesEjec, FechaEjec, FechaIEjec, FechaFEjec As String
-
+
-        'Carga Clientes
+        'Carga Clientes
         If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
             DdlClientes.setEsWebService(True)
             DdlClientes.Attributes.Add("data-metodo", "getcliente")
@@ -432,7 +432,7 @@ Partial Class Ventas_RepRecuperacionDetalle
         End If
 
 
-        Dim ModalidadContable As Boolean = Not ChkLecturaAdmin.Checked
+        Dim ModalidadContable As Boolean = True
 
         Dim TipoComprobante As String = If(DdlTipoComprobante.GetSelectedValuesM = "", "-1", DdlTipoComprobante.GetSelectedValuesM)
         Dim Sucursales As String = If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM)
@@ -460,7 +460,7 @@ Partial Class Ventas_RepRecuperacionDetalle
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
                                   EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero,
-                                  CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=-1, FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
+                                  CveResponsable:=DdlResponsable.SelectedValue.ToEntero(), CveBanco:=DdlBanco.SelectedValue.ToEntero(), EstatusCliente:=DdlEstatusCliente.SelectedValue.ToEntero(), CveCuenta:=DdlCuentaBancaria.SelectedValue.ToEntero(), CveTipoTransaccion:=DdlTipoTransaccion.SelectedValue.ToEntero(), FechaAplicadoI:=FechaAplicadoI, FechaAplicadoF:=FechaAplicadoF,
                                   FechaRegistroIEI:=FechaRegistroIEI, FechaRegistroIEF:=FechaRegistroIEF, CveClienteSucursal:=DdlClienteSucursal.SelectedValue.ToEntero(), Tipo:=Me.Tipo, Grupo:=Me.Grupo, CveMoneda:=DdlMoneda.SelectedValue.ToEntero()) Then
 
             DtDatos = ObjMovtos.DtResultados.Copy()

Ventas/RepVentas.aspx

@@ -368,6 +368,11 @@
                             <asp:DropDownList ID="DdlTipoRelacion" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SATTipoRelacion" DataValueField="CveTipoRelacion">
                             </asp:DropDownList>
                         </div>
+                        <label class="col-md-1" id="LblTipoVenta" runat="server" visible="false">Tipo Venta:</label>
+                        <div class="col-md-2" id="DivTipoVenta" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlTipoVenta" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="TipoVenta" DataValueField="CveTipoVenta">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>

Ventas/RepVentas.aspx.vb

@@ -215,7 +215,15 @@ Partial Class Ventas_RepVentas
         ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
     End Sub
 
-    Private Sub CargaCombos()
+    Private Sub CargaCombos()
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            LblTipoVenta.Visible = True
+            DivTipoVenta.Visible = True
+
+            DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs' ")
+            DdlTipoVenta.DataBind()
+            DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
 
@@ -265,8 +273,8 @@ Partial Class Ventas_RepVentas
         TxtFechaISabana.Text = NowADS().FirstDayOfMonth.ToShortDateString
         TxtFechaFSabana.Text = NowADS().ToShortDateString
 
-    End Sub
+    End Sub
-
+
 
 #End Region
 
@@ -310,7 +318,7 @@ Partial Class Ventas_RepVentas
         If ObjVentas.GetRepVentas(FechaI, FechaF, FechaIEjec, FechaFEjec, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, Vendedores,
                                   DdlUsuario.SelectedValue.ToEntero, Estatus, "-1", UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, TipoComprobante, DdlProyecto.SelectedValue.ToEntero, Sucursales, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico, CveUsuarioConsulta:=UsuarioActual.CveUsuario,
                                   CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveCondicionesPago:=DdlCondicionesPago.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=ModalidadContable,
-                                  EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero) Then
+                                  EsDistribuidor:=DdlDistribuidor.SelectedValue.ToEntero, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(), ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         Else
@@ -531,7 +539,7 @@ Partial Class Ventas_RepVentas
 
 
             'LIGA A DETALLE
-            Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}"
+            Dim Liga As String = $"/Ventas/RepVentasDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&AnioEjec={e.Row.DBCampo("AnioEjec")}&MesEjec={e.Row.DBCampo("MesEjec")}&AnioMesEjec={e.Row.DBCampo("AnioMesEjec")}&FechaEjec={e.Row.DBCampo("FechaEjec")}&CveCliente={e.Row.DBCampo("CveCliente")}&CveVendedor={ e.Row.DBCampo("CveVendedor")}&CveUsuario={e.Row.DBCampo("CveUsuario")}&CveEstatusFactura={e.Row.DBCampo("CveEstatusFactura")}&FechaI={FechaInicial}&FechaF={FechaFinal}&FechaIEjec={FechaIEjec}&FechaFEjec={FechaFEjec}&IVA={e.Row.DBCampo("GPO_IVA")}&CveCorte={ e.Row.DBCampo("CveCorte")}&TipoDocto={ DdlTipoComprobante.GetSelectedValuesM}&CveSubProyectoEjecucion={e.Row.DBCampo("CveSubProyectoEjecucion")}&CveSubProyecto={CveSubProyecto}&CveProyecto={CveProyecto}&TipoCambio={TipoCambio}&TCEspecifico={TCEspecifico}&CveMoneda={CveMoneda}&CveClienteClasificacion={e.Row.DBCampo("CveClienteClasificacion")}&CveCondicionesPago={DdlCondicionesPago.SelectedValue}&TipoCliente={ If(DdlGrupo.SelectedValue.ToEntero = 20, e.Row.DBCampo("TipoCliente"), DdlTipoCliente.SelectedValue)}&ModalidadContable={If(ChkLecturaAdmin.Checked, 0, 1)}&CveTipoRelacion={DdlTipoRelacion.SelectedValue}&ServicioDomicilio={DdlServicioDomicilio.SelectedValue}&EsFacturaGlobal={DdlFacturaGlobal.SelectedValue}&EsFilial={e.Row.DBCampo("EsFilial")}&CveTipoVenta={e.Row.DBCampo("CveTipoVenta")}"
 
 
             e.Row.FCLiteral("LtlGrupo").Text = "<a class=""" & Css & """ href=""" & Liga & """>" & e.Row.FCLiteral("LtlGrupo").Text & "</a>"

Ventas/RepVentasDetalle.aspx

@@ -331,14 +331,20 @@
                             </asp:DropDownList>
                         </div>
                         <asp:Label runat="server" ID="LblFacturaGlobal" class="col-md-1 truncate" Visible="false">Factura Global:</asp:Label>
-                            <div class="col-md-2" runat="server" id="DivFacturaGlobal" Visible="false">
+                        <div class="col-md-2" runat="server" id="DivFacturaGlobal" visible="false">
-                                <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%" >
+                            <asp:DropDownList ID="DdlFacturaGlobal" CssClass=" form-control input-sm select2me" runat="server" Width="100%">
-                                    <asp:ListItem   Value ="-1">Todos</asp:ListItem>
+                                <asp:ListItem Value="-1">Todos</asp:ListItem>
-                                    <asp:ListItem   Value="1">Solo Globales</asp:ListItem>
+                                <asp:ListItem Value="1">Solo Globales</asp:ListItem>
-                                    <asp:ListItem   Value="0">Sin Globales</asp:ListItem>
+                                <asp:ListItem Value="0">Sin Globales</asp:ListItem>
-                                </asp:DropDownList>
+                            </asp:DropDownList>
-                            </div>
+                        </div>
-
+                    </div>
+                    <div class="row">
+                        <label class="col-md-1" id="LblTipoVenta" runat="server" visible="false">Tipo Venta:</label>
+                        <div class="col-md-2" id="DivTipoVenta" runat="server" visible="false">
+                            <asp:DropDownList ID="DdlTipoVenta" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="TipoVenta" DataValueField="CveTipoVenta">
+                            </asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
@@ -346,7 +352,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas" 
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" data-sort="true" Width="99%" DataKeyNames="CveVenta,TipoDocumento,SerieFolio" EmptyDataText="No se encontraron Ventas con los filtros especificados" ToolTip="Listado de Ventas"
                 CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                 <Columns>
                     <%-- 0--%>
@@ -607,23 +613,30 @@
                             <asp:Literal ID="LtlDescripcionVenta" runat="server" Text='<%# Eval("DescripcionVenta") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                     <asp:TemplateField HeaderText="Cobranza" Visible="false">
-                         <ItemTemplate>
-                             <asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
-                         </ItemTemplate>
-                     </asp:TemplateField>
                     <%-- 42--%>
+                    <asp:TemplateField HeaderText="Cobranza" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlCobranza" runat="server" Text='<%# Eval("CobranzaEstatusTurno") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <%-- 43--%>
                     <asp:TemplateField HeaderText="Descargar XML" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlXML" runat="server"></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <%-- 43--%>
+                    <%-- 44--%>
                     <asp:TemplateField HeaderText="Descargar PDF" Visible="false">
                         <ItemTemplate>
                             <asp:Literal ID="LtlPDF" runat="server"></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <%-- 45--%>
+                    <asp:TemplateField HeaderText="Tipo Venta" Visible="false">
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlTipoVenta" runat="server" Text='<%# Eval("TipoVenta") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                 </Columns>
             </asp:GridView>
         </ContentTemplate>
@@ -814,8 +827,11 @@
                                             <asp:CheckBox ID="ChkKilometraje" runat="server" Visible="False" Text="&nbsp; Kilometraje" /></td>
                                     </tr>
                                     <tr>
-                                        <td style="text-align: left;"><asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></td>
+                                        <td style="text-align: left;">
-                                        <td style="text-align: left;"></td>
+                                            <asp:CheckBox ID="ChkGestionCobranzaTurno" runat="server" Visible="true" Text="&nbsp; Cobranza" /></td>
+                                        <td style="text-align: left;">
+                                             <asp:CheckBox ID="ChkTipoVenta" runat="server" Text="&nbsp;Tipo Venta" />
+                                        </td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkDescripcionVenta" runat="server" Visible="true" Text="&nbsp; Descripción Venta" /></td>
                                     </tr>

Ventas/RepVentasDetalle.aspx.vb

@@ -186,6 +186,8 @@ Partial Class RepVentasDetalle
         TipoCliente = If(Request("TipoCliente") IsNot Nothing, Request("TipoCliente").ToString.ToEntero, -1).ToString.ToEntero
 
         CveTipoRelacion = If(Request("CveTipoRelacion") IsNot Nothing, Request("CveTipoRelacion").ToString, "-1").ToString
+        Dim CveTipoVenta = If(Request("CveTipoVenta") IsNot Nothing, Request("CveTipoVenta").ToString.ToEntero, -1).ToString.ToEntero
+        DdlTipoVenta.SelectedValueExist(CveTipoVenta)
 
         DdlTipoCliente.SelectedValueExist(TipoCliente)
 
@@ -318,6 +320,15 @@ Partial Class RepVentasDetalle
     End Sub
 
     Private Sub CargaCombos()
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            LblTipoVenta.Visible = True
+            DivTipoVenta.Visible = True
+
+            DdlTipoVenta.DataSource = GlobalDTTipoVenta(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' AND TipoDocto = 'Egs'")
+            DdlTipoVenta.DataBind()
+            DdlTipoVenta.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto, VisualizacionReporte:=1)
         CargaClientes()
 
@@ -457,7 +468,7 @@ Partial Class RepVentasDetalle
                                          CveCorte.ToEntero, TipoComprobante, DdlSubProyectoEjecucion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, FechaIEjec, FechaFEjec,
                                          CveProyecto, Sucursales, TipoCambio, TCEspecifico, CveMoneda, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero,
                                          CveCondicionesPago:=CveCondicionesPago, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, ModalidadContable:=Not ChkLecturaAdmin.Checked, CveTipoRelacion:=DdlTipoRelacion.SelectedValue.ToEntero(),
-                                         ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero) Then
+                                         ServicioDomicilio:=DdlServicioDomicilio.SelectedValue.ToEntero, EsFacturaGlobal:=DdlFacturaGlobal.SelectedValue.ToEntero, EsFilial:=DdlFilial.SelectedValue.ToEntero, CveTipoVenta:=DdlTipoVenta.SelectedValue.ToEntero()) Then
             DtVentas = AddRows(ObjVentas.DtResultados)
             ImgImprimir.Enabled = True
             GvDatos.DataSource = AddRows(ObjVentas.DtResultados)
@@ -1031,6 +1042,7 @@ Partial Class RepVentasDetalle
         GvDatos.Columns(42).Visible = ChkGestionCobranzaTurno.Checked
         GvDatos.Columns(43).Visible = ChkDescargarXML.Checked
         GvDatos.Columns(44).Visible = ChkDescargarPDF.Checked
+        GvDatos.Columns(45).Visible = ChkTipoVenta.Checked
 
         Personalizo = 1
         If Personalizo = 1 Then

Ventas/RepVentasPeriodo.aspx.vb

@@ -87,7 +87,10 @@ Partial Class RepVentasPeriodo
                 DdlTipoComprobante.SelectedValuesIfExistM(Opcion)
                 DdlGrupo.SelectedValueExist("7")
                 DdlTipoComprobante_SelectedIndexChanged(DdlTipoComprobante, EventArgs.Empty)
-                DdlEstatus.SelectedValue = "-1"
+                DdlEstatus.SelectedValue = "-1"
+            Else
+                DdlTipoComprobante.SelectedValuesIfExistM("Ing")
+                DdlEstatus.SelectedValuesIfExistM("3")
             End If
 
 

Ventas/Ventas.aspx.vb

@@ -7962,10 +7962,14 @@ Partial Class Ventas
                                 EsCotizacion = True
                             End If
 
-                            If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                            'NO MODIFIQUE EL TipoComprobante
-                            If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+                            If CveVenta <= 0 OrElse EsCreaApartirDe Then
+                                If UsuarioActual.TienePermisoProceso(199) Then DdlTipoComprobante.SelectedValueExistInsert("Rem", "Remisión") ' puede remisionar
+                                If UsuarioActual.TienePermisoProceso(60) Then DdlTipoComprobante.SelectedValueExistInsert("Ing", "Ingresos") 'puede facturar
+
+                                DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
+                            End If
 
-                            DdlTipoComprobante.SelectedValueExist(UsuarioActual.CveTipoDocumento)
                             If EsCotizacion Then
                                 DdlTipoComprobante.SelectedValueExistInsert("Cot", "Cotización")
                             End If
@@ -12424,6 +12428,9 @@ Partial Class Ventas
             End If
         End If
 
+
+        ObjFacturaBonificacion.CveTipoVenta = 7 'BONIFICACION
+
     End Sub
 
 
@@ -14637,6 +14644,31 @@ Partial Class Ventas
             End If
         End If
 
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso factura.TipoDocto = "Egs" AndAlso Not factura.EsGarantia Then
+            CveTipoVentaGuardar = -1
+
+            If NCDescuento Then
+                If ListaNCDescuento IsNot Nothing AndAlso ListaNCDescuento.Count > 0 Then
+                    'VERIFICA SI BONIFICACION
+                    If ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 2)) Then
+                        CveTipoVentaGuardar = 7 ' BONIFICACION
+                    ElseIf ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 1)) Then
+                        CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
+                    End If
+                End If
+            Else
+                If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then
+                    'VERIFICA SI BONIFICACION
+                    If ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 2)) Then
+                        CveTipoVentaGuardar = 7 ' BONIFICACION
+                    ElseIf ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 1)) Then
+                        CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
+                    End If
+                End If
+
+            End If
+        End If
+
         If Not ObjVentas.AddVenta(factura.TipoDocto, factura.Folio, factura.CveCliente, factura.CveClienteSucursal, factura.SubTotalTC, factura.DescuentoTC,
                            factura.AmortizacionTC, factura.IVATC, factura.RetIVATC, factura.RetISRTC,
                            factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, 0, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
@@ -37895,6 +37927,7 @@ Partial Class Ventas
             ObjFacturaProntoPago.DtVentasNC = DtVentasNC
 
             ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
+            ObjFacturaProntoPago.CveTipoVenta = 8 'PRONTO PAGO
 
             Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)