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

2023-02-08 19:41:48 -07:00
parent fda80d2018 3498b91ffc
commit 2bd559fbc0
65 changed files with 315 additions and 1862 deletions
--- a/AF/AF.aspx.vb
+++ b/AF/AF.aspx.vb
@@ -2568,9 +2568,6 @@ Partial Class AF_AF

                    End If

-
-
-
                End If

            End If
@@ -2581,7 +2578,7 @@ Partial Class AF_AF
                'Dim CveCuentaInv = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContableSIG", $"CveAlmacen={AFInvCveAlmacen}").ToEntero
                If Not ErrorGuardar Then
                    Dim CvePrePoliza As Integer = ObjContabilidad.AddPrePolizas("AF/ImportadoInv", 4, TxtValorCompra.Text.ToDouble, TxtValorCompra.Text.ToDouble, 1, Now, $"AF importado de Almacén {TxtCodigo.Text.Trim}", UsuarioActual.CveUsuario, CveEmpresaActual)
-                    If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(DdlCtaContable.SelectedValue.Trim.ToEntero, UsuarioActual.CveEmpresa), -1)) Then
+                    If ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, False, TxtValorCompra.Text.ToDecimal, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", 49, $"{TxtCodigo.Text.Trim} - {TxtDescripcion.Text.Trim}", Now, DdlCtaContable.SelectedValue.Trim.ToEntero, -1, CveActivoFijo:=CveActivoFijo, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then
                        If Not ErrorGuardar Then
                            If Not ObjContabilidad.AddPrePolizasDetalle(CvePrePoliza, True, TxtValorCompra.Text.ToDecimal, TxtCodigo.Text.Trim, 68, TxtCodigo.Text.Trim, Now, IDCtaContableInv, -1, CveMovimientoAlmacen:=CveMovimientoSalidaInv, ImporteMX:=TxtValorCompra.Text.ToDecimal) Then
                                ErrorGuardar = True
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1268,21 +1268,12 @@ Public Class ClsPaginas
    Public Shared Property GlobalDTProyectos(CveEmpresa As Integer, Optional Estatus As Integer = -1) As DataTable
        Get
            Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
-            'sino existe, recarga los datos
            If HttpContext.Current.Application(AppNombre) Is Nothing OrElse DirectCast(HttpContext.Current.Application(AppNombre), DataTable).Rows.Count = 0 Then
                Dim ObjProyectos As New ClsProyectos
                If ObjProyectos.GetProyectos(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjProyectos.DtResultados
                ObjProyectos.Dispose()
-                Dim msg As String = "aqui no se carga proyectos"
-                If HttpContext.Current.Request IsNot Nothing Then
-                    msg += HttpContext.Current.Request.ServerVariables("URL")
-                End If
-                msg.GuardaLog()
            End If
-            If Estatus <> -1 Then 'OrElse CveProyecto <> -1
-                'Dim StrSQL As New StringBuilder
-                'If Estatus <> -1 Then StrSQL.Append($"Estatus = {Estatus}")
-                'If CveProyecto <> -1 Then StrSQL.Append(" {If(StrSQL.Length > 0, "AND", "")} CveProyecto = {CveProyecto}")
+            If Estatus <> -1 Then
                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), $"CveEstatus = {Estatus}", "", DataViewRowState.CurrentRows)
                GlobalDTProyectos = Dv.ToTable
                Dv.Dispose()
@@ -1291,13 +1282,6 @@ Public Class ClsPaginas
            End If
        End Get
        Set(value As DataTable)
-            If value Is Nothing OrElse value.Rows.Count = 0 Then
-                Dim msg As String = "aqui no se carga proyectos"
-                If HttpContext.Current.Request IsNot Nothing Then
-                    msg += HttpContext.Current.Request.ServerVariables("URL")
-                End If
-                msg.GuardaLog()
-            End If
            Dim AppNombre As String = $"GlobalDTProyectos-{CveEmpresa}"
            HttpContext.Current.Application(AppNombre) = value
        End Set
@@ -1336,11 +1320,10 @@ Public Class ClsPaginas
                If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
                ObjSubProyectos.Dispose()
            End If
-            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEstatus <> -1 Then
                Dim StrSQL As New StringBuilder
                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
                If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
                If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -1363,10 +1346,9 @@ Public Class ClsPaginas
                If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
                ObjSubProyectos.Dispose()
            End If
-            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then
+            If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEstatus <> -1 Then
                Dim StrSQL As New StringBuilder
                If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
-                If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
                If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
                If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -4276,7 +4258,7 @@ Public Class ClsPaginas
        ObjUsuario.Dispose()
        Return Retorno
    End Function
-    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListBox = Nothing)
+    Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
        Select Case UsuarioActual.Empresa.Tipo_CentroCosto
            Case 1
                If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
@@ -4308,9 +4290,20 @@ Public Class ClsPaginas
            If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
        End If
        If DdlSubProyecto IsNot Nothing Then
-            DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
-            DdlSubProyecto.DataBind()
-            If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
+            CargarSubProyecto(DdlSubProyecto, "-1", AplicaTodos)
+        End If
+    End Sub
+    Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione")
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.ClearSelection()
+        DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1))
+        DdlSubProyecto.DataBind()
+        If AplicaTodos <> "" Then
+            If DdlSubProyecto.GetType() Is GetType(ListBox) Then
+                'DdlSubProyecto.Text = "Seleccione"
+            Else
+                DdlSubProyecto.Items.Insert(0, New ListItem(If(CveProyecto <> "-1", AplicaTodos, "Todos"), "-1"))
+            End If
        End If
    End Sub
    Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False)
@@ -7611,7 +7604,7 @@ Public Class ClsPaginas
                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, ImporteMN, 235, Pago.Referencia, Concepto, CompraActual.IdCtaContableProvComplementaria, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, ImporteME:=Pago.ImportePago, TipoCambio:=TCValuacionPago, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
            Else
                'Agregamos Nacional
-                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveVentaAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Pago.ImportePago, Pago.ImportePago, 60, Pago.Referencia, Concepto, CompraActual.IdCtaContableProv, CveCompra:=Pago.CveCompraAmortizacion, CveCompraAmortizacion:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal) Then ErrorMovtos = True
            End If
        End If
        If Pago.TipoPago = "DD" AndAlso Not ErrorMovtos Then '  D E U D O R   D I V E R S O  
@@ -8074,7 +8067,7 @@ Public Class ClsPaginas
    End Class
 #End Region

-#Region "GlobalSIGAppPaginas"
+#Region "Diccionario de páginas"
    Private Function Obt_ClavePagina(Pagina As String) As Integer
        Dim Retorno As Integer
        Dim PaginaDict As System.Collections.Hashtable
--- a/App_Code/ClsRH.vb
+++ b/App_Code/ClsRH.vb
@@ -1483,8 +1483,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
    Public Property CveMotivoBaja As Integer
    Public Property FechaBaja As Date
    Public Property CveEstatusPersonal As Integer
-    Public Property IdCtaContPrestamos As Integer
-    Public Property CveCuentaPrestamos As Integer
+    Public Property IdCtaContPrestamos As Integer
    Public Property CtaContPrestamos As String
    Public Property TelefonoExtension As String
    Public Property CelularPersonal As String
@@ -1538,8 +1537,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
    Public Property CveUsuario As Integer
    Public Property Usuario As String
    Public Property CveEmpresa As Integer
-    Public Property IdCtaContPersonal As Integer
-    Public Property CveCuentaPersonal As Integer
+    Public Property IdCtaContPersonal As Integer
    Public Property CtaContPersonal As String
    Public Property CvePersonalPadre As Integer

@@ -1700,10 +1698,8 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                Me.Jornada = Data.Rows(0)("Jornada").ToString
                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
-                CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
                CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
                IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
-                CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
                CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString
                CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
                CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero
@@ -1880,16 +1876,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
                Me.Jornada = Data.Rows(0)("Jornada").ToString
                Me.CveEmpresa = Data.Rows(0)("CveEmpresa").ToString.ToEntero
                IdCtaContPrestamos = Data.Rows(0)("IdCtaContPrestamos").ToString.ToEntero
-                CveCuentaPrestamos = Data.Rows(0)("IdCtaContPrestamosSIG").ToString.ToEntero
                CtaContPrestamos = Data.Rows(0)("CtaContPrestamos").ToString
                IdCtaContPersonal = Data.Rows(0)("IdCtaContPersonal").ToString.ToEntero
-                CveCuentaPersonal = Data.Rows(0)("IdCtaContPersonalSIG").ToString.ToEntero
                CtaContPersonal = Data.Rows(0)("CtaContPersonal").ToString
                CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
-                CvePersonalPadre = Data.Rows(0)("CvePersonalPadre").ToString.ToEntero
                CveUsuarioNomina = Data.Rows(0)("CveUsuarioNomina").ToString.ToEntero

-
            End If
            Retorno = True
        Catch ex As SqlException
--- a/App_Code/ClsSisEmpresas.vb
+++ b/App_Code/ClsSisEmpresas.vb
@@ -384,7 +384,6 @@ Public Class ClsSisEmpresas
                _Empresa.FacturaProduccion = If(Data.Rows(0)("FacturaProduccion").ToString = "", False, CBool(Data.Rows(0)("FacturaProduccion").ToString))
                _Empresa.EstatusFacturacion = Data.Rows(0)("EstatusFacturacion").ToString <> "No"
                _Empresa.UsaContabilidad = Data.Rows(0)("UsaContabilidad").ToString <> "No"
-                _Empresa.UsaContabilidadSIG = Data.Rows(0)("UsaContabilidadSIG").ToString <> "No"
                _Empresa.UsaBancos = Data.Rows(0)("UsaBancos").ToString <> "No"
                _Empresa.UsaVentas = Data.Rows(0)("UsaVentas").ToString <> "No"
                _Empresa.UsaCxC = Data.Rows(0)("UsaCxC").ToString <> "No"
--- a/App_Code/Empresa.vb
+++ b/App_Code/Empresa.vb
@@ -68,8 +68,7 @@ Public Class Empresa
    Public Property RegimenFiscal As String
    Public Property EstatusFacturacion As Boolean
    Public Property Estatus As Boolean
-    Public Property UsaContabilidad As Boolean
-    Public Property UsaContabilidadSIG As Boolean
+    Public Property UsaContabilidad As Boolean
    Public Property UsaBancos As Boolean
    Public Property UsaVentas As Boolean
    Public Property UsaCompras As Boolean
--- a/Bancos/PolizaCheque.aspx.vb
+++ b/Bancos/PolizaCheque.aspx.vb
@@ -954,7 +954,7 @@ Partial Class Bancos_PolizaCheque
                                                Importe = Importe * TC
                                            End If

