Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG

App_Code/ClsBancos.vb

@@ -696,7 +696,8 @@ Public Class ClsBancos
     Public Function GetBancosIE(CveIE As Integer, CveBanco As Integer, CveCuenta As Integer, TipoMovimiento As String, CveTipoTransaccion As Integer, Folio As String, PagueseA As String, Importe As Double,
                                 CveMoneda As Integer, EsAbonoEnCuenta As Integer, FueConciliado As Integer, CveEstatusIE As Integer,
                                 FechaInicio As Date, FechaFin As Date, FechaAplicacionInicio As Date, FechaAplicacionFin As Date,
-                                FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer, Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1) As Boolean
+                                FechaConciliadoInicio As Date, FechaConciliadoFin As Date, CveUsuarioConcilio As Integer, TImporte As Double, CveEmpresa As Integer,
+                                Optional CveEstatusNotificacion As Integer = -1, Optional CveCuentaTarjeta As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Banc_IEGet")
@@ -725,6 +726,7 @@ Public Class ClsBancos
             .Add("@CveEstatusNotificacion", SqlDbType.Int).Value = CveEstatusNotificacion
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCuentaTarjeta", SqlDbType.Int).Value = CveCuentaTarjeta
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
 
         End With
 

App_Code/ClsClientes.vb

@@ -24,6 +24,8 @@ Public Class ClsClientes
     Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
     'REGISTRAR CONEXIÓN
     Private CveConexion As Integer = 0
+    Private EsTransaccionCompartida As Boolean = False
+
 #End Region
 
 #Region "Propiedades"
@@ -187,6 +189,7 @@ Public Class ClsClientes
         Else
             SqlConexion = TransaccionCompartida.Connection
             SqlTransacc = TransaccionCompartida
+            EsTransaccionCompartida = True
         End If
 
         SqlCommand = New SqlCommand("", SqlConexion)
@@ -205,7 +208,7 @@ Public Class ClsClientes
 #Region "Conexiones"
 
     Private Sub ConexionAdd()
-        If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
+        If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
                 DataAdapter("PA_Sis_RegistrarConexion")
                 With SqlAdapter.SelectCommand.Parameters
@@ -261,7 +264,7 @@ Public Class ClsClientes
     End Sub
     Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer,
                                 CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1,
-                                Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1) As Boolean
+                                Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ClientesGet")
@@ -282,6 +285,7 @@ Public Class ClsClientes
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
         Try
             SqlAdapter.Fill(Data)

App_Code/ClsCompProveedores.vb

@@ -297,7 +297,7 @@ Public Class ClsCompProveedores
     Public Function GetProveedores(tipoConsulta As TipoConsulta, CveProveedor As Integer, Codigo As String, RazonSocial As String, NombreComercial As String,
                                    NombreCorto As String, RFC As String, ContactoNombre As String, Telefono As String, Estatus As Integer, CveEmpresa As Integer,
                                    Optional CveTipoProveedor As Integer = -1, Optional CveUsuarioResponsable As Integer = -1,
-                                   Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1) As Boolean
+                                   Optional CveMonedaPreferente As Integer = -1, Optional CveProveedorClasificacion As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Comp_ProveedoresGet")
@@ -318,6 +318,7 @@ Public Class ClsCompProveedores
             .Add("@CveUsuarioResponsable", SqlDbType.Int).Value = CveUsuarioResponsable
             .Add("@CveProveedorClasificacion", SqlDbType.Int).Value = CveProveedorClasificacion
             .Add("@CveMonedaPreferente", SqlDbType.Int).Value = CveMonedaPreferente
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/ClsCompras.vb

@@ -143,7 +143,8 @@ Public Class ClsCompras
 
         Return Retorno
     End Function
-    Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String, FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1) As Boolean
+    Public Function GetCompras(CveEmpresa As Integer, TipoDocto As String, Folio As String, FolioFiscal As String, Codigo As String, Proveedor As String, FechaI As String,
+                               FechaF As String, Descripcion As String, Observaciones As String, Optional CveProveedor As Integer = -1, Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ComprasGetBuscar")
 
@@ -160,6 +161,7 @@ Public Class ClsCompras
             .Add("@Descripcion", SqlDbType.VarChar).Value = Descripcion
             .Add("@Observaciones", SqlDbType.VarChar).Value = Observaciones
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/ClsPaginas.vb

@@ -5045,8 +5045,8 @@ Public Class ClsPaginas
     Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object)
         'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente
         Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks)
-        'Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
+        Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache
-        Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
+        'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache
         ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey)
 
     End Sub
@@ -5056,11 +5056,11 @@ Public Class ClsPaginas
         If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it.
             Throw New Exception(String.Format("Invalid VIEWSTATE Key:         {0}", VSKey))
         End If
-        If Session(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
+        If Cache(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío
             Response.Redirect(Request.RawUrl)
             Return Nothing
         Else
-            Return Session(VSKey)
+            Return Cache(VSKey)
         End If
 
     End Function
@@ -5268,6 +5268,8 @@ Public Class ClsPaginas
                 params.Add(param)
             Next
             Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario)
+            wsreport = Nothing
+            params = Nothing
         Else
             If IsNothing(MR) Then MR = New ReportViewer
             Try
@@ -5340,6 +5342,7 @@ Public Class ClsPaginas
 
         End If
         sw.Stop()
+
         If sw.Elapsed.TotalSeconds > 5 Then
             GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds}   ")
         End If
@@ -5592,7 +5595,7 @@ Public Class ClsPaginas
             HttpContext.Current.Response.SuppressContent = True
             HttpContext.Current.ApplicationInstance.CompleteRequest()
             HttpContext.Current.Response.End()
-
+            bytes = Nothing
         Catch ex As Exception
 
             If UsuarioActual.CveRol = 1 Then
@@ -7247,6 +7250,20 @@ Public Class ClsPaginas
                     params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado))
                 End If
 
+                If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                    Dim ObjCuentasBancos As New ClsGenerales()
+                    If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then
+                        Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'")
+                        Dim CuentasStr As New StringBuilder("")
+                        For Each CuentasBancarios As DataRow In CuentasActivas.Rows
+                            Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString)
+                            Dim infoCuenta As String = String.Format("<br>{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe)
+                            CuentasStr.AppendFormat(infoCuenta)
+                        Next
+                        params.Add(New ReportParameter("Cuentas", CuentasStr.ToString))
+                    End If
+                    ObjCuentasBancos.Dispose()
+                End If
                 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString))
                 Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol)
                 Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol))

App_Code/ClsProductosServicios.vb

@@ -206,7 +206,10 @@ Public Class ClsProductosServicios
 
     End Sub
 #End Region
-    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1", Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1, Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1") As Boolean
+    Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
+                          Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                          Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
+                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosGet")
@@ -227,6 +230,7 @@ Public Class ClsProductosServicios
             .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
             .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
             .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/ClsRH.vb

