Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsCompras.vb

@@ -1931,7 +1931,7 @@ Public Class ClsCompras
 
 #Region "   REFACTURACION   "
 
-    Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetRefacturacion(CveProveedor As Integer, SubTotal As Double, IVA As Double, Total As Double, Opcion As Integer, CveEmpresa As Integer, Optional Top As Integer = 100000) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_RefacturacionGet")
 
@@ -1942,6 +1942,7 @@ Public Class ClsCompras
             .Add("@Total", SqlDbType.Float).Value = Total
             .Add("@Opcion", SqlDbType.Int).Value = Opcion ' 1. Exácta, 2. Con diferencia
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Top", SqlDbType.Int).Value = Top
         End With
 
         Try

App_Code/ClsContabilidad.vb

@@ -1016,22 +1016,24 @@ Public Class ClsContabilidad
             If ex1.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50024; La Cuenta no fue detectada") Then
-                Dim Strr As String = ""
+                Dim dtt As DataTable = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable)
-                If HttpContext.Current.Application("GlobalDTContaConceptosContables") IsNot Nothing Then
+                Dim StrMsg As String = ""
-                    Dim dr As Data.DataRow = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimero(String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                If dtt IsNot Nothing Then
-                    Strr = dr("ConceptoContable").ToString
+                    Dim dr As Data.DataRow = dtt.FiltroPrimero("")
-                    'If dr("AplicaClasificacion").ToString <> "No" Then
+                    If dr IsNot Nothing Then
-                    '    Strr = Strr + " - Clasificación: " + DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("", "")
+                        StrMsg = dr("ConceptoContable").ToString
-                    'End If
+                        If dr("AplicaClasificacion").ToString = "True" Then
+                            StrMsg = StrMsg + " - Clasificación: " + ClsPaginas.GlobalDTClasificaciones(CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("Clasificacion", "")
+                        End If
+                    End If
                 End If
-
+                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", StrMsg), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-                OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", Strr), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                Dim Concepto2 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                    Dim Concepto2 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                Dim Concepto3 As String = DirectCast(HttpContext.Current.Application("GlobalDTContaConceptosContables"), DataTable).FiltroPrimeroValor("ConceptoContable", String.Format("CveConceptoContable = {0}", CveConceptoContable))
+                    Dim Concepto3 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50025;") Then
                 OnError("La empresa no tiene un formato de cuenta asignado.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50026;") Then
@@ -2048,13 +2050,14 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function GetPrePolizasDetalleResumen(CvePrePoliza As Integer, CveEmpresa As Integer) As Boolean  'Editado por charlie
+    Public Function GetPrePolizasDetalleResumen(CvePrePoliza As Integer, CveEmpresa As Integer, Optional Opcion As Integer = 1) As Boolean  'Editado por charlie
         Dim Retorno As Boolean = False
         DataAdapter("PA_Conta_PrePolizasDetalleResumenGet")
 
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
         End With
 
         Try

App_Code/ClsGenerales.vb

@@ -3910,7 +3910,7 @@ Public Class ClsGenerales
 
     Public Function AddInvEntregaAlmacenRuta(CveSubProyecto As Integer, CveDireccionOrigen As Integer, CveDireccionDestino As Integer, CveMovimientoAlmacen As Integer, CveChofer As Integer, CveCamion As Integer, FechaEntrega As Date, FechaLlegada As DateTime, Tipo As String,
                                              FolioReferencia As String, Referencia As String, FechaLimite As Date, Orden As Integer, Estatus As Integer, Distancia As Integer, Optional CveConfigAutoTransporte As Integer = -1,
-                                             Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1) As Integer
+                                             Optional CveCamionRemolque1 As Integer = -1, Optional CveCamionRemolque2 As Integer = -1, Optional CveCliente As Integer = -1) As Integer
         Dim Retorno As Integer = -1
         DataAdapter("PA_Inv_EntregaAlmacenRutaAdd")
 
@@ -3936,6 +3936,7 @@ Public Class ClsGenerales
             .Add("@CveCamionRemolque1", SqlDbType.Int).Value = CveCamionRemolque1
             .Add("@CveCamionRemolque2", SqlDbType.Int).Value = CveCamionRemolque2
             .Add("@CveConfigAutoTransporte", SqlDbType.Int).Value = CveConfigAutoTransporte
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
 
             .Add("@CveEntregaAlmacen", SqlDbType.Int).Direction = ParameterDirection.Output
         End With

App_Code/ClsMovimientos.vb

@@ -2,16 +2,17 @@
 Option Explicit On
 Option Strict On
 
+Imports System
 Imports System.Data
 Imports System.Data.SqlClient
 Imports Extensiones
 
 Public Class ClsMovimientos
-    Implements IDisposable
+    Implements IDisposable
-
+
 #Region "Campos"
-
+
-    'SQL
+    'SQL
     Private SqlConexion As SqlConnection
     Private SqlAdapter As SqlDataAdapter
     Private SqlTransacc As SqlTransaction
@@ -20,12 +21,12 @@ Public Class ClsMovimientos
     Private DS As DataSet
 
     'Atributos de la clase
-    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
+    Private disposedValue As Boolean = False        ' Para detectar llamadas redundantes
-    'REGISTRAR CONEXIONES ABIERTAS
+    'REGISTRAR CONEXIONES ABIERTAS
-    Private CveConexion As Integer = 0
+    Private CveConexion As Integer = 0
-
+
+
 #End Region
-
 #Region "Propiedades"
     Public ReadOnly Property DtResultados() As DataTable
         Get
@@ -36,12 +37,13 @@ Public Class ClsMovimientos
     Public ReadOnly Property DSResultados() As DataSet
         Get
             DSResultados = DS
-        End Get
+        End Get
     End Property
 
-    Public Property AlertaMensaje As New StringBuilder
+    Public Property AlertaMensaje As New StringBuilder
+
 #End Region
-
+
     Sub New()
         SqlConexion = New SqlConnection
         SqlConexion.ConnectionString = ConfigurationManager.ConnectionStrings("Conexion").ConnectionString
@@ -62,9 +64,10 @@ Public Class ClsMovimientos
         End With
         If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc
         Data = New DataTable
-    End Sub
+    End Sub
+
 #Region "Conexiones"
-
+
     Private Sub ConexionAdd()
         If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then
             Try
@@ -97,9 +100,9 @@ Public Class ClsMovimientos
             CveConexion = 0
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
     Public Sub IniciaTransacSQL()
         SqlTransacc = SqlConexion.BeginTransaction()
     End Sub