-                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(gvr.DataKey("IDCuenta").ToEntero, UsuarioActual.CveEmpresa), -1), TipoCambio:=TC) Then
+                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Importe, Referencia, gvr.DataKey("CveConcepto").ToEntero, TxtObservaciones.Text, Now, gvr.DataKey("IDCuenta").ToEntero, -1, CveIE, CveProveedor:=CveProveedor, CveSubProyecto:=gvr.FCDropDownList("DdlSubProyecto").SelectedValue.ToEntero, CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, ImporteMX:=Importe, TipoCambio:=TC) Then
                                                MsgError = "no se pudo insertar el detalle de la póliza2"
                                            End If

--- a/Bancos/ProductosFinancieros.aspx.vb
+++ b/Bancos/ProductosFinancieros.aspx.vb
@@ -366,7 +366,7 @@ Partial Class Bancos_ProductosFinancieros
                            idCuentaContabilizacion = 0
                        End If

-                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), UsuarioActual.CveEmpresa), -1)) Then
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, "", If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, 42, ConceptoContable), DdlTipoMovimiento.SelectedItem.Text & If(TxtConcepto.Text.Trim.Length > 0, " - " & TxtConcepto.Text.Trim, ""), FechaMovimiento, If(DdlTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 AndAlso ConceptoContable = 30, DdlTarjeta.SelectedValue.ToEntero, IdCtaContablePP), -1, CveIE, ImporteMX:=importeMovimiento) Then
                            ErrorTransaccion = True
                        End If
                    End If
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -887,7 +887,7 @@ Partial Class Bancos_ProveedoresAbonar
                        If DivTarjeta.Visible AndAlso DdlTarjeta.SelectedValue.ToEntero > 0 Then
                            Dim ObjCreditos As New ClsBancos
                            ObjCreditos.GetTarjetasCreditos(DdlCuenta.SelectedValue.ToEntero, DdlTarjeta.SelectedValue.ToEntero)
-                            If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0 Or ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjetaSIG").ToString.ToEntero > 0) Then
+                            If ObjCreditos.DtResultados.Rows.Count > 0 AndAlso (ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero > 0) Then
                                IdCuenta = ObjCreditos.DtResultados.Rows(0)("IdCtaContableTarjeta").ToString.ToEntero
                            End If

--- a/Bancos/RepProgramarRecursos.aspx.vb
+++ b/Bancos/RepProgramarRecursos.aspx.vb
@@ -170,7 +170,7 @@ Partial Class Bancos_RepProgramarRecursos
                DdlSubProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
                DdlSubProyecto.DataBind()
                ' DdlEstatusCompra.SelectedValue = "2" 'las programadas
-                DdlAgrupador.SelectedValue = "2"
+                'DdlAgrupador.SelectedValue = "2"
                'Gv.Columns(8).Visible = True
                DdlSubProyecto.Items.Insert(1, New ListItem("Sin Proyecto", "-2"))

--- a/Bancos/Transferencias.aspx.vb
+++ b/Bancos/Transferencias.aspx.vb
@@ -390,7 +390,7 @@ Partial Class Bancos_Transferencias

                            For Each row As GridViewRow In GvTC.Rows

-                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble, CveCuenta:=If(UsuarioActual.Empresa.UsaContabilidad AndAlso UsuarioActual.Empresa.UsaContabilidadSIG, ObtenerCuentaDobleConta(If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), UsuarioActual.CveEmpresa), -1)) Then
+                                If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovtoDetalle, row.FCTextBox("TxtAbono").Text.ToDouble, $"Transferencia entre cuentas {TxtObservaciones.Text}", 41, $"Transferencia entre cuentas {TxtObservaciones.Text}", Now, If(row.DataKey("IdCtaContableTarjeta").ToEntero > 0, row.DataKey("IdCtaContableTarjeta").ToEntero, row.DataKey("IdCtaContable").ToEntero), -1, CveIEDestino, ImporteMX:=row.FCTextBox("TxtAbono").Text.ToDouble) Then
                                    MsgError = "Ocurrio un error al ingresar la prepoliza"
                                End If
                            Next
--- a/CGame/CatEstatus.aspx.VB
+++ b/CGame/CatEstatus.aspx.VB
@@ -1,7 +1,6 @@
 Option Strict On
 Imports System.Data
 Imports System.Collections.Generic
-Imports System.Linq
 Imports System.Linq
 Imports System.Web
 Imports System.Web.UI.WebControls
@@ -19,7 +18,9 @@
            Else
                Return -1
            End If
-        End Get
+        End Get
+        Set(value As Integer)
+            ViewState("CveEstatus") = value
        End Set
    End Property

--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1667,17 +1667,14 @@ Partial Class Compras_Compras

        'RegistraScript("ScrollVentanaAddProducto();")

-        If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(558) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es llantera. y citrícola
            divImportacion.Visible = True
            chkImportacion.Attributes.Add("onclick", "ChkImportacion(this);")

        End If

-
-
        MostrarOcultarColumnaIEPS()

-
    End Sub

 #Region "C A R G A S"
@@ -3198,13 +3195,12 @@ Partial Class Compras_Compras
                End If

                'Tiene Importacion
-                If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
-                    If dr("EsImportacion").ToString = "True" Then
+
+                If dr("EsImportacion").ToString = "True" Then
                        chkImportacion.Checked = True
                    Else
                        chkImportacion.Checked = False
                    End If
-                End If
                CargaComplementosPago()
                CargaGvBitacora()
                InventarioMov()
@@ -12286,6 +12282,7 @@ Partial Class Compras_Compras
                End Select
                romCreditosTabla.Visible = False
            Case "4"
+                EsContado = False
                CargaCreditosDisponibles()
                Exit Select
        End Select
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -697,7 +697,7 @@ Partial Class Compras_Proveedores
                DtCuentasContables = Nothing
            End If
            ObjContabilidad.Dispose()
-        ElseIf UsuarioActual.Empresa.UsaContabilidadSIG Then
+        ElseIf UsuarioActual.Empresa.TipoContabilidad = 1 Then
            Dim ObjContabilidad As New ClsContabilidad
            If ObjContabilidad.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then
                DtCuentasContables = ObjContabilidad.DtResultados
@@ -904,7 +904,7 @@ Partial Class Compras_Proveedores
                End If

                'Contable
-                If UsuarioActual.Empresa.UsaContabilidad Or UsuarioActual.Empresa.UsaContabilidadSIG Then
+                If UsuarioActual.Empresa.UsaContabilidad Then
                    DdlCtaContAcreedores.AutoPostBack = True
                    DdlCtaContProveedores.AutoPostBack = True
                    DdlCtaContAnticipos.AutoPostBack = True
@@ -943,29 +943,6 @@ Partial Class Compras_Proveedores
                    DdlCtaContRetISRAcreditable.Attributes.Add("onclick", "CargaCuentas(19);")
                    DdlCtaContRetIVAAcreditable.Attributes.Add("onclick", "CargaCuentas(20);")

-                    If UsuarioActual.Empresa.UsaContabilidadSIG = True And UsuarioActual.Empresa.UsaContabilidad = False Then
-                        DdlCtaContAcreedores.DataTextField = "Cuenta" : DdlCtaContAcreedores.DataValueField = "CveCuenta"
-                        DdlCtaContProveedores.DataTextField = "Cuenta" : DdlCtaContProveedores.DataValueField = "CveCuenta"
-                        DdlCtaContAnticipos.DataTextField = "Cuenta" : DdlCtaContAnticipos.DataValueField = "CveCuenta"
-                        DdlCtaContFondoGarantia.DataTextField = "Cuenta" : DdlCtaContFondoGarantia.DataValueField = "CveCuenta"
-                        DdlCtaContRetIVA.DataTextField = "Cuenta" : DdlCtaContRetIVA.DataValueField = "CveCuenta"
-                        DdlCtaContRetIVAAcreditable.DataTextField = "Cuenta" : DdlCtaContRetIVAAcreditable.DataValueField = "CveCuenta"
-                        DdlCtaContRetISR.DataTextField = "Cuenta" : DdlCtaContRetISR.DataValueField = "CveCuenta"
-                        DdlCtaContComplementaria.DataTextField = "Cuenta" : DdlCtaContComplementaria.DataValueField = "CveCuenta"
-                        DdlCtaContExtranjera.DataTextField = "Cuenta" : DdlCtaContExtranjera.DataValueField = "CveCuenta"
-                        DdlCtaContDeudor.DataTextField = "Cuenta" : DdlCtaContDeudor.DataValueField = "CveCuenta"
-                        DdlCtaContDeudorExtranjera.DataTextField = "Cuenta" : DdlCtaContDeudorExtranjera.DataValueField = "CveCuenta"
-                        DdlCtaContDocsXPagar.DataTextField = "Cuenta" : DdlCtaContDocsXPagar.DataValueField = "CveCuenta"
-                        DdlCtaContDeudorComplementaria.DataTextField = "Cuenta" : DdlCtaContDeudorComplementaria.DataValueField = "CveCuenta"
-                        DdlCtaContDocsXPagarComplementaria.DataTextField = "Cuenta" : DdlCtaContDocsXPagarComplementaria.DataValueField = "CveCuenta"
-                        DdlCtaContRetISRAcreditable.DataTextField = "Cuenta" : DdlCtaContRetISRAcreditable.DataValueField = "CveCuenta"
-                        DdlCtaContAcreedoresExtranjera.DataTextField = "Cuenta" : DdlCtaContAcreedoresExtranjera.DataValueField = "CveCuenta"
-                        DdlCtaContAcreedoresComplementaria.DataTextField = "Cuenta" : DdlCtaContAcreedoresComplementaria.DataValueField = "CveCuenta"
-                        DdlCtaContAnticiposExtranjera.DataTextField = "Cuenta" : DdlCtaContAnticiposExtranjera.DataValueField = "CveCuenta"
-                        DdlCtaContAnticiposComplementaria.DataTextField = "Cuenta" : DdlCtaContAnticiposComplementaria.DataValueField = "CveCuenta"
-                        DdlCtaContDocsXPagarExtranjera.DataTextField = "Cuenta" : DdlCtaContDocsXPagarExtranjera.DataValueField = "CveCuenta"
-                    End If
-
                    'Proveedores
                    If ObjProveedor.IdCtaContProveedores > 0 Then DdlCtaContProveedores.Items.Add(New ListItem(ObjProveedor.CtaContProveedores, ObjProveedor.IdCtaContProveedores.ToString)) : DdlCtaContProveedores.SelectedValueExist(ObjProveedor.IdCtaContProveedores.ToString)
                    If ObjProveedor.IdCtaContProveedoresExtranjera > 0 Then DdlCtaContExtranjera.Items.Add(New ListItem(ObjProveedor.CtaContProveedoresExtranjera, ObjProveedor.IdCtaContProveedoresExtranjera.ToString)) : DdlCtaContExtranjera.SelectedValue = ObjProveedor.IdCtaContProveedoresExtranjera.ToString
@@ -4542,92 +4519,92 @@ Partial Class Compras_Proveedores
            ObjProveedores.Dispose()


-        ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then
+            'ElseIf UsuarioActual.Empresa.UsaContabilidadSIG = True Then