@@ -1546,10 +1546,11 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
 
     Public Function GetPersonal2(CvePersonal As Integer, Codigo As String, Nombre As String, NSS As String, RFC As String, CveTurno As Integer, CvePuesto As Integer,
-           CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer,
+                                   CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer,
-           CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer,
+                                   CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer,
-           CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer,
+                                   CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer,
-           FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, SqlStr As String, NCaracteristicas As Integer, CveEmpresa As Integer) As Boolean
+                                   FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, SqlStr As String, NCaracteristicas As Integer,
+                                 CveEmpresa As Integer, Optional TopSelect As Integer = 10000) As Boolean
 
         Dim Retorno As Boolean = False
         SqlDataAdapter("PA_RH_Personal2Get")
@@ -1584,6 +1585,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
             .Add("@SqlStr ", SqlDbType.VarChar).Value = SqlStr
             .Add("@NCaracteristicas", SqlDbType.Int).Value = NCaracteristicas
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/ClsSisNotificaciones.vb

@@ -210,23 +210,24 @@ Public Class ClsSisNotificaciones
 
     Private Sub EnviarCorreos(DTNotificacionesCorreo As DataTable)
         For Each notificacion As DataRow In DTNotificacionesCorreo.Rows
-            MandaMail(notificacion("CveNotificacionBitacora").ToString.ToEntero, notificacion("Encabezado").ToString, notificacion("Cuerpo").ToString, notificacion("Correo").ToString, "")
+            Dim Hilo As New System.Threading.Thread(Sub() MandaMail(notificacion("CveNotificacionBitacora").ToString.ToEntero, notificacion("Encabezado").ToString, notificacion("Cuerpo").ToString, notificacion("Correo").ToString, ""))
+            Hilo.Start()
         Next
     End Sub
 
     Private Sub MandaMail(CveNotificacionBitacora As Integer, Asunto As String, Cuerpo As String, Mail As String, MailCC As String)
         Dim ObjMail As New ClsSisMail()
-
+        Dim ObjNotificacion As New ClsSisNotificaciones
         Try
             Dim ResultadoMail As Integer = 0
             Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
             If ObjMail.SendMail(ClsPaginas.EmpresaNotificaciones, Mail, Asunto, Cuerpo, MailCC, LSRutasMail) Then
-                UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1)
+                ObjNotificacion.UpdateNotificacionesBitacoraNotifico(CveNotificacionBitacora, 1)
             End If
-
         Catch ex As Exception
             OnError("Ocurrió error al mandar el Mail", ex)
         End Try
+        ObjNotificacion.Dispose()
     End Sub
 
 #End Region
@@ -1328,10 +1329,6 @@ Public Class ClsSisNotificaciones
                     Next
                 End If
 
-                If DTNotificacionesCorreo IsNot Nothing AndAlso DTNotificacionesCorreo.Rows.Count > 0 Then
-                    EnviarCorreos(DTNotificacionesCorreo)
-                End If
-
                 If DTNotificacionesApp IsNot Nothing AndAlso DTNotificacionesApp.Rows.Count > 0 Then
                     Dim DtTokens As DataTable = Nothing
 
@@ -1391,6 +1388,10 @@ Public Class ClsSisNotificaciones
                     End If
                 End If
 
+                If DTNotificacionesCorreo IsNot Nothing AndAlso DTNotificacionesCorreo.Rows.Count > 0 Then
+                    EnviarCorreos(DTNotificacionesCorreo)
+                End If
+
                 If Not DTNotificacionesApp Is Nothing Then DTNotificacionesApp.Dispose()
                 'If Not DTNotificacionesCampana Is Nothing Then DTNotificacionesCampana.Dispose()
                 If Not DTNotificacionesCorreo Is Nothing Then DTNotificacionesCorreo.Dispose()

App_Code/ClsVentas.vb

@@ -204,7 +204,7 @@ Public Class ClsVentas
     Public Function GetVentas(CveEmpresa As Integer, TipoDocto As String, Serie As String, Folio As Integer, Codigo As String, CveCliente As Integer,
                               CveSubProyecto As Integer, CveEstatus As Integer, CveUsuario As Integer, FechaI As String, FechaF As String, FolioFiscal As String, Optional CveClienteSucursal As Integer = -1, Optional CvePS As Integer = -1, Optional PedidoContrato As String = "-1",
                               Optional OrdenCompra As String = "-1", Optional CveUsuarioConsulta As Integer = -1, Optional ClienteRFC As String = "-1",
-                              Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1) As Boolean
+                              Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, Optional TopSelect As Integer = 1000) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Vta_VentasGetBuscar")
@@ -229,6 +229,7 @@ Public Class ClsVentas
             .Add("@ClienteRFC", SqlDbType.VarChar).Value = ClienteRFC
             .Add("@CveEmpresaCRM", SqlDbType.Int).Value = CveEmpresaCRM
             .Add("@CveAcercamientoCRM", SqlDbType.Int).Value = CveAcercamientoCRM
+            .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
         Try

App_Code/modExtensiones.vb

@@ -192,10 +192,10 @@ Namespace Extensiones
         Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log")
             Dim ArchivoW As StreamWriter
 
-            Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}"
+            Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm"))
 
             Try
-                ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8)
+                ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8)
             Catch ex As UnauthorizedAccessException
                 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError)
                 Exit Sub

Bancos/PopUpBuscarIE.aspx.vb

@@ -74,7 +74,7 @@ Partial Class Bancos_PopUpBuscarIE
 
             Dim ObjBancosIE As New ClsBancos
             If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
-                                   MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
+                                   MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
                 DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
             Else
                 Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)

Bancos/ProveedoresAbonar.aspx.vb

@@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar
                         'If Archivo.Exists Then
                         Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
                         'End If
-                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE)
+                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE)))
                         If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
                         Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)

Compras/PopUpBuscarFolioC.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Compras_PopUpBuscarFolioC
         If ValidarUnFiltroSeleccionado() Then
             Dim ObjCompras As New ClsCompras()
             If ObjCompras.GetCompras(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Folio, FolioFiscal, Codigo, Proveedor, FechaI, FechaF, Descripcion, Obs,
-                                 CveProveedor:=DdlProveedor.SelectedValue.ToEntero) Then
+                                 CveProveedor:=DdlProveedor.SelectedValue.ToEntero, TopSelect:=100) Then
                 If ObjCompras.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjCompras.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjCompras.DtResultados
@@ -111,7 +111,8 @@ Partial Class Compras_PopUpBuscarFolioC
         If TxtFolioFiscal.Text.Trim.Length > 0 Then Return True
         If TxtDescripcion.Text.Trim.Length > 0 Then Return True
         If TxtObservaciones.Text.Trim.Length > 0 Then Return True
-        If DdlTipoDocto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlTipoDocto.SelectedValue <> "-1" Then Return True
+        If DdlProveedor.SelectedValue.ToEntero <> 0 Then Return True
         Return False
     End Function
 End Class

Compras/PopUpBuscarProveedor.aspx.vb

@@ -61,7 +61,8 @@ Partial Class Compras_PopUpBuscarProveedor
         CveTipoProveedor = DdlTipoProveedor.SelectedValue.ToEntero
 
         If ValidarUnFiltroSeleccionado() Then