@@ -485,13 +488,13 @@ Public Class ClsMovimientos
             Retorno = True
         Catch ex As SqlException
             OnError("Ocurrió un error al descargar los segmentos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
+        End Try
         Return Retorno
-    End Function
+    End Function
-
+
-
+
+
 #End Region
-
 #Region "Anticipos de Clientes"
     Public Function GetAnticiposCliente(CveCliente As Integer, Optional SelectTop As Integer = -1, Optional CveMoneda As Integer = 1) As Boolean
         Dim Retorno As Boolean = False
@@ -569,12 +572,14 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
+
+
+
 #End Region
-
 #Region "CxP"
-
+
     Public Function GetCxPEmpresa(CveProveedor As Integer, FechaVencimientoInicio As String, FechaVencimientoFin As String, CveSubProyecto As Integer, DiasVencidos As Integer, CveUsuarioRegistro As Integer,
                                   CveUsuarioProgramo As Integer, CveUsuarioResponsable As Integer, CveClasificacion As Integer, CveMoneda As Integer, CveTipoPagoProgramo As Integer, CveEstatusFactura As Integer,
                                   CveAplicaNC As Integer, CveEmpresa As Integer, Optional FechaVI As String = "-1", Optional FechaVF As String = "-1", Optional CodigoProgramacion As String = "-1", Optional CveTipoProveedor As Integer = 0,
@@ -1201,6 +1206,29 @@ Public Class ClsMovimientos
         Return Retorno
     End Function
 
+    Public Function GetDocumentosxPagarDetalle(CveCliente As Integer, CveMoneda As Integer, Opcion As Integer, CveEmpresa As Integer) As Boolean
+
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Banc_DocumentosxPagarSaldosDetalle")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
+            .Add("@Opcion", SqlDbType.Int).Value = Opcion
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de documentos por pagar.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
     Public Function GetCajaChicaDetalle(CveCajaChica As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
@@ -1462,9 +1490,9 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
 #End Region
-
+
 #Region "Anticipos de Proveedores"
     Public Function GetAnticiposProveedor(CveProveedor As Integer, CveProveedorSucursal As Integer, Optional CveMoneda As Integer = -1, Optional SelectTop As Integer = -1, Optional FechaI As String = "-1", Optional FechaF As String = "-1", Optional TipoDocto As String = "-1") As Boolean
         Dim Retorno As Boolean = False
@@ -1486,33 +1514,32 @@ Public Class ClsMovimientos
             Retorno = True
         Catch ex As SqlException
             OnError("Ocurrió un error al consultar los Anticipos del proveedor.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
+        End Try
-
+        Return Retorno
-        Return Retorno
+    End Function
-    End Function
+
-
+
-    'Public Function GetAnticiposClienteAuxiliar(CveCliente As Integer, CveVenta As Integer) As Boolean
+    'Public Function GetAnticiposClienteAuxiliar(CveCliente As Integer, CveVenta As Integer) As Boolean
-    '    Dim Retorno As Boolean = False
+    '    Dim Retorno As Boolean = False
-    '    'Data = New DataTable
+    '    'Data = New DataTable
-    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteAnticiposAuxiliar", SqlConexion)
+    '    'SqlAdapter = New SqlDataAdapter("PA_ClienteAnticiposAuxiliar", SqlConexion)
-    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
+    '    'SqlAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
-    '    DataAdapter("PA_ClienteAnticiposAuxiliar")
+    '    DataAdapter("PA_ClienteAnticiposAuxiliar")
-    '    With SqlAdapter.SelectCommand.Parameters
+    '    With SqlAdapter.SelectCommand.Parameters
-    '        .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+    '        .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
-    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
+    '        .Add("@CveVenta", SqlDbType.Int).Value = CveVenta
-    '    End With
+    '    End With
-    '    Try
+    '    Try
-    '        SqlAdapter.Fill(Data)
+    '        SqlAdapter.Fill(Data)
-    '        Retorno = True
+    '        Retorno = True
-    '    Catch ex As SqlException
+    '    Catch ex As SqlException
-    '        OnError("Ocurrió un error al consultar el Auxiliar Contable de Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '        OnError("Ocurrió un error al consultar el Auxiliar Contable de Anticipos del Cliente.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-    '    End Try
+    '    End Try
-
+
-    '    Return Retorno
+    '    Return Retorno
-    'End Function
+    'End Function
-
+
 #End Region
-
 #Region "REP RECUPERACION"
     Public Function GetRepRecuperacion(FechaI As Date, FechaF As Date, CveCliente As Integer, CveSubProyecto As Integer,
                                        CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, IVA As String,
@@ -1658,9 +1685,9 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
 #End Region
-
 #Region "REP COBRADO"
     Public Function GetRepCobrado(FechaI As Date, FechaF As Date, CveProveedor As Integer, CveSubProyecto As Integer,
                            CveUsuario As Integer, IVA As String, CveEmpresa As Integer, Gpo As Integer, CveResponsable As Integer,
@@ -1730,11 +1757,13 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
+
+
 #End Region
-
 #Region "EDITAR FECHA DE MOVIMIENTO"
-
+
     Public Function UpdateMovimientoFecha(Fecha As DateTime, CveMovimiento As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Mov_MovimientoFechaUpdate")
@@ -1749,12 +1778,16 @@ Public Class ClsMovimientos
             OnError("Ocurrió un error al actualizar la fecha del movimiento.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
         End Try
         Return Retorno
-    End Function
+    End Function
+
+
+
+
+
 #End Region
-
 #Region "Registros Contables"
-
+
-
+
     Public Function AddMovimiento(CveConcepto As Integer, Tipo As String, Referencia1 As String, Referencia2 As String, CveMoneda As Integer, Cargo As Double, Abono As Double,
                                   Fecha As Date, FechaVencimiento As Date, Folio As String, IdCtaContable As Integer, CveUsuario As Integer, CveEmprea As Integer) As Boolean
         Dim Retorno As Boolean = False
@@ -1828,14 +1861,14 @@ Public Class ClsMovimientos
         End Try
 
         Return Retorno
-    End Function
+    End Function
-
+
+
 #End Region
-
 #Region "IDisposable Support"
-
+
-
+
-    ' IDisposable
+    ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)
         If Not Me.disposedValue Then
             If disposing Then
@@ -1868,9 +1901,10 @@ Public Class ClsMovimientos
         ConexionClose()
         Dispose(True)
         GC.SuppressFinalize(Me)
-    End Sub
+    End Sub
+
 #End Region
-
+
     Public Function GetPersonalCajaChica(CveEmpresa As Integer, CveCompra As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_PersonalCajaChica")

App_Code/ClsPaginas.vb

@@ -872,14 +872,13 @@ Public Class ClsPaginas
 #End Region
 
 
-
+    Public Shared Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
-    Property GlobalDTClasificaciones(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1, Optional UsoClasificacion As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
             'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjClasificaciones As New ClsClasificaciones
-                If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then Application(AppNombre) = ObjClasificaciones.DtResultados
+                If ObjClasificaciones.GetClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjClasificaciones.DtResultados
                 ObjClasificaciones.Dispose()
             End If
             If CveEmpresa <> -1 Then
@@ -888,25 +887,20 @@ Public Class ClsPaginas
                 If CveCategoria <> -1 Then Str.AppendFormat(" AND CveCategoria = {0}", CveCategoria)
                 If UsoClasificacion <> -1 Then Str.AppendFormat(" AND UsoClasificacion IN ({0},3) ", UsoClasificacion)
                 If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
                 GlobalDTClasificaciones = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTClasificaciones = DirectCast(Application(AppNombre), DataTable)
+                GlobalDTClasificaciones = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
             End If
 
-
-
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTClasificaciones-{0}", CveEmpresa)
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 
-
-
-
     Property GlobalDTRHActividades(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTRHActividades-{0}", CveEmpresa)
@@ -1475,7 +1469,6 @@ Public Class ClsPaginas
                 Dim ObjSubProyectos As New ClsSubProyectos()
                 If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) Else Alert("Ocurrió un error al cargar los Proyectos. Por favor comuniquese con sistemas.", TipoMensaje.MsgError)
                 ObjSubProyectos.Dispose()
-                GuardaLog("Se Cargo GlobalDTProyectosUsuarios")
             End If
 
             If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
@@ -3543,28 +3536,26 @@ Public Class ClsPaginas
 
 
 
-    Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
+    Public Shared Property GlobalDTContaConceptosContables(CveConceptoContable As Integer) As DataTable
         Get
             Dim AppNombre As String = String.Format("GlobalDTContaConceptosContables")
             'sino existe, recarga los datos
-            If Application(AppNombre) Is Nothing Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Using ObjContabilidad As New ClsContabilidad
-                    If ObjContabilidad.GetConta_ConceptosContables() Then Application(AppNombre) = ObjContabilidad.DtResultados Else Application(AppNombre) = Nothing
+                    If ObjContabilidad.GetConta_ConceptosContables() Then HttpContext.Current.Application(AppNombre) = ObjContabilidad.DtResultados Else HttpContext.Current.Application(AppNombre) = Nothing
                 End Using
-
             End If
             If CveConceptoContable <> -1 Then
-                Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
+                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), String.Format("CveConceptoContable = {0}", CveConceptoContable), "", DataViewRowState.CurrentRows)
                 GlobalDTContaConceptosContables = Dv.ToTable
                 Dv.Dispose()
             Else
-                GlobalDTContaConceptosContables = DirectCast(Application(AppNombre), DataTable)
+                GlobalDTContaConceptosContables = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
             End If
-
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = String.Format("GlobalDTContaConceptosContables")
-            Application(AppNombre) = value
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
 #End Region
@@ -6150,7 +6141,12 @@ Public Class ClsPaginas
         rds.Value = DtDatos
         lrds.Add(rds)
 
-        ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="PDF"), NombreArchivo, Formato, Content_Disposition:=Content_Disposition)
+        Dim Extension = "pdf"
+        If Formato.ToLower() = "excel" Then
+            Extension = "xlsx"
+        End If
+
+        ImprimirbytesPDF(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:=Formato), NombreArchivo, Formato, Content_Disposition:=Content_Disposition, Extension:=Extension)
     End Sub
     Public Sub ImprimirPDFMultiDS(RutaReporte As String, lrds As List(Of ReportDataSource), Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional RDSName As String = "DataSet1", Optional MR As ReportViewer = Nothing)
         ImprimirPDF(RutaReporte, lrds, Parametros, NombreArchivo, Formato, MR)
@@ -6614,10 +6610,9 @@ Public Class ClsPaginas
     ''' <param name="NombreArchivo"></param>
     ''' <param name="Formato"></param>
     ''' <remarks></remarks>
-    Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment")
+    Public Sub ImprimirbytesPDF(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment", Optional Extension As String = "")
         'limpio ReportViwer   
         Dim mimeType As String = Nothing
-        Dim extension As String = Nothing
 
         'If Descarga Then
         '    Try
@@ -6642,7 +6637,15 @@ Public Class ClsPaginas
                 Response.ContentType = mimeType
             End If
             Response.ClearHeaders()
-            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xls")))
+
+            Dim fileExtension As String = ""
+            If Not String.IsNullOrEmpty(extension) Then
+                fileExtension = extension
+            Else
+                fileExtension = If(Formato = "PDF", "pdf", "xls")
+            End If
+
+            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, fileExtension))
             Response.BinaryWrite(bytes) ' create the file
             Response.Flush() ' send it to the client to download
             bytes = Nothing

App_Code/modExtensiones.vb

@@ -145,6 +145,26 @@ Namespace Extensiones
             End If
         End Function
 
+        Public Function Truncate(value As String, length As Integer) As String
+            ' If argument is too big, return the original string.
+            ' ... Otherwise take a substring from the string's start index.
+            If length > value.Length Then
+                Return value
+            Else
+                Return value.Substring(0, length)
+            End If
+        End Function
+
+        Public Function ValidFileName(name As String, Optional maxChars As Integer = -1) As String
+            For Each c As Char In System.IO.Path.GetInvalidFileNameChars()
+                name = name.Replace(c.ToString(), "_")
+            Next
+            If maxChars > 0 AndAlso maxChars < 256 Then
+                Return Truncate(name, maxChars)
+            End If
+            Return Truncate(name, 255)
+        End Function
+
         Public Class RespuestaCancelacionSAT
             Public Property Verificado As Boolean = False
             Public Property CveEstatus As Integer = 0
@@ -2516,7 +2536,7 @@ Namespace Extensiones
             Dim sw As New StringWriter()
             Dim htw As New HtmlTextWriter(sw)
             Gv.RenderControl(htw)
-            GemBox.Spreadsheet.SpreadsheetInfo.SetLicense("ESWN-4QFD-26JF-1SZ8")
+            GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet)
 
             Dim excel As GemBox.Spreadsheet.ExcelFile
             Dim options = GemBox.Spreadsheet.LoadOptions.HtmlDefault
@@ -2527,9 +2547,11 @@ Namespace Extensiones
                     Dim TotalRowFooter As Integer = 2
 
                     Dim worksheet = excel.Worksheets(0)
+                    worksheet.Name = ValidFileName(NombreArchivoXLSx, 31)
                     worksheet.Rows.InsertEmpty(0, TotalRowHeader)
                     Dim celdasConTexto = worksheet.GetUsedCellRange(True)
                     celdasConTexto.Style.Font.Name = "Calibri Light"
+                    celdasConTexto.Style.Borders = Nothing
 
                     Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
                     RangoNombreEmpresa.Merged = True
@@ -2539,7 +2561,6 @@ Namespace Extensiones
                     RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
                     RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
 
-
                     Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
                     RangoFiltros.Merged = True
                     RangoFiltros.Value = Filtros
@@ -2548,27 +2569,28 @@ Namespace Extensiones
                     RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
                     RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
 
-
                     Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
                     RangoTitulo.Merged = True
                     RangoTitulo.Value = Titulo
                     RangoTitulo.Style.Font.Size = 20 * 20
                     RangoTitulo.Style.Font.Name = "Calibri Light"
                     RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                    RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                    RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                    Dim RangoColTitulos = worksheet.Cells.GetSubrangeAbsolute(8, celdasConTexto.FirstColumnIndex, 8, celdasConTexto.LastColumnIndex)
+                    RangoColTitulos.Style.Font.Size = 12 * 20
+                    RangoColTitulos.Style.Font.Name = "Calibri"
+                    RangoColTitulos.Style.Font.Weight = GemBox.Spreadsheet.ExcelFont.BoldWeight
+                    RangoColTitulos.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                    RangoColTitulos.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                    RangoColTitulos.Style.FillPattern.SetSolid(GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190))
+                    RangoColTitulos.Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
 
                     For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-                        worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
+                        Try
-                        worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                            worksheet.Columns(i).AutoFit(0.95)
-                        worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                        Catch ex As Exception
-                        worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                        End Try
-                        worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-                        If i > 0 Then
-                            Try
-                                worksheet.Columns(i).AutoFit(1)
-                            Catch ex As Exception
-                            End Try
-                        End If
                     Next
 
                     Dim IndexEndTable As Integer = Gv.Rows.Count + TotalRowHeader + TotalRowFooter
@@ -2579,10 +2601,10 @@ Namespace Extensiones
                     worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
                     worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
 
-                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", Usuario.Empresa.Ruta))
+                    Dim Imagen As New System.IO.FileInfo($"{Usuario.Empresa.Ruta}/Logo.png")
 
                     If Imagen.Exists Then
-                        Dim Ruta As String = String.Format("{0}/Logo.png", Usuario.Empresa.Ruta)
+                        Dim Ruta As String = $"{Usuario.Empresa.Ruta}/Logo.png"
                         Using sr As New StreamReader(Ruta)
                             Dim ms As New MemoryStream()
                             sr.BaseStream.CopyTo(ms)
@@ -2597,6 +2619,96 @@ Namespace Extensiones
             excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
 
         End Sub
+
+        <Runtime.CompilerServices.Extension()>
+        Public Sub ExportToExcelG(Dt As DataTable, NombreArchivoXLSx As String, Optional Titulo As String = "Reporte", Optional Usuario As Usuario = Nothing, Optional Filtros As String = "", Optional AlturaImagen As Double = 100, Optional AnchoImagen As Double = 100)
+            GemBox.Spreadsheet.SpreadsheetInfo.SetLicense(SerialGemBoxSpreadsheet)
+            If Dt.TableName Is Nothing Then Dt.TableName = NombreArchivoXLSx
+
+            Dim excel As New GemBox.Spreadsheet.ExcelFile
+            Dim item = excel.Worksheets.Add(ValidFileName(Dt.TableName, 31))
+
+            item.InsertDataTable(Dt, New InsertDataTableOptions() With
+            {
+                .ColumnHeaders = True,
+                .StartRow = 0,
+                .StartColumn = 0
+            })
+
+            If Usuario IsNot Nothing Then
+                Dim TotalRowHeader As Integer = 8
+                Dim TotalRowFooter As Integer = 2
+
+                Dim worksheet = excel.Worksheets(0)
+                'worksheet.Name = ValidFileName(NombreArchivoXLSx, 31)
+                worksheet.Rows.InsertEmpty(0, TotalRowHeader)
+                Dim celdasConTexto = worksheet.GetUsedCellRange(True)
+                celdasConTexto.Style.Font.Name = "Calibri Light"
+                celdasConTexto.Style.Borders = Nothing
+
+                Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
+                RangoNombreEmpresa.Merged = True
+                RangoNombreEmpresa.Value = Usuario.Empresa.Empresa
+                RangoNombreEmpresa.Style.Font.Size = 18 * 20
+                RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
+                RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
+                RangoFiltros.Merged = True
+                RangoFiltros.Value = Filtros
+                RangoFiltros.Style.Font.Size = 15 * 20
+                RangoFiltros.Style.Font.Name = "Calibri Light"
+                RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
+                RangoTitulo.Merged = True
+                RangoTitulo.Value = Titulo
+                RangoTitulo.Style.Font.Size = 20 * 20
+                RangoTitulo.Style.Font.Name = "Calibri Light"
+                RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+
+                Dim RangoColTitulos = worksheet.Cells.GetSubrangeAbsolute(8, celdasConTexto.FirstColumnIndex, 8, celdasConTexto.LastColumnIndex)
+                RangoColTitulos.Style.Font.Size = 12 * 20
+                RangoColTitulos.Style.Font.Name = "Calibri"
+                RangoColTitulos.Style.Font.Weight = GemBox.Spreadsheet.ExcelFont.BoldWeight
+                RangoColTitulos.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
+                RangoColTitulos.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                RangoColTitulos.Style.FillPattern.SetSolid(GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190))
+                RangoColTitulos.Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+
+                For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
+                    Try
+                        worksheet.Columns(i).AutoFit(0.95)
+                    Catch ex As Exception
+                    End Try
+                Next
+
+                Dim IndexEndTable As Integer = Dt.Rows.Count + TotalRowHeader + TotalRowFooter
+
+                worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió"
+                worksheet.Rows(IndexEndTable + 1).Cells(2).Value = Usuario.Nombre
+
+                worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
+                worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
+
+                Dim Imagen As New System.IO.FileInfo($"{Usuario.Empresa.Ruta}/Logo.png")
+
+                If Imagen.Exists Then
+                    Dim Ruta As String = $"{Usuario.Empresa.Ruta}/Logo.png"
+                    Using sr As New StreamReader(Ruta)
+                        Dim ms As New MemoryStream()
+                        sr.BaseStream.CopyTo(ms)
+                        worksheet.Pictures.Add(ms, ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, LengthUnit.Pixel)
+                    End Using
+                End If
+            End If
+
+            excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")
+
+        End Sub
 
         Private Sub RecursivoLimpiaControlesExcel(Controls As ControlCollection)
             For Each c As Control In Controls

Bancos/IE.aspx

@@ -1059,7 +1059,7 @@
     <div class="row">
 
         <div class="col-md-12 ">
-            <div class="portlet light bordered">
+            <div class="portlet light bordered xspadding">
                 <div class="portlet-title">
                     <div class="caption font-green">
                         <%--<i class="fa fa-users font-green"></i>--%>
@@ -1071,8 +1071,10 @@
                                 <i class="fa fa-commenting font-green"></i>
                                 <span class="caption-subject bold">Agregar</span>
                             </div>--%>
-                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+
-                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i>Agendar" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
+
+                            <asp:HyperLink ID="ImgAddObs" CssClass="caption-subject bold" data-toggle="modal" data-target="#ModalBitacora" runat="server" Text=" <i class='fa fa-commenting font-green' ></i><span class='caption-subject bold font-green'>Agregar</span>" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Observaciones"></asp:HyperLink><br />
+                            <asp:HyperLink ID="HlEvento" CssClass="thickbox caption-subject bold" runat="server" Text=" <i class='fa fa-calendar-plus-o font-green'  ></i><span class='caption-subject bold font-green'>Agendar</span>" Visible="false" Style="font-weight: 700 !important; cursor: pointer;" ToolTip="Agendar"></asp:HyperLink>
 
                         </div>
                     </div>

Bancos/RepCxCCliente.aspx.vb

@@ -69,13 +69,15 @@ Partial Class Bancos_RepCxCCliente
         Mov.Dispose()
         GvCxC.DataBind()
 
-        'If (GvCxC.Rows.Count > 0) Then
+        If (GvCxC.Rows.Count > 0) Then
-        GvCxC.UseAccessibleHeader = True
+            GvCxC.UseAccessibleHeader = True
-        GvCxC.HeaderRow.TableSection = TableRowSection.TableHeader
+            If GvCxC.HeaderRow IsNot Nothing Then
-        RegistraScript("OrdenarGV();")
+                GvCxC.HeaderRow.TableSection = TableRowSection.TableHeader
-        UPDatos.Update()
+            End If
+            RegistraScript("OrdenarGV();")
 
-        'End If
+        End If
+        UPDatos.Update()
     End Sub
     Protected Sub GvCxC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvCxC.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then

Compras/CatProveedores.aspx.vb

@@ -280,114 +280,21 @@ Partial Class Compras_CatProveedores
     Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)
 
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-
         Dim DtDatos As DataTable = Nothing
+        'Dim GvDatosSC As New GridView With { .AutoGenerateColumns = True }
 
         Dim ObjComp As New ClsCompProveedores
         If ObjComp.GetProveedoresSinCuentas(UsuarioActual.CveEmpresa) Then
-            DtDatos = ObjComp.DtResultados.Copy()
+            DtDatos = ObjComp.DtResultados
+            'GvDatosSC.DataBind()
         End If
         ObjComp.Dispose()
 
         If DtDatos IsNot Nothing Then
             DtDatos.TableName = "Proveedores"
-            GenerarReporteProveedoresSinCuentaExcel("Proveedores sin Cuentas Bancarias", DtDatos)
+            DtDatos.ExportToExcelG("Proveedores Sin Cuentas", "Proveedores sin Cuentas Bancarias", UsuarioActual)
         End If
 
     End Sub
-    Private Sub GenerarReporteProveedoresSinCuentaExcel(Titulo As String, DtDatos As DataTable)
-        Dim Retorno As New MemoryStream()
-        SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
-
-        Dim excel As ExcelFile = New ExcelFile
-
-        Dim item = excel.Worksheets.Add(DtDatos.TableName)
-        item.InsertDataTable(DtDatos, New InsertDataTableOptions() With
-            {
-                .ColumnHeaders = True,
-                .StartRow = 0,
-                .StartColumn = 0
-            })
-        item.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
-        item.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
-
-        Dim columnCount = item.CalculateMaxUsedColumns()
-        For i = 0 To columnCount
-            item.Columns(i).AutoFit(1, item.Rows(i), item.Rows(item.Rows.Count - 1))
-        Next
-
-        Dim TotalRowHeader As Integer = 8
-        Dim TotalRowFooter As Integer = 2
-
-        Dim worksheet = excel.Worksheets(0)
-        worksheet.Rows.InsertEmpty(0, TotalRowHeader)
-        Dim celdasConTexto = worksheet.GetUsedCellRange(True)
-        celdasConTexto.Style.Font.Name = "Calibri Light"
-
-        Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
-        RangoNombreEmpresa.Merged = True
-        RangoNombreEmpresa.Value = UsuarioActual.Empresa.Empresa
-        RangoNombreEmpresa.Style.Font.Size = 18 * 20
-        RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
-        RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-        RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-        'Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
-        'RangoFiltros.Merged = True
-        'RangoFiltros.Value = Filtros
-        'RangoFiltros.Style.Font.Size = 15 * 20
-        'RangoFiltros.Style.Font.Name = "Calibri Light"
-        'RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
-        'RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-
-        Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
-        RangoTitulo.Merged = True
-        RangoTitulo.Value = Titulo
-        RangoTitulo.Style.Font.Size = 20 * 20
-        RangoTitulo.Style.Font.Name = "Calibri Light"
-        RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-        RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-
-        For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-            worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
-            worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-            worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
-            worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-            worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
-            If i > 0 Then
-                Try
-                    worksheet.Columns(i).AutoFit(1)
-                Catch ex As Exception
-                End Try
-            End If
-        Next
-
-        Dim IndexEndTable As Integer = DtDatos.Rows.Count + TotalRowHeader + TotalRowFooter
-
-        worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió"
-        worksheet.Rows(IndexEndTable + 1).Cells(2).Value = UsuarioActual.Nombre
-
-        worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
-        worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
-
-        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-
-        If Imagen.Exists Then
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
-            Using webClient As New Net.WebClient()
-                Dim imageBytes = webClient.DownloadData(logouri)
-                Dim stream As New MemoryStream(imageBytes)
-                worksheet.Pictures.Add(stream, ExcelPictureFormat.Png, "A1", 100, 100, LengthUnit.Pixel)
-                'worksheet.Pictures.Add(stream, GemBox.Spreadsheet.ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, GemBox.Document.LengthUnit.Pixel)
-            End Using
-        End If
-
-
-        excel.Save(Response, "Proveedores Sin Cuentas.xlsx", SaveOptions.XlsxDefault)
-
-    End Sub
 
 End Class

Compras/Compras.aspx.vb

@@ -1199,6 +1199,22 @@ Partial Class Compras_Compras
         End Set
     End Property
 
+    Private Property TipoCompraOriginal As Integer
+        Get
+
+            If ViewState("TipoCompraOriginal") Is Nothing Then
+                ViewState("TipoCompraOriginal") = -1
+            End If
+
+            Return ViewState("TipoCompraOriginal").ToString.ToEntero
+
+        End Get
+        Set(value As Integer)
+            ViewState("TipoCompraOriginal") = value
+        End Set
+    End Property
+
+
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
@@ -2616,6 +2632,7 @@ Partial Class Compras_Compras
                 CvePrePoliza = dr("CvePrePoliza").ToString.ToEntero
                 EstatusAlmacen = dr("EstatusAlmacen").ToString.ToEntero
                 DdlTipoCompra.SelectedValueExist(dr("CveTipoCompra"))
+                TipoCompraOriginal = dr("CveTipoCompra").ToString.ToEntero
                 CveTipoConcepto = dr("CveTipoConcepto").ToString.ToEntero
 
                 ChkEsNoDeducible.Checked = Boolean.Parse(dr("NoDeducible").ToString)
@@ -6391,6 +6408,7 @@ Partial Class Compras_Compras
                                                                     'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
                                                                     'SI LA COMPRA ES DE TIPO GASTO CON ALMACEN DEBE REGISTRAR MOVIMIENTO
                                                                     Dim AlmacenSoloExistencia As Boolean = False
+
                                                                     If DdlTipoCompra.SelectedValue <> "10" Then
                                                                         For Each Dr As DataRow In DT.Rows
                                                                             If DtAlmacenes.FiltroPrimeroValor("Modalidad", $"CveAlmacen =  {Dr("CveAlmacen").ToString.ToEntero}").ToString = "Solo Existencia" Then
@@ -6400,6 +6418,7 @@ Partial Class Compras_Compras
                                                                             Dr.AcceptChanges()
                                                                         Next
                                                                     End If
+
                                                                     DT.AcceptChanges()
                                                                     DT = DT.FiltraParametros("ISNULL(CveAlmacen,0) > 0")
                                                                     If DT.Rows.Count > 0 AndAlso Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") Then
@@ -6462,6 +6481,7 @@ Partial Class Compras_Compras
                                                                                 ' si agrego en almacen, ya no se ocupa algun concepto puente
                                                                                 AgregaMercanciaInventario = False
                                                                             End If
+
                                                                         Next
                                                                     End If
                                                                 End If
@@ -9433,6 +9453,8 @@ Partial Class Compras_Compras
                 Msg.Append("La Compra se actualizó correctamente")
 
                 Alert(Msg.ToString())
+                TipoCompraOriginal = DdlTipoCompra.SelectedValue.ToEntero
+
             Else
                 ObjCompra.RollBack()
                 If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
@@ -9468,7 +9490,8 @@ Partial Class Compras_Compras
                     (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or
                     (row1("AFMedida").ToString.ToEntero <> row2("AFMedida").ToString.ToEntero) Or
                     (row1("TipoAF").ToString.ToEntero <> row2("TipoAF").ToString.ToEntero) Or
-                    (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then
+                    (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero Or
+                    DdlTipoCompra.SelectedValue.ToEntero <> TipoCompraOriginal) Then
                         Return False
                     End If
                 End If
@@ -9582,6 +9605,7 @@ Partial Class Compras_Compras
                                 'Removemos los conceptos de la prepoliza
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 6, CveCompra, 1) Then ErrorPrepoliza = True   'GASTO 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 68, CveCompra, 1) Then ErrorPrepoliza = True 'ALMACEN
+                                If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 95, CveCompra, 1) Then ErrorPrepoliza = True 'GASTO CON ALMACEN RELLENO
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 49, CveCompra, 1) Then ErrorPrepoliza = True 'AF 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 205, CveCompra, 1) Then ErrorPrepoliza = True  'PS YA RECIBIDO 
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 230, CveCompra, 1) Then ErrorPrepoliza = True  'PS YA RECIBIDO 
@@ -9590,6 +9614,15 @@ Partial Class Compras_Compras
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 228, CveCompra, 1) Then ErrorPrepoliza = True  'PS NO RECIBIDO
                                 If Not ObjConta.RemovePrePolizasDetalle(CvePrePoliza, 229, CveCompra, 1) Then ErrorPrepoliza = True  'PS NO RECIBIDO
 
+
+                                'SI ES GASTO CON ALMACEN REGISTRA EL CONCEPTO 95
+                                If DdlTipoCompra.SelectedValue = "10" Then
+                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovimiento, importeMN, Referencia, 95, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CvePersonal:=CvePersonal, CveMovimientoAlmacen:=CveMovimientoInventario, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimiento), TipoCambio:=tipoCambioActual, Contabilizable:=False) Then
+                                        ErrorPrepoliza = True
+                                    End If
+                                End If
+
+
                                 'OBTIENE METODO DE CONTABILIZACIÓN AL GUARDAR
                                 Dim ConceptoContabilizacionAlmacen = 0
                                 If ObjCompra.GetCompras(CveCompra, "-1", "-1", -1, -1, UsuarioActual.CveEmpresa) AndAlso ObjCompra.DtResultados.Rows.Count > 0 Then
@@ -9622,7 +9655,7 @@ Partial Class Compras_Compras
 
                                 'COSTO ALMACEN
                                 Dim DtAlmacenes = GlobalDTAlmacen(UsuarioActual.CveEmpresa)
-                                If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen = 0 Then
+                                If UsuarioActual.Empresa.UsaInventarios AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen = 0 Or DdlTipoCompra.SelectedValue.ToEntero = 10 Then
                                     DT = TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) > 0", "", {"CveAlmacen"})
                                     'RECORREMOS PARA DETECTAR LA MODALIDAD DEL ALMACEN, EN CASO DE SER SOLO EXISTENCIA LIMPIAMOS CVEALMACEN
 
@@ -9659,8 +9692,11 @@ Partial Class Compras_Compras
                                 importeMovimiento = 0
                                 IdCtaContable = 0
 
+
+
+
                                 'INV [MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA) ]
-                                If UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
+                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 AndAlso UsuarioActual.Empresa.UsaInventarios And Not DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV", "Ant") And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen.Contiene(176, 205) Then
                                     importeMovimiento = TmpDT.SUM("Total", $"ISNULL(TipoAF,0) <> 2 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveTipoPS = 2").ToString.ToDecimal
                                     importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
@@ -9713,18 +9749,29 @@ Partial Class Compras_Compras
                                 DT.AcceptChanges()
                                 DtAlmacenes.Dispose()
 
-                                'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
+
-                                If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then
+                                If DdlTipoCompra.SelectedValue.ToEntero <> 10 Then
-                                    DT = DT.FiltraParametros("CveTipoPS <> 2")
+                                    'QUITA 1-[MERCANCIA RECIBIDA POR ADELANTADO (OC) | MERCANCIA PENDIENTE POR RECIBIR (COMPRA)] 2-[NC CON PRODUCTOS]
+                                    If UsuarioActual.Empresa.UsaInventarios And Not UsuarioActual.Empresa.Funcionalidad(126) = "1" And ConceptoContabilizacionAlmacen > 0 Then
+                                        DT = DT.FiltraParametros("CveTipoPS <> 2")
+                                    End If
                                 End If
 
+
                                 Dim DTDistinct = DT.Copy
-                                If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+
-                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto", "CveAlmacen"})
                                 Else
-                                    DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+
+                                    If UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
+                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    Else
+                                        DTDistinct = DTDistinct.FiltraParametros("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1", "", {"CveClasificacion", "Clasificacion", "SubProyecto", "CveSubProyecto", "CveTipoGasto", "TipoGasto"})
+                                    End If
                                 End If
 
+
                                 If DTDistinct.Rows.Count > 0 Then
                                     For Each Row2 As DataRow In DTDistinct.Rows
 
@@ -9734,6 +9781,12 @@ Partial Class Compras_Compras
                                         Else
                                             importeMovimiento = DT.SUM("Total", String.Format("ISNULL(TipoAF,0) <> 2 AND ISNULL(CveAlmacen,0) = 0 AND ISNULL(AplicaCostoIndirecto,0) <> 1 AND CveClasificacion = {0} AND CveSubProyecto = {1} AND ISNULL(CveTipoGasto,0) = {2}", Row2("CveClasificacion").ToString.ToEntero, Row2("CveSubProyecto").ToString.ToEntero, Row2("CveTipoGasto").ToString.ToEntero)).ToString.ToDecimal
                                         End If
+
+                                        If DdlTipoCompra.SelectedValue.ToEntero = 10 Then
+                                            importeMovimiento = DT.SUM(If(ListaDocumentos IsNot Nothing AndAlso ListaDocumentos.Count > 0 AndAlso ArrAnticipos IsNot Nothing AndAlso ArrAnticipos.Count > 0 AndAlso TxtTotal.Text.ToDecimal = 0, "ImporteSinImpuestos", "Total"), $"CveAlmacen > 0 ").ToString.ToDecimal + TmpDT.SUM("CostoIndirectoAlmacen", $"CveAlmacen > 0").ToString.ToDecimal
+                                        End If
+
+
                                         importeMN = importeMovimiento * tipoCambioActual * Multiplicador
 
                                         'CLASIFICACION

Compras/Proveedores.aspx.vb

@@ -3834,6 +3834,8 @@ Partial Class Compras_Proveedores
 
     Private Sub ImprimirReporteCxPCrystal(Optional Formato As String = "PDF")
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepProveedorCxP.rpt", UsuarioActual.Empresa.Ruta))
+        Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepProveedorCxP.rpt")
+
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
 
         Dim DTCxPTempral As DataTable = Nothing
@@ -3881,7 +3883,7 @@ Partial Class Compras_Proveedores
                 If Archivo.Exists Then
                     ImprimirbytesPDF(ImprimirSubRepPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepProveedorCxP.rpt", DTCxPTempral, lista, DTCxPTempral, dtnc, "Ing", "Ant", "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 Else
-                    ImprimirbytesPDF(ImprimirSubRepPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepProveedorCxP.rpt"), DTCxPTempral, lista, DTCxPTempral, dtnc, "Ing", "Ant", "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    ImprimirbytesPDF(ImprimirSubRepPDFCrystal(RutaReporteGrales.FullName, DTCxPTempral, lista, DTCxPTempral, dtnc, "Ing", "Ant", "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 End If
             End If
 

Compras/RepComprasDetalle.aspx

@@ -310,6 +310,17 @@
                             <asp:HyperLink ID="HplSerieFolio" runat="server" Text='<%# Eval("SerieFolio") %>' CssClass="Texto" NavigateUrl='<%# Eval("CveCompra", "/Compras/Compras.aspx?CveCompra={0}") %>'></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+
+                    <asp:TemplateField ItemStyle-Width="100" Visible="False">
+                        <HeaderTemplate>
+                            Folio Fiscal
+                       
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlFolioFiscal" runat="server" Text='<%# Eval("FolioFiscal") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                     <asp:TemplateField ItemStyle-Width="20">
                         <HeaderTemplate>
                             Cant.
@@ -477,30 +488,32 @@
                                     <td>
                                         <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" /></td>
                                     <td>
-                                        <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones"/></td>
+                                        <asp:CheckBox ID="ChkObs" runat="server" Text="Observaciones" /></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkDesc" runat="server" Text="Descuentos" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" /></td>
-                                    <td><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción"/></td>
+                                    <td>
+                                        <asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" /></td>
                                 </tr>
                                 <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkAbre" runat="server" Text="Moneda" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkRazon" runat="server" Text="Proveedor" /></td>
-                                    <td></td>
+                                    <td>
+                                        <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Fiscal" /></td>
                                 </tr>
                                 <tr>
                                     <td>
-                                        <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio Inv" /></td>
+                                        <asp:CheckBox ID="ChkFolioInv" runat="server" Text="Folio Inv" /></td>
                                     <td>
                                         <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha Movimiento" /></td>
                                     <td></td>
                                 </tr>
-                                 <tr>
+                                <tr>
                                     <td>
                                         <asp:CheckBox ID="ChkRetIVA" runat="server" Text="Ret IVA" Checked="true" /></td>
                                     <td>

Compras/RepComprasDetalle.aspx.vb

@@ -165,8 +165,7 @@ Partial Class Compras_RepComprasDetalle
         ChkDesc.Checked = True
         ChkTotal.Checked = True
         ChkAbre.Checked = True
-        ChkRazon.Checked = True
+        ChkRazon.Checked = True
-        ChkFolio.Checked = True
         ChkFecha.Checked = True
         ChkObs.Checked = True
 
@@ -596,18 +595,19 @@ Partial Class Compras_RepComprasDetalle
 #End Region
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-        GvDatos.Columns(4).Visible = ChkIVA.Checked
+        GvDatos.Columns(2).Visible = ChkFolio.Checked
-        GvDatos.Columns(5).Visible = ChkIEPS.Checked
+        GvDatos.Columns(5).Visible = ChkIVA.Checked
-        GvDatos.Columns(6).Visible = ChkDesc.Checked
+        GvDatos.Columns(6).Visible = ChkIEPS.Checked
-        GvDatos.Columns(7).Visible = Chkretiva.Checked
+        GvDatos.Columns(7).Visible = ChkDesc.Checked
-        GvDatos.Columns(8).Visible = Chkretisr.Checked
+        GvDatos.Columns(8).Visible = ChkRetIVA.Checked
-        GvDatos.Columns(9).Visible = ChkTotal.Checked
+        GvDatos.Columns(9).Visible = ChkRetISR.Checked
-        GvDatos.Columns(10).Visible = ChkAbre.Checked
+        GvDatos.Columns(10).Visible = ChkTotal.Checked
-        GvDatos.Columns(11).Visible = ChkRazon.Checked
+        GvDatos.Columns(11).Visible = ChkAbre.Checked
-        GvDatos.Columns(12).Visible = ChkFolio.Checked
+        GvDatos.Columns(12).Visible = ChkRazon.Checked
-        GvDatos.Columns(13).Visible = ChkFecha.Checked
+        GvDatos.Columns(13).Visible = ChkFolioInv.Checked
-        GvDatos.Columns(14).Visible = ChkObs.Checked
+        GvDatos.Columns(14).Visible = ChkFecha.Checked
-        GvDatos.Columns(15).Visible = ChkDescripcion.Checked
+        GvDatos.Columns(15).Visible = ChkObs.Checked
+        GvDatos.Columns(16).Visible = ChkDescripcion.Checked
         UPDatos.Update()
     End Sub
 

Compras/RepProductosServiciosDetalle.aspx - copia.vb

@@ -1,437 +0,0 @@
-Option Explicit On
-Option Strict On
-
-Imports Microsoft.Reporting.WebForms
-Imports Extensiones
-Imports System.Data
-Partial Class Compras_RepProductosServiciosDetalle
-    Inherits ClsPaginas
-
-#Region "PROPIEDADES"
-    Private Property DtDatos As DataTable
-        Get
-            Return CType(ViewState("DtDatos"), DataTable)
-        End Get
-        Set(value As DataTable)
-            ViewState("DtDatos") = value
-        End Set
-    End Property
-    Private Property CveMoneda As Integer
-        Get
-            Return ViewState("CveMoneda").ToString.ToEntero
-        End Get
-        Set(value As Integer)
-            ViewState("CveMoneda") = value
-        End Set
-    End Property
-#End Region
-
-    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
-            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
-            CargaCombos()
-            CargaTipoCentroCosto()
-            Dim Grupo, Proyecto, SubProyecto, Categoria, Clasificacion, PS, Proveedor, Estatus, Usuario, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, TipoGasto As String
-            Dim Anio, Mes, AnioMes, Fecha, FechaI, FechaF As String
-
-            Grupo = If(Request("GPO") IsNot Nothing AndAlso Request("GPO").ToEntero() > 0, Request("GPO").ToEntero(), -1).ToString
-            Proyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString
-            SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() > 0, Request("CveSubProyecto").ToEntero(), -1).ToString
-            SubProyecto = If(Request("CveSubProyecto") IsNot Nothing AndAlso Request("CveSubProyecto").ToEntero() = -2, "-2", SubProyecto)
-            Categoria = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria").ToEntero() > 0, Request("CveCategoria").ToEntero(), -1).ToString
-            Clasificacion = If(Request("CveClasificacion") IsNot Nothing AndAlso Request("CveClasificacion").ToEntero() > 0, Request("CveClasificacion").ToEntero(), -1).ToString
-            PS = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS").ToEntero() > 0, Request("CvePS").ToEntero(), -1).ToString
-            Proveedor = If(Request("CveProveedor") IsNot Nothing AndAlso Request("CveProveedor").ToEntero() > 0, Request("CveProveedor").ToEntero(), -1).ToString
-            Estatus = If(Request("CveEstatusFactura") IsNot Nothing AndAlso Request("CveEstatusFactura").ToEntero() > 0, Request("CveEstatusFactura").ToEntero(), -1).ToString
-            Usuario = If(Request("CveUsuario") IsNot Nothing AndAlso Request("CveUsuario").ToEntero() > 0, Request("CveUsuario").ToEntero(), -1).ToString
-            Familia = If(Request("CveFamilia") IsNot Nothing AndAlso Request("CveFamilia").ToEntero() > -3, Request("CveFamilia").ToEntero(), -1).ToString
-            SubFamilia = If(Request("CveSubFamilia") IsNot Nothing AndAlso Request("CveSubFamilia").ToEntero() > -3, Request("CveSubFamilia").ToEntero(), -1).ToString
-            TipoActivoFijo = If(Request("CveTipoAF") IsNot Nothing AndAlso Request("CveTipoAF").ToEntero() > 0, Request("CveTipoAF").ToEntero(), -1).ToString
-            SubTipoActivoFijo = If(Request("CveSubTipoAF") IsNot Nothing AndAlso Request("CveSubTipoAF").ToEntero() > 0, Request("CveSubTipoAF").ToEntero(), -1).ToString
-            ActivoFijo = If(Request("CveAF") IsNot Nothing AndAlso Request("CveAF").ToEntero() > 0, Request("CveAF").ToEntero(), -1).ToString
-            CveMoneda = If(Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero() > 0, Request("CveMoneda").ToEntero(), -1).ToString.ToEntero
-            TipoGasto = If(Request("CveTipoGasto") IsNot Nothing AndAlso Request("CveTipoGasto").ToEntero > 0, Request("CveTipoGasto").ToEntero(), -1).ToString
-            Anio = If(Request("Anio") IsNot Nothing, Request("Anio").ToString, "-1").ToString
-            Mes = If(Request("Mes") IsNot Nothing, Request("Mes").ToString, "-1").ToString
-            AnioMes = If(Request("AnioMes") IsNot Nothing, Request("AnioMes").ToString, "-1").ToString
-            Fecha = If(Request("Fecha") IsNot Nothing, Request("Fecha").ToString, "-1").ToString
-            FechaI = If(Request("FechaI") IsNot Nothing, Request("FechaI").ToString, "-1").ToString
-            FechaF = If(Request("FechaF") IsNot Nothing, Request("FechaF").ToString, "-1").ToString
-
-            txtFechaI.Text = If(Anio <> "-1", String.Format("01/01/{0}", Anio), txtFechaI.Text)
-            txtFechaI.Text = If(Mes <> "-1", String.Format("01/{0}/0001", Mes), txtFechaI.Text)
-            txtFechaI.Text = If(AnioMes <> "-1", String.Format("01/{0}/{1}", AnioMes.Substring(5, 1).PadLeft(2, "0"c), AnioMes.Substring(0, 4)), txtFechaI.Text)
-
-            If Fecha <> "-1" Then
-                txtFechaI.Text = Fecha
-                txtFechaF.Text = Fecha
-            Else
-                If FechaI <> "-1" Then
-                    txtFechaI.Text = FechaI
-                End If
-                If FechaF <> "-1" Then
-                    txtFechaF.Text = FechaF
-                End If
-            End If
-
-            DdlCategoria.SelectedValue = Categoria
-
-            If Clasificacion.ToEntero > 0 Then
-                CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
-                DdlClasificacion.SelectedValueExist(Clasificacion)
-            End If
-
-            DdlPS.SelectedValue = PS
-            DdlProyecto.SelectedValue = Proyecto
-                DdlSubProyecto.SelectedValue = SubProyecto
-                DdlFamilia.SelectedValue = Familia
-                DdlSubFamilia.SelectedValue = SubFamilia
-                DdlProveedor.SelectedValue = Proveedor
-                DdlEstatus.SelectedValue = Estatus
-                DdlUsuario.SelectedValue = Usuario
-                DdlTipoAF.SelectedValue = TipoActivoFijo
-                DdlTipoGasto.SelectedValueExist(TipoGasto)
-                DdlSubTipoAF.SelectedValue = SubTipoActivoFijo
-                DdlAF.SelectedValue = ActivoFijo
-
-                CargaDatos(Proyecto.ToEntero, SubProyecto.ToEntero, Categoria.ToEntero, Clasificacion.ToEntero, PS.ToEntero, Proveedor.ToEntero, Usuario.ToEntero, Estatus.ToEntero, Grupo.ToEntero, Familia.ToEntero, SubFamilia.ToEntero, TipoActivoFijo.ToEntero, SubTipoActivoFijo.ToEntero, ActivoFijo.ToEntero, TipoGasto.ToEntero)
-            End If
-    End Sub
-
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            TdProyecto.Visible = False
-            TdProyecto2.Visible = False
-            LtSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            TdProyecto.Visible = False
-            TdProyecto2.Visible = False
-            LtSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            TdProyecto.InnerText = "Sucursal:"
-            LtSubProyecto.Text = "Proyecto:"
-
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            TdProyecto.InnerText = "Proyecto:"
-            LtSubProyecto.Text = "Sucursal:"
-
-        End If
-    End Sub
-    Private Sub CargaCombos()
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-        DdlProyecto.DataBind()
-
-        'Cargo Categorias
-        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
-        DdlCategoria.DataBind()
-
-        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
-        DdlTipoGasto.DataBind()
-
-        'CargaProveedor
-        DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-        DdlProveedor.DataBind()
-
-        'CargaUsuarios
-        DdlUsuario.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlUsuario.DataBind()
-
-        'CargaEstatus
-        DdlEstatus.DataSource = GlobalDTCompEstatusFactura
-        DdlEstatus.DataBind()
-
-
-        'CARGA COSTOS
-        If UsuarioActual.CveEmpresa = 66 Then
-
-            'COSTOS PROYECTO
-            RowCostos.Visible = True
-
-            'Carga Familias
-            DdlFamilia.DataSource = GlobalDTFamilias(66)
-            DdlFamilia.DataBind()
-
-            'Carga SubFamilias
-            DdlSubFamilia.DataSource = GlobalDTSubFamilias(66)
-            DdlSubFamilia.DataBind()
-
-            'COSTOS AF
-            RowActivoFijo.Visible = True
-
-            'Carga Tipos AF
-            DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(66)
-            DdlTipoAF.DataBind()
-
-            'Carga SubTipos AF
-            DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(66)
-            DdlSubTipoAF.DataBind()
-
-            'Carga AF
-            'DdlAF.DataSource = GlobalDTActivoFijos().FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-            'DdlAF.DataBind()
-
-        End If
-
-        If UsuarioActual.Empresa.GralSoloProyecto Then
-            TdProyecto.Visible = False
-            TdProyecto2.Visible = False
-            LtSubProyecto.Text = "Proyecto"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
-            DdlSubProyecto.DataBind()
-        End If
-
-    End Sub
-
-    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-    End Sub
-
-    Private Sub CargaDatos()
-        Dim ObjCompras As New ClsCompras()
-
-        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
-        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
-        Dim TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero)
-        If ObjCompras.GetRepProductosServiciosDetalle(DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
-                                              DdlPS.SelectedValue.ToEntero, FechaI, FechaF, DdlProveedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero,
-                                              UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlFamilia.SelectedValue.ToEntero, DdlSubFamilia.SelectedValue.ToEntero, DdlTipoAF.SelectedValue.ToEntero, DdlSubTipoAF.SelectedValue.ToEntero, DdlAF.SelectedValue.ToEntero, CveMoneda, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, TipoGasto:=DdlTipoGasto.SelectedValue.ToEntero, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            DtDatos = ObjCompras.DtResultados
-        Else
-            DtDatos = Nothing
-        End If
-        ObjCompras.Dispose()
-        CargaGrid("")
-    End Sub
-
-    Private Sub CargaDatos(Proyecto As Integer, SubProyecto As Integer, Categoria As Integer, Clasificacion As Integer, PS As Integer, Proveedor As Integer, Usuario As Integer, Estatus As Integer, Grupo As Integer, Familia As Integer, SubFamilia As Integer, TipoActivoFijo As Integer, SubTipoActivoFijo As Integer, ActivoFijo As Integer, TipoGasto As Integer)
-        Dim ObjCompras As New ClsCompras()
-
-        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
-        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
-        Dim TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero)
-
-        If ObjCompras.GetRepProductosServiciosDetalle(Proyecto, SubProyecto, Categoria, Clasificacion, PS, FechaI, FechaF, Proveedor, Usuario, Estatus, UsuarioActual.CveEmpresa, Grupo, Familia, SubFamilia, TipoActivoFijo, SubTipoActivoFijo, ActivoFijo, CveMoneda, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico:=TCEspecifico, TipoGasto:=TipoGasto, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
-            DtDatos = ObjCompras.DtResultados
-        Else
-            DtDatos = Nothing
-        End If
-        ObjCompras.Dispose()
-        CargaGrid("")
-    End Sub
-
-
-#Region "   D R O P - D O W N S    |  SELECT INDEX CHANGED"
-    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
-            DdlSubProyecto.DataBind()
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-
-    Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
-        CargaClasificaciones(DdlCategoria.SelectedValue.ToEntero)
-    End Sub
-
-    Private Sub CargaClasificaciones(CveCategoria As Integer)
-        DdlClasificacion.Items.Clear()
-        If DdlCategoria.SelectedValue <> "-1" Then
-            DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, CveCategoria:=CveCategoria)
-            DdlClasificacion.DataBind()
-        End If
-        DdlClasificacion.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-
-    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
-        DdlPS.Items.Clear()
-        If DdlClasificacion.SelectedValue <> "-1" Then
-            DdlPS.DataSource = GlobalDTProductosServicios(UsuarioActual.CveEmpresa)
-            DdlPS.DataBind()
-        End If
-        DdlSubFamilia.Items.Insert(0, New ListItem("Sin Asignar", "-2"))
-        DdlPS.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-    Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged
-        DdlSubFamilia.Items.Clear()
-
-        If DdlFamilia.SelectedValue <> "-1" Then
-            DdlSubFamilia.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa, DdlFamilia.SelectedValue.ToEntero)
-            DdlSubFamilia.DataBind()
-        Else
-            DdlSubFamilia.DataSource = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
-            DdlSubFamilia.DataBind()
-        End If
-
-        DdlSubFamilia.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-    Protected Sub DdlTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoAF.SelectedIndexChanged
-        DdlSubTipoAF.Items.Clear()
-
-        If DdlTipoAF.SelectedValue <> "-1" Then
-            DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(66).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoAF.SelectedValue.ToEntero))
-            DdlSubTipoAF.DataBind()
-        Else
-            DdlSubTipoAF.DataSource = GlobalDTSubTipoActivoFijo(66)
-            DdlSubTipoAF.DataBind()
-        End If
-
-        DdlSubTipoAF.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-    Protected Sub DdlSubTipoAF_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubTipoAF.SelectedIndexChanged
-        DdlAF.Items.Clear()
-
-        If DdlSubTipoAF.SelectedValue <> "-1" Then
-            DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa, DdlSubTipoAF.SelectedValue.ToEntero)
-            DdlAF.DataBind()
-            'Else
-            '    DdlAF.DataSource = GlobalDTSubTipoActivoFijo(66)
-            '    DdlAF.DataBind()
-        End If
-
-        DdlAF.Items.Insert(0, New ListItem("Todas", "-1"))
-    End Sub
-#End Region
-
-    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            If e.Row.DBCampo("Orden") = "" AndAlso e.Row.DBCampo("RazonSocial") = "" Then
-                e.Row.CssClass = "Totales"
-            End If
-            e.Row.Cells(6).Width = Unit.Pixel(100)
-            e.Row.Cells(3).Width = Unit.Pixel(80)
-        End If
-    End Sub
-
-#Region "tipo Cambio"
-    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
-        If RblTipoCambio.SelectedValue.ToEntero = 3 Then
-            Dim TipoCambio As Double
-            LiEspecifico.Visible = True
-            TipoCambio = GlobalTipoCambio(Now)
-            TxtEspecifico.Text = TipoCambio.ToString
-        Else
-            LiEspecifico.Visible = False
-        End If
-        UpBodyTipoCambio.Update()
-    End Sub
-
-    Private Sub BtnTipoCambio_Click(sender As Object, e As EventArgs) Handles BtnTipoCambio.Click
-        CargaDatos()
-        RegistraScript(String.Format("$('#{0}').modal('hide');", "DivTipoCambio"))
-        UPDatos.Update()
-    End Sub
-#End Region
-
-
-#Region "O R D E N A M I E N T O"
-    Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
-        Dim Orden As String = ""
-        Dim Campo As String = ""
-        Dim Literal As Literal = Nothing
-        Const OrdenInicial As String = ""
-        Dim Arg(2) As String
-
-        Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
-        Campo = Arg(0)
-        Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
-
-        If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
-        Else
-            ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
-            Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
-        End If
-        Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
-        ViewState("Orden") = Orden
-        CargaGrid(Orden)
-    End Sub
-
-    Protected Sub CargaGrid(Orden As String)
-        Dim DV As DataView = Nothing
-        DV = New DataView(DtDatos, "", Orden, DataViewRowState.CurrentRows)
-        If Orden <> String.Empty Then
-            GvDatos.DataSource = DV.ToTable()
-        Else
-            GvDatos.DataSource = DtDatos
-        End If
-
-        GvDatos.DataBind()
-        UPDatos.Update()
-        DV.Dispose()
-    End Sub
-#End Region
-
-
-#Region "  IMPRESION - NUEVO  "
-    Protected Sub ImgExcel_Click(sender As Object, e As System.EventArgs) Handles ImgExcel.Click
-        GenerarPDF("EXCEL")
-    End Sub
-
-    Private Sub ImgImprimir_Click(sender As Object, e As EventArgs) Handles ImgImprimir.Click
-        GenerarPDF()
-    End Sub
-
-    Private Sub GenerarPDF(Optional Formato As String = "PDF")
-
-        Dim FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
-        Dim FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
-        If txtFechaI.Text = "" Then FechaI = "-1".ToDate
-        If txtFechaF.Text = "" Then FechaF = "-1".ToDate
-        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
-        Dim Proyecto = If(DdlProyecto.SelectedValue = "-1", "", $"&emsp;<b>Proyecto:</b> {DdlProyecto.SelectedItem.Text}")
-        Dim SubProyecto = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>SubProyecto:</b> {DdlSubProyecto.SelectedItem.Text}")
-        Dim Categoria = If(DdlCategoria.SelectedValue = "-1", "", $"&emsp;<b>Categoria:</b> {DdlCategoria.SelectedItem.Text}")
-        Dim Clasificacion = If(DdlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlClasificacion.SelectedItem.Text}")
-        Dim PS = If(DdlPS.SelectedValue = "-1", "", $"&emsp;<b>P.S:</b> {DdlPS.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedItem.Text}")
-        Dim Estatus = If(DdlEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b> {DdlEstatus.SelectedItem.Text}")
-        Dim TipoAF = If(DdlTipoAF.SelectedValue = "-1", "", $"&emsp;<b>Tipo AF:</b> {DdlTipoAF.SelectedItem.Text}")
-        Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
-        Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
-        If txtFechaI.Text = "" Then FechaIn = ""
-        If txtFechaF.Text = "" Then FechaFn = ""
-
-        Dim TCEspecifico = If(TxtEspecifico.Text.Trim = "", -1, TxtEspecifico.Text.ToEntero)
-
-        If DtDatos.Rows.Count > 0 Then
-            Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-
-            Dim params As New List(Of ReportParameter)
-            params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
-            'params.Add(New ReportParameter("FechaInicio", FechaI))
-            'params.Add(New ReportParameter("FechaFin", FechaF))
-            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-            params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-            params.Add(New ReportParameter("AgrupoPor", $"{Grupo}{Proyecto}{SubProyecto}{Categoria}{Clasificacion}{PS}{Proveedor}{Estatus}{TipoAF}{FechaIn}{FechaFn}"))
-
-            If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
-            Else
-                params.Add(New ReportParameter("LogoPath", ""))
-            End If
-            ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosDetalleCompra.rdlc", DtDatos, params, "ReportePSDetalle", Formato)
-        Else
-            Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
-        End If
-
-    End Sub
-#End Region
-
-End Class

Contabilidad/RegPrePolizaS.aspx

@@ -81,18 +81,25 @@
                 <asp:LinkButton ID="LnkImprimirPDF" runat="server" Visible="true" OnClick="LnkImprimirPDF_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir Poliza</asp:LinkButton>
             </li>
 
-
-    <asp:UpdatePanel runat="server">
-        <ContentTemplate>
             <li>
-
+                <asp:LinkButton ID="LnkImprimePDFResumen" runat="server" Visible="false" OnClick="LnkImprimePDFResumen_Click" Style="color: #686868;"><i class="fa fa-file-pdf-o" style="color:#686868;"></i> Imprimir PDF Resumen</asp:LinkButton>
-                <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" ><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
             </li>
             <li>
-                <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
+                <asp:LinkButton ID="LnkImprimeExcelResumen" runat="server" Visible="false" OnClick="LnkImprimeExcelResumen_Click" Style="color: #686868;"><i class="fa fa-file-excel-o" style="color:#686868;"></i> Imprimir Excel Resumen</asp:LinkButton>
             </li>
-        </ContentTemplate>
+
-    </asp:UpdatePanel>
+
+            <asp:UpdatePanel runat="server">
+                <ContentTemplate>
+                    <li>
+
+                        <asp:LinkButton ID="LnkAddConcepto" runat="server" OnClick="LnkAddConcepto_Click" ><i class="fa fa-plus" ></i> Agregar Concepto</asp:LinkButton>
+                    </li>
+                    <li>
+                        <asp:LinkButton ID="LnkCrearAPartirDe" runat="server" Visible="false" OnClick="LnkCrearAPartirDe_Click" Style="color: #686868;"><i class="fa fa-plus" style="color:#686868;" ></i>Crear a partir de</asp:LinkButton>
+                    </li>
+                </ContentTemplate>
+            </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -1,5 +1,6 @@
 
 Imports System.Data
+Imports System.Net.NetworkInformation
 Imports Extensiones
 Imports GemBox.Spreadsheet
 Imports Microsoft.Reporting.WebForms
@@ -249,6 +250,12 @@ Partial Class ContabilidadC_RegPrePolizaS
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
 
         If Not Page.IsPostBack Then
+
+            If UsuarioActual.Empresa.Funcionalidad(282).ToEntero > 0 Then
+                LnkImprimePDFResumen.Visible = True
+                LnkImprimeExcelResumen.Visible = True
+            End If
+
             Tick = DateTime.Now.Ticks.ToString
 
             CveMoneda = 1
@@ -360,6 +367,8 @@ Partial Class ContabilidadC_RegPrePolizaS
                 GvMov.Columns(5).Visible = False
             End If
 
+
+
         End If
 
     End Sub
@@ -2717,7 +2726,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         ImprimirPolizaPDF(IdPoliza)
     End Sub
     Private Function ImprimirPolizaPDF(IdPoliza As Integer) As String
-        Dim ObjConta As New ClsContabilidad
+
         'Dim ObjPoliza As New ClsContPAQi(UsuarioActual.Empresa)
 
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Polizas.rdlc", UsuarioActual.Empresa.Ruta))
@@ -2725,6 +2734,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         Dim Bytes As Byte() = Nothing
 
 
+        Dim ObjConta As New ClsContabilidad
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
         If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
@@ -2744,8 +2754,7 @@ Partial Class ContabilidadC_RegPrePolizaS
             End If
 
 
-            'params.Add(New ReportParameter("Nombre", dr("Cuenta").ToString))
+
-            'params.Add(New ReportParameter("Cuenta", dr("Codigo").ToString))
             params.Add(New ReportParameter("Numero", dr("FolioPoliza").ToString))
             params.Add(New ReportParameter("Moneda", ""))
             params.Add(New ReportParameter("CodigoPostal", ""))
@@ -2765,12 +2774,23 @@ Partial Class ContabilidadC_RegPrePolizaS
             ImprimirbytesPDF(StreamPDF(ruta, dtVC, params, "ppoliza"), String.Format("{0}-{1}", TipoPoliza, dr("FolioPoliza").ToString), "PDF", True)
 
         End If
+
+
+
+
+
+
+
+
         Return String.Format("{0}\{1}\{2}.pdf", AppDomain.CurrentDomain.BaseDirectory, Tick, IdPoliza.ToString)
         ObjConta.Dispose()
 
     End Function
 
 
+
+
+
 #End Region
 
 #Region "Crear A Partier de"
@@ -3199,5 +3219,78 @@ Partial Class ContabilidadC_RegPrePolizaS
     Private Sub TxtAbonoE_TextChanged(sender As Object, e As EventArgs) Handles TxtAbonoE.TextChanged
         If TxtAbonoE.Text.ToDecimal <> 0 Then CargaModalConceptoTipoTransaccion("Egs")
     End Sub
+
+
+    Private Sub ImprimePrePolizasDetalleResumen(Optional Tipo As String = "PDF")
+
+        Dim Archivo As System.IO.FileInfo
+        Dim params As New List(Of ReportParameter)
+        Dim Bytes As Byte() = Nothing
+
+        Dim ImpresionPersonalizada As Integer = UsuarioActual.Empresa.Funcionalidad(282).ToEntero
+
+
+        Archivo = New System.IO.FileInfo(String.Format("{0}Formatos/PolizasResumen.rdlc", UsuarioActual.Empresa.Ruta))
+        Dim Logo As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta))
+
+
+
+
+        Dim ObjConta As New ClsContabilidad
+        'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
+        If ObjConta.GetPrePolizasDetalleResumen(CvePrePoliza, UsuarioActual.CveEmpresa, ImpresionPersonalizada) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+            Dim dtVC As DataTable
+            Dim dr As DataRow
+
+            dtVC = ObjConta.DtResultados '.FiltraParametros("Contabilizable = 1", "Orden")
+            dr = dtVC.Rows(0)
+
+            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            params.Add(New ReportParameter("TipoPoliza", DdlTipoPoliza.SelectedItem.Text))
+            params.Add(New ReportParameter("Finicio", TxtFechaDocumento.Text))
+            params.Add(New ReportParameter("FFin", TxtFechaDocumento.Text))
+
+            params.Add(New ReportParameter("Fecha", TxtFechaDocumento.Text))
+
+            params.Add(New ReportParameter("Numero", TxtFolio.Text))
+            params.Add(New ReportParameter("Moneda", If(CveMoneda = 2, "Dolar", "Peso Mexicano")))
+            params.Add(New ReportParameter("CodigoPostal", ""))
+
+            params.Add(New ReportParameter("UsuarioRegistro", TxtUsuarioElaboro.Text))
+
+
+            If Logo.Exists Then
+                params.Add(New ReportParameter("pImg", $"file://{Logo.FullName}"))
+            Else
+                params.Add(New ReportParameter("pImg", ""))
+            End If
+
+
+
+
+            Dim RutaReprote As String
+            If Archivo.Exists Then
+                RutaReprote = Archivo.FullName
+            Else
+                RutaReprote = $"{DirectorioEmpresas}Grales\Formatos\PolizasResumen.rdlc"
+            End If
+
+            ImprimirbytesPDF(StreamPDF(RutaReprote, dtVC, params, "PrePoliza", Formato:=Tipo), "PrePoliza", Formato:=Tipo, Descarga:=True)
+
+        End If
+        ObjConta.Dispose()
+
+    End Sub
+
+
+    Protected Sub LnkImprimePDFResumen_Click(sender As Object, e As EventArgs)
+        ImprimePrePolizasDetalleResumen("PDF")
+    End Sub
+
+    Protected Sub LnkImprimeExcelResumen_Click(sender As Object, e As EventArgs)
+        ImprimePrePolizasDetalleResumen("Excel")
+    End Sub
+
+
 End Class
 

Documentacion/TableroMaterialidad.aspx.cs

@@ -14,7 +14,6 @@ using System.Text;
 using System.Text.RegularExpressions;
 using System.Xml;
 using System.Xml.Linq;
-using iTextSharp.text.pdf;
 
 
 public partial class Documentacion_TableroMaterialidad : ClsPaginas
@@ -286,8 +285,8 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas
                 {
                     XElement xfile = new XElement("archivo");
                     xfile.SetAttributeValue("URL", urfile);
-                    xfile.SetAttributeValue("EXT", Path.GetExtension(urfile).ToLower());
+                    xfile.SetAttributeValue("EXT",System.IO.Path.GetExtension(urfile).ToLower());
-                    if (Path.GetExtension(urfile).ToLower() == ".xml")
+                    if (System.IO.Path.GetExtension(urfile).ToLower() == ".xml")
                     {
                         var xmlobj = ADSistemaLibrary3.SatXml.XmlSatCFDI.readXML(urfile);
 
@@ -372,7 +371,7 @@ public partial class Documentacion_TableroMaterialidad : ClsPaginas
                     {
                         try
                         {
-                            PdfReader reader = new PdfReader(urfile);
+                            var reader = new iTextSharp.text.pdf.PdfReader(urfile);
 
                             text = iTextSharp.text.pdf.parser.PdfTextExtractor.GetTextFromPage(reader, 1, new iTextSharp.text.pdf.parser.LocationTextExtractionStrategy());
                             foliofiscal = string.Empty;

Empresas/Grales/Formatos/RepCuentasBancarias.rdlc

@@ -0,0 +1,918 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2008/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+  <Body>
+    <ReportItems>
+      <Textbox Name="Textbox12">
+        <CanGrow>true</CanGrow>
+        <KeepTogether>true</KeepTogether>
+        <Paragraphs>
+          <Paragraph>
+            <TextRuns>
+              <TextRun>
+                <Value>=Parameters!AgrupadoPor.Value</Value>
+                <MarkupType>HTML</MarkupType>
+                <Style>
+                  <FontSize>9pt</FontSize>
+                </Style>
+              </TextRun>
+            </TextRuns>
+            <Style />
+          </Paragraph>
+        </Paragraphs>
+        <rd:DefaultName>Textbox9</rd:DefaultName>
+        <Top>0.0441cm</Top>
+        <Height>0.63675cm</Height>
+        <Width>19.97078cm</Width>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+          <PaddingLeft>2pt</PaddingLeft>
+          <PaddingRight>2pt</PaddingRight>
+          <PaddingTop>2pt</PaddingTop>
+          <PaddingBottom>2pt</PaddingBottom>
+        </Style>
+      </Textbox>
+      <Line Name="Line1">
+        <Top>0.84237cm</Top>
+        <Left>0.15558cm</Left>
+        <Height>0cm</Height>
+        <Width>19.84166cm</Width>
+        <ZIndex>1</ZIndex>
+        <Style>
+          <Border>
+            <Style>Solid</Style>
+          </Border>
+        </Style>
+      </Line>
+      <Tablix Name="Tablix1">
+        <TablixBody>
+          <TablixColumns>
+            <TablixColumn>
+              <Width>5.28731cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.31895cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>3.00271cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.76458cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.31105cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>2.5cm</Width>
+            </TablixColumn>
+          </TablixColumns>
+          <TablixRows>
+            <TablixRow>
+              <Height>0.6cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox3">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Proveedor</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox3</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox5">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Banco Nombre</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox5</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox13">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Cuenta</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox13</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox15">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>CLABE</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox15</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox17">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>CIE</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox17</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Textbox19">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>Referencia</Value>
+                              <Style>
+                                <FontSize>9pt</FontSize>
+                                <FontWeight>Bold</FontWeight>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Textbox19</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <BackgroundColor>Silver</BackgroundColor>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+            <TablixRow>
+              <Height>0.57354cm</Height>
+              <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="RazonSocial">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!RazonSocial.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>RazonSocial</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="BancoNombre">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!BancoNombre.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>BancoNombre</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Cuenta">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Cuenta.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Cuenta</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="CLABE">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!CLABE.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>CLABE</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="CIE">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!CIE.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>CIE</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="Referencia">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!Referencia.Value</Value>
+                              <Style>
+                                <FontSize>7pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style />
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>Referencia</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>LightGrey</Color>
+                          <Style>Solid</Style>
+                        </Border>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
+              </TablixCells>
+            </TablixRow>
+          </TablixRows>
+        </TablixBody>
+        <TablixColumnHierarchy>
+          <TablixMembers>
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+            <TablixMember />
+          </TablixMembers>
+        </TablixColumnHierarchy>
+        <TablixRowHierarchy>
+          <TablixMembers>
+            <TablixMember>
+              <KeepWithGroup>After</KeepWithGroup>
+            </TablixMember>
+            <TablixMember>
+              <Group Name="Details" />
+            </TablixMember>
+          </TablixMembers>
+        </TablixRowHierarchy>
+        <DataSetName>DataSet1</DataSetName>
+        <Top>1.01876cm</Top>
+        <Left>0.15558cm</Left>
+        <Height>1.17354cm</Height>
+        <Width>19.18461cm</Width>
+        <ZIndex>2</ZIndex>
+        <Style>
+          <Border>
+            <Style>None</Style>
+          </Border>
+        </Style>
+      </Tablix>
+    </ReportItems>
+    <Height>0.86311in</Height>
+    <Style />
+  </Body>
+  <Width>7.88569in</Width>
+  <Page>
+    <PageHeader>
+      <Height>2.25008cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox1">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!NombreEmpresa.Value</Value>
+                  <Style>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox1</rd:DefaultName>
+          <Top>0.18521cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.6cm</Height>
+          <Width>14.02238cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox2">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>REPORTE CUENTAS BANCARIAS DE PROVEEDOR</Value>
+                  <Style>
+                    <FontSize>10.5pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Center</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox2</rd:DefaultName>
+          <Top>1.10271cm</Top>
+          <Left>3.21468cm</Left>
+          <Height>0.52945cm</Height>
+          <Width>14.02238cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Image Name="Logo">
+          <Source>External</Source>
+          <Value>=Parameters!LogoPath.Value</Value>
+          <Sizing>FitProportional</Sizing>
+          <Left>0.06614cm</Left>
+          <Height>2.22362cm</Height>
+          <Width>2.33715cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+          </Style>
+        </Image>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageHeader>
+    <PageFooter>
+      <Height>0.76376cm</Height>
+      <PrintOnFirstPage>true</PrintOnFirstPage>
+      <PrintOnLastPage>true</PrintOnLastPage>
+      <ReportItems>
+        <Textbox Name="Textbox7">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>="Página " &amp; Globals.PageNumber &amp; " de " &amp; Globals.TotalPages</Value>
+                  <Style>
+                    <FontStyle>Italic</FontStyle>
+                    <FontSize>8pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox3</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>17.90491cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.09233cm</Width>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox8">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Usuario:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox8</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>0.06614cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>1.60042cm</Width>
+          <ZIndex>1</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox9">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Parameters!UsuarioImprimio.Value</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style />
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox9</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>1.61047cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>5.14936cm</Width>
+          <ZIndex>2</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox10">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>Fecha Impresión:</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <FontWeight>Bold</FontWeight>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Right</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox10</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>8.20622cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>2.92333cm</Width>
+          <ZIndex>3</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+        <Textbox Name="Textbox11">
+          <CanGrow>true</CanGrow>
+          <KeepTogether>true</KeepTogether>
+          <Paragraphs>
+            <Paragraph>
+              <TextRuns>
+                <TextRun>
+                  <Value>=Globals!ExecutionTime</Value>
+                  <Style>
+                    <FontSize>9pt</FontSize>
+                    <Format>g</Format>
+                  </Style>
+                </TextRun>
+              </TextRuns>
+              <Style>
+                <TextAlign>Left</TextAlign>
+              </Style>
+            </Paragraph>
+          </Paragraphs>
+          <rd:DefaultName>Textbox11</rd:DefaultName>
+          <Top>0.08291cm</Top>
+          <Left>11.11544cm</Left>
+          <Height>0.68085cm</Height>
+          <Width>4.32745cm</Width>
+          <ZIndex>4</ZIndex>
+          <Style>
+            <Border>
+              <Style>None</Style>
+            </Border>
+            <PaddingLeft>2pt</PaddingLeft>
+            <PaddingRight>2pt</PaddingRight>
+            <PaddingTop>2pt</PaddingTop>
+            <PaddingBottom>2pt</PaddingBottom>
+          </Style>
+        </Textbox>
+      </ReportItems>
+      <Style>
+        <Border>
+          <Style>None</Style>
+        </Border>
+      </Style>
+    </PageFooter>
+    <PageHeight>29.7cm</PageHeight>
+    <PageWidth>21cm</PageWidth>
+    <LeftMargin>0.25cm</LeftMargin>
+    <RightMargin>0.25cm</RightMargin>
+    <TopMargin>1cm</TopMargin>
+    <BottomMargin>1cm</BottomMargin>
+    <ColumnSpacing>0.13cm</ColumnSpacing>
+    <Style />
+  </Page>
+  <AutoRefresh>0</AutoRefresh>
+  <DataSources>
+    <DataSource Name="DataSet">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>f55ecc33-47ff-4fc5-a233-35ea9bb1f578</rd:DataSourceID>
+    </DataSource>
+  </DataSources>
+  <DataSets>
+    <DataSet Name="DataSet1">
+      <Query>
+        <DataSourceName>DataSet</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="RazonSocial">
+          <DataField>RazonSocial</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="BancoNombre">
+          <DataField>BancoNombre</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Cuenta">
+          <DataField>Cuenta</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CLABE">
+          <DataField>CLABE</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="CIE">
+          <DataField>CIE</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="Referencia">
+          <DataField>Referencia</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>DataSet</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite9\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>DataTable1</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
+  </DataSets>
+  <ReportParameters>
+    <ReportParameter Name="NombreEmpresa">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaInicio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaFin">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="UsuarioImprimio">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="LogoPath">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="FechaImpresion">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="AgrupadoPor">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+    <ReportParameter Name="Filtros">
+      <DataType>String</DataType>
+      <Nullable>true</Nullable>
+      <AllowBlank>true</AllowBlank>
+      <Prompt>ReportParameter1</Prompt>
+    </ReportParameter>
+  </ReportParameters>
+  <Language>es-MX</Language>
+  <rd:ReportUnitType>Cm</rd:ReportUnitType>
+  <rd:ReportID>40c94aad-a12a-44fb-ab0d-ea36a9656792</rd:ReportID>
+</Report>

General/RepIndicadorResumen.aspx

@@ -418,6 +418,21 @@
                                     </div>
                                 </ContentTemplate>
                             </asp:UpdatePanel>
+
+                            <asp:UpdatePanel ID="UPSaldoCxP" runat="server" class="portlet light xspadding bordered " align="center" style="" UpdateMode="Conditional" Visible="false">
+                                <ContentTemplate>
+                                    <div class="portlet-title" style="border-bottom:none!important; margin-top: 5px">
+                                        <div class="caption font-green">
+                                            <i class="icon-pin font-green"></i>
+                                            <span id="PLSaldoCxP" runat="server" class="caption-subject bold uppercase">Saldo conjunto de Cuentas por Pagar </span>
+                                        </div>
+                                        <div class="caption font-green portlet-total">
+                                            <span id="PLSaldoCxPTot" class="caption-subject bold uppercase" runat="server" />
+                                            <a href="javascript:;" class="collapse"></a>
+                                        </div>
+                                    </div>
+                                </ContentTemplate>
+                            </asp:UpdatePanel>
                         </div>
                     </div>
 

General/RepIndicadorResumen.aspx.vb

@@ -83,6 +83,8 @@ Partial Class General_RepIndicadorResumen
             GvCxC.HeaderRow.Cells(2).Text = "<a href=""/Ventas/RepRecuperacion.aspx"" target=""_blank"">Recuperado</a>"
         End If
 
+        Dim SaldoConjCxP = 0
+
         'Mostrar gráficos y totales en portlets solo si hay datos en su respectiva tabla
         If GvVxP.Rows.Count > 0 Then
             UPGraficaVxP.Visible = True
@@ -110,26 +112,38 @@ Partial Class General_RepIndicadorResumen
             UPGraficaCxC.Visible = True
             PLCxCTot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxC.DataSource, DataTable).SUM("SaldoMN", "CveCliente IS NOT NULL"))
             Dim Recuper As Double = CType(GvCxC.DataSource, DataTable).SUM("RecuperadoMN", "CveCliente IS NOT NULL")
-            If (Recuper > 0) Then PLCxCTot.InnerHtml += "<span style="" font-weight:800; margin-left:1em"">" + "Rec: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxC.DataSource, DataTable).SUM("RecuperadoMN", "CveCliente IS NOT NULL"))
+            If (Recuper > 0) Then PLCxCTot.InnerHtml += "<span style="" font-weight:800; margin-left:1em"">" + "Rec: " + "</span>" + String.Format("{0:c} MXN", Recuper)
         Else
             UPGraficaCxC.Visible = False
             PLCxCTot.InnerHtml = Nothing
         End If
         If GvCxP192.Rows.Count > 0 Then
             UPGraficaCxP192.Visible = True
-            PLCxP192Tot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxP192.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL"))
+            Dim SaldoCxP192 = CType(GvCxP192.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL")
+            SaldoConjCxP += SaldoCxP192
+            PLCxP192Tot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", SaldoCxP192)
         Else
             UPGraficaCxP192.Visible = False
             PLCxP192Tot.InnerHtml = Nothing
         End If
         If GvCxP.Rows.Count > 0 Then
             UPGraficaCxP.Visible = True
-            PLCxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", CType(GvCxP.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL"))
+            Dim SaldoCxP = CType(GvCxP.DataSource, DataTable).SUM("SaldoMN", "CveProveedor IS NOT NULL")
+            SaldoConjCxP += SaldoCxP
+            PLCxPTot.InnerHtml = "<span style=""font-weight:800"">" + "Saldo: " + "</span>" + String.Format("{0:c} MXN", SaldoCxP)
         Else
             UPGraficaCxP.Visible = False
             PLCxPTot.InnerHtml = Nothing
         End If
 
+        If SaldoConjCxP > 0 Then
+            UPSaldoCxP.Visible = True
+            PLSaldoCxPTot.InnerHtml = String.Format("{0:c} MXN", SaldoConjCxP)
+        Else
+            UPSaldoCxP.Visible = False
+            PLSaldoCxPTot.InnerHtml = Nothing
+        End If
+
         'Si no había datos en ninguna tabla no cargar función de gráficos
         If GvVxP.Rows.Count = 0 _
             AndAlso GvCompProductores.Rows.Count = 0 _

General/SaldosIniciales.aspx.vb

@@ -647,7 +647,7 @@ Partial Class General_SaldosIniciales
 
         Dim DTCuentasContables As New DataTable
 
-        If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172) Then
+        If UsuarioActual.Empresa.TipoContabilizacion = 1 Or UsuarioActual.CveEmpresa.Contiene(172, 174) Then
 
             Dim ObjConta As New ClsContabilidad
             If ObjConta.GetCuentas(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
@@ -2344,9 +2344,42 @@ Partial Class General_SaldosIniciales
     Private Sub ProcesaClasificaciones(dt As DataTable, dTCuentasContables As DataTable)
 
 
+        Dim ErrorProceso As Boolean = False
+
+
+        Dim SBMensajesCuentasNoEncontradas As New StringBuilder
+
+        For Each dRow As DataRow In dt.FiltraParametros(" LEN(Clasificacion) > 0 ").Rows
+
+            Dim Clasificacion As String = dRow("Clasificacion").ToString().Trim.Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
+
+            Dim CuentaContableIngreso As String = dRow("CuentaContableIngreso").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
+            Dim CuentaContableGasto As String = dRow("CuentaContableGasto").ToString().Trim.Replace("-", "").Replace("\r\n", "").Replace(vbCrLf, "").Replace(vbCr, "")
+
+
+            Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
+            Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
+
+            If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
+                SBMensajesCuentasNoEncontradas.AppendLine($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.<br/>")
+                ErrorProceso = True
+            End If
+
+            If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then
+                SBMensajesCuentasNoEncontradas.AppendLine($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.<br/>")
+                ErrorProceso = True
+            End If
+
+        Next
+
+        If ErrorProceso Then
+            Alert($"Cuentas no encontradas.<br/>{SBMensajesCuentasNoEncontradas.ToString}", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ObjClasificaciones As New ClsClasificaciones
         Dim ObjConta As New ClsContabilidad(ObjClasificaciones.IniciaTransacSQL)
-        Dim ErrorProceso As Boolean = False
+
         Dim Contador As Integer = 0
 
 
@@ -2411,15 +2444,15 @@ Partial Class General_SaldosIniciales
             Dim CveCuentaContableIngreso As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableIngreso}'").ToEntero()
             Dim CveCuentaContableGasto As Integer = dTCuentasContables.FiltroPrimeroValor("CveCuenta", $"Codigo ='{CuentaContableGasto}'").ToEntero()
 
-            If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
+            'If CuentaContableIngreso.Trim.Length > 0 AndAlso CveCuentaContableIngreso <= 0 Then
-                Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia)
+            '    Alert($"Clasificación {Clasificacion} no se encontro la cuenta de ingreso {CuentaContableIngreso}.", TipoMensaje.MsgAdvertencia)
-                ErrorProceso = True
+            '    ErrorProceso = True
-            End If
+            'End If
 
-            If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then
+            'If CuentaContableGasto.Trim.Length > 0 AndAlso CveCuentaContableGasto <= 0 Then
-                Alert($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.", TipoMensaje.MsgAdvertencia)
+            '    Alert($"Clasificación {Clasificacion} no se encontro la cuenta de gasto {CuentaContableGasto}.", TipoMensaje.MsgAdvertencia)
-                ErrorProceso = True
+            '    ErrorProceso = True
-            End If
+            'End If
 
 
             Dim CveClasificaionTemp = DTClasificaiones.FiltroPrimeroValor("CveClasificacion", $"Clasificacion='{Clasificacion}'").ToEntero()
@@ -2435,9 +2468,17 @@ Partial Class General_SaldosIniciales
 
                     CveClasificacion = ObjClasificaciones.CveClasificacion
 
-                    If Not CveClasificacion > 0 Then
+                    If CveClasificacion > 0 Then
+                        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
+                            DTClasificaiones = ObjClasificaciones.DtResultados
+                        End If
+                    Else
+
                         ErrorProceso = True
                     End If
+
+
+
                 Else
                     ErrorProceso = True
                 End If

Inventarios/EntradasSalidas.aspx.vb

@@ -2055,7 +2055,7 @@ Partial Class Inventarios_EntradasSalidas
                                     Dim Fechallegada As DateTime = (TxtFechaLlegada.Text & " 23:59:59").ToDateTime
 
                                     Dim CveEntregaAlmacen As Integer = ObjGral.AddInvEntregaAlmacenRuta(CveSubProyectoTimbre, -1, DdlDireccionEnvio.SelectedValue.ToEntero, CveMovimiento, DdlChofer.SelectedValue.ToEntero, DdlUnidadCamion.SelectedValue.ToEntero, TxtFechaEntrega.Text.ToDate, TxtFechaLlegada.Text.ToDate, "T", "", "", MinFecha, 1, 1, TxtDistancia.Text.ToEntero,
-                                                                                        CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero)
+                                                                                        CveConfigAutoTransporte:=DdlConfigAuto.SelectedValue.ToEntero, CveCamionRemolque1:=DdlRemolque1.SelectedValue.ToEntero, CveCamionRemolque2:=DdlRemolque2.SelectedValue.ToEntero, CveCliente:=DdlClientes.SelectedValue.ToEntero)
 
                                     If CveEntregaAlmacen > 0 Then
                                         CveTimbre = ObjGral.AddGralTimbre("Tra", CveSubProyectoTimbre, TxtFechaEntrega.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEntregaAlmacen:=CveEntregaAlmacen, AplicaCP:=ChkEmitirCartaPorte.Checked)
@@ -4623,12 +4623,16 @@ Partial Class Inventarios_EntradasSalidas
                         tIdCtaGasto = 1321
                 End Select
 
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
+                If Math.Abs((ValorSalida + ValorEntrada)) <> 0 Then
-                    ErrorMovInv = True
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ValorSalida + ValorEntrada, "", 290, tConcepto, Fecha, tIdCtaGasto, -1, CveMovimientoAlmacen:=CveMovimientoSalida, CveClasificacion:=tCveClasificacion, CveSubProyecto:=tCveSubProyectoSalida, ImporteMX:=ValorSalida + ValorEntrada, Contabilizable:=EsContabilizable) Then
-                    Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                        ErrorMovInv = True
+                        Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de salida"
+                    End If
                 End If
             End If
-        End If
+
+
+            End If
 
         If Not ErrorMovInv Then
             If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then

Inventarios/EntregaAlmacen.aspx.vb

@@ -3963,7 +3963,7 @@ Partial Class Inventarios_EntregaAlmacen
         RegistraScript("$('#ModalVerSugerencias').modal('hide')")
     End Sub
 
-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) 'Handles DdlAlmacen.SelectedIndexChanged
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
         RecargaporAlmacenes()
     End Sub
 

Inventarios/RepTraspasoAlmacen.aspx

@@ -213,7 +213,8 @@
                 <Columns>
                     <asp:HyperlinkField DataTextField="Folio" HeaderText="Folio" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataNavigateUrlFields="CveMovimiento"  ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Fecha" DataField="FechaMovto" DataFormatString="{0:d}" ItemStyle-Width="5%" />
-                    <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="Cant. Orig." DataField="CantidadOriginal" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
+                    <asp:BoundField HeaderText="Disponible" DataField="Disponible" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Unidad" DataField="UnidadMedida" ItemStyle-Width="5%" />
                     <asp:BoundField HeaderText="Código" DataField="Codigo" ItemStyle-Width="5%" /> 
                     <asp:BoundField HeaderText="Producto" DataField="PS"  ItemStyle-HorizontalAlign="Left"/> 

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1639,7 +1639,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 ErrorMovInv = True
             Else
                 Dim CveMovimientoDetalleSalida As Integer = 0
-                Dim importe As Double = 0
+                'Dim importe As Double = 0
 
                 For Each GvRow As GridViewRow In GvDatosRecepcion.Rows
                     If GvRow.RowType = DataControlRowType.DataRow Then
@@ -1675,7 +1675,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                 End If
                             End If
 
-                            importe += Cantidad * PrecioUnitario
+                            'importe += Cantidad * PrecioUnitario
                         End If
                     End If
                 Next
@@ -1700,15 +1700,15 @@ Partial Class Inventarios_TraspasoAlmacen
                     If CveAlmacenVirtual > 0 And CveAlmacenVirtualSalida > 0 Then
 
                         Dim dtvirtual As DataTable = Nothing
-                        Dim importePoliza As Decimal = 0
+                        'Dim importePoliza As Decimal = 0
 
                         If ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
                             dtvirtual = ObjInventario.DtResultados
                             If dtvirtual.Rows.Count > 0 Then
 
-                                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
+                                CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, MovimientoFijo:=True, Modulo:="TA/C2")
 
-                                CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, Modulo:="TA/C3")
+                                CveMovimientoVirtualSalida = ObjInventario.AddMovimiento(CveAlmacenVirtualSalida, 37, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoSalidaTransitorio, MovimientoFijo:=True, Modulo:="TA/C3")
 
                                 FolioVirtualEntrada = ObjInventario.Folio
 
@@ -1720,7 +1720,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                     Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
 
 
-                                    importePoliza = importePoliza + (CantidadUsado * PU)
+                                    'importePoliza = importePoliza + (CantidadUsado * PU)
 
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                         ErrorMovInv = True
@@ -1743,6 +1743,11 @@ Partial Class Inventarios_TraspasoAlmacen
 
                         If Not ErrorMovInv AndAlso (CveMovimientoSalida > 0 And CveMovimientoVirtualEntrada > 0) Then
 
+                            Dim importePoliza As Decimal = 0
+                            If ObjInventario.GetMovimientosDetalle(CveMovimientoVirtualEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                                importePoliza = ObjInventario.DtResultados.SUMD("Total").RoundSQL
+                            End If
+
                             Dim CvePrePolizaMovVirtual As Integer = ObjConta.AddPrePolizas("TA/C2|TA/C3", 53, importePoliza, importePoliza, 1, TxtFecha.Text.ToDate, "TA/C2|TA/C3", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
                             If CvePrePolizaMovVirtual > 0 Then
                                 If Not ErrorMovInv AndAlso Not ObjConta.AddPrePolizasDetalle(CvePrePolizaMovVirtual, True, importePoliza, importePoliza, 68, TxtObservacionesRecepcion.Text, TxtObservacionesRecepcion.Text, -1, -1, CveMovimientoAlmacen:=CveMovimientoVirtualSalida, Contabilizable:=False) Then
@@ -1770,7 +1775,11 @@ Partial Class Inventarios_TraspasoAlmacen
                 End If
 
                 If Not ErrorMovInv Then
-                    Dim ImporteDecimal As Decimal = importe.ToDecimal.RoundAD
+                    Dim ImporteDecimal As Decimal = 0
+                    If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                        ImporteDecimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL
+                    End If
+
                     Dim IdCtaContable As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", String.Format("CveAlmacen = {0}", DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero)).ToEntero
 
                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteDecimal, TxtObservaciones.Text, 68, TxtObservaciones.Text, Fecha, IdCtaContable, -1,
@@ -3354,6 +3363,29 @@ Partial Class Inventarios_TraspasoAlmacen
         Return Respuesta
     End Function
 
+    'Private Sub CargaDireccionesEnvio()
+    '    Dim ObjClientes As New ClsClientes
+    '    Dim TieneError = False
+
+    '    DdlDireccionEnvio.Items.Clear()
+    '    If ObjClientes.DireccionEnvioGet(-1, CveCliente, -1) Then
+    '        DdlDireccionEnvio.DataSource = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1"))
+    '        DdlDireccionEnvio.DataBind()
+    '        'DdlDireccionEnvio.Items.Insert(0, New ListItem("Seleccione", "-1"))
+    '        TmpDTEnvioDireccion = ObjClientes.DtResultados
+    '    Else
+    '        TieneError = True
+    '    End If
+
+    '    If TieneError Then
+    '        Alert("Ocurrió un error al obtener las direcciones de envío", TipoMensaje.MsgError)
+    '    End If
+
+    '    ObjClientes.Dispose()
+    '    UpCliente.Update()
+
+    'End Sub
+
 #End Region
 End Class
 

OC/RepCotizacionesDetalle.aspx

@@ -55,15 +55,18 @@
                                     </td>
                                     <td>
                                         <div>
-                                            <asp:DropDownList ID="CboProveedores" CssClass="select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"
+                                            <%--<asp:DropDownList ID="CboProveedores" CssClass="select2me" runat="server" DataTextField="RazonSocial" DataValueField="CveProveedor"
                                                 Class="table-group-action-input form-control input-inline input-small input-sm" Style="width: 200px !important;">
-                                            </asp:DropDownList>
+                                            </asp:DropDownList>--%>
-                                            <asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="CboProveedores"
+                                            <ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+
+                                            <%--<asp:RequiredFieldValidator ID="RFVProveedor" runat="server" ControlToValidate="CboProveedores"
                                                 Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Proveedor''</b> es necesario, por favor ingréselo."
                                                 ValidationGroup="GrpDetalleGuardar"></asp:RequiredFieldValidator>
                                             <ajax:ValidatorCalloutExtender ID="VCEProveedor" runat="server" HighlightCssClass="vco"
                                                 TargetControlID="RFVProveedor" Width="300px">
-                                            </ajax:ValidatorCalloutExtender>
+                                            </ajax:ValidatorCalloutExtender>--%>
+
                                         </div>
                                     </td>
                                 </tr>

OC/RepCotizacionesDetalle.aspx.vb

@@ -100,8 +100,23 @@ Partial Class PopOCCotizacionesDetalle
         CargaProveedores()
     End Sub
     Protected Sub CargaProveedores()
-        CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
+        'CboProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
-        CboProveedores.DataBind()
+        'CboProveedores.DataBind()
+
+        If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
+            DdlProveedores.setEsWebService(True)
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Todos"
+            DdlProveedores.SelectedValue = "-1"
+        Else
+            DdlProveedores.setEsWebService(False)
+            DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveProveedorClasificacion = {0} OR {0} = -1", CboClasificacionProveedor.SelectedValue))
+            DdlProveedores.ddl.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
+
+
+
     End Sub
 
     Protected Sub CargaMonedas()
@@ -135,7 +150,7 @@ Partial Class PopOCCotizacionesDetalle
             If objCotizacion.CveUsuario = 0 Then Deshabilitar()
 
             TxtFolio.Text = objCotizacion.Folio.ToString
-            CboProveedores.SelectedValue = objCotizacion.CveProveedor.ToString
+            DdlProveedores.SelectedValue = objCotizacion.CveProveedor.ToString
             TxtFecha.Text = objCotizacion.Fecha.ToShortDateString
             ddlMoneda.SelectedValue = objCotizacion.CveMoneda.ToString
             TxtDiasCredito.Text = objCotizacion.DiasCredito.ToString
@@ -159,7 +174,7 @@ Partial Class PopOCCotizacionesDetalle
 
     Protected Sub Deshabilitar()
         CboClasificacionProveedor.Enabled = False
-        CboProveedores.Enabled = False
+        DdlProveedores.Enabled = False
         ddlMoneda.Enabled = False
         TxtDiasCredito.Enabled = False
         TxtFecha.Enabled = False
@@ -180,6 +195,12 @@ Partial Class PopOCCotizacionesDetalle
 #Region "  GUARDAR  "
     Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+        If Not DdlProveedores.SelectedValue.ToEntero > 0 Then
+            Alert("El campo proveedor es requerido.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+
         Dim objCotizacion As New ClsOC
         objCotizacion.IniciaTransacSQL()
         Dim TieneError = False
@@ -195,7 +216,7 @@ Partial Class PopOCCotizacionesDetalle
 
         Try
             If EsNuevo Then
-                If objCotizacion.AddCotizacion(CveOrdenCompra, CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero,
+                If objCotizacion.AddCotizacion(CveOrdenCompra, DdlProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero,
                                                TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario) Then
 
                     'verificar que exista el directorio
@@ -217,7 +238,7 @@ Partial Class PopOCCotizacionesDetalle
                 End If
             Else
 
-                If objCotizacion.UpdateCotizacion(CboProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then
+                If objCotizacion.UpdateCotizacion(DdlProveedores.SelectedValue.ToEntero, -1, TxtFolio.Text, TxtFecha.Text, FileExtension, ddlMoneda.SelectedValue.ToEntero, TxtDiasCredito.Text.ToEntero, UsuarioActual.CveUsuario, CveCotizacion) Then
 
                     'verificar que exista el directorio
                     If Not System.IO.Directory.Exists(String.Format("{0}Cotizaciones/", UsuarioActual.Empresa.Ruta)) Then

OC/RepOC.aspx

@@ -177,11 +177,11 @@
                         <div visible="true" runat="server" id="DivAF">
                             <label class="colf-1">Activo Fijo</label>
                             <div class="colf-2">
-                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo">
+                                <asp:DropDownList ID="DdlActivoFijo" runat="server" CssClass="form-control input-sm select2me" AutoPostBack="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Width="100%">
                                 </asp:DropDownList>
                             </div>
                         </div>
-                        <label class="colf-1">Usuario</label>
+                        <label class="colf-1">Solicitó</label>
                         <div class="colf-2">
                             <asp:DropDownList ID="ddlUsuario" runat="server" CssClass="form-control input-sm select2me" Width="100%" DataTextField="Nombre" DataValueField="CveUsuario">
                             </asp:DropDownList>
@@ -201,7 +201,7 @@
                     <div class="row rownomargin">
                         <label class="colf-1 truncate">Clasificación</label>
                         <div class="colf-2">
-                            <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true">
+                            <asp:DropDownList ID="DDlClasificacion" runat="server" CssClass="form-control input-sm select2me" DataTextField="Clasificacion" DataValueField="CveClasificacion" AutoPostBack="true" Width="100%">
                             </asp:DropDownList>
                         </div>
                         <label class="colf-1 truncate">Producto Servicio</label>
@@ -242,7 +242,9 @@
                     <div class="row rownomargin">
                         <label class="colf-1 truncate">Proveedor</label>
                         <div class="colf-2">
-                            <asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>
+                            <%--<asp:DropDownList ID="ddlProveedor" runat="server" CssClass="form-control input-sm select2me" DataTextField="RazonSocial" DataValueField="CveProveedor"></asp:DropDownList>--%>
+                            <ADS:Dropdownlost ID="DdlProveedores" CssClassDdl="select2me" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+
                         </div>
                         <label class="colf-1 truncate" id="clintesdiv1" runat="server" visible="false">Cliente</label>
                         <div class="colf-2" id="clintesdiv2" runat="server" visible="false">

OC/RepOC.aspx.vb

@@ -88,6 +88,9 @@ Partial Class RepOC
 
 
 #Region "  CARGA COMBOS  "
+
+
+
     Protected Sub CargaProyectos()
         'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
         'DdlProyectos.DataBind()
@@ -120,9 +123,17 @@ Partial Class RepOC
 
     End Sub
     Protected Sub CargaProveedores()
-        ddlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+        If (UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1") Then
-        ddlProveedor.DataBind()
+            DdlProveedores.setEsWebService(True)
-        ddlProveedor.Items.Insert(0, New ListItem("Todos", "-1"))
+            DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+            DdlProveedores.SelectedText = "Todos"
+            DdlProveedores.SelectedValue = "-1"
+        Else
+            DdlProveedores.setEsWebService(False)
+            DdlProveedores.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
+            DdlProveedores.ddl.DataBind()
+            DdlProveedores.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        End If
     End Sub
     Protected Sub CargaClientes()
         clintesdiv1.Visible = True
@@ -366,7 +377,7 @@ Partial Class RepOC
 
         Dim OC As New ClsOC
         If OC.GetOrdenesCompraRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
-                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, ddlProveedor.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
+                        DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
                         If(CheckNoCompleta.Checked, -1, UsuarioActual.CveUsuario), UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), If(CheckNoCompleta.Checked, True, False),
                         ddlcliente.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
                         CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero()) Then
@@ -512,7 +523,7 @@ Partial Class RepOC
         Dim Clasificacion = If(DDlClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b>&nbsp;{DDlClasificacion.SelectedItem.Text}")
         Dim Producto = If(DDlPS.SelectedValue = "-1", "", $"&emsp;<b>Producto/Servicio:</b>&nbsp;{DDlPS.SelectedText}")
         Dim Completa As String = If(CheckNoCompleta.Checked = False, "", $"&emsp;, <b>No completa</b>&nbsp;")
-        Dim Proveedor = If(ddlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{ddlProveedor.SelectedItem.Text}")
+        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedores.txtText.Value    }")
         Dim Cliente = If(ddlcliente.SelectedValue = "-1", "", $"&emsp;<b>Cliente:</b>&nbsp;{ddlcliente.SelectedItem.Text}")
 
         If DtPorAtender IsNot Nothing AndAlso DtPorAtender.Rows.Count > 0 Then

SAT/SolicitudesNominaSat.aspx.cs

@@ -379,6 +379,7 @@ namespace ADSNetLibraryzd.Helpers.Conexiones.SIGAPI
                     }
                 }
                 catch (Exception e) { 
+                    string val = e.Message;
                     //ModExtensiones.GuardaLog(string.Format("{0}{1}{2}{1}{3}{1}{4}{1}", tituloLog, ModVars.NewLine, route, e, strjsonreq), ModVars.ADSNetLibraryLog); 
                 }
 

SiteAngular.aspx.cs

@@ -25,6 +25,7 @@ public partial class SiteAngular :  System.Web.UI.Page
             }
             catch (Exception ex)
             {
+                string a = ex.Message;
                 return null;
             }
         }

Ventas/Clientes.aspx

@@ -1740,7 +1740,7 @@
                                                                                 <asp:ListItem Value="Efectivo" Text="Efectivo"></asp:ListItem>
                                                                                 <asp:ListItem Value="Cheque" Text="Cheque"></asp:ListItem>
                                                                                 <asp:ListItem Value="Tranferencia" Text="Transferencia"></asp:ListItem>
-                                                                                <asp:ListItem Value="-1" Text="Seleccione" Selected="True"></asp:ListItem>
+                                                                                <asp:ListItem Value="-1" Text="-" Selected="True"></asp:ListItem>
                                                                             </asp:DropDownList>
                                                                             <label for="<%= DdlTipoPago.ClientID.ToString()%>">Tipo Pago:</label>
                                                                         </div>
@@ -4514,11 +4514,7 @@
 
                 <ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
                     <ContentTemplate>
-
+                         
-
-
-
-
                         <div class="row ">
                             <div class="col-md-12">
 
@@ -6686,9 +6682,9 @@
                             <div class="col-md-6">
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlTipoLineaAdicionalModal" CssClass="form-control  select2me" runat="server" Width="250px" AutoPostBack="true" OnSelectedIndexChanged="DdlTipoLineaAdicionalModal_SelectedIndexChanged">
-                                        <asp:ListItem Text="Seleccione" Value="-1" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Pagaré Especial" Value="1"></asp:ListItem>
                                         <asp:ListItem Text="PO" Value="2"></asp:ListItem>
+                                        <asp:ListItem Text="Seleccione" Value="-1" Selected="True"></asp:ListItem>
+                                        <asp:ListItem Text="Pagaré Especial" Value="1"></asp:ListItem>                                       
                                     </asp:DropDownList>
                                     <asp:RequiredFieldValidator ID="RfvDdlTipoLinea" InitialValue="-1" runat="server" ControlToValidate="TxtLineaAdicionalModal" CssClass="help-block errorimput"
                                         ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Linea''</b> es necesario, por favor ingréselo." ValidationGroup="GrpLineaAdicional"></asp:RequiredFieldValidator>

Ventas/Clientes.aspx.vb

@@ -917,7 +917,6 @@ Partial Class Clientes
 
             ChecaPermiteCredito()
 
-
             'Crea y carga CuentasBancarias - tab:Bancos
             CargaCuentasBancarias()
 
@@ -939,8 +938,6 @@ Partial Class Clientes
             TxtFechaICredito.Text = Now.AddYears(-2).ToShortDateString()
             TxtFechaFCredito.Text = Now.ToShortDateString()
 
-
-
             If UsuarioActual.TienePermisoProceso(257) Then  'Falta agregar proceso
                 DivMapAddSucursal.Visible = True
                 LiLnkAgragarDireccion.Visible = True
@@ -950,17 +947,12 @@ Partial Class Clientes
 
             MostrarTxtDireccionesClienteEnvio()
 
-
+            If CveCliente > 0 AndAlso UsuarioActual.Empresa.Funcionalidad(705) = "1" AndAlso UsuarioActual.TienePermisoProceso(350) Then
-            If CveCliente > 0 AndAlso UsuarioActual.CveEmpresa.Contiene(119, 1) AndAlso UsuarioActual.CveRol = 1 Then
                 CargaCombosLineasAdicionales()
                 TabLineasAdicionales.Visible = True
                 LnkAgregarLineaAdicional.Visible = True
                 GetLineasAdicionales()
-
+            End If
-            End If
-
-
-
         End If
 
         'EN SERIO SE OCUPA EN CADA POSTBACK ??? IPP 7 SEPTIEMNRE 2017
@@ -1050,7 +1042,7 @@ Partial Class Clientes
         DdlEstadoSAT.DataSource = GlobalDTGralEstados(ClaveSATPais)
 
         DdlEstadoSAT.DataBind()
-        DdlEstadoSAT.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlEstadoSAT.Items.Insert(0, New ListItem("-", "-1"))
         UpDatos.Update()
 
     End Sub
@@ -1059,11 +1051,11 @@ Partial Class Clientes
         Dim Dt As DataTable = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros("True", "Nombre")
         DdlResponsable.DataSource = Dt.FiltraParametros("Estatus = 1", "", {"CveUsuario", "Nombre"})
         DdlResponsable.DataBind()
-        DdlResponsable.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlResponsable.Items.Insert(0, New ListItem("-", "-1"))
 
         DdlResponsableSucursal.DataSource = Dt
         DdlResponsableSucursal.DataBind()
-        DdlResponsableSucursal.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        DdlResponsableSucursal.Items.Insert(0, New ListItem("-", "-1"))
 
         UpAgregarSucursal.Update()
         UpDatos.Update()
@@ -1975,6 +1967,7 @@ Partial Class Clientes
             DtCxCActivas = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, OrdenVencimiento, FechaVencimiento")
             GvCxC.DataSource = DtCxCActivas
             If DtCxCActivas.MAX("LineaAdicional") = "" Then GvCxC.Columns(6).Visible = False
+            If DtCxCActivas.MAX("CobranzaEstatus") = "" Then GvCxC.Columns(10).Visible = False
             'solo tomo los 10 ultimos mas el totalizador general
             Dim dt As DataTable = ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Hist'")
             DtHistorialCxC = dt
@@ -4070,8 +4063,13 @@ Partial Class Clientes
 
     End Sub
 
-    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
+    Private Sub GenerarPDFCrystal(Optional Formato As String = "PDF")
+
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.rpt", UsuarioActual.Empresa.Ruta))
+        Dim RutaReporteGrales As New System.IO.FileInfo($"{DirectorioEmpresas}Grales\Formatos\RepClientesCxC.rpt")
+
+
+
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
         'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
 
@@ -4239,9 +4237,25 @@ Partial Class Clientes
                 Try
                     Dim File As Byte()
                     If Archivo.Exists Then
-                        File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
+                        Dim ArchivoSti As New System.IO.FileInfo(String.Format("{0}Formatos/RepClientesCxC.mrt", UsuarioActual.Empresa.Ruta))
+                        If ArchivoSti.Exists Then
+                            Dim listass As New List(Of ReportParameter)
+                            For Each item As CrystalParametro In lista
+                                listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
+                            Next
+
+                            Dim lrds As New List(Of ReportDataSource)
+                            Dim rds As New ReportDataSource
+                            rds.Name = "Datos"
+                            rds.Value = DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha")
+                            lrds.Add(rds)
+
+                            File = StreamBytesStimulsoft("Facturas", $"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", lrds, listass, NombreArchivo:="Estado de cuenta", Formato:=Formato)
+                        Else
+                            File = ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
+                        End If
                     Else
-                        File = ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
+                        File = ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato)
                     End If
 
                     Try
@@ -4272,7 +4286,6 @@ Partial Class Clientes
                         Alert("El correo se envió con éxito", TipoMensaje.MsgInformacion)
                     Catch ex As Exception
                         Alert("Ocurrió un error al enviar el correo", TipoMensaje.MsgAdvertencia)
-
                     End Try
 
                 Catch ex As Exception
@@ -4285,14 +4298,14 @@ Partial Class Clientes
                         Dim listass As New List(Of ReportParameter)
                         For Each item As CrystalParametro In lista
                             listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                        Next
+                        Next
-                        ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                        ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
                     Else
                         ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                     End If
 
                 Else
-                    ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                    ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 End If
 
             End If
@@ -4338,15 +4351,65 @@ Partial Class Clientes
                     Dim listass As New List(Of ReportParameter)
                     For Each item As CrystalParametro In lista
                         listass.Add(New ReportParameter(item.Nombre, item.Valor.ToString()))
-                    Next
+                    Next
-                    ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
+                    ImprimirPDFStimulsoft($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.mrt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), listass, "Estado de cuenta", Formato)
                 Else
                     ImprimirbytesPDF(ImprimirPDFCrystal($"{UsuarioActual.Empresa.Ruta}Formatos/RepClientesCxC.rpt", DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
                 End If
             Else
-                ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/RepClientesCxC.rpt"), DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
+                ImprimirbytesPDF(ImprimirPDFCrystal(RutaReporteGrales.FullName, DtCxCFact2.FiltraParametros("", "CveMoneda,Fecha"), lista, "Estado de cuenta", Formato), "Estado de cuenta", Formato)
             End If
         End If
+    End Sub
+
+    Public Sub ImprimirExcelStimulsoft(RutaReporte As String, DtDatos As DataTable, Parametros As List(Of ReportParameter), Optional NombreArchivo As String = "Reporte", Optional RDSName As String = "Datos", Optional Content_Disposition As String = "attachment")
+        Dim lrds As New List(Of ReportDataSource)
+        Dim rds As New ReportDataSource
+        rds.Name = RDSName
+        rds.Value = DtDatos
+        lrds.Add(rds)
+
+        ImprimirbytesExcel(StreamBytesStimulsoft("Facturas", RutaReporte, lrds, Parametros, NombreArchivo:=NombreArchivo, Formato:="EXCEL"), NombreArchivo, "EXCEL", Content_Disposition:=Content_Disposition)
+    End Sub
+    Public Sub ImprimirbytesExcel(bytes As Byte(), Optional NombreArchivo As String = "Reporte", Optional Formato As String = "PDF", Optional Descarga As Boolean = False, Optional Content_Disposition As String = "attachment")
+        'limpio ReportViwer   
+        Dim mimeType As String = Nothing
+        Dim extension As String = Nothing
+
+        'If Descarga Then
+        '    Try
+        '        bytes = bytes
+        '        File.WriteAllBytes(String.Format("{0}PDF/whatever.gif", UsuarioActual.Empresa.Ruta), img)
+        '    Catch ex As Exception
+        '        If UsuarioActual.CveRol = 1 Then
+        '            Alert(ex.Message, TipoMensaje.MsgAdvertencia)
+        '        Else
+        '            Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
+        '        End If
+        '    End Try
+        'End If
+
+        Try
+            bytes = bytes
+            Response.Buffer = True
+            Response.Clear()
+            Response.ContentType = "application/vnd.ms-excel"
+            Response.ClearHeaders()
+            Response.AddHeader("content-disposition", String.Format("{0}; filename=""{1}.{2}""", Content_Disposition, NombreArchivo, If(Formato = "PDF", "pdf", "xlsx")))
+            Response.BinaryWrite(bytes) ' create the file
+            Response.Flush() ' send it to the client to download
+            bytes = Nothing
+            HttpContext.Current.Response.SuppressContent = True
+            HttpContext.Current.ApplicationInstance.CompleteRequest()
+            'HttpContext.Current.Response.End()
+        Catch ex As Exception
+
+            If UsuarioActual.CveRol = 1 Then
+                Alert($"Error: {ex.Message}  | Descripcion: {If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException IsNot Nothing AndAlso ex.InnerException.InnerException.Message IsNot Nothing, ex.InnerException.InnerException.Message, If(ex.InnerException IsNot Nothing AndAlso ex.InnerException.Message IsNot Nothing, ex.InnerException.Message, "Sin descripcion"))}", TipoMensaje.MsgAdvertencia)
+            Else
+                Alert("Ocurrió un error al generar la descarga. Favor de contactar a soporte tecnico cod:'IMPDFclspag'", TipoMensaje.MsgAdvertencia)
+            End If
+        End Try
     End Sub
     Private Sub MandaCorreoEstadoCuenta(CveUsuario As Integer, CveEmpresa As Integer, CveCliente As Integer, File As Byte(), Para As String, Asunto As String, Body As String, Optional GuardarBitacora As Boolean = False)
 
@@ -10337,15 +10400,14 @@ Partial Class Clientes
 
         If RdTipoPersona.SelectedValue.ToEntero = 1 And UsuarioActual.Empresa.Funcionalidad(350).Contiene("1", "2") Then
             DivRazonSocial2.Attributes.Add("class", "col-md-8")
-            DVRegimenSociedad.Visible = True
+            DVRegimenSociedad.Visible = True
-            TxtNombreComercial.Enabled = False
         Else
             TxtNombreComercial.Enabled = True
         End If
         ' DdlRegimenFiscal.SelectedIndex = -1
 
         Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
-        Dim Val As String
+        Dim Val As String = ""
 
         If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
             'verifico que sino existe el valor. lo limpie 
@@ -10364,31 +10426,17 @@ Partial Class Clientes
 
 
 
-    Private Sub CargaCombosLineasAdicionales()
+    Private Sub CargaCombosLineasAdicionales()
-
+
-        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
+        DdlProveedorLineaAdicionalModal.setEsWebService(True)
-            DdlProveedorLineaAdicionalModal.setEsWebService(True)
+        DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
-            DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicionalModal.SelectedText = "-"
-            DdlProveedorLineaAdicionalModal.SelectedText = "-"
+        DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
-            DdlProveedorLineaAdicionalModal.SelectedValue = "-1"
+
-
-
-
-        Else
-            DdlProveedorLineaAdicionalModal.setEsWebService(False)
-            DdlProveedorLineaAdicionalModal.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
-            DdlProveedorLineaAdicionalModal.ddl.DataBind()
-            DdlProveedorLineaAdicionalModal.ddl.Items.Insert(0, New ListItem("-", "-1"))
-        End If
-
-
-
         DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoriaLineaAdicionalModal.DataBind()
-        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
+        DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
-
+
-
-
     End Sub
 
     Private Sub GetLineasAdicionales()

Ventas/ClientesAbonar.aspx

@@ -224,6 +224,15 @@
                                 </div>
 
                             </div>
+                            <div class="row" id="divPrestamo" runat="server" visible="false"  >
+                                <div class="col-md-2" >Préstamo:</div>
+                                <div class="col-md-3">
+                                    <asp:TextBox ID="TxtPrestamo" runat="server"  Width ="100px" ClientIDMode="Static" />
+                                </div>
+                                 <div class="col-md-2">
+                                       <asp:DropDownList ID="DdlPrestamo" runat="server" Width="40px"  DataTextField="RazonSocial" DataValueField="CveIE"></asp:DropDownList>
+                                 </div>
+                            </div>
 
                             <asp:UpdatePanel ID="UpCuentaDeposito" UpdateMode="Conditional" runat="server">
                                 <ContentTemplate>

Ventas/ClientesAbonar.aspx.vb

@@ -1811,13 +1811,6 @@ Partial Class Ventas_ClientesAbonar
 
             If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then
                 ObjFacturaDevolucion.Version = "4.0"
-
-                'If ObjFacturaDevolucion.Cliente Is Nothing Then
-                '    ObjFacturaDevolucion.Cliente = New Modelos.ClienteModel
-                'End If
-
-                'ObjFacturaDevolucion.Cliente.CodigoRegimenFiscal = ClienteCodigoRegimenFiscal
-                'ObjFacturaDevolucion.Cliente.RegimenFiscal = ClienteRegimenFiscal
             Else
                 ObjFacturaDevolucion.Version = "3.3"
             End If
@@ -1826,9 +1819,12 @@ Partial Class Ventas_ClientesAbonar
             ObjFacturaDevolucion.MetodoPago33 = "PUE - Pago en una sola exhibición"
             ObjFacturaDevolucion.ClaveMetodoPagoSAT = "PUE"
 
-            ObjFacturaDevolucion.CveFormaPago33 = 21
+            Dim drtt As DataRow = GlobalDTTipoTransacciones.FiltroPrimero("CveTipoTransaccion =" & DdlTipoTransaccion.SelectedValue)
-            ObjFacturaDevolucion.FormaPago33 = "30 - Aplicación de anticipos"
+            Dim dra As DataRow = GlobalDTVtaFormaPago.FiltroPrimero("CveFormaPago = " & drtt("CveFormaPago"))
-            ObjFacturaDevolucion.FormaPagoSAT33 = "30"
+
+            ObjFacturaDevolucion.CveFormaPago33 = dra("CveFormaPago").ToString
+            ObjFacturaDevolucion.FormaPago33 = dra("FormaPagoSAT").ToString
+            ObjFacturaDevolucion.FormaPagoSAT33 = dra("ClaveFormaPagoSAT").ToString
 
             ObjFacturaDevolucion.CveSubProyecto = CveSubProyecto
             ObjFacturaDevolucion.SetSubProyecto()
@@ -1840,9 +1836,9 @@ Partial Class Ventas_ClientesAbonar
             If ObjCliente.GetClientes(ObjFacturaDevolucion.CveCliente, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa, -1, TipoCliente:=-1) Then
                 If ObjCliente.DtResultados.Rows.Count > 0 Then
 
-                    ObjFacturaDevolucion.CveUsoCFDI = ObjCliente.CveUsoCFDI
+                    ObjFacturaDevolucion.CveUsoCFDI = 2
-                    ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
+                    ObjFacturaDevolucion.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", 2))
-                    ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
+                    ObjFacturaDevolucion.ClaveUsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", 2))
 
                     ObjFacturaDevolucion.DtDetalle = CreaDTDetalleNC()
 

Ventas/PV.aspx.vb

@@ -8552,7 +8552,7 @@ Partial Class PV
                 DdlRegimenFiscalCliente.DataBind()
             Else
                 Dim dt As DataTable = GlobalDTRegimenesFiscales(RdTipoPersona.SelectedValue.ToEntero).FiltraParametros("", "CodigoRegimenFiscal")
-                Dim Val As String
+                Dim Val As String = ""
 
                 If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
                     'verifico que sino existe el valor. lo limpie 

Ventas/PopUpBuscarFolio.aspx.vb

@@ -186,12 +186,21 @@ Partial Class PopUpBuscarFolio
                 e.Row.FCLiteral("LtlXML").Text = "<div class='truncate' style='width:23px;'></div>"
             End If
 
-            If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
+            If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+                If e.Row.DBCampo("TipoDocto") <> "Cot" AndAlso IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
             Else
-                e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                If IO.File.Exists($"{Ruta}PDF\{e.Row.DBCampo("TipoDocto")}\{e.Row.DBCampo("Folio")}.pdf") Then
+                    e.Row.FCLiteral("LtlPDF").Text = String.Format("<div class='truncate' style='width:23px;'><a class=""Texto"" target=""_blank""  href=""/Compras/PopUpVerFactura.aspx?TipoDocto={0}&File={1}.pdf&TipoArchivo=PDF"">PDF</a></div>", e.Row.DBCampo("TipoDocto"), e.Row.DBCampo("Folio"))
+                Else
+                    e.Row.FCLiteral("LtlPDF").Text = "<div class='truncate' style='width:23px;'></div>"
+                End If
             End If
 
+
         End If
     End Sub
 

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -36,7 +36,7 @@
             <div class="portlet light smmallpadding traspasorow bordered">
                 <div class="portlet-title">
                     <div class="caption font-green">
-                        <span class="caption-subject bold uppercase" style="line-height: 1;">Facturas Pendientes Por Respuesta</span>
+                        <span class="caption-subject bold uppercase" style="line-height: 1;">Facturas Pendientes Por Respuesta <asp:Literal ID="LtlFacturasPendiente" runat="server"></asp:Literal></span>
                     </div>
 
                     <div class="actions">

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -551,7 +551,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         if (DtVentas != null)
         {
             var sb = new StringBuilder();
-            foreach (DataRow Row in DtVentas.Rows)
+            foreach (DataRow Row in DtVentas.FiltraParametros("(CveEstatusFactura IN (20) AND CveEstatusRefacturacion IN (0,4))").Rows)
             {
                 int CveVenta = Row["CveVenta"].ToEntero();
                 string Total = Row["Total"].ToString();
@@ -564,7 +564,8 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                 int CveCliente = Row["CveCliente"].ToEntero();
                 if (CveVenta > 0)
                 {
-                    sb.AppendFormat("{0}<br/>", VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, SubTotal));
+                    var resp = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, SubTotal);
+                    sb.AppendFormat("{0}<br/>",resp.Mensaje);
                 }
             }
             Alert(sb.ToString());

Ventas/Ventas.aspx

@@ -3479,7 +3479,7 @@
                                     <td align="left">Forma de entrega:</td>
                                     <td align="left">
                                         <asp:DropDownList ID="DdlFormaEntrega" DataTextField="CondicionEntrega" DataValueField="CveCondicionEntrega" CssClass=" form-control input-sm select2me" runat="server" Width="200px">
-                                            <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                            <asp:ListItem Selected="True" Text="-" Value="-1"></asp:ListItem>
                                         </asp:DropDownList>
                                     </td>
                                 </tr>

Ventas/Ventas.aspx.vb

@@ -3440,6 +3440,10 @@ Partial Class Ventas
                 LblRotacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
                 LblAlineacion.Text = FechaRotaAlinea.AddMonths(6).ToShortDateString
 
+                If UsuarioActual.Empresa.Funcionalidad(558) = "1" AndAlso Me.CveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue = "Cot" Then
+                    HplDownPDF.Visible = False
+                End If
+
                 UPObservaciones.Update()
             End If