-            Dim ObjContabilidad As New ClsContabilidad
-            Dim ObjProveedores As New ClsCompProveedores()
-            ObjContabilidad.IniciaTransacSQL()
-            ObjProveedores.IniciaTransacSQL()
-            Dim CuentaPadre = -1
-            Dim IdCuentaContable = -1
-            Dim CtaCodigo As String = ""
-            Dim TieneError = False
-            Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
-            Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"
+            '    Dim ObjContabilidad As New ClsContabilidad
+            '    Dim ObjProveedores As New ClsCompProveedores()
+            '    ObjContabilidad.IniciaTransacSQL()
+            '    ObjProveedores.IniciaTransacSQL()
+            '    Dim CuentaPadre = -1
+            '    Dim IdCuentaContable = -1
+            '    Dim CtaCodigo As String = ""
+            '    Dim TieneError = False
+            '    Dim IdCtaContableProveedores As Integer = -1, IdCtaContableAcreedores As Integer = -1, IdCtaContableDocsXPagar As Integer = -1, IdCtaContableAnticipos As Integer = -1, IdCtaContableDeudor As Integer = -1
+            '    Dim CtaCodigoProveedores As String = "-1", CtaCodigoAcreedores As String = "-1", CtaCodigoDocsXPagar As String = "-1", CtaCodigoAnticipos As String = "-1", CtaCodigoDeudor As String = "-1"


-            Select Case btn.CommandArgument.ToString
-                Case "Proveedores"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
-                Case "Acreedores"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
-                Case "DocsXPagar"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
-                Case "Anticipos"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
-                Case "Deudores"
-                    CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero
+            '    Select Case btn.CommandArgument.ToString
+            '        Case "Proveedores"
+            '            CuentaPadre = UsuarioActual.Empresa.Funcionalidad(232).ToEntero
+            '        Case "Acreedores"
+            '            CuentaPadre = UsuarioActual.Empresa.Funcionalidad(235).ToEntero
+            '        Case "DocsXPagar"
+            '            CuentaPadre = UsuarioActual.Empresa.Funcionalidad(236).ToEntero
+            '        Case "Anticipos"
+            '            CuentaPadre = UsuarioActual.Empresa.Funcionalidad(238).ToEntero
+            '        Case "Deudores"
+            '            CuentaPadre = UsuarioActual.Empresa.Funcionalidad(234).ToEntero

-            End Select
+            '    End Select

-            Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
-            IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
-            If IdCuentaContable > 0 Then
+            '    Dim NombreCuenta = If(TxtRazonSocial.Text.Trim.Length > 50, TxtRazonSocial.Text.Trim.Substring(0, 50), TxtRazonSocial.Text.Trim)
+            '    IdCuentaContable = ObjContabilidad.AddSiguienteCuentaHijo(CuentaPadre, NombreCuenta, UsuarioActual.CveEmpresa)
+            '    If IdCuentaContable > 0 Then

-                ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
-                Dim dt = ObjContabilidad.DtResultados
+            '        ObjContabilidad.GetCuentas(IdCuentaContable, "-1", -1, UsuarioActual.CveEmpresa)
+            '        Dim dt = ObjContabilidad.DtResultados

-                If dt.Rows.Count = 1 Then
+            '        If dt.Rows.Count = 1 Then

-                    Dim row As DataRow = dt.Rows(0)
-                    CtaCodigo = CStr(row("CtaCodigo"))
+            '            Dim row As DataRow = dt.Rows(0)
+            '            CtaCodigo = CStr(row("CtaCodigo"))

-                    Select Case btn.CommandArgument.ToString
-                        Case "Proveedores"
-                            IdCtaContableProveedores = IdCuentaContable
-                            CtaCodigoProveedores = CtaCodigo
-                        Case "Acreedores"
-                            IdCtaContableAcreedores = IdCuentaContable
-                            CtaCodigoAcreedores = CtaCodigo
-                        Case "DocsXPagar"
-                            IdCtaContableDocsXPagar = IdCuentaContable
-                            CtaCodigoDocsXPagar = CtaCodigo
-                        Case "Anticipos"
-                            IdCtaContableAnticipos = IdCuentaContable
-                            CtaCodigoAnticipos = CtaCodigo
-                        Case "Deudores"
-                            IdCtaContableDeudor = IdCuentaContable
-                            CtaCodigoDeudor = CtaCodigo
-                    End Select
+            '            Select Case btn.CommandArgument.ToString
+            '                Case "Proveedores"
+            '                    IdCtaContableProveedores = IdCuentaContable
+            '                    CtaCodigoProveedores = CtaCodigo
+            '                Case "Acreedores"
+            '                    IdCtaContableAcreedores = IdCuentaContable
+            '                    CtaCodigoAcreedores = CtaCodigo
+            '                Case "DocsXPagar"
+            '                    IdCtaContableDocsXPagar = IdCuentaContable
+            '                    CtaCodigoDocsXPagar = CtaCodigo
+            '                Case "Anticipos"
+            '                    IdCtaContableAnticipos = IdCuentaContable
+            '                    CtaCodigoAnticipos = CtaCodigo
+            '                Case "Deudores"
+            '                    IdCtaContableDeudor = IdCuentaContable
+            '                    CtaCodigoDeudor = CtaCodigo
+            '            End Select


-                    If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
-                        TieneError = True
-                    End If
-                Else
-                    TieneError = True
-                End If
-            Else
-                TieneError = True
-            End If
+            '            If Not ObjProveedores.VincularCuentasContables(IdCtaContableProveedores, CtaCodigoProveedores, IdCtaContableAcreedores, CtaCodigoAcreedores, IdCtaContableAnticipos, CtaCodigoAnticipos, IdCtaContableDeudor, CtaCodigoDeudor, IdCtaContableDocsXPagar, CtaCodigoDocsXPagar, CveProveedor) Then
+            '                TieneError = True
+            '            End If
+            '        Else
+            '            TieneError = True
+            '        End If
+            '    Else
+            '        TieneError = True
+            '    End If


-            If Not TieneError Then
-                Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
-                ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
-                btn.Visible = False
-                ddl.Width = 206
-                ObjProveedores.Commit()
-                ObjContabilidad.Commit()
-            Else
-                Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
-                ObjProveedores.RollBack()
-                ObjContabilidad.RollBack()
-            End If
+            '    If Not TieneError Then
+            '        Alert(String.Format("Se registo la Cuenta Contable: {0}", CtaCodigo, TipoMensaje.MsgInformacion))
+            '        ddl.Items.Add(New ListItem(CtaCodigo, IdCuentaContable.ToString)) : ddl.SelectedValueExist(IdCuentaContable.ToString)
+            '        btn.Visible = False
+            '        ddl.Width = 206
+            '        ObjProveedores.Commit()
+            '        ObjContabilidad.Commit()
+            '    Else
+            '        Alert("Esta cuenta no puede tener Sub Cuentas.", TipoMensaje.MsgError)
+            '        ObjProveedores.RollBack()
+            '        ObjContabilidad.RollBack()
+            '    End If

-            ObjProveedores.Dispose()
-            ObjContabilidad.Dispose()
+            '    ObjProveedores.Dispose()
+            '    ObjContabilidad.Dispose()
        End If

        UPPContable.Update()
--- a/Compras/RepCompras.aspx
+++ b/Compras/RepCompras.aspx
@@ -162,9 +162,7 @@
                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                        </div>
                        <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                        <div class="col-md-2">
--- a/Compras/RepCompras.aspx.vb
+++ b/Compras/RepCompras.aspx.vb
@@ -63,65 +63,13 @@ Partial Class Compras_RepCompras
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("3")
    End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-        End If
-        DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
-        DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
-    End Sub

    Private Sub CargaCombos()
-        txtFechaI.Text = $"01/01/{Now.Year}"
+        txtFechaI.Text = $"01/01/{Now.Year}"
+
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        'CargaProveedores
        DdlProveedores.setEsWebService(True)
        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -144,38 +92,22 @@ Partial Class Compras_RepCompras
        DdlMonedas.DataSource = GlobalDTMonedas()
        DdlMonedas.DataBind()

-        'CargaProyecto
-        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
-        DdlProyecto.DataBind()
-
        'Carga Grupo
        CargaGrupo()
-
-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
    End Sub

-
-
    Private Sub ConfiguraEmpresa()
        ChkIVA.Checked = True
        If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
-    End Sub
-
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero))
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "SELECTED INDEX CHANGE"
-
+
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -50,16 +50,6 @@ Partial Class Compras_RepComprasAF
        If Not IsPostBack Then
            CargaCombos()
            'DdlPS.ddl.Visible = False
-            If UsuarioActual.Empresa.GralSoloProyecto Then
-                LblSubProyecto.Text = "Proyecto:"
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                DdlSubProyecto.DataBind()
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-                LblProyecto.Visible = False
-            End If
        End If
    End Sub

@@ -110,19 +100,7 @@ Partial Class Compras_RepComprasAF
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        If DdlProyecto.SelectedValue = "-1" Then
-            DdlProyecto.Items.Clear()
-            DdlSubProyecto.Items.Clear()
-            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
-        Else
-            CargaSubProyecto()
-        End If
-    End Sub
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -149,21 +149,6 @@ Partial Class Compras_RepComprasAFDetalle
                Dim asd As Integer = 1
            End Try

-            If UsuarioActual.Empresa.GralSoloProyecto Then
-
-                LblSubProyecto.Text = "Proyecto:"
-                DdlSubProyecto.Items.Clear()
-                DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-                DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-                DdlSubProyecto.SelectedValue = "-1"
-                DdlSubProyecto.DataBind()
-                'DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
-                DdlProyecto.Visible = False
-                DdlProyecto.Items(0).Text = ""
-                LblProyecto.Visible = False
-
-            End If
-
            If UsuarioActual.CveEmpresa = 72 Then
                GvDatos.FBColumn("NoSerie").Visible = True
            End If
@@ -175,6 +160,8 @@ Partial Class Compras_RepComprasAFDetalle

    Private Sub CargaCombos()

+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedores.DataBind()

@@ -182,13 +169,9 @@ Partial Class Compras_RepComprasAFDetalle
            DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
        End If

-
        DdlMonedas.DataSource = GlobalDTMonedas()
        DdlMonedas.DataBind()

-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
        DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
        DdlTipoActivoFijo.DataBind()

@@ -206,14 +189,12 @@ Partial Class Compras_RepComprasAFDetalle
            DdlClasificacion2.DataSource = Nothing
        End If

-
        ObjClasificacion.Dispose()
        DdlClasificacion2.DataBind()
        DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1"))
        DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
        DdlClasificacion2.SelectedValueExist(-1)

-
        DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
        DdlActivoFijo.DataBind()
        DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -230,33 +211,17 @@ Partial Class Compras_RepComprasAFDetalle
            DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
        End If

-        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
-
    End Sub

    Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
-
        DdlSubTipoActivoFijo.Items.Clear()
-        DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo")
+        DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}", "SubTipoActivoFijo")
        DdlSubTipoActivoFijo.DataBind()
        DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubTipoActivoFijo.SelectedIndex = 0