-            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1, UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor) Then
+            If ObjProveedor.GetProveedores(ClsCompProveedores.TipoConsulta.ParaUsoEnEmpresa, -1, Codigo, RazonSocial, NombreComercial, NombreCorto, RFC, Contacto, Telefono, -1,
+                                           UsuarioActual.CveEmpresa, CveTipoProveedor:=CveTipoProveedor, TopSelect:=100) Then
                 If ObjProveedor.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjProveedor.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjProveedor.DtResultados

Compras/PopUpVerFactura.aspx.vb

@@ -4047,6 +4047,7 @@ Partial Class PopUpVerFactura
                     ObjCompra.Dispose()
                     Dim rds2 = New ReportDataSource("DataSet2", dtnc)
                     reportDataSetsList.Add(rds2)
+                    dtnc.Dispose()
 
                     Dim paramList As New List(Of ReportParameter)
                     With paramList
@@ -4075,15 +4076,19 @@ Partial Class PopUpVerFactura
                         End If
 
                     End With
+                    dtMovs.Dispose()
 
-
+                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF")
-                    ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, "IE Movimient", "PDF")
 
                 End If
 
             End If
         End If
 
+        DtGvRH.Dispose()
+        DtComprobacion.Dispose()
+        ParamComprobacion.Dispose()
+
         ObjIE.Dispose()
     End Sub
 

Compras/ReembolsosComprobaciones.aspx.vb

@@ -1432,11 +1432,11 @@ Partial Class Compras_ReembolsosComprobaciones
             Dim Mensaje As New StringBuilder
 
             If CvePrePolizaExcedente > 0 Then
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> Cheque:  <a target='_blank' href=/Bancos/IE.aspx?CveIE={0}>{1}</a> <br/><br/> <a target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={2}"">Imprimir</a>", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente)))
                 Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)
             Else
-                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Imprimir</a>", CveIERegistrado)
+                Mensaje.AppendFormat("Abono Registrado Correctamente. <br/><br/> <a  class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir</a>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado)))
                 If CvePrePolizaIERegistrado > 0 Then
                     Mensaje.AppendFormat("</br> <br/>Póliza: <b> <a href='/Contabilidad/RegPoliza.aspx?IdPoliza={0}' class='Texto' target='_blank'>{1}</a><br/>", ObjMov.ContaIdPoliza, ObjMov.ContaFolio)
                 End If

Empresas/13/Formatos/OC.rdlc

@@ -3089,6 +3089,46 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Cuentas">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuentas Bancarias: </Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cuentas.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuentas</rd:DefaultName>
+        <Top>5.72992cm</Top>
+        <Left>0.20457cm</Left>
+        <Height>1.34594cm</Height>
+        <Width>15.48536cm</Width>
+        <ZIndex>43</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>5.19589in</Height>
     <Style />
@@ -3403,6 +3443,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cuentas">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="LogoEMD">

Empresas/83/Formatos/OC.rdlc

@@ -2986,6 +2986,46 @@
           <PaddingBottom>2pt</PaddingBottom>
         </Style>
       </Textbox>
+      <Textbox Name="Cuentas">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>Cuentas Bancarias: </Value>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                  <FontWeight>Bold</FontWeight>
+                </Style>
+              </TextRun>
+              <TextRun>
+                <Value>=Parameters!Cuentas.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>8pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Cuentas</rd:DefaultName>
+        <Top>5.38277cm</Top>
+        <Left>0.20457cm</Left>
+        <Height>1.34594cm</Height>
+        <Width>15.48536cm</Width>
+        <ZIndex>42</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
     </ReportItems>
     <Height>5.1933in</Height>
     <Style />
@@ -3027,7 +3067,7 @@
             </Paragraph>
           </Paragraphs>
           <rd:DefaultName>Textbox8</rd:DefaultName>
-          <Top>0.08114cm</Top>
+          <Top>0.08113cm</Top>
           <Left>0.20457cm</Left>
           <Height>0.46771cm</Height>
           <Width>6.86562cm</Width>
@@ -3396,6 +3436,12 @@
       <Nullable>true</Nullable>
       <Prompt>ReportParameter1</Prompt>
     </ReportParameter>
+    <ReportParameter Name="Cuentas">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
   </ReportParameters>
   <EmbeddedImages>
     <EmbeddedImage Name="LOGOPrisay3">

Empresas/Grales/Formatos/RepFacturas.rdlc

@@ -6,6 +6,41 @@
         <TablixCorner>
           <TablixCornerRows>
             <TablixCornerRow>
+              <TablixCornerCell>
+                <CellContents>
+                  <Textbox Name="Textbox3">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>Tipo</Value>
+                            <Style />
+                          </TextRun>
+                        </TextRuns>
+                        <Style>
+                          <TextAlign>Center</TextAlign>
+                        </Style>
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>Textbox3</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Color>DimGray</Color>
+                        <Style>Solid</Style>
+                      </Border>
+                      <RightBorder>
+                        <Style>None</Style>
+                      </RightBorder>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixCornerCell>
               <TablixCornerCell>
                 <CellContents>
                   <Textbox Name="Textbox28">
@@ -47,16 +82,16 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>3.5579cm</Width>
+              <Width>2.36727cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>7.63463cm</Width>
+              <Width>7.23964cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.64509cm</Width>
+              <Width>2.57894cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.86998cm</Width>
+              <Width>2.34081cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
@@ -172,7 +207,10 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Switch(Fields!FueValidado.Value = "1","Validado", Fields!FueValidado.Value = "2","Cancelada", Fields!FueValidado.Value = "3","Omitida")</Value>
+                              <Value>=Switch(Fields!FueValidado.Value = "1","Validado", 
+Fields!FueValidado.Value = "2","Cancelada", 
+Fields!FueValidado.Value = "3","Omitida",
+1=1,"No validado")</Value>
                               <Style>
                                 <FontSize>9pt</FontSize>
                                 <Format>#,0.00;(#,0.00)</Format>
@@ -360,16 +398,19 @@
                 </SortExpression>
               </SortExpressions>
               <TablixHeader>
-                <Size>2.33715cm</Size>
+                <Size>2.16269cm</Size>
                 <CellContents>
-                  <Textbox Name="SerieFolio">
+                  <Textbox Name="TipoComprobante">
                     <CanGrow>true</CanGrow>
                     <KeepTogether>true</KeepTogether>
                     <Paragraphs>
                       <Paragraph>
                         <TextRuns>
                           <TextRun>
-                            <Value>=Fields!SerieFolio.Value</Value>
+                            <Value>=Switch(Fields!TipoComprobante.Value="I","Ingreso",
+Fields!TipoComprobante.Value="E","Egreso",
+Fields!TipoComprobante.Value="P","Pago"
+)</Value>
                             <Style>
                               <FontSize>9pt</FontSize>
                             </Style>
@@ -378,7 +419,7 @@
                         <Style />
                       </Paragraph>
                     </Paragraphs>
-                    <rd:DefaultName>SerieFolio</rd:DefaultName>
+                    <rd:DefaultName>TipoComprobante</rd:DefaultName>
                     <Style>
                       <Border>
                         <Style>None</Style>
@@ -389,16 +430,51 @@
                       <PaddingBottom>2pt</PaddingBottom>
                     </Style>
                   </Textbox>
-                  <rd:Selected>true</rd:Selected>
                 </CellContents>
               </TablixHeader>
+              <TablixMembers>
+                <TablixMember>
+                  <TablixHeader>
+                    <Size>2.33715cm</Size>
+                    <CellContents>
+                      <Textbox Name="SerieFolio">
+                        <CanGrow>true</CanGrow>
+                        <KeepTogether>true</KeepTogether>
+                        <Paragraphs>
+                          <Paragraph>
+                            <TextRuns>
+                              <TextRun>
+                                <Value>=Fields!SerieFolio.Value</Value>
+                                <Style>
+                                  <FontSize>9pt</FontSize>
+                                </Style>
+                              </TextRun>
+                            </TextRuns>
+                            <Style />
+                          </Paragraph>
+                        </Paragraphs>
+                        <rd:DefaultName>SerieFolio</rd:DefaultName>
+                        <Style>
+                          <Border>
+                            <Style>None</Style>
+                          </Border>
+                          <PaddingLeft>2pt</PaddingLeft>
+                          <PaddingRight>2pt</PaddingRight>
+                          <PaddingTop>2pt</PaddingTop>
+                          <PaddingBottom>2pt</PaddingBottom>
+                        </Style>
+                      </Textbox>
+                    </CellContents>
+                  </TablixHeader>
+                </TablixMember>
+              </TablixMembers>
             </TablixMember>
           </TablixMembers>
         </TablixRowHierarchy>
         <DataSetName>DataSet1</DataSetName>
         <Left>0.06614cm</Left>
         <Height>1.2cm</Height>
-        <Width>19.04475cm</Width>
+        <Width>19.0265cm</Width>
         <Style>
           <Border>
             <Style>None</Style>
@@ -805,6 +881,10 @@
         <CommandText>/* Local Query */</CommandText>
       </Query>
       <Fields>
+        <Field Name="TipoComprobante">
+          <DataField>TipoComprobante</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="SerieFolio">
           <DataField>SerieFolio</DataField>
           <rd:TypeName>System.String</rd:TypeName>

Inventarios/AjustesSeccionAlmacen.aspx

@@ -54,7 +54,7 @@
     <br />
     <asp:UpdatePanel runat="server" ID="UppD" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,CveSeccionAlmacen,FechaCaducidad,Lote" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvD" DataKeyNames="CvePS,CveUM,CveAlmacen,PU,Existencia,Serie,SeccionAlmacen,CveSeccionAlmacen,FechaCaducidad,Lote,Codigo,PS" runat="server" AutoGenerateColumns="False" EmptyDataText="No hay movimientos pendientes" CssClass="table table-hover Widthall" GridLines="None">
                 <Columns>
                     <asp:BoundField HeaderText="Producto" DataField="CodigoPS" />
                     <asp:BoundField HeaderText="Serie" DataField="Serie" ItemStyle-Width="5%" />

Inventarios/AjustesSeccionAlmacen.aspx.vb

@@ -1,6 +1,7 @@
 
 Imports System.Data
 Imports Extensiones
+Imports GemBox.Spreadsheet
 
 Partial Class Inventarios_AjustesSeccionAlmacen
     Inherits ClsPaginas
@@ -145,21 +146,69 @@ Partial Class Inventarios_AjustesSeccionAlmacen
     End Sub
 
     Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles LbDescargarExcel.Click, BtnDescargar.Click
-        Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx"
+        If GvD.Rows.Count > 0 Then
-        Dim Archivo As New IO.FileInfo(Directorio)
+            DescargarExcel()
-        If Archivo.Exists Then
+        Else
-            Response.Clear()
+            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & "Empresas\Grales\Formatos\FormatoAjusteSecCad.xlsx"
-            Response.ClearHeaders()
+            Dim Archivo As New IO.FileInfo(Directorio)
-            Response.ClearContent()
+            If Archivo.Exists Then
-            Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
+                Response.Clear()
-            Response.AddHeader("Content-Length", Archivo.Length.ToString())
+                Response.ClearHeaders()
-            Response.ContentType = "text/plain"
+                Response.ClearContent()
-            Response.Flush()
+                Response.AddHeader("Content-Disposition", "attachment; filename=" + Archivo.Name)
-            Response.TransmitFile(Archivo.FullName)
+                Response.AddHeader("Content-Length", Archivo.Length.ToString())
-            Response.End()
+                Response.ContentType = "text/plain"
+                Response.Flush()
+                Response.TransmitFile(Archivo.FullName)
+                Response.End()
+            End If
         End If
     End Sub
 
+    Private Sub DescargarExcel()
+        Dim DtExcel As DataTable = (From row As GridViewRow In GvD.Rows
+                                    Where row.RowType = DataControlRowType.DataRow
+                                    Select New With
+                                    {
+                                        .Cantidad = row.DataKey("Existencia"),
+                                        .Codigo = row.DataKey("Codigo"),
+                                        .PS = row.DataKey("PS"),
+                                        .SeccionAlmacen = row.DataKey("SeccionAlmacen"),
+                                        .Serie = row.DataKey("Serie"),
+                                        .Lote = row.DataKey("Lote"),
+                                        .FechaCaducidad = row.DataKey("FechaCaducidad")
+                                    }).QueryToDataTable(True)
+        If DtExcel.Rows.Count < 1 Then
+            Alert("No hay resutados en la busqueda.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        DtExcel.TableName = "Ajustes"
+        DtExcel.Columns("Codigo").ColumnName = "Código"
+        DtExcel.Columns("PS").ColumnName = "Producto/Servicio"
+        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
+
+        Dim FileExcel As New ExcelFile()
+
+        Dim worksheet = FileExcel.Worksheets.Add(DtExcel.TableName)
+        worksheet.InsertDataTable(DtExcel, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+        worksheet.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
+        worksheet.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
+
+        Dim columnCount = worksheet.CalculateMaxUsedColumns()
+        For i = 0 To columnCount
+            worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
+        Next
+
+        FileExcel.Save(Response, "FormatoAjusteSecCad.xlsx", SaveOptions.XlsxDefault)
+
+    End Sub
+
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
@@ -257,7 +306,12 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                                 Dim CveUM As Integer = DrPS("CveUM").ToString().ToEntero()
 
                                 Dim SeccionAlmacen As String = RowExcel("SeccionAlmacen").ToString.Trim
-                                Dim CveSeccionAlmacen As Integer = dtSecciones.FiltroPrimeroValor("CveSeccion", $"SeccionAlmacen='{SeccionAlmacen}'")
+                                Dim CveSeccionAlmacen As Integer = -1
+
+                                Dim DrSeccion As DataRow = dtSecciones.FiltroPrimero($"SeccionAlmacen='{SeccionAlmacen}'")
+                                If DrSeccion IsNot Nothing Then
+                                    CveSeccionAlmacen = DrSeccion("CveSeccion").ToString().ToEntero()
+                                End If
 
                                 Dim Serie As String = RowExcel("Serie").ToString()
                                 Dim Lote As String = RowExcel("Lote").ToString()

Inventarios/EntradasSalidas.aspx

@@ -1325,7 +1325,7 @@
                             <ajax:ValidatorCalloutExtender ID="VCOCantidad1" runat="server" HighlightCssClass="vco" TargetControlID="RFVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
                             <asp:CustomValidator ID="CVCantidad" runat="server" ClientValidationFunction="ValidaDecimal6digits" ControlToValidate="TxtCantidad" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Cantidad''</b> no tiene el formato correcto (6 decimales). Por favor rectifique y vuelva a intentar." ValidateEmptyText="True" ValidationGroup="GprAgregaPS"></asp:CustomValidator>
                             <ajax:ValidatorCalloutExtender ID="VCECantidad" runat="server" HighlightCssClass="vco" TargetControlID="CVCantidad" Width="300px"></ajax:ValidatorCalloutExtender>
-                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cant</label>
+                            <label for="<%= txtCantidad.ClientID.ToString()%>">Cantidad</label>
                             <br />
                         </div>
                         <div runat="server" id="divClasificacionProducto" class="form-group form-md-line-input input-iconright">
@@ -1342,6 +1342,7 @@
                             <label for="<%= DdlUnidad.ClientID.ToString()%>">U.M.</label>
                             <br />
                         </div>
+
                         <div runat="server" id="divPrecio" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="txtPrecio" CssClass="form-control input-sm" runat="server" Width="50%" Visible="false"></asp:TextBox>
                             <label for="<%= txtPrecio.ClientID.ToString()%>">P.U.</label>
@@ -1350,7 +1351,7 @@
                         <div runat="server" id="divSerie" class="form-group form-md-line-input input-iconright" visible="false">
                             <asp:TextBox ID="TxtnSerie" CssClass="form-control input-sm" runat="server" Width="80px" Visible="false"></asp:TextBox>
                             <asp:Button Text="" ID="BtnSerieAddNew" OnClick="BtnSerieAddNew_Click" Style="display: none" runat="server" />
-                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie Lote</label>
+                            <label for="<%= TxtnSerie.ClientID.ToString()%>">Serie</label>
                             <br />
                         </div>
                         <div runat="server" id="divLote" class="form-group form-md-line-input input-iconright" visible="false">

Inventarios/EntradasSalidas.aspx.vb

@@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas
                     'TrLote2.Visible = True
 
                 End If
+                If CBool(dr("AplicaSeccion")) Then
+                    divSeccionAlmacen.Visible = True
+
+                End If
             End If
 
         End If
@@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
         LkAgregarDetalle.Text = "Actualizar"
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
         CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
@@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas
         TxtnSerie.Text = GvRow.DataKey("Serie")
         TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones")
         DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen"))
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         LkAgregarDetalle.Text = "Actualizar"
         UpAgregar.Update()
         RegistraScript("$('#ModalAgregar').modal()")
@@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas
         Else
             VisualizaPUExtranjero(False)
         End If
-
+        Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero
+        divPrecio.Visible = Origen = 1
+        txtPrecio.Visible = Origen = 1
         UpAgregar.Update()
     End Sub
 

Inventarios/EntregasPorRealizar.aspx

@@ -18,9 +18,7 @@
      Entregas por Realizar
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
-    <li>
+
-        <asp:LinkButton ID="LnkImprimir" runat="server" OnClick="LnkImprimir_Click"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
 
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">

Inventarios/RecepcionAlmacen.aspx.vb

@@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 CveImportacionSurtir = pCveImportacion
                 CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero
                 CveImportacionCompra = DdlFactura.SelectedValue.ToEntero
-                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString
+                LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString
                 HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString
                 If UsuarioActual.TienePermisoProceso(201) Then
                     HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}"
@@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen
         End If
         Dim CvePrePoliza As Integer = 0
         Dim UsaComplementariaCostoIndirecto As Boolean = False
+        Dim ConceptoPrePoliza As String = LbProveedor.Text
         If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False
         Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo
 
         'SE REGISTRAN LAS PREPOLIZAS
         If Not ErrorMovInv Then
-            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+            CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
             Dim DtTempCompras As DataTable = Nothing
             PorcentajeCompraImportacion = 1
             If CveFleteSurtir > 0 Then

Inventarios/RepMovimientosSalida.aspx

@@ -63,21 +63,68 @@
                                 <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>
                                 <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
+                             <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                             <div runat="server" id="DivSubProyecto" class="col-md-2">
+                           
+                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList> 
                         </div>
+                            <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
+                             <div runat="server" id="Div1" class="col-md-1">                           
+                             <asp:DropDownList ID="DdlGrupo" runat="server"  Class="table-group-action-input form-control input-inline input-small input-sm select2me">
+                                <asp:ListItem Selected="True" Text="Detalle" Value="1"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente" Value="2"></asp:ListItem>
+                                 <asp:ListItem   Text="Cliente sin desglosar mostrador" Value="3"></asp:ListItem>
+                                 <asp:ListItem   Text="Centro Costo" Value="4"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones" Value="5"></asp:ListItem>
+                                  <asp:ListItem   Text="Centro Costo-Clasificaciones" Value="6"></asp:ListItem>
+                                  <asp:ListItem   Text="Clasificaciones-Centro Costo" Value="7"></asp:ListItem>
+                            </asp:DropDownList> 
+                        </div>
+                       
+                        </div>
+                       
                     </div>
                 </div>
-                <div class="portlet-body">
+                <div class="portlet-body" style="display: none">
+                      
+                          <div class="row">
+                               <label class="col-md-1 ">Cliente:</label>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;">
+                            </ADS:Dropdownlost>
+                        </div>
+                                <label class="col-md-1 truncate">Clasificación:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion" AutoPostBack="true" Class="table-group-action-input form-control input-inline input-small input-sm select2me" runat="server" AppendDataBoundItems="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Style="width: 100%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        </div> 
                 </div>
             </div> 
+             <div class="row">
+             <div class="col-md-12" style="vertical-align: middle;" align="left">
+                            <div style="z-index: 5; position: relative;">
+                                <div id="DivVirtualAdvertencia"  clientidmode="Static" runat="server" class="alert alert-warning" style="padding: 5px; margin-bottom: 5px; padding-right: 25px;">
+                                    <button type="button" class="close" data-dismiss="alert" style="margin-top: 5px;" aria-hidden="true"></button>
+                                    <strong style="font-size: 20px; margin-right: 25px;">Información: </strong>
+                                    <asp:Literal Text="Los importes de venta, hacen referencia a los productos que tienen costo" runat="server"></asp:Literal>
+                                </div>
+                            </div>
+                 </div></div>
         </ContentTemplate>
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
+           
+                        
             <div class="row" style="margin-right: 10px; margin-top: 18px;" align="right">
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <table class="table  Widthall ">
+            <table class="table  Widthall " id="TbDetalle" runat="server">
                 <tr>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 55%; border-right: 3px solid white;">Ventas</td>
                     <td class="dataTables_scrollHead text-center bold" style="font-size: 14px; width: 45%; border-right: 3px solid white;">Movimientos</td>
@@ -94,6 +141,13 @@
                     <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Importe" DataFormatString="{0:N2}" />
                 </Columns>
             </asp:GridView>
+             <asp:GridView ID="GvGrupo" runat="server" GridLines="None" ShowHeaderWhenEmpty="true" EmptyDataText="No se han encontrado datos con los filtros seleccionados" OnRowDataBound="GvGrupo_RowDataBound" CssClass="table table-hover table-striped ScrollAD mysmallbtn" Width="99%" data-sort="true" AutoGenerateColumns="False">
+                <Columns>
+                    <asp:BoundField DataField="Grupo" HeaderText="Grupo"   ItemStyle-Width="700px" />
+                    <asp:BoundField DataField="SubTotal" ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="Importe" ItemStyle-HorizontalAlign="Right" HeaderText="Costo" DataFormatString="{0:N2}" />
+                </Columns>
+            </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>

Inventarios/RepMovimientosSalida.aspx.cs

@@ -16,18 +16,50 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         if (!IsPostBack)
         {
             InicializaValores();
+        }
+    }
+
+    private void InicializaValores()
+    {
+        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+        txtFechaF.Text = DateTime.Now.ToShortDateString();
+        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa);
+        DdlSubProyecto.DataBind();
 
         //Cargo Clasificaciones
         DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa);
         DdlClasificacion.DataBind();