-
    End Sub
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        If DdlProyecto.SelectedValue = "-1" Then
-            DdlProyecto.Items.Clear()
-            DdlSubProyecto.Items.Clear()
-            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
-        Else
-            CargaSubProyecto()
-        End If
-    End Sub
-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
--- a/Compras/RepComprasDetalle.aspx
+++ b/Compras/RepComprasDetalle.aspx
@@ -201,9 +201,7 @@
                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                        </div>
                        <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                        <div class="col-md-2">
--- a/Compras/RepComprasDetalle.aspx.vb
+++ b/Compras/RepComprasDetalle.aspx.vb
@@ -134,7 +134,6 @@ Partial Class Compras_RepComprasDetalle
        End If

        DdlProyecto.SelectedValueExist(CveProyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()

        'CARGA LISTBOXs
        DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
@@ -177,62 +176,11 @@ Partial Class Compras_RepComprasDetalle
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("3")
    End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
-            DdlGrupo.DataBind()
-        End If
-        DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
-        DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
-    End Sub
    Private Sub CargaCombos()

+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        'Carga Tipo de Gasto
        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
        DdlTipoGasto.DataBind()
@@ -252,23 +200,11 @@ Partial Class Compras_RepComprasDetalle
        DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
        DDlUsuarioCaptura.DataBind()

-        'CargaProyecto
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
        'Carga Grupos
        CargaGrupo()

-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
-
    End Sub

-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-    End Sub

    Private Sub CargaDatos()
        Dim ObjCompras As New ClsCompras()
@@ -321,7 +257,7 @@ Partial Class Compras_RepComprasDetalle
 #Region "SELECTED INDEX CHANGE"

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
--- a/Compras/RepComprasPeriodo.aspx
+++ b/Compras/RepComprasPeriodo.aspx
@@ -100,15 +100,11 @@
                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                        </div>
                        <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <div class="col-md-1">Fecha I. Captura</div>
                        <div class="col-md-1">
--- a/Compras/RepComprasPeriodo.aspx.vb
+++ b/Compras/RepComprasPeriodo.aspx.vb
@@ -48,60 +48,11 @@ Partial Class Compras_RepComprasPeriodo
        DdlGrupo.SelectedValueExist("3")
    End Sub

-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            DivLblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-
-            DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
-            DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
    Private Sub CargaCombos()

+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        'Carga Proveedores
        DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
        DdlProveedores.DataBind()
@@ -122,15 +73,9 @@ Partial Class Compras_RepComprasPeriodo
        DdlMonedas.DataSource = GlobalDTMonedas()
        DdlMonedas.DataBind()

-        'CargaProyecto
-        DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
-        DdlProyecto.DataBind()
-
        'Carga Grupo
        CargaGrupo()

-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
    End Sub

    Private Sub CargaDatos()
@@ -167,18 +112,12 @@ Partial Class Compras_RepComprasPeriodo
    End Sub


-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero))
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 #End Region

 #Region "SELECTED INDEX CHANGE"

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged
--- a/Compras/RepPagado.aspx
+++ b/Compras/RepPagado.aspx
@@ -98,12 +98,12 @@
                </div>
                <div class="portlet-body" style="display: none;">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
--- a/Compras/RepPagado.aspx.cs
+++ b/Compras/RepPagado.aspx.cs
@@ -36,6 +36,8 @@ public partial class Compras_RepPagado : ClsPaginas

    private void InicializaValores()
    {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
+
        //Carga Moneda
        DdlMoneda.DataSource = GlobalDTMonedas;
        DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -69,60 +71,6 @@ public partial class Compras_RepPagado : ClsPaginas

        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{DateTime.Now.Year}";
        TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
-
-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario,-1,UsuarioActual.Empresa.CveEmpresa,1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
    }

    private void CargaCuentasBancarias()
@@ -153,7 +101,7 @@ public partial class Compras_RepPagado : ClsPaginas

    protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
    {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
    }

    protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
--- a/Compras/RepPagadoDetalle.aspx
+++ b/Compras/RepPagadoDetalle.aspx
@@ -85,12 +85,12 @@
                </div>
                <div class="portlet-body" style="display: none;">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
--- a/Compras/RepPagadoDetalle.aspx.cs
+++ b/Compras/RepPagadoDetalle.aspx.cs
@@ -41,6 +41,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas

    private void InicializaValores()
    {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
+
        //Carga Moneda
        DdlMoneda.DataSource = GlobalDTMonedas;
        DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -71,16 +73,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas

        txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
        txtFechaF.Text = DateTime.Now.ToShortDateString();
-
-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
-
        txtFechaI.Text = Request["FechaI"] == null ? "" : Request["FechaI"].ToString();
        txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString();
        TxtFechaICompra.Text = Request["FechaICompra"] == null ? "" : Request["FechaICompra"].ToString();
@@ -89,23 +81,17 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
        DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
        DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
        
-        
        if (Request["CveProveedor"] != null  && Request["CveProveedor"].ToString().ToEntero() > 0)
        {
-
            DataRow DrowProveedor;
            int CveProveedor = Request["CveProveedor"].ToString().ToEntero();

            DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];

-
            DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
            DdlProveedores.txtValue.Value = CveProveedor.ToString();
        }

-
-        
-
        DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
        DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
        DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());
@@ -138,51 +124,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
        CargaDatos();
    }

-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
-    }
-
    private void CargaCuentasBancarias()
    {
        DdlCuentaBancaria.Items.Clear();
@@ -211,7 +152,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas

    protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
    {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
    }

    protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
--- a/Compras/RepPagadoPeriodo.aspx
+++ b/Compras/RepPagadoPeriodo.aspx
@@ -104,12 +104,12 @@
                </div>
                <div class="portlet-body" style="display: none;">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
                            </asp:DropDownList>
--- a/Compras/RepPagadoPeriodo.aspx.cs
+++ b/Compras/RepPagadoPeriodo.aspx.cs
@@ -78,61 +78,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
        TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
        TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();

-        //Carga Proyectos
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-
-        CargaSubProyectos();
-
-        CargaTipoCentroCosto();
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-        }
-    }
-
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlSubProyecto.DataBind();
-    }
-
    private void CargaCuentasBancarias()
    {
        DdlCuentaBancaria.Items.Clear();
@@ -352,7 +299,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas

    protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
    {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
    }

    protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)
--- a/Compras/RepProductosServicios.aspx
+++ b/Compras/RepProductosServicios.aspx
@@ -177,17 +177,13 @@
                        </div>
                    </div>
                    <div class="row">
-                        <label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
                        <div id="DivProyecto" runat="server" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
                        </div>
-                        <label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
                        <div class="col-md-2">
-                           <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
+                           <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" AutoPostBack="true"></asp:ListBox>
                        </div>

--- a/Compras/RepProductosServicios.aspx.vb
+++ b/Compras/RepProductosServicios.aspx.vb
@@ -62,11 +62,7 @@ Partial Class Compras_RepProductosServicios

    Private Sub SetValues()

-        'Cargo Proyectos 
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
-        'CAarga Tipos de Gasto
+        'Carga Tipos de Gasto
        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
        DdlTipoGasto.DataBind()

@@ -118,7 +114,7 @@ Partial Class Compras_RepProductosServicios
        CargaGrupo()

        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)

        If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
            lblCultivo.Visible = True
@@ -159,7 +155,6 @@ Partial Class Compras_RepProductosServicios

        RowActivoFijo.Visible = True

-
        'Carga Fechas
        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
        txtFechaF.Text = Now.ToShortDateString
@@ -186,63 +181,9 @@ Partial Class Compras_RepProductosServicios
            DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
        End If

-
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("8")
    End Sub
-    Private Sub CargaTipoCentroCosto()
-
-
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Centro de costo"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.DataBind()
-            LblSubProyecto.InnerText = "Proyecto"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Proyecto<br/>:"
-            LblSubProyecto.InnerText = "Subproyecto:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub

    Private Sub CargaDatos()
        Dim ObjCompras As New ClsCompras()
@@ -389,12 +330,7 @@ Partial Class Compras_RepProductosServicios
 #Region " SELECTED 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 = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
-            DdlSubProyecto.DataBind()
-        End If
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
@@ -406,7 +342,6 @@ Partial Class Compras_RepProductosServicios
            DdlCultivo.DataSource = Nothing
            DdlCultivo.DataBind()
        End If
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged
--- a/Compras/RepProductosServiciosDetalle.aspx
+++ b/Compras/RepProductosServiciosDetalle.aspx
@@ -169,17 +169,13 @@
                        </div>
                    </div>
                    <div class="row">
-                        <label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
                        <div id="DivProyecto" runat="server" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
                        </div>
-                        <label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
                        <div class="col-md-2">
-                     <%--       <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
-                                <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>--%>
+                     <%--       <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                        </div>
                        <label class="col-md-1 truncate">Estatus</label>
--- a/Compras/RepProductosServiciosDetalle.aspx.vb
+++ b/Compras/RepProductosServiciosDetalle.aspx.vb
@@ -130,7 +130,6 @@ Partial Class Compras_RepProductosServiciosDetalle
            End If
        End If
        DdlProyecto.SelectedValueExist(Proyecto)
-        If DivProyecto.Visible Then CargaSubProyecto()
        'CARGA LISTBOXs
        DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
        DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
@@ -181,12 +180,10 @@ Partial Class Compras_RepProductosServiciosDetalle

    Private Sub SetValues()

-        'Cargo Proyectos 
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
+        'Carga Tipo Centro de Costo
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)

-
-        'CAarga Tipos de Gasto
+        'Carga Tipos de Gasto
        DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
        DdlTipoGasto.DataBind()

@@ -237,10 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
        'Carga Grupos
        CargaGrupo()

-        'Carga Tipo Centro de Costo
-        CargaTipoCentroCosto()
-
-
        'CARGA COSTOS
        If UsuarioActual.CveEmpresa = 66 Then

@@ -269,7 +262,6 @@ Partial Class Compras_RepProductosServiciosDetalle

        RowActivoFijo.Visible = True

-
        'Carga Fechas
        txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
        txtFechaF.Text = Now.ToShortDateString