+
+        DdlClientes.setEsWebService(true);
+
+    }
+
     private void Consulta()
-        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
+    {
         int tCveCliente = -1;
-    }
+        int tCveGrupo = -1;
+        if (DdlClientes.SelectedValue.ToEntero() > 0) tCveCliente = DdlClientes.SelectedValue.ToEntero();
+        if (DdlGrupo.SelectedValue.ToEntero() > 0) tCveGrupo = DdlGrupo.SelectedValue.ToEntero();
+
         ClsInventarios ObjInv = new ClsInventarios();
         if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa))
         {
+            if (tCveGrupo == 1)
                 GvDatos.DataSource = ObjInv.DtResultados;
+            else
+                GvGrupo.DataSource = ObjInv.DtResultados;
+        }
+        ObjInv.Dispose();
+        GvDatos.DataBind();
+        GvGrupo.DataBind();
+        UpDatos.Update();
+
+        if (DdlGrupo.SelectedValue == "1")
+        {
+            TbDetalle.Visible = true;
+            GvDatos.Visible = true;
+            GvGrupo.Visible = false;
+        }
         else
         {
             TbDetalle.Visible = false;
@@ -48,6 +80,25 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         {
             if (e.Row.RowIndex == 0)
             {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+        }
+    }
+
+
+    protected void GvGrupo_RowDataBound(object sender, GridViewRowEventArgs e)
+    {
+        if (e.Row.RowType == DataControlRowType.DataRow)
+        {
+            if (e.Row.RowIndex == 0)
+            {
+                e.Row.Cells[0].Text = "Total";
+                e.Row.CssClass = "Totales";
+            }
+            else
+            {
+                if (e.Row.DBCampo("Grupo2") == "" && e.Row.DBCampo("Grupo1") != "")
                 {
                     e.Row.CssClass = "SubTotales";
                 }
@@ -55,6 +106,14 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas
         }
     }
 
-    public override void VerifyRenderingInServerForm(Control control)
+    public override void VerifyRenderingInServerForm(Control control)
+    {
+        //base.VerifyRenderingInServerForm(control);
+    }
+
+    protected void LnkExcel_Click(object sender, EventArgs e)
+    {
+        if (DdlGrupo.SelectedValue == "1")
+        {
             GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual);
         }

OC/PopUpBuscarReq.aspx.vb

@@ -253,7 +253,7 @@ Partial Class OC_PopUpBuscarReq
     End Sub
 
     Private Function ValidarFiltrosSeleccionado() As Boolean
-        If DdlTipo.SelectedValue.ToEntero > 0 Then Return True
+        If DdlTipo.SelectedValue = "REQ" OrElse DdlTipo.SelectedValue = "OC" Then Return True
         If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
         If DdlProveedor.SelectedValue.ToEntero > 0 Then Return True
         If TxtFolio.Text.ToEntero > 0 Then Return True

OC/RepSolicitudesAnticipo.aspx

@@ -16,6 +16,9 @@
     <li>
         <asp:LinkButton ID="LnkExcel" OnClick="LnkExcel_Click" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Exporta Excel</asp:LinkButton>
     </li>
+    <li>
+        <asp:LinkButton ID="LnkImpresionMasiva" OnClick="LnkImpresionMasiva_Click" runat="server"> <i class="fa fa-download" style="font-weight:bold;"></i>  Descargar PDFs</asp:LinkButton>
+    </li>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="HA" Runat="Server">
 </asp:Content>
@@ -34,7 +37,8 @@
 
                             <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Proveedor:</label>
                             <div class="col-md-2" runat="server">
-                                <asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
+                                <%--<asp:DropDownList ID="DdlProveedor" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>--%>
+                                <ADS:Dropdownlost runat="server" ID="DdlProveedores" CssStyle="width: 100%;" Width="100%" CssClassDdl="select2me " DataTextField="NombreCortoProveedor" DataValueField="CveProveedor" />
                             </div>
 
                             <label class="col-md-1 " runat="server" style="margin-top: 5px; font-size:12px;">Fecha Inicio:</label>
@@ -92,7 +96,7 @@
                     <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GvSolicitudes.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
                 </div>
             </div>
-            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre"
+            <asp:GridView ID="GvSolicitudes" runat="server" GridLines="None" DataKeyNames="CveOrdenCompra,Folio, RazonSocial, ImporteSol, FolioMov, Importe, Nombre"
                 CssClass="table table-striped table-advance table-hover Widthall mysmallbtn ScrollAD" data-sort="true" data-footer="0" BorderWidth="1" BorderColor="#D3D3D3" CellSpacing="0" Width="100%" AutoGenerateColumns="False"
                 EmptyDataText="No se encontraron registros">
                 <Columns>

OC/RepSolicitudesAnticipo.aspx.cs

@@ -9,7 +9,11 @@ using System.Web.UI.WebControls;
 using Extensiones;
 using Microsoft.Reporting.WebForms;
 using static Extensiones.ModExtensiones;
-
+using iTextSharp;
+using iTextSharp.text;
+using iTextSharp.text.pdf;
+using System.IO;
+using Ionic.Zip;
 public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 {
     #region "Propiedades"
@@ -66,6 +70,8 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 
     protected void InicializaDatos()
     {
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString();
+        txtFechaF.Text = DateTime.Now.ToShortDateString();
         CveProveedor = -1;
         CargaProveedor();
         CargaDatos();
@@ -73,17 +79,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
 
     protected void CargaProveedor()
     {
-        DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa);
+        DdlProveedores.setEsWebService(true);
-        DdlProveedor.DataBind();
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores");
-        DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlProveedores.SelectedText = "Seleccione";
-        DdlProveedor.SelectedValue = "-1";
+        DdlProveedores.SelectedValue = "-1";
     }
 
     protected void CargaDatos()
     {
         ClsOC ObjOC = new ClsOC();
 
-        CveProveedor = DdlProveedor.SelectedValue.ToEntero();
+        CveProveedor = DdlProveedores.SelectedValue.ToEntero();
         FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha);
         FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now);
 
@@ -124,6 +130,10 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
     {
         GenerarPDF("PDF");
     }
+    protected void LnkImpresionMasiva_Click(object sender,EventArgs e)
+    {
+        GenerarImpresionMasiva();
+    }
 
     protected void GenerarPDF(String Opcion)
     {
@@ -132,7 +142,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
         String FechaF;
         if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $"&emsp;<b>Fecha Final:</b> {txtFechaF.Text}"; }
         String Proveedor;
-        if (DdlProveedor.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; }
+        if (DdlProveedores.SelectedValue != "-1") { Proveedor = $"&emsp;<b>Proveedor:</b> {DdlProveedores.ddl.SelectedItem.Text}"; } else { Proveedor = ""; }
         String Estatus;
         if (DdlEstatus.SelectedValue != "1") { Estatus = $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; }
 
@@ -161,4 +171,38 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas
             Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia);
         }
     }
+
+    private void GenerarImpresionMasiva()
+    {
+        
+        byte[] all;
+
+        using (MemoryStream ms = new MemoryStream())
+        {
+            using (Document d = new Document())
+            {
+                using (PdfCopy copy = new PdfCopy(d,ms))
+                {
+                    d.Open();
+                    foreach (GridViewRow Gvr in GvSolicitudes.Rows)
+                    {
+                        int CveOC = Gvr.DataKey("CveOrdenCompra").ToEntero();
+                        byte[] reporteByte = NewGeneraBytesOC(CveOC);
+                        PdfReader reader = new PdfReader(reporteByte);
+                        int n = reader.NumberOfPages;
+                        int page = 0;
+                        while (page < n)
+                        {
+                            page++;
+                            copy.AddPage(copy.GetImportedPage(reader, page));
+                        }
+                    }
+                }
+
+            }
+            all = ms.ToArray();
+        }
+        ImprimirbytesPDF(all, "RepSolicitudesAnticipo");
+        
+    }
 }

RH/PopUpBuscarPersonal.aspx.vb

@@ -396,16 +396,19 @@ Partial Class RH_PopUpBuscarPersonal
         If TxtRFC.Text.Trim <> String.Empty Then Return True
         If TxtHorarioDe.Text.Trim <> String.Empty Then Return True
 