@@ -298,103 +290,6 @@ Partial Class Compras_RepProductosServiciosDetalle
        DdlGrupo.DataBind()
        DdlGrupo.SelectedValueExist("8")
    End Sub
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Centro de costo"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.DataBind()
-            LblSubProyecto.InnerText = "Proyecto"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Proyecto<br/>:"
-            LblSubProyecto.InnerText = "Subproyecto:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-            DdlGrupo.DataBind()
-        End If
-        'If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-        '    DdlSubProyecto.Items.Clear()
-        '    DivProyecto.Visible = False
-        '    LblProyecto.Visible = False
-        '    LblSubProyecto.InnerText = "Sucursal:"
-
-        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        '    DdlSubProyecto.DataBind()
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-        '    DdlSubProyecto.Items.Clear()
-        '    DivProyecto.Visible = False
-        '    LblProyecto.Visible = False
-        '    LblSubProyecto.InnerText = "Proyecto:"
-
-        '    DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        '    'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        '    DdlSubProyecto.DataBind()
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-        '    LblProyecto.InnerText = "Sucursal:"
-        '    LblSubProyecto.InnerText = "Proyecto:"
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "2"))
-        '    DdlGrupo.DataBind()
-
-        'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-        '    LblProyecto.InnerText = "Proyecto:"
-        '    LblSubProyecto.InnerText = "Sucursal:"
-
-        '    DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-        '    DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
-        '    DdlGrupo.DataBind()
-        'End If
-    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
@@ -455,14 +350,6 @@ Partial Class Compras_RepProductosServiciosDetalle
        Agrupador = DdlGrupo.SelectedItem.Text
    End Sub

-    Private Sub CargaSubProyecto()
-        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
    Private Sub CargaCultivo()
        DdlCultivo.Items.Clear()
        If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
@@ -472,18 +359,16 @@ Partial Class Compras_RepProductosServiciosDetalle
            DdlCultivo.DataSource = Nothing
            DdlCultivo.DataBind()
        End If
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

 #End Region

 #Region "SELECT INDEX CHANGED"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub
    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
        CargaCultivo()
-        ' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
    End Sub

    'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
--- a/Compras/RepProductosServiciosPeriodo.aspx
+++ b/Compras/RepProductosServiciosPeriodo.aspx
@@ -102,15 +102,11 @@
                            <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
                        </div>
                        <div class="col-md-2" runat="server" id="DivProyecto">
-                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                        <div class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
-                                <asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
                        </div>
                        <div class="col-md-1">Fecha I. Captura</div>
                        <div class="col-md-1">
--- a/Compras/RepProductosServiciosPeriodo.aspx.cs
+++ b/Compras/RepProductosServiciosPeriodo.aspx.cs
@@ -58,68 +58,11 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
        DdlGrupo.Items.Insert(4, new ListItem("Mes", "7"));
        DdlGrupo.Items.Insert(5, new ListItem("Año/Mes", "8"));
        DdlGrupo.Items.Insert(6, new ListItem("Fecha", "9"));
-        DdlGrupo.Items.Insert(7, new ListItem("Proveedor", "10"));
-        DdlGrupo.Items.Insert(8, new ListItem("Usuario", "11"));
-        DdlGrupo.Items.Insert(9, new ListItem("Estatus Fact.", "12"));
-        DdlGrupo.DataBind();
-        DdlGrupo.SelectedValueExist("8");
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            DivLblProyecto.Visible = false;
-            LblSubProyecto.Text = "Sucursal:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            DivLblProyecto.Visible = false;
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 3)
-        {
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.Text = "Sucursal:";
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("Proyecto", "2"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.Text = "Proyecto:";
-            LblSubProyecto.Text = "Sucursal:";
        DdlGrupo.Items.Insert(7, new ListItem("Proveedor", "10"));
        DdlGrupo.Items.Insert(8, new ListItem("Usuario", "11"));
+        DdlGrupo.Items.Insert(9, new ListItem("Estatus Fact.", "12"));
+        DdlGrupo.DataBind();
+        DdlGrupo.SelectedValueExist("8");
    }

    private void CargaCombos()
@@ -193,20 +136,8 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
            //Carga SubFamilias
            DdlSubFamilia.DataSource = get_GlobalDTSubFamilias(66);
            DdlSubFamilia.DataBind();
-
-            //COSTOS AF
-            DdlGrupo.Items.Insert(NumItems + 1, new ListItem("Costos por Activo Fijo", "14"));
-        }
-
-        RowActivoFijo.Visible = true;
-
-

            //COSTOS AF
-        ColumnasDistintaProyecto[0] = "CveProyecto";
-        ColumnasDistintaProyecto[1] = "Proyecto";
-        if (UsuarioActual.Empresa.Funcionalidad(102) == "1" && !UsuarioActual.TienePermisoProceso(110)) { DdlProyecto.DataSource=get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); } else { DdlProyecto.DataSource= get_GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); }
-        DdlProyecto.DataBind();
            DdlGrupo.Items.Insert(NumItems + 1, new ListItem("Costos por Activo Fijo", "14"));
        }

@@ -247,22 +178,13 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
                                           CveCategoria:DdlCategoria.SelectedValue.ToEntero(),CveFamilia: DdlFamilia.SelectedValue.ToEntero(),CveSubFamilia: DdlSubFamilia.SelectedValue.ToEntero(),
                                                CveTipoAF:DdlTipoAF.SelectedValue.ToEntero(), CveSubTipoAF:DdlSubTipoAF.SelectedValue.ToEntero(), CveActivoFijo: DdlAF.SelectedValue.ToEntero()))
        {
-            GvDatos.DataSource = ObjCompras.DtResultados;
-            DtDatos= ObjCompras.DtResultados;
-        }
-        ObjCompras.Dispose();
-        GvDatos.DataBind();
-        UPDatos.Update();
-    }
-
-    private void CargaSubProyectos()
            GvDatos.DataSource = ObjCompras.DtResultados;
            DtDatos= ObjCompras.DtResultados;
        }
        ObjCompras.Dispose();
        GvDatos.DataBind();
        UPDatos.Update();
-
+    }
    #endregion

    #region SELECTED INDEX CHANGE
--- a/Contabilidad/AuxiliarPrePolizas.aspx.cs
+++ b/Contabilidad/AuxiliarPrePolizas.aspx.cs
@@ -28,69 +28,14 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas

    private void InicializaValores()
    {
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
        txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
        txtFechaF.Text = DateTime.Now.ToShortDateString();
        DdlPlantillaPoliza.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa);
        DdlPlantillaPoliza.Items.Insert(0, new ListItem("Seleccione", "-1"));
        DdlPlantillaPoliza.DataBind();
        CargaConceptosContables();
-        DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1);
-        DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        DdlProyecto.DataBind();
-        CargaTipoCentroCosto();
-        if (DivProyecto.Visible)
-        {
-            CargaSubProyectos();
-        }
    }