-        If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlTipoPeriodo.SelectedValue.ToEntero > 0 Then Return True
-        If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlTipoContrato.SelectedValue.ToEntero > 0 Then Return True
         If DdlDepartamentos.SelectedValue.ToEntero > 0 Then Return True
-        If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
-        If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
-        If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
         If DdlGenero.SelectedValue.ToEntero > 0 Then Return True
-        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstadoCivil.SelectedValue.ToEntero > 0 Then Return True
-        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEscolaridad.SelectedValue.ToEntero > 0 Then Return True
+        If DdlTurnos.SelectedValue.ToEntero > 0 Then Return True
         If DdlClienteAsignado.SelectedValue.ToEntero > 0 Then Return True
+        If DdlProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlPuestos.SelectedValue.ToEntero > 0 Then Return True
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
+        If DdlRuta.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstatus.SelectedValue.ToEntero > 0 Then Return True
 
         Return False
     End Function

Sistemas/CatSesiones.aspx

@@ -1,4 +1,5 @@
 <%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatSesiones.aspx.vb" Inherits="Sistemas_CatSesiones" %>
+
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
@@ -10,7 +11,7 @@
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
-   <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
+    <asp:DropDownList ID="DdlVariable" runat="server" AutoPostBack="True" Width="300px" CssClass="table-group-action-input form-control input-inline input-small input-sm select2me">
         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
         <asp:ListItem Text="Usuarios" Value="GlobalDTUsuarios"></asp:ListItem>
         <asp:ListItem Text="Empresas" Value="GlobalDTEmpresas"></asp:ListItem>
@@ -21,7 +22,7 @@
         <asp:ListItem Text="ProyectosUsuarios" Value="GlobalDTProyectosUsuarios"></asp:ListItem>
         <asp:ListItem Text="Sub Proyectos" Value="GlobalDTSubProyectos"></asp:ListItem>
         <asp:ListItem Text="Sub ProyectosUsuarios" Value="GlobalDTSubProyectosUsuarios"></asp:ListItem>
-       <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
+        <%-- <asp:ListItem Text="Sucursales" Value="GlobalDTSucursales"></asp:ListItem>--%>
         <asp:ListItem Text="Proveedores" Value="GlobalDTCompProveedores"></asp:ListItem>
         <asp:ListItem Text="Métodos de Pago" Value="GlobalDTMetodosPago"></asp:ListItem>
         <asp:ListItem Text="Paises" Value="GlobalDTGralPaises"></asp:ListItem>
@@ -40,28 +41,30 @@
         <asp:ListItem Text="Conta - Plantillas " Value="GlobalDTContaPlantillasPolizas"></asp:ListItem>
         <asp:ListItem Text="Usuarios Activos" Value="UsuariosActivos"></asp:ListItem>
         <asp:ListItem Text="ProductosServicios" Value="ProductosServicios"></asp:ListItem>
-       <asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem>
+        <asp:ListItem Text="ProductosServiciosSimplificado" Value="PSSimplificado"></asp:ListItem>
         <asp:ListItem Text="CONAC" Value="CONAC"></asp:ListItem>
         <asp:ListItem Text="Tipo Cambio" Value="TipoCambio"></asp:ListItem>
-       <asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem>      
+        <asp:ListItem Text="Combustible" Value="GlobalDTCombustibles"></asp:ListItem>
         <asp:ListItem Text="Inventarios - PS Equivalencias" Value="GlobalDTProductosServiciosEquivalencias"></asp:ListItem>
         <asp:ListItem Text="RH" Value="RH"></asp:ListItem>
-       <asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem>
+        <asp:ListItem Text="Ventas" Value="Ventas"></asp:ListItem>
         <asp:ListItem Text="Precios Lista " Value="GlobalDTPrecioListas"></asp:ListItem>
-       <asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem>
+        <asp:ListItem Text="Paqueterias" Value="GlobalDTPaqueterias"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTTiposGastos" Value="GlobalDTTiposGastos"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTVtaTiposRelacion" Value="GlobalDTVtaTiposRelacion"></asp:ListItem>
         <asp:ListItem Text="GlobalDTContratos" Value="GlobalDTContratos"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTSATMotivoTraslado" Value="GlobalDTSATMotivoTraslado"></asp:ListItem>
-       <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTConceptosContables" Value="GlobalDTConceptosContables"></asp:ListItem>
-	   <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTClasificacionPorcentaje" Value="GlobalDTClasificacionPorcentaje"></asp:ListItem>
+        <asp:ListItem Text="GlobalDTInvPSSeccionesAlmacen" Value="GlobalDTInvPSSeccionesAlmacen"></asp:ListItem>
 
     </asp:DropDownList>&nbsp;&nbsp; 