-    private void CargaSubProyectos()
-    {
-        DdlSubProyecto.Items.Clear();
-        if (DdlProyecto.SelectedValue.ToEntero() > 0)
-        {
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1);
-            DdlSubProyecto.DataBind();
-        }
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-        UpSubProyecto.Update();
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.Text = "Sucursal:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.Text = "Proyecto:";
-
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.Text = "Sucursal:";
-            LblSubProyecto.Text = "Proyecto:";
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.Text = "Proyecto:";
-            LblSubProyecto.Text = "Sucursal:";
-        }
-    }
-
    protected void LnkExcel_Click(object sender, EventArgs e)
    {
        GenerarPDF("EXCEL");
@@ -158,7 +103,7 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas

    protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
    {
-        CargaSubProyectos();
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
    }

    protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -231,10 +231,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle


        If Not ErrorPlantilla Then
-            Using ObjContabilidad As New ClsContabilidad
-                If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
-                If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
-            End Using
+            GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
+            GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing
+            'Using ObjContabilidad As New ClsContabilidad
+            '    If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
+            '    If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
+            'End Using
        End If


@@ -244,13 +246,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
        Dim ObjPlantillaPolizaDetalle As New ClsContabilidad
        If ObjPlantillaPolizaDetalle.GetConta_PlantillasPolizasDetalle(-1, UsuarioActual.CveEmpresa) Then
            ViewState("DTPlantillaPolizaDetalle") = ObjPlantillaPolizaDetalle.DtResultados.FiltraParametros(String.Format(" CvePlantillaPoliza={0} AND CveEmpresa = {1}", CvePlantillaPoliza, UsuarioActual.CveEmpresa))
-
            ' GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, CvePlantillaPoliza) = ObjPlantillaPolizaDetalle.DtResultados
        End If
+        ObjPlantillaPolizaDetalle.Dispose()

        GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTContaPlantillasPolizasDetalle(UsuarioActual.CveEmpresa, -1) = Nothing

-        ObjPlantillaPolizaDetalle.Dispose()
    End Sub
    Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
        OcultaDiv()
--- a/GPS/FacturacionMasiva.aspx.vb
+++ b/GPS/FacturacionMasiva.aspx.vb
@@ -497,7 +497,6 @@ Partial Class Contratos_FacturacionMasiva
        ObjFactura.Folio = Folio.ToEntero
        'ObjFactura.Folio = If(ExFolioFactura, FolioXML.ToEntero, -1)
        ObjFactura.Serie = Serie
-        ObjFactura.CveMesa = -1
        ObjFactura.Fecha = DR("FechaVenc").ToString.ToDate
        ObjFactura.CvePrePoliza = -1
        ObjFactura.CveMetodoPago = 1
@@ -617,7 +616,7 @@ Partial Class Contratos_FacturacionMasiva
                           factura.TotalTC, factura.CveMoneda, factura.TipoCambio, factura.CveMetodoPago, factura.CondicionesPago, factura.FormaPago, factura.FechaPago, factura.Fecha, factura.MotivoDescuento,
                           factura.Observaciones, factura.FechaEjecucion, factura.CveVendedor, factura.Alfa1, factura.Alfa2,
                           factura.Alfa3, factura.Num1, factura.Num2, factura.Num3,
-                           factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.CveMesa, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa,
+                           factura.Fech1, factura.Fech2, factura.Fech3, factura.CveCorte, factura.NumeroPersonas, factura.CvePrePoliza, factura.CveUsuario, factura.CveEmpresa,
                           AtencionA:=factura.AtencionA, TelefonoGenerico:="", CveContrato:=factura.CveContrato, CveVentaPadre:=factura.CveVentaPadre, Det_FechaOrdenCompra:=factura.Det_FechaOrdenCompra, Det_OrdenCompra:=factura.Det_OrdenCompra, otros:=factura.Otros,
                           Entrega:="", Vigencia:=MinFecha,
                           CveAlmacenTraspasoDestino:=CveAlmacenTraspasoDestino, CveAlmacenTraspasoOrigen:=CveAlmacenTraspasoOrigen, CveDireccionEnvio:=-1, CveOC:=-1, IEPS:=factura.IEPSTC, Serie:=factura.Serie, CveCondicionEntrega:=-1,
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1339,7 +1339,7 @@ Partial Class Inventarios_EntregaAlmacen

        DtDatosDetalle.Rows.Add(Row)
        ActualizaBitacora()
-        If Not CargaMasivo Then RegistraScript("playsonidito('beep-07.wav')", "Sonidito")
+        RegistraScript("playsonidito('beep-07.wav')", "Sonidito")

        If Tipo = 1 Then
            TxtSerie.Text = ""
--- a/Inventarios/Remanufactura.aspx.vb
+++ b/Inventarios/Remanufactura.aspx.vb
@@ -87,6 +87,8 @@ Partial Class Inventarios_Remanufactura

    Public Sub InicializaValores()

+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        TxtFecha.Text = Now.ToShortDateString

        'Carga Clientes
@@ -106,15 +108,7 @@ Partial Class Inventarios_Remanufactura
        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlAlmacen.DataBind()

-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProyecto.DataBind()
-
        CargaFolio()
-
-        CargaTipoCentroCosto()
-
        CreaDTVentas()

    End Sub
@@ -133,37 +127,6 @@ Partial Class Inventarios_Remanufactura
        UpDatosRemanufactura.Update()
    End Sub

-
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.Text = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlSubProyecto.Items.Clear()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.Text = "Sucursal:"
-            LblSubProyecto.Text = "Proyecto:"
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.Text = "Proyecto:"
-            LblSubProyecto.Text = "Sucursal:"
-        End If
-    End Sub
-
 #End Region

 #Region "GUARDAR"
@@ -976,12 +939,7 @@ Partial Class Inventarios_Remanufactura

 #Region "SELECTED INDEX CHANGE"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue.ToEntero > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlSubProyecto.DataBind()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

 #End Region
--- a/Inventarios/RepMovimientosSalida.aspx
+++ b/Inventarios/RepMovimientosSalida.aspx
@@ -63,12 +63,10 @@
                                <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                            </div>
-                             <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                             <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                             <div runat="server" id="DivSubProyecto" class="col-md-2">
                           
-                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList> 
+                             <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList> 
                        </div>
                            <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
                             <div runat="server" id="Div1" class="col-md-1">                           
--- a/Inventarios/RepReciclaje.aspx
+++ b/Inventarios/RepReciclaje.aspx
@@ -78,12 +78,12 @@
                        <div class="col-md-2">
                            <asp:DropDownList ID="DdlAlmacen" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" AppendDataBoundItems="true"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                            </asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                            </asp:DropDownList>
--- a/Inventarios/RepReciclaje.aspx.vb
+++ b/Inventarios/RepReciclaje.aspx.vb
@@ -19,6 +19,9 @@ Partial Class Inventarios_RepReciclaje
    End Sub

    Public Sub InicializaValores()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = Now.ToShortDateString

@@ -39,53 +42,11 @@ Partial Class Inventarios_RepReciclaje
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
        DdlAlmacen.DataBind()

-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlProyecto.DataBind()
-
-        CargaTipoCentroCosto()
-
-    End Sub
-
-    Private Sub CargaTipoCentroCosto()
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "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()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "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 = 3 Then
-            DdlSubProyecto.Items.Clear()
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-        End If
    End Sub

 #Region "SELECTED INDEX CHANGE"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue.ToEntero > 0 Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-        DdlSubProyecto.DataBind()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

 #End Region
--- a/OC/CatEstatus.aspx
+++ b/OC/CatEstatus.aspx
@@ -86,12 +86,12 @@
                                    <div class="row">
                                        <label class="col-md-1">Proyecto: </label>
                                        <div class="col-md-2" id="DivProyecto" runat="server">
-                                            <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                        </div>

-                                        <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                        <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
                                        <div class="col-md-2" id="DivSubProyecto" runat="server">
-                                            <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                            <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                        </div>
                                    </div>
                                </div>
--- a/OC/CatEstatus.aspx.vb
+++ b/OC/CatEstatus.aspx.vb
@@ -68,7 +68,7 @@ Partial Class OC_CatEstatus
            ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
            CargaDatos()
            CargaEstatus()
-            CargaProyectos()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
            CargaUsuarios()

            'SOLO MUESTRA SUBPROYECTO
@@ -76,23 +76,17 @@ Partial Class OC_CatEstatus
            'TdProyecto.Visible = False
            'TdSubProyectoTitulo.Visible = False

-            DivProyecto.Visible = False
-                LblSubproyecto.Visible = False
-
-
-                CboSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
-                CboSubProyecto.DataBind()
-                CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-                CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
+            'DivProyecto.Visible = False
+            'LblSubProyecto.Visible = False

+            DdlSubProyecto_SelectedIndexChanged(DdlSubProyecto, EventArgs.Empty)

            chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();")
            MaintainScrollPositionOnPostBack = True

        End If
-    End Sub
-
+    End Sub
+
 #Region "C A T A L O G O "
    Public Sub CargaDatos()

@@ -203,8 +197,8 @@ Partial Class OC_CatEstatus
            'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
        End If

-    End Sub
-
+    End Sub
+
 #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 = ""
@@ -240,9 +234,9 @@ Partial Class OC_CatEstatus

        GvDatos.DataBind()
        UpCatalogo.Update()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "G V  D A T O S"
    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
@@ -264,10 +258,10 @@ Partial Class OC_CatEstatus
            Alert("Ocurrió un error al eliminar el estatus. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
        End If

-    End Sub
+    End Sub
 #End Region
 #End Region
-
+
 #Region "C O N F I G U R A C I O N "
    Public Sub CargaUsuarios()
        ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -280,7 +274,7 @@ Partial Class OC_CatEstatus
        Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)

        If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
-            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
+            If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
                RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))

            End If
@@ -312,8 +306,6 @@ Partial Class OC_CatEstatus
                    Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
                    Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))

-
-
                    ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString

                    Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -396,7 +388,6 @@ Partial Class OC_CatEstatus
                    Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
                    Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))

-
                    ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString

                    Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -489,19 +480,9 @@ Partial Class OC_CatEstatus
        UPSuperior.Update()
        UPPEmp.Update()
        RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior');   chkMostrarLimitesCambio();")
-    End Sub
-
+    End Sub
+
 #Region "E S T A T U S  U S U A R I O S"
-    Private Sub CargaProyectos()
-        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        CboProyecto.DataBind()
-        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-    End Sub
-    Private Sub CargaSubProyectos()
-        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
-        CboSubProyecto.DataBind()
-        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
-    End Sub
    Private Sub CreaGrid(Tipo As String)
        Dim i As Integer = 1

@@ -526,10 +507,10 @@ Partial Class OC_CatEstatus
        End While
    End Sub
    Protected Sub CargaGridEstatusUsuarios(Tipo As String)
-        If CboSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or CboSubProyecto.SelectedValue.ToEntero = -2 Then
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or DdlSubProyecto.SelectedValue.ToEntero = -2 Then
            'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear()

-            Dim CveSubProyecto = If(CboSubProyecto.SelectedValue.ToEntero = -2, -1, CboSubProyecto.SelectedValue.ToEntero)
+            Dim CveSubProyecto = If(DdlSubProyecto.SelectedValue.ToEntero = -2, -1, DdlSubProyecto.SelectedValue.ToEntero)
            Dim objEstatusOC As New ClsOC

            If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then
@@ -557,17 +538,10 @@ Partial Class OC_CatEstatus
            GvEstatusUsuariosREQ.DataBind()
        End If
    End Sub
-    Protected Sub CboProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
-        If CboProyecto.SelectedValue.ToEntero > 0 Then
-            GvEstatusUsuariosOC.Enabled = False
-            GvEstatusUsuariosREQ.Enabled = False
-            btnGuardarEstatusUsuariosOC.Visible = False
-            btnGuardarEstatusUsuariosREQ.Visible = False
-
-            CargaSubProyectos()
-        End If
+    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub
-    Protected Sub CboSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+    Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
        GvEstatusUsuariosOC.Enabled = True
        GvEstatusUsuariosREQ.Enabled = True
        btnGuardarEstatusUsuariosOC.Visible = True
@@ -580,7 +554,7 @@ Partial Class OC_CatEstatus
        Dim objEstatusOC As New ClsOC
        objEstatusOC.IniciaTransacSQL()
        Dim HuboErrores As Boolean = False
-        Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero


        For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
@@ -646,7 +620,7 @@ Partial Class OC_CatEstatus
        Dim objEstatusOC As New ClsOC
        objEstatusOC.IniciaTransacSQL()
        Dim HuboErrores As Boolean = False
-        Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero
+        Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero


        For Each Row As GridViewRow In GvEstatusUsuariosOC.Rows
--- a/OS/CatEstatusOrdenServicio.aspx
+++ b/OS/CatEstatusOrdenServicio.aspx
@@ -136,11 +136,11 @@
                            <div class="row">
                                <label class="col-md-1">Proyecto: </label>
                                <div class="col-md-2" id="DivProyecto" runat="server">
-                                    <asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                </div>
-                                <label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label>
+                                <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
                                <div class="col-md-2" id="DivSubProyecto" runat="server">
-                                    <asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
                                </div>
                            </div>
                        </div>
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/OS/CatEstatusOrdenServicio.aspx.vb
@@ -63,19 +63,13 @@ Partial Class OS_CatEstatusOrdenServicio

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
-            'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
-            'CargaDatos()
-            'AsociarEstatusUsuarios()
-            'CargarUsuarioConEstatus()
-            'CargarSubProyectos()
-            CargarProyectos()
+            CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
            CargarTodosLosDatos()
            CveEstatuOS = -1
        End If
    End Sub

    Private Sub CargarTodosLosDatos()
-        'CargarSubProyectos()
        CargaDatos()
        AsociarEstatusUsuarios()
        CargarUsuarioConEstatus()
@@ -85,18 +79,14 @@ Partial Class OS_CatEstatusOrdenServicio
        DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
        Using ObjEstatusOrdenServicios As New ClsOS
            If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
-
                DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
                GvDatos.DataSource = DtEstatusOS
-
                GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
-
            End If

-            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=CboSubProyecto.SelectedValue.ToEntero) Then
+            If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
                DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
            End If
-
        End Using
        GvDatos.DataBind()
        OrdenaDatos()
@@ -252,11 +242,11 @@ Partial Class OS_CatEstatusOrdenServicio
    End Sub

    Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click
-        If CboSubProyecto.SelectedValue.ToEntero > 0 Then
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
            Dim objEstatusOC As New ClsOS
            objEstatusOC.IniciaTransacSQL()
            Dim HuboErrores As Boolean = False
-            Dim CveSubProyecto As Integer = CboSubProyecto.SelectedValue.ToEntero
+            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero

            For Each Row As GridViewRow In GvUsuariosEstatus.Rows
                Dim controles As Integer = Row.Controls.Count
@@ -301,26 +291,15 @@ Partial Class OS_CatEstatusOrdenServicio
        Next
    End Sub

-    Private Sub CargarProyectos()
-        CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
-        CboProyecto.DataBind()
-        CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
-    End Sub
-    Private Sub CargaSubProyectos()
-        CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
-        CboSubProyecto.DataBind()
-        CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-2"))
-    End Sub
-
-    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
-        CargaSubProyectos()
+    Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
        'CargaDatos()
        EstatusUsuariosGridActualizar()
        CargarTodosLosDatos()
        UpGvUsuariosEstatus.Update()
    End Sub

-    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged
+    Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
        EstatusUsuariosGridActualizar()
        CargarTodosLosDatos()
    End Sub
--- a/PortalCliente/PortalCliente.aspx.vb
+++ b/PortalCliente/PortalCliente.aspx.vb
@@ -2623,36 +2623,6 @@ Partial Class Ventas_PortalCliente
        End If
    End Sub