-       <asp:Button ID="BtnCargar" runat="server" Text="Cargar"  class="btn btn-primary"/>&nbsp;&nbsp;<asp:Button ID="BtnRefresh" runat="server" Text="Consultar" class="btn btn-primary" />
+      
+    <asp:Button ID="BtnCargar" runat="server" Text="Cargar" class="btn btn-primary" />&nbsp;&nbsp;<asp:Button ID="BtnRefresh" runat="server" Text="Consultar" class="btn btn-primary" />
     <br />
     <br />
     <asp:Label ID="LblTotal" runat="server" Text=""></asp:Label>
-    <asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" style="margin-top:-10px; text-align:center;" GridLines="None"></asp:GridView>
+    <asp:GridView ID="Gv" runat="server" Font-Size="6px" Font-Names="Verdana" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center;" GridLines="None"></asp:GridView>
 </asp:Content>
 <asp:Content ID="Content" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>

Sistemas/CatSesiones.aspx.vb

@@ -59,7 +59,7 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "ProductosServicios" Then
             CargaProductosServicios()
         ElseIf DdlVariable.SelectedItem.Value = "PSSimplificado" Then
-            CargaProductosServiciossimplificado()
+            CargaProductosServiciosSimplificado()
 
         ElseIf DdlVariable.SelectedItem.Value = "CONAC" Then
             CargaCONAC()
@@ -89,8 +89,10 @@ Partial Class Sistemas_CatSesiones
             CargaSATMotivoTraslado()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTConceptosContables" Then
             CargaConceptosContables()
-		 ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTClasificacionPorcentaje" Then
             CargaDTClasificacionPorcentaje()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTInvPSSeccionesAlmacen" Then
+            CargaDTInvPSSeccionesAlmacen()
         End If
 
 
@@ -364,7 +366,7 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaPaises()
         Dim Gral As New ClsGenerales
         If Gral.GetGralPaises Then Application("GlobalDTGralPaises") = Gral.DtResultados Else Application("GlobalDTGralPaises") = Nothing
-		If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        If Gral.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = Gral.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
 
         Gral.Dispose()
     End Sub
@@ -554,12 +556,16 @@ Partial Class Sistemas_CatSesiones
         LblTotal.Text = dominio
     End Sub
 
-	Private Sub CargaDTClasificacionPorcentaje()
+    Private Sub CargaDTClasificacionPorcentaje()
 
-		Dim ObjGenerales As New ClsGenerales
+        Dim ObjGenerales As New ClsGenerales
-         If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        If ObjGenerales.GetClasificacionPorcentaje(-1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
-		 ObjGenerales.Dispose()
+        ObjGenerales.Dispose()
 
-   End Sub
+    End Sub
+
+    Private Sub CargaDTInvPSSeccionesAlmacen()
+        GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, -1, -1) = Nothing
+    End Sub
 
 End Class

Ventas/PopUpBuscarClientes.aspx.vb

@@ -73,7 +73,7 @@ Partial Class PopUpBuscarClientes
 
             Dim ObjClientes As New ClsClientes()
             If ObjClientes.GetClientes(-1, Nombre, Codigo, NombreCorto, RFC, Telefono, Mail, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
-                                   DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente) Then
+                                   DdlEstatus.SelectedValue.ToEntero, TipoCliente:=TipoCliente, TopSelect:=100) Then
                 If ObjClientes.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjClientes.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjClientes.DtResultados

Ventas/PopUpBuscarFolio.aspx.vb

@@ -127,7 +127,7 @@ Partial Class PopUpBuscarFolio
             Dim ObjVentas As New ClsVentas()
             If ObjVentas.GetVentas(UsuarioActual.CveEmpresa, DdlTipoDocto.SelectedValue, Serie, Folio, Codigo, Cliente.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
                                DdlEstatusFactura.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, FechaI, FechaF, FolioFiscal, If(DdlSucursalCliente.Visible, DdlSucursalCliente.SelectedValue.ToEntero, -1),
-                               DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                               DdlPS.SelectedValue.ToEntero, PedidoContrato:=PeidoContrato, OrdenCompra:=OrdenCompra, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TopSelect:=100) Then
                 If ObjVentas.DtResultados.Rows.Count > 0 Then
                     LtlTotalRegistros.Text = ObjVentas.DtResultados.Rows.Count.ToString.FormatoNumero(0)
                     GV.DataSource = ObjVentas.DtResultados
@@ -280,6 +280,7 @@ Partial Class PopUpBuscarFolio
     End Sub
 
     Private Function ValidarUnFiltroSeleccionado() As Boolean
+        If DdlClasificacion.SelectedValue.ToEntero > 0 Then Return True
         If DdlTipoDocto.SelectedValue <> "-1" Then Return True
         If DdlSubProyecto.SelectedValue.ToEntero > 0 Then Return True
         If DdlEstatusFactura.SelectedValue.ToEntero > 0 Then Return True

Ventas/PopUpBuscarPs.aspx.vb

@@ -68,7 +68,7 @@ Partial Class PopUpBuscarPs
             Dim ObjPS As New ClsProductosServicios
             If ObjPS.GetPS(-1, Ddlclasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Codigo:=Codigo, CodigoBarras:=CodigoBarras, PS:=Nombre,
                            pEstado:=DdlEstado.SelectedValue.ToEntero, CveTipoPS:=DdlCveTipoPS.SelectedValue.ToEntero, pAplicaParaVenta:=DdlAplicaVenta.SelectedValue.ToEntero,
-                           CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero) Then
+                           CveCompuesto:=DdlCompuesto.SelectedValue.ToEntero, TopSelect:=100) Then
                 GvDatos.DataSource = ObjPS.DtResultados
                 dvbusqueda.Visible = True
             Else
@@ -103,7 +103,9 @@ Partial Class PopUpBuscarPs
         If TxtNombre.Text.Trim <> String.Empty Then Return True
 
         If DdlCveTipoPS.SelectedValue.ToEntero > 0 Then Return True
+        If DdlEstado.SelectedValue.ToEntero > 0 Then Return True
         If DdlAplicaVenta.SelectedValue.ToEntero > 0 Then Return True
+        If Ddlclasificacion.SelectedValue.ToEntero > 0 Then Return True
         If DdlCompuesto.SelectedValue.ToEntero > 0 Then Return True
 
         Return False

Ventas/RepIngresos.aspx.vb

@@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not IsPostBack Then
             TCEspecifico = -1
-            TipoCambio = 2
+            TipoCambio = 1
             CveSubProyecto = -1
             TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year)
             DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)

asmx/WSSIGApp.asmx

@@ -2049,7 +2049,7 @@ Public Class WSSIGApp
         Return TmpDT
     End Function
     Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer,
-               Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
+               Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0,
                Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0,
                Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0,
                Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow
@@ -2083,7 +2083,7 @@ Public Class WSSIGApp
         Row("Proyecto") = DrSubProyecto("Proyecto").ToString()
         Row("CveSubProyecto") = CveSubProyecto
         Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString()
-        Row("SerieLote") = SerieLote
+        Row("Serie") = Serie
         Row("TiempoEntrega") = TiempoEntrega
         Row("Orden") = TmpDT.Rows.Count + 1
         Row("Cantidad") = PS.Cantidad