-    'Private Sub CargaTipoCentroCosto()
-    '    If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Sucursal"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-    '        divProyecto.Visible = False
-    '        LblSubProyecto.InnerText = "Proyecto"
-
-    '        DdlSubProyecto.Items.Clear()
-    '        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-    '        DdlSubProyecto.DataBind()
-    '        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-    '        LblProyecto.InnerText = "Sucursal"
-    '        LblSubProyecto.InnerText = "Proyecto"
-
-    '    ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-    '        LblProyecto.InnerText = "Proyecto"
-    '        LblSubProyecto.InnerText = "Sucursal"
-
-    '    End If
-    'End Sub
-
    Private Sub CreaDTVentas()
        TmpDT = New DataTable
        TmpDT.Columns.Add("CveVenta", GetType(Integer))
--- a/Ventas/AuxiliarClienteVentas.aspx
+++ b/Ventas/AuxiliarClienteVentas.aspx
@@ -119,7 +119,7 @@
                            <asp:ListBox ID="DdlVendedor"  AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                            
                        </div>
-                              <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">Sucursal:</label>
+                              <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                           
--- a/Ventas/AuxiliarClienteVentas.aspx.vb
+++ b/Ventas/AuxiliarClienteVentas.aspx.vb
@@ -39,8 +39,6 @@ Partial Class Ventas_AuxiliarClienteVentas
        End If
    End Sub

-
-
    Private Sub CargaFiltros()

        If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -60,10 +58,7 @@ Partial Class Ventas_AuxiliarClienteVentas
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))

-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) 'GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing)

        txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
        txtFechaF.Text = Now.ToString("dd/MM/yyyy")
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -4276,13 +4276,13 @@
                                                        <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
                                                    </asp:DropDownList>
                                                </div>
-                                                <label runat="server" id="LblProyecto" class="col-md-1 truncate" style="width: 120px">Proyecto:</label>
+                                                <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate" style="width: 120px">Proyecto:</asp:Label>
                                                <div runat="server" id="DivProyecto" class="col-md-2" style="width: 120px">
                                                    <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                                                    </asp:DropDownList>
                                                </div>
-                                                <label runat="server" id="LblSubProyecto" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</label>
+                                                <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</asp:Label>
                                                <div runat="server" id="DivSubProyecto" class="col-md-2" style="width: 120px">
                                                    <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
                                                        <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
--- a/Ventas/Clientes.aspx.vb
+++ b/Ventas/Clientes.aspx.vb
@@ -1154,14 +1154,6 @@ Partial Class Clientes
    End Sub


-    Private Sub CargaSubProyectosSuscursales()
-
-
-        CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
-
-
-
-    End Sub


    Private Sub CargaCuentasEquipos()
@@ -1329,15 +1321,6 @@ Partial Class Clientes

        CargaCombosComercioExterior()

-    End Sub
-    Private Sub CargaSubProyectoss()
-
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
-
-        DdlSubProyecto.DataBind()
-
-
    End Sub
    Private Sub CargaMetodosPago()
        'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -8443,72 +8426,15 @@ Partial Class Clientes
        DdlGrupo.SelectedValueExist("8")
    End Sub

-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyectoFiltro.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoFiltro.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyectoFiltro.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoFiltro.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
-    Private Sub CargaFiltros()
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
+    Private Sub CargaFiltros()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)

        'Cargo Clasificaciones
        DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacionFilto.DataBind()

-        'CargaSubProyectos
-        DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoFiltro.DataBind()
-
+        'Cargo Sucursal
        DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSucursalVendedor.DataBind()
        DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8536,21 +8462,11 @@ Partial Class Clientes
        'End If

        CargaGrupo()
-        CargaTipoCentroCosto()

    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
-    End Sub
-
-    Private Sub CargaSubProyecto()
-        DdlSubProyectoFiltro.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoFiltro.DataBind()
-        End If
-        DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -754,6 +754,11 @@ Partial Class Ventas_ClientesAbonar
            Exit Sub
        End If

+        If TxtPrestamoImporte.Text.ToDecimal <> 0 AndAlso DdlPrestamo.SelectedValue = "-1" Then
+            Alert("Debe seleccionar un préstamo al especificar un valor.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
        'valida que no exceda lo seleccionado. con el valor del ie
        If (RblTipoPago.SelectedValue = "3" AndAlso HdnIngresoImporte.Value.ToDecimal < TxtTotal.Text.ToDecimal) Then
            Alert("Importe excedido para la aplicación", TipoMensaje.MsgAdvertencia)
@@ -767,6 +772,11 @@ Partial Class Ventas_ClientesAbonar
        For Each gvr As GridViewRow In GvCxC.Rows
            If gvr.FCCheckBox("Chk").Checked Then
                seleccion += 1
+                'si hay liquidación-
+                If gvr.FCDropDownList("DdlAnti").SelectedValue = "-1" AndAlso gvr.FCTextBox("TxtAmort").Text.ToDecimal <> 0 Then
+                    Alert("Importe de anticipo especificado y no seleccionado. F: " & gvr.DataKey("SerieFolio"), TipoMensaje.MsgAdvertencia)
+                    Exit Sub
+                End If
            End If
        Next

@@ -884,13 +894,23 @@ Partial Class Ventas_ClientesAbonar
                    Dim ImportePrestamo As Decimal = 0
                    Dim TCPrestamo As Decimal = 0

+                    If CveSubProyectoMaximo <= 0 Then 'sino se seleccionó del combo, busca en el listado el primero
+
+                        For Each Gvr As GridViewRow In GvCxC.Rows
+                            If Gvr.FCCheckBox("Chk").Checked Then
+                                CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
+                                Exit For
+                            End If
+                        Next
+                    End If
+
                    If TxtPrestamoImporte.Text.ToDecimal <> 0 Then 'amortización del préstamo
                        ImportePrestamo = TxtPrestamoImporte.Text.ToDecimal
-                        Dim tCveProv As Integer = DtPrestamos.FiltroPrimeroValor("CveProveedor", "CveIE=" & DdlPrestamo.SelectedValue)
+                        Dim tCveProv As Integer = DtPrestamos.FiltroPrimeroValor("CveProveedor", "CveIE=" & DdlPrestamo.SelectedValue).ToEntero
                        Dim tFechaIE As Date = DtPrestamos.FiltroPrimeroValor("FechaDocumento", "CveIE=" & DdlPrestamo.SelectedValue).ToDate
                        TCPrestamo = DtPrestamos.FiltroPrimeroValor("TipoCambio", "CveIE=" & DdlPrestamo.SelectedValue).ToDecimal
                        If CveMoneda = 1 Then
-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 57, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=tipoCambioPago, CveProveedor:=tCveProv) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 57, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveProveedor:=tCveProv) Then
                                MsgError = "No se pudo insertar la póliza"
                            End If
                        Else
@@ -901,11 +921,11 @@ Partial Class Ventas_ClientesAbonar
                                End If
                            End If

-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 349, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ImportePrestamo, 349, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then
                                MsgError = "No se pudo insertar la póliza"
                            End If

-                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ((ImportePrestamo * TCPrestamo) - ImportePrestamo).RoundSQL, 350, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyecto, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then
+                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImportePrestamo, ((ImportePrestamo * TCPrestamo) - ImportePrestamo).RoundSQL, 350, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=TCPrestamo, ImporteME:=ImportePrestamo, CveProveedor:=tCveProv) Then
                                MsgError = "No se pudo insertar la póliza"
                            End If
                        End If
@@ -915,7 +935,7 @@ Partial Class Ventas_ClientesAbonar
                    If TxtPrestamoIntereses.Text.ToDecimal <> 0 AndAlso MsgError = "" Then
                        tipoCambioPago = If(TxtTCDolares.Visible, TxtTCDolares.Text.ToDecimal, TxtTCDolaresDolares.Text.ToDecimal)
                        Dim ImporteIntereses As Decimal = (TxtPrestamoIntereses.Text.ToDecimal * tipoCambioPago).RoundSQL
-                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=11881, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then
+                        If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, ImporteIntereses, ImporteIntereses, 51, TxtFolio.Text, TxtObservaciones.Text, 0, CveIE:=DdlPrestamo.SelectedValue.ToEntero, CveSubProyecto:=CveSubProyectoMaximo, TipoCambio:=tipoCambioPago, CveClasificacion:=21927) Then
                            MsgError = "No se pudo insertar la póliza"
                        End If
                    End If
@@ -1122,6 +1142,7 @@ Partial Class Ventas_ClientesAbonar

                            If MsgError = "" AndAlso AplicaPrePolizaPagoVenta(VentaActual, Pago, CvePrePoliza, ObjMov) Then
                                MsgError = "No se pudo insertar la póliza"
+                                Exit For
                            End If

                            ' Case 134 'Pago Intermediario
--- a/Ventas/RepAuxiliarFacturas.aspx
+++ b/Ventas/RepAuxiliarFacturas.aspx
@@ -82,17 +82,13 @@
                </div>
                <div class="portlet-body" style="display: none">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
                        <label class="col-md-1 ">Cliente:</label>
                        <div class="col-md-2">
--- a/Ventas/RepAuxiliarFacturas.aspx.vb
+++ b/Ventas/RepAuxiliarFacturas.aspx.vb
@@ -75,12 +75,7 @@ Partial Class Ventas_RepAuxiliarFacturas
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
@@ -93,56 +88,16 @@ Partial Class Ventas_RepAuxiliarFacturas
            DdlPS.SelectedText = "Todos"
            DdlPS.SelectedValue = "-1"
        End If
-    End Sub
-
-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "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()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "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
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-
-        End If
    End Sub

    Private Sub CargaCombos()
        'Cargo Clientes
        'CargaClientes()

-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
        'Cargo Clasificaciones
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()

-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-
        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
@@ -172,7 +127,7 @@ Partial Class Ventas_RepAuxiliarFacturas
            DdlEstatus.SelectedIndex = 1
        End If

-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)

        TipoCambio = 1
        TCEspecifico = 0
--- a/Ventas/RepPS.aspx
+++ b/Ventas/RepPS.aspx
@@ -86,11 +86,9 @@
                    </div>
                    <div class="titlefiltros  caption">
                        <div class="row">
-                            <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                            <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                            <div runat="server" id="DivSubProyecto" class="col-md-2">
-                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                    <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                                </asp:DropDownList>
+                                <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                            </div>
                            <div class="col-md-1 truncate">
                                Fecha Inicio:
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -54,7 +54,7 @@ Partial Class Ventas_RepPS
    End Sub

    Private Sub CargaCombos()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
        DdlClasificacion.DataBind()

@@ -90,46 +90,6 @@ Partial Class Ventas_RepPS
        'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
    End Sub

-    Private Sub CargaTipoCentroCosto()
-        Dim index As Integer = 17
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            LblSubProyecto.InnerText = "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()
-
-            LblSubProyecto.InnerText = "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 = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            If DdlGrupo.Items.Count < 17 Then
-                index = DdlGrupo.Items.Count
-            End If
-            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            If DdlGrupo.Items.Count < 17 Then
-                index = DdlGrupo.Items.Count
-            End If
-            DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblSubProyecto.InnerText = "Sucursal:"
-        End If
-    End Sub
-
    Private Sub CargaDatos()

        Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM)
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -194,17 +194,13 @@
                </div>
                <div class="portlet-body" style="display: none">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" >
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" ></asp:DropDownList>
                        </div>
                        <label class="col-md-1 ">Cliente:</label>
                        <div class="col-md-2">
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -56,11 +56,11 @@ Partial Class Ventas_RepProductosServicios


        End If
-    End Sub
-
-
+    End Sub
+
+
 #Region "  CARGA DATOS INICIALES  "
-
+
    Private Sub CargaGrupo()
        DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
        DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
@@ -90,70 +90,7 @@ Partial Class Ventas_RepProductosServicios


    End Sub
-
-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
    Private Sub SetValues()
-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
        'Cargo Categorias
        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
        DdlCategoria.DataBind()
@@ -183,14 +120,6 @@ Partial Class Ventas_RepProductosServicios

        End If

-
-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoEjecucion.DataBind()
-
        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
        DdlVendedor.DataBind()
@@ -229,7 +158,8 @@ Partial Class Ventas_RepProductosServicios
        DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))

        CargaGrupo()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)

        TipoCambio = 1
        TCEspecifico = 0
@@ -272,10 +202,10 @@ Partial Class Ventas_RepProductosServicios
            GvDatos.Columns(5).Visible = False
        End If

-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "  CARGA DATOS  "
    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        CargaDatos()
@@ -458,12 +388,7 @@ Partial Class Ventas_RepProductosServicios
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.DataBind()
-        End If
-        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
--- a/Ventas/RepProductosServiciosDetalle.aspx
+++ b/Ventas/RepProductosServiciosDetalle.aspx
@@ -195,17 +195,13 @@
                </div>
                <div class="portlet-body" style="display: none">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"  Style="width: 100%">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"  Style="width: 100%"></asp:DropDownList>
                        </div>
                        <label class="col-md-1 ">Cliente:</label>
                        <div class="col-md-2">
--- a/Ventas/RepProductosServiciosDetalle.aspx.vb
+++ b/Ventas/RepProductosServiciosDetalle.aspx.vb
@@ -113,81 +113,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
        DdlGrupo.SelectedValueExist("8")
    End Sub

-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
-            DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
-            DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
-            DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
    Private Sub SetValues()
        txtFechaI.Text = Now.ToShortDateString
        txtFechaF.Text = Now.ToShortDateString

-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-
        'Cargo Categorias
        DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
        DdlCategoria.DataBind()
@@ -206,13 +135,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
        'ObjClientes.Dispose()
        'DdlClientes.DataBind()

-
-        'CargaSubProyectos
-        DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyecto.DataBind()
-        DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        DdlSubProyectoEjecucion.DataBind()
-
        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
        DdlVendedor.DataBind()
@@ -267,7 +189,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
        DdlTipoPSDes.DataBind()

        CargaGrupo()
-        CargaTipoCentroCosto()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+        CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)

        TCEspecifico = 0
        TipoCambio = 1
@@ -696,17 +619,9 @@ Partial Class Ventas_RepProductosServiciosDetalle

    End Sub
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        If DdlProyecto.SelectedValue <> "-1" Then
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
-            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
    '    DdlClasificacion.Items.Clear()
--- a/Ventas/RepProductosServiciosPeriodo.aspx
+++ b/Ventas/RepProductosServiciosPeriodo.aspx
@@ -105,17 +105,13 @@
                </div>
                <div class="portlet-body">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
                        <label class="col-md-1 truncate">F.I.:</label>
                        <div class="col-md-2">
--- a/Ventas/RepProductosServiciosPeriodo.aspx.cs
+++ b/Ventas/RepProductosServiciosPeriodo.aspx.cs
@@ -109,11 +109,6 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
        DdlEstatus.Items.Add(new ListItem("Canceladas", "4"));
        if (UsuarioActual.Empresa.TipoFacturacion == "CFDi")
        {
-            DdlEstatus.SelectedIndex = 2;
-        }
-        else
-        {
-            DdlEstatus.SelectedIndex = 1;
            DdlEstatus.SelectedIndex = 2;
        }
        else
@@ -147,93 +142,10 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
        }

        DdlClienteClasificacion.DataSource = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
-        DdlClienteClasificacion.DataBind();
-        DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
+        DdlClienteClasificacion.DataBind();
        DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));

-        CargaGrupo();
-
-        //Carga Tipo Centro de Costo
-        CargaTipoCentroCosto();
-
-    }
-
        //Carga Grupos
-    {
-        DdlSubProyecto.Items.Clear();
-        DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-        DdlSubProyecto.DataBind();
-        DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-    }
-
-    private void CargaTipoCentroCosto()
-    {
-        if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
-        {
-
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Sucursal:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlSubProyectoEjecucion.Items.Clear();
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
-            DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyectoEjecucion.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "2"));
-            DdlGrupo.Items.Insert(16, new ListItem("Sucursal Ejec.", "19"));
-            DdlGrupo.DataBind();
-
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
-        {
-            DdlSubProyecto.Items.Clear();
-            DivProyecto.Visible = false;
-            LblProyecto.Visible = false;
-            LblSubProyecto.InnerText = "Proyecto:";
-            DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyecto.DataBind();
-
-            DdlSubProyectoEjecucion.Items.Clear();
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
-            DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
-            DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlSubProyectoEjecucion.DataBind();
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "2"));
-            DdlGrupo.Items.Insert(16, new ListItem("Proyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 3)
-        {
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
-        {
-            LblProyecto.InnerText = "Sucursal:";
-            LblSubProyecto.InnerText = "Proyecto:";
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
-
-            DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
-            DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
-            DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
-            DdlGrupo.DataBind();
-        }
-        else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
-        {
-            LblProyecto.InnerText = "Proyecto:";
-            LblSubProyecto.InnerText = "Sucursal:";
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
        CargaGrupo();

        //Carga Tipo Centro de Costo
@@ -287,7 +199,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
        else
        {
            DdlEstatus.DataSource = GlobalDTEstatusFactura;
-        }
+        }
        DdlEstatus.Items.Add(new ListItem("Todos", "-1"));
        DdlEstatus.DataBind();
    }
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -200,13 +200,11 @@
                </div>
                <div class="portlet-body" style="display: none">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                            <%--     <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -287,81 +287,8 @@ Partial Class RepVentaDetalle
        DdlGrupo.DataBind()
    End Sub

-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Sucursal", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Sucursal Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Sucursal", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Sucursal", "18"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Proyecto", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Proyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Proyecto", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Proyecto", "18"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-    Private Sub CargaCombos()
-
+    Private Sub CargaCombos()
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
        CargaClientes()
        'DdlClientes.setEsWebService(False)

@@ -376,11 +303,6 @@ Partial Class RepVentaDetalle

        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))

-        'CargaProyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
        'Vendedor
        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
@@ -406,8 +328,6 @@ Partial Class RepVentaDetalle
        DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))

        CargaGrupo()
-        CargaTipoCentroCosto()
-
    End Sub

    Private Sub CargaEstatus()
@@ -421,12 +341,6 @@ Partial Class RepVentaDetalle
        DdlEstatus.DataBind()
    End Sub

-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
 #End Region

 #Region "SELECTED INDEX CHANGE"
@@ -435,7 +349,7 @@ Partial Class RepVentaDetalle
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -205,13 +205,11 @@
                </div>
                <div class="portlet-body" style="display: none">
                    <div class="row">
-                        <label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label>
+                        <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
                        <div runat="server" id="DivProyecto" class="col-md-2">
-                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
-                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList>
+                            <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
                        </div>
-                        <label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label>
+                        <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
                        <div runat="server" id="DivSubProyecto" class="col-md-2">
                            <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control  ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
                            <%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -73,10 +73,10 @@ Partial Class Ventas_RepVentas
 #End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        If Not IsPostBack Then
+        If Not IsPostBack Then
+            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
            TipoCambio = 1
            TCEspecifico = -1
-            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
            CargaCombos()

            'MODALIDADES
@@ -104,7 +104,6 @@ Partial Class Ventas_RepVentas
            End If

            CargaGrupo()
-            CargaTipoCentroCosto()

            If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
                DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString())
@@ -116,9 +115,7 @@ Partial Class Ventas_RepVentas
                LnkDescargaCartaPorte.Visible = True
            End If

-
            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
                LblServicioDomicilioFiltro.Visible = True
                DVServicioDomicilio.Visible = True
                DivLblDistr.Visible = True
@@ -154,88 +151,16 @@ Partial Class Ventas_RepVentas
        DdlGrupo.SelectedValueExist("3")
    End Sub

-    Private Sub CargaTipoCentroCosto()
-
-        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Sucursal:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Sucursal", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Sucursal Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Sucursal", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Sucursal", "18"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
-            DdlSubProyecto.Items.Clear()
-            DivProyecto.Visible = False
-            LblProyecto.Visible = False
-            LblSubProyecto.InnerText = "Proyecto:"
-            DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyecto.DataBind()
-
-            DdlSubProyectoEjecucion.Items.Clear()
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-            DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-            DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlSubProyectoEjecucion.DataBind()
-
-            DdlGrupo.Items.Insert(5, New ListItem("Proyecto", "6"))
-            DdlGrupo.Items.Insert(15, New ListItem("Proyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Proyecto", "17"))
-            DdlGrupo.Items.Insert(17, New ListItem("% IVA Proyecto", "18"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
-            LblProyecto.InnerText = "Sucursal:"
-            LblSubProyecto.InnerText = "Proyecto:"
-
-            LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-
-        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
-            LblProyecto.InnerText = "Proyecto:"
-            LblSubProyecto.InnerText = "Sucursal:"
-            LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
-
-            DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
-            DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
-            DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
-            DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
-            DdlGrupo.DataBind()
-        End If
-    End Sub
-
    Private Sub ConfiguraEmpresa()
        '  If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
        If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
    End Sub

    Private Sub CargaCombos()
-        'CargaClientes

+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
+        'CargaClientes
        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
        If EsWS Then
            DdlClientes.setEsWebService(True)
@@ -266,11 +191,6 @@ Partial Class Ventas_RepVentas
            DdlEstatus.SelectedIndex = 0
        End If

-        'CargaProyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.DataBind()
-        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-
        'Carga Clasificacion Cliente
        DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
        DdlClienteClasificacion.DataBind()
@@ -283,15 +203,8 @@ Partial Class Ventas_RepVentas
        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = Now.ToShortDateString

-
    End Sub

-    Private Sub CargaSubProyecto()
-        DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
-        DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub

 #End Region

@@ -360,7 +273,7 @@ Partial Class Ventas_RepVentas
    End Sub

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
-        CargaSubProyecto()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

    Protected Sub DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)