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

AC/CatClasificacionAdministrativa.aspx.vb

@@ -17,15 +17,7 @@ Partial Class AC_CatClasificacionAdministrativa
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjClasificacionAdministrativa As New ClsAC
-        If ObjClasificacionAdministrativa.GetClasificacionAdministrativa() Then
-            ViewState("DTClasificacionAdministrativas") = ObjClasificacionAdministrativa.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa) = ObjClasificacionAdministrativa.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionAdministrativa.Dispose()
+        ViewState("DTClasificacionAdministrativas") = GlobalDTAC_ClasificacionAdministrativa(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/CatClasificacionFuncional.aspx.vb

@@ -52,15 +52,7 @@ Partial Class AC_CatClasificacionFuncional
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjClasificacionFuncional As New ClsAC
-        If ObjClasificacionFuncional.GetClasificacionFuncional() Then
-            ViewState("DTClasificacionFuncional") = ObjClasificacionFuncional.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa) = ObjClasificacionFuncional.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionFuncional.Dispose()
+        ViewState("DTClasificacionFuncional") = GlobalDTAC_ClasificacionFuncional(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/CatClasificacionGeografica.aspx.vb

@@ -56,15 +56,7 @@ Partial Class AC_CatClasificacionGeografica
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjClasificacionGeografica As New ClsAC
-        If ObjClasificacionGeografica.GetClasificacionGeografica() Then
-            ViewState("DTClasificacionGeografica") = ObjClasificacionGeografica.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa) = ObjClasificacionGeografica.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjClasificacionGeografica.Dispose()
+        ViewState("DTClasificacionGeografica") = GlobalDTAC_ClasificacionGeografica(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/CatFuentesFinanciamiento.aspx.vb

@@ -47,15 +47,7 @@ Partial Class AC_CatFuentesFinanciamiento
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjFuentesFinanciamiento As New ClsAC
-        If ObjFuentesFinanciamiento.GetFuentesFinanciamiento() Then
-            ViewState("DTFuentesFinanciamiento") = ObjFuentesFinanciamiento.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_FuentesFinanciamiento(-1) = ObjFuentesFinanciamiento.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuentesFinanciamiento.Dispose()
+        ViewState("DTFuentesFinanciamiento") = GlobalDTAC_FuentesFinanciamiento(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/CatFuentesRecaudacion.aspx.vb

@@ -48,15 +48,7 @@ Partial Class AC_CatFuentesRecaudacion
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjFuenteRecaudacion As New ClsAC
-        If ObjFuenteRecaudacion.GetFuentesRecaudacion() Then
-            ViewState("DTFuenteRecaudacion") = ObjFuenteRecaudacion.DtResultados.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa))
-            GlobalDTAC_FuentesRecaudacion(-1) = ObjFuenteRecaudacion.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjFuenteRecaudacion.Dispose()
+        ViewState("DTFuenteRecaudacion") = GlobalDTAC_FuentesRecaudacion(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/CatOGClasificaciones.aspx.vb

@@ -47,10 +47,10 @@ Partial Class AC_CatOGClasificaciones
 
     Public Sub CargaDatos()
         Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.GetClasificaciones() Then
+        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
             ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' AND CveEmpresa = " & UsuarioActual.CveEmpresa, "Codigo")
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
-            GlobalDTACClasificadorObjetoGasto = ObjClasificaciones.DtResultados.FiltraParametros("Codigo <> '' ")
+
+            GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -74,14 +74,14 @@ Partial Class AC_CatOGClasificaciones
                 Alert("La Clasificacion de Objeto de Gasto se guardó correctamente.", TipoMensaje.MsgInformacion)
                 'UpTitulos.Update()
                 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
 
             End If
         Else
             If ObjClasificaciones.UpdateClasificacion(TxtOGClasificacion.Text, TxtCodigo.Text, -1, "", -1, "", -1, "", ChkEstatus.Checked, ChkAfectable.Checked, 0, UsuarioActual.CveUsuario, CveClasificacion) Then
                 GvDatos.EditIndex = -1
                 ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+                GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             End If
         End If
@@ -119,7 +119,7 @@ Partial Class AC_CatOGClasificaciones
         If ObjClasificaciones.RemoveClasificacion(GvRow.DataKey("CveClasificacion").ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -159,7 +159,7 @@ Partial Class AC_CatOGClasificaciones
         If ObjClasificaciones.RemoveClasificacion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTOGClasificaciones") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("la Clasificacion de Objeto de Gasto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -194,7 +194,7 @@ Partial Class AC_CatOGClasificaciones
         If ObjOGClasificaciones.UpdateClasificacion(OGClasificacion, Codigo, -1, "", -1, "", -1, "", Estatus, Afectable, 0, UsuarioActual.CveUsuario, CveOGClasificacion) Then
             GvDatos.EditIndex = -1
             ViewState("DTOGClasificaciones") = ObjOGClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTClasificaciones = ObjOGClasificaciones.DtResultados
+            GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

AC/CatUnidadesAdministrativas.aspx.vb

@@ -26,15 +26,7 @@ Partial Class AC_CatUnidadesAdministrativas
     End Sub
 
     Public Sub CargaDatos()
-        Dim ObjUnidadAdministrativas As New ClsAC
-        If ObjUnidadAdministrativas.GetUnidadesAdministrativas() Then
-            ViewState("DTUnidadAdministrativas") = ObjUnidadAdministrativas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTAC_UnidadesAdministrativas(-1) = ObjUnidadAdministrativas.DtResultados
-        Else
-            Me.GvDatos.DataSource = Nothing
-        End If
-
-        ObjUnidadAdministrativas.Dispose()
+        ViewState("DTUnidadAdministrativas") = GlobalDTAC_UnidadesAdministrativas(UsuarioActual.CveEmpresa)
 
         If ViewState("Orden").ToString() <> String.Empty Then
             CargaGrid(ViewState("Orden").ToString())

AC/RepPresupuestoEgresos.aspx.vb

@@ -115,7 +115,7 @@ Partial Class AC_RepPresupuestoEgresos
     Private Sub CargaDatos()
         Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
         Dim FechaF As Date = txtFechaF.Text.ToDate
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
 
         If objAC.GetRepPresupuestosEgresosSaldos(DdlEjercicio.SelectedValue.ToEntero, FechaF, Capitulo, DdlClasificaciones.SelectedValue.ToEntero, DdlFuenteFinanciamiento.SelectedValue.ToEntero, DdlProgramaOperativo.SelectedValue.ToEntero, DdlUnidadAdministrativa.SelectedValue.ToEntero, DdlTipoGasto.SelectedValue.ToEntero, DdlOrden.SelectedValue.ToEntero) Then
             DtPresupuestoEgresos = objAC.DtResultados

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -75,7 +75,7 @@ Partial Class AC_RepPresupuestoEgresosMensual
         BtnImprimir.Visible = False
 
         Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
-        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
+        Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
         UPPDatos.Update()
         Gv.DataBind()
 

AF/RepDepreciacion.aspx

@@ -97,7 +97,7 @@
     <br />
     <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciación" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun Activo Fijo con depreciación" DataKeyNames="CveActivoFijo, TipoActivoFijo, Descripcion, TasaDepreciacion, CveSubProyecto" ToolTip="Reporte de Depreciacion" CssClass="table table-striped table-advance table-hover Widthall" Style="text-align: center; position: static" UseAccessibleHeader="false" GridLines="None">
                 <Columns>
                     <asp:TemplateField>
                         <HeaderTemplate>

AF/RepDepreciacion.aspx.vb

@@ -30,11 +30,12 @@ Partial Class AF_RepDepreciacion
             Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
             Dim ErrorMovInv As Boolean = False
             Dim ConceptoPoliza As String = String.Format("Depreciación - {0}", txtFechaI.Text)
-            Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
+            Dim CveSubProyecto As Integer ' = DdlSubProyecto.SelectedValue.ToEntero
             Dim CvePrePoliza = ObjConta.AddPrePolizas("Depreciacion", 74, 0, 0, 1, txtFechaI.Text.ToDate, ConceptoPoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
             For Each RowsDt As GridViewRow In GvDatos.Rows
                 CveActivoFijo = RowsDt.DataKey("CveActivoFijo").ToEntero
+                CveSubProyecto = RowsDt.DataKey("CveSubProyecto").ToEntero
                 Dim MontoDepreciacion As Decimal = RowsDt.FCLiteral("LtlDepreciacionMensual").Text.ToDecimal
                 If MontoDepreciacion > 0 And CveActivoFijo <> 0 Then
                     Dim ConceptoPolizaDetalle As String = String.Format("Depreciación - {0} - {1}", txtFechaI.Text, RowsDt.FCLiteral("LtlDescripcion").Text)

Acumuladores/CatFoliosGarantia.aspx

@@ -121,7 +121,7 @@
                     <ContentTemplate>
 
                         <asp:GridView ID="GvFolioGarantia" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite"
+                            DataKeyNames="CveFolioGarantia,FolioGarantia,CveEstatus,Estatus,CveUsuario,Usuario,FechaIng,SubProyecto,CveSubProyecto,tipoFolio,Limite,CveMovimiento"
                             EmptyDataText="No se encontraron registros" ToolTip="Listado de Folios de Garantía"
                             CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                             data-sort="true"
@@ -170,6 +170,7 @@
                                         <asp:Literal ID="lblUsuario" runat="server" Text='<%# Eval("Usuario") %>'></asp:Literal>
                                     </ItemTemplate>
                                 </asp:TemplateField>
+                                <asp:HyperLinkField HeaderText="Mov. Salida" DataTextField="CveMovimiento" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ControlStyle-CssClass="Texto"/>
 
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="80px">
                                     <ItemTemplate>

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -20,6 +20,21 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     End Property
 
+    Private Property CveMovimiento As Integer
+        Get
+            If ViewState("CveMovimiento") IsNot Nothing Then
+                Return ViewState("CveMovimiento").ToString.ToEntero
+            Else
+                Return -1
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveMovimiento") = value
+        End Set
+
+    End Property
+
     Private Property Actualizar As Boolean
         Get
             If Not ViewState("Actualizar") Is Nothing Then
@@ -219,13 +234,14 @@ Partial Class Acumuladores_CatFoliosGarantia
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
         CveFolioGarantia = GvRow.DataKey("CveFolioGarantia")
-
+        CveMovimiento = IIf(GvRow.DataKey("CveMovimiento") <> "", GvRow.DataKey("CveMovimiento"), -1)
         LblFolio.Text = GvRow.DataKey("FolioGarantia")
 
         Using ObjAcum As New ClsAcumuladores
             If ObjAcum.GetFoliosGarantiasDetalle(CveFolioGarantia, CveEstatusConsecutivo:=DdlEstatusConsecutivo.SelectedValue.ToEntero()) Then
                 GvGarantiasDetalle.DataSource = ObjAcum.DtResultados
                 HplGenerarSalida.NavigateUrl = "/Inventarios/TraspasoAlmacen.aspx?CveFolioGarantia=" & CveFolioGarantia
+                HplGenerarSalida.Visible = (CveMovimiento = -1)
             End If
         End Using
         GvGarantiasDetalle.DataBind()

App_Code/ClsAC.vb

@@ -160,10 +160,12 @@ Public Class ClsAC
         Return Retorno
     End Function
 
-    Public Function GetProgramaOperativo() As Boolean
+    Public Function GetProgramaOperativo(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_ProgramaOperativoGet")
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1033,9 +1035,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_UnidadesAdministrativas"
-    Public Function GetUnidadesAdministrativas() As Boolean
+    Public Function GetUnidadesAdministrativas(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_UnidadesAdministrativasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1127,9 +1132,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_ClasificacionGeografica"
-    Public Function GetClasificacionGeografica() As Boolean
+    Public Function GetClasificacionGeografica(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_ClasificacionGeograficaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1761,9 +1769,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_ClasificacionFuncional"
-    Public Function GetClasificacionFuncional() As Boolean
+    Public Function GetClasificacionFuncional(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_ClasificacionFuncionalGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1852,9 +1863,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_FuentesFinanciamiento"
-    Public Function GetFuentesFinanciamiento() As Boolean
+    Public Function GetFuentesFinanciamiento(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_FuentesFinanciamientoGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2223,9 +2237,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_ClasificacionAdministrativa"
-    Public Function GetClasificacionAdministrativa() As Boolean
+    Public Function GetClasificacionAdministrativa(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_ClasificacionAdministrativaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2315,9 +2332,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_PD_EjeRector"
-    Public Function GetPD_EjeRector() As Boolean
+    Public Function GetPD_EjeRector(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_PD_EjeRectorGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2787,9 +2807,12 @@ Public Class ClsAC
 #End Region
 
 #Region "AC_FuentesRecaudacion"
-    Public Function GetFuentesRecaudacion() As Boolean
+    Public Function GetFuentesRecaudacion(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_AC_FuentesRecaudacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True

App_Code/ClsAcumuladores.vb

@@ -1246,6 +1246,27 @@ Public Class ClsAcumuladores
         Return Retorno
     End Function
 
+    Public Function GetFoliosGarantiasDetalleDisponibles(CveFolioGarantia As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        SqlDataAdapter("PA_Acum_GarantiasDetalleFolioDisponibleGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As SqlException
+            OnError("Ocurrió un error al consultar los movimientos. ", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
+
     Public Function UpdateGarantiaCancelacion(CveVenta As Integer) As Boolean
         Dim Retorno As Boolean = False
 

App_Code/ClsCompras.vb

@@ -197,7 +197,7 @@ Public Class ClsCompras
                               Optional CveOC As Integer = -1, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1, Optional NumeroReembolso As String = "-1", Optional CveProveedorSucursal As Integer = -1,
                               Optional AplicoPromocion As Boolean = False, Optional PorcentajeIVA As Double = 0, Optional CveMetodoPago As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveConceptoContableAlmacen As Integer = -1,
                               Optional CveRetISRConcepto As Integer = -1, Optional NoDeducible As Boolean = False, Optional CveTipoCompra As Integer = -1, Optional TotalOriginal As Double = 0, Optional CveTipoConcepto As Integer = 1, Optional CveFactura As Integer = -1,
-                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1, Optional DoctosRelacionados As String = "-1") As Boolean
+                              Optional CveContrato As Integer = -1, Optional EsImportacion As Boolean = False, Optional CveSubProyecto As Integer = -1, Optional DoctosRelacionados As String = "-1", Optional CveFolioGarantia As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -252,9 +252,7 @@ Public Class ClsCompras
             .Add("@EsImportacion", SqlDbType.Bit).Value = EsImportacion
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@DoctosRelacionados", SqlDbType.VarChar).Value = DoctosRelacionados
-
-
-
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
         End With
 
         Try
@@ -278,7 +276,8 @@ Public Class ClsCompras
     Public Function UpdateCompra(Descripcion As String, FolioSecundario As String, FechaVencimiento As Date, AplicaNotaCredito As Boolean, Observaciones As String, CveEstatusCompra As Integer,
                                  Descuento As Double, SubTotal As Double, IVA As Double, Total As Double, CveUsuario As Integer, CveCompra As Integer, Optional CveCajaChica As Integer = -1, Optional CvePersonal As Integer = -1,
                                  Optional CveProveedorSucursal As Integer = -1, Optional PorcentajeIVA As Double = 0, Optional NumeroReembolso As String = "", Optional CveTipoCompra As Integer = -1, Optional NoDeducible As Boolean = False,
-                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+                                 Optional CveFactura As Integer = -1, Optional CveContrato As Integer = -1, Optional CveRetIVAConcepto As Integer = -1, Optional CveRetISRConcepto As Integer = -1, Optional CveSubProyecto As Integer = -1,
+                                 Optional CveFolioGarantia As Integer = -1) As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -308,11 +307,10 @@ Public Class ClsCompras
             .Add("@NoDeducible", SqlDbType.Bit).Value = NoDeducible
             .Add("@CveFactura", SqlDbType.Int).Value = CveFactura
             .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
-
             .Add("@CveRetIVAConcepto", SqlDbType.Int).Value = CveRetIVAConcepto
             .Add("@CveRetISRConcepto", SqlDbType.Int).Value = CveRetISRConcepto
-
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveFolioGarantia", SqlDbType.Int).Value = CveFolioGarantia
         End With
 
         Try

App_Code/ClsContabilidad.vb

@@ -1019,21 +1019,25 @@ Public Class ClsContabilidad
                 Dim dtt As DataTable = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable)
                 Dim StrMsg As String = ""
                 If dtt IsNot Nothing Then
+                    Dim tCveEmp As Integer = CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa
                     Dim dr As Data.DataRow = dtt.FiltroPrimero("")
                     If dr IsNot Nothing Then
                         StrMsg = dr("ConceptoContable").ToString
                         If dr("AplicaClasificacion").ToString = "True" Then
-                            StrMsg = StrMsg + " - Clasificación: " + ClsPaginas.GlobalDTClasificaciones(CType(HttpContext.Current.Session("UsuarioSIG"), Usuario).CveEmpresa, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("Clasificacion", "")
+                            StrMsg = StrMsg + " - Clasificación: " + ClsPaginas.GlobalDTClasificaciones(tCveEmp, CveClasificacion:=CveClasificacion).FiltroPrimeroValor("Clasificacion", "")
+                        End If
+                        If dr("AplicaActivoFijo").ToString = "True" Then
+                            StrMsg = StrMsg + " - Activo Fijo: " + ClsPaginas.GlobalDTActivoFijos(tCveEmp, CveActivoFijo:=CveActivoFijo).FiltroPrimeroValor("CodigoDescripcion", "")
+                        End If
+                        If dr("AplicaProveedor").ToString = "True" Then
+                            StrMsg = StrMsg + " - Proveedor: " + ClsPaginas.GlobalDTCompProveedores(tCveEmp, CveProveedor:=CveProveedor).FiltroPrimeroValor("NombreComercial", "")
                         End If
                     End If
                 End If
                 OnError(String.Format("El concepto '{0}' no tiene especificada la cuenta. Favor de especificarla en la asignación de cuentas.", StrMsg), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto2 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-            ElseIf ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
-                    Dim Concepto3 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
-                    OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto3), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex1.Message.Contains("Vw_Val_Conta_CuentasResultados_SubProyectos") OrElse ex1.Message.Contains("UK_Vw_Val_Conta_CuentasResultados_SubProyectos") Then
+                Dim Concepto2 As String = ClsPaginas.GlobalDTContaConceptosContables(CveConceptoContable).FiltroPrimeroValor("ConceptoContable")
+                OnError(String.Format("El concepto '{0}' requiere centro de costo", Concepto2), ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50025;") Then
                 OnError("La empresa no tiene un formato de cuenta asignado.", ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             ElseIf ex1.Message.Contains("50026;") Then

App_Code/ClsFlotillas.vb

@@ -142,11 +142,12 @@ Public Class ClsFlotillas
 
 #Region " C O M B U S T I B L E S  "
 
-    Public Function GetCombustibles() As Boolean
+    Public Function GetCombustibles(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Flo_CombustiblesGet")
-
-
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True

App_Code/ClsGenerales.vb

@@ -1661,7 +1661,7 @@ Public Class ClsGenerales
         Return Retorno
     End Function
 
-    Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
+    Public Function UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Gral_CuentasDepositosPersonalUpdate")

App_Code/ClsGralProductosServiciosCaracteristicas.vb

@@ -100,7 +100,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
 #End Region
 #Region "ProductosServiciosCaracteristicas"
 
-    Public Function GetProductosServiciosCaracteristicas(Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+    Public Function GetProductosServiciosCaracteristicas(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasGet")
 
@@ -203,7 +203,7 @@ Public Class ClsGralProductosServiciosCaracteristicas
 
 #Region "ProductosServiciosCaracteristicasOpciones"
 
-    Public Function GetProductosServiciosCaracteristicasOpciones(Optional CveEmpresa As Integer = -1, Optional CveSubProyecto As Integer = -1) As Boolean
+    Public Function GetProductosServiciosCaracteristicasOpciones(CveEmpresa As Integer, Optional CveSubProyecto As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_GRAL_ProductosServiciosCaracteristicasOpcionesGet")
 

App_Code/ClsProspectos.vb

@@ -1409,9 +1409,12 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  C L A S I F I C A C I O N"
-    Public Function GetClasificacion() As Boolean
+    Public Function GetClasificacion(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosClasificacionGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1674,9 +1677,12 @@ Public Class ClsProspectos
 
 
 #Region "P R O S P E C T O S  -  T I P O S"
-    Public Function GetProspectosTipos() As Boolean
+    Public Function GetProspectosTipos(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1957,9 +1963,12 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  A P O Y O S "
-    Public Function GetProspectoApoyo() As Boolean
+    Public Function GetProspectoApoyo(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosApoyosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2265,7 +2274,7 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  S O L I C I T U D E S "
-    Public Function GetProspectosSolicitudes(CveProspecto As Integer, CveApoyoTipo As Integer, CveClasificacion As Integer, CveProspectoSolicitud As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetProspectosSolicitudes(CveEmpresa As Integer, Optional CveProspecto As Integer = -1, Optional CveApoyoTipo As Integer = -1, Optional CveClasificacion As Integer = -1, Optional CveProspectoSolicitud As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosSolicitudesGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -2586,9 +2595,12 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  S O L I C I T U D E S - A P O Y O S - T I P O S "
-    Public Function GetApoyoTipo() As Boolean
+    Public Function GetApoyoTipo(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosApoyosTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2679,9 +2691,12 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  S O L I C I T U D E S  -  E S T A T U S "
-    Public Function GetSolicitudEstatus() As Boolean
+    Public Function GetSolicitudEstatus(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosSolicitudesEstatusGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -2772,9 +2787,12 @@ Public Class ClsProspectos
 #End Region
 
 #Region "P R O S P E C T O S  -  S O L I C I T U D E S - T I P O S "
-    Public Function GetSolicitudTipo() As Boolean
+    Public Function GetSolicitudTipo(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_ProspectosSolicitudesTiposGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -4235,12 +4253,13 @@ Public Class ClsProspectos
 #End Region
 
 #Region "E N C U E S T A S  -  R E S P U E S T A S"
-    Public Function GetRespuestas(CvePregunta As Integer, CveEncuesta As Integer) As Boolean
+    Public Function GetRespuestas(CvePregunta As Integer, CveEncuesta As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Pros_EncuestasRespuestasGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveEncuesta", SqlDbType.Int).Value = CveEncuesta
             .Add("@CvePregunta", SqlDbType.Int).Value = CvePregunta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
         End With
 
         Try

Ashx/SIGFacturacionCiclica.ashx

@@ -343,7 +343,7 @@ Public Class SIGFacturacionCiclica : Implements IHttpHandler, IRequiresSessionSt
 
             Dim DtDetalle As DataTable = Nothing
             Dim objContratos As New ClsContratos
-            If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveUsuario) Then
+            If objContratos.GetContratosDetalle(DR("CveContrato").ToString.ToEntero, UsuarioActual.CveEmpresa) Then
                 DtDetalle = objContratos.DtResultados.FiltraParametros("CveTipoPresupuesto=2")
             Else
                 DtDetalle = Nothing

Bancos/FluctuacionCambiaria.aspx

@@ -368,7 +368,7 @@
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank"  DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:HyperLinkField HeaderText="# Folio" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE"/>
                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha" DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="TipoDocto" HeaderText="Tipo" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
@@ -475,7 +475,7 @@
                         <br /> 
 
                         <asp:GridView ID="GvVentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto" EmptyDataText="No se Encontraron Cuentas Bancarias."
+                            DataKeyNames="TipoCambio,Fluctuacion,CveVenta,SerieFolio,CveIE,IdCtaContComplementaria,TipoDocto,CveCliente" EmptyDataText="No se Encontraron Cuentas Bancarias."
                             ToolTip="" CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField DataTextField="Nombre" HeaderText="Cliente" Target="_blank" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" DataNavigateUrlFields="CveCliente" />
@@ -696,7 +696,7 @@
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
                                 <asp:HyperLinkField HeaderText="Proveedor" DataTextField="NombreComercial" Target="_blank" ItemStyle-HorizontalAlign="Left" DataNavigateUrlFormatString="/Compras/Proveedores.aspx?CveProveedor={0}" DataNavigateUrlFields="CveProveedor" />
-                                <asp:HyperLinkField HeaderText="# Facturas" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Compras/Compras.aspx?CveCompra={0}" DataNavigateUrlFields="CveCompra"/>
+                                <asp:HyperLinkField HeaderText="# Folio" DataTextField="SerieFolio" Target="_blank"  DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE"/>
                                 <asp:BoundField DataField="FechaDocumento" HeaderText="Fecha" DataFormatString="{0:d}" />
                                 <asp:BoundField DataField="TipoCambio" HeaderText="TipoCambio" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Saldo USD" DataField="Saldo" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
@@ -738,8 +738,8 @@
 
                         <br />
                         <asp:GridView ID="GvCuentas" Width="99%" runat="server" AutoGenerateColumns="False"
-                            DataKeyNames="IdCtaAfectable,IdCtaContable,IdCtaContableComplementaria,TipoCambio,Fluctuacion,
-                            Banco,NumCuenta,CveCuentaComplementaria,Saldo"
+                            DataKeyNames=" TipoCambio,Fluctuacion,
+                            Banco,NumCuenta,CveCuentaMEComplementaria,SaldoME"
                             EmptyDataText="No se Encontraron Cuentas Bancarias." ToolTip=""
                             CssClass="table table-hover table-striped ScrollAD mysmallbtn" GridLines="None">
                             <Columns>
@@ -750,7 +750,7 @@
                                 </asp:TemplateField>
                                 <asp:BoundField HeaderText="Banco" DataField="Banco" ItemStyle-Width="250" ItemStyle-HorizontalAlign="Left" />
                                 <asp:BoundField HeaderText="# Cuenta" DataField="NumCuenta" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Left" />
-                                <asp:BoundField HeaderText="Saldo" DataField="Saldo" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
+                                <asp:BoundField HeaderText="Saldo" DataField="SaldoME" ItemStyle-Width="100" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="T.C. último ajuste" DataField="TipoCambio" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                                 <asp:BoundField HeaderText="Fluctuación" DataField="Fluctuacion" DataFormatString="{0:N2}" ItemStyle-Width="100" ItemStyle-HorizontalAlign="Right" />
                             </Columns>

Bancos/FluctuacionCambiaria.aspx.vb

@@ -73,7 +73,7 @@ Partial Class Bancos_FluctuacionCambiaria
         If T.ActiveTabIndex = 3 Then CargaDatosClientesAnticipos()
         If T.ActiveTabIndex = 4 Then CargaDatosAcreedores()
         If T.ActiveTabIndex = 5 Then CargaDatosAcreedoresAnticipos()
-        If T.ActiveTabIndex = 6 Then CargaDatosCuentas()
+        If T.ActiveTabIndex = 6 Then CargaDatosBancosCuentas()
 
         If T.ActiveTabIndex = 7 Then CargaDatosFiliales()
         If T.ActiveTabIndex = 8 Then CargaDatosDeudores()
@@ -301,42 +301,42 @@ Partial Class Bancos_FluctuacionCambiaria
         GvAcreedoresAnt.DataBind()
     End Sub
 
-    Private Sub CargaDatosCuentas()
+    Private Sub CargaDatosBancosCuentas()
         Dim ObjBancos As New ClsBancos
         LblTotalBancos.Text = "0.00"
-        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 7, UsuarioActual.CveEmpresa) Then
+        If ObjBancos.GetFluctuaciones(FechaUltimoDiaMes, 77, UsuarioActual.CveEmpresa) Then
             Dim DtTemp As DataTable = ObjBancos.DtResultados.Copy
             Dim TCCierreFluctuacion As Decimal = LtTipoCambioActual.Text.ToDecimal
-            Dim TotAcumulado As Decimal = 0
-            Dim Conta As New ClsContabilidad
-            For Each Dr As DataRow In DtTemp.Rows
-                Dim Total As Decimal = 0
-                Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
-                If CveCuentaExtranjera > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
-                        If Conta.DtResultados.Rows.Count > 1 Then
-                            Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
-                        End If
-                    End If
-                End If
-                Dr("Saldo") = Total
-                Total = Total * TCCierreFluctuacion - Total
-                Dim SaldoActualContabilidad As Decimal = 0
-                Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
-                If CveCuentaComplementaria > 0 Then
-                    If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
-                        If Conta.DtResultados.Rows.Count > 1 Then
-                            SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
-                        End If
-                    End If
-                End If
+            Dim TotAcumulado As Decimal = ObjBancos.DtResultados.SUMD("Fluctuacion")
+            'Dim Conta As New ClsContabilidad
+            'For Each Dr As DataRow In DtTemp.Rows
+            '    Dim Total As Decimal = 0
+            '    Dim CveCuentaExtranjera As Integer = Dr("CveCuentaExtranjera").ToString.ToEntero
+            '    If CveCuentaExtranjera > 0 Then
+            '        If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaExtranjera, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
+            '            If Conta.DtResultados.Rows.Count > 1 Then
+            '                Total = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
+            '            End If
+            '        End If
+            '    End If
+            '    Dr("Saldo") = Total
+            '    Total = Total * TCCierreFluctuacion - Total
+            '    Dim SaldoActualContabilidad As Decimal = 0
+            '    Dim CveCuentaComplementaria As Integer = Dr("CveCuentaComplementaria").ToString.ToEntero
+            '    If CveCuentaComplementaria > 0 Then
+            '        If Conta.GetMovimientosAuxiliaresCatalogo(CveCuentaComplementaria, MinFecha, FechaUltimoDiaMes, 2, -1, -1, UsuarioActual.CveEmpresa, "1") Then
+            '            If Conta.DtResultados.Rows.Count > 1 Then
+            '                SaldoActualContabilidad = Conta.DtResultados.Rows(1)("SaldoActual").ToString.ToDecimal
+            '            End If
+            '        End If
+            '    End If
 
-                Total = Total - SaldoActualContabilidad
-                TotAcumulado += Math.Round(Total, 2)
-                Dr("Fluctuacion") = Total
-            Next
-            DtTemp.AcceptChanges()
-            Conta.Dispose()
+            '    Total = Total - SaldoActualContabilidad
+            '    TotAcumulado += Math.Round(Total, 2)
+            '    Dr("Fluctuacion") = Total
+            'Next
+            'DtTemp.AcceptChanges()
+            'Conta.Dispose()
 
             GvCuentas.DataSource = DtTemp
             LblTotalBancos.Text = TotAcumulado.FormatoNumero
@@ -435,7 +435,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
@@ -515,7 +515,7 @@ Partial Class Bancos_FluctuacionCambiaria
                 IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString.ToEntero()
 
                 'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), gvr.DataKey("CveConceptoContable").ToEntero, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
@@ -526,7 +526,11 @@ Partial Class Bancos_FluctuacionCambiaria
                 End If
             Next
 
-            Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa)
+            If Not ErrorRegistrar Then
+                If Not Banco.UpdateFluctuacionesBitacoraPrePoliza(CvePrePoliza, 2, CveBitacora, UsuarioActual.CveEmpresa) Then
+                    ErrorRegistrar = True
+                End If
+            End If
 
         End If
 
@@ -538,6 +542,7 @@ Partial Class Bancos_FluctuacionCambiaria
             Conta.RollBack()
             Alert("Error al generar la fluctuación", TipoMensaje.MsgError)
         End If
+        Banco.Dispose()
         Conta.Dispose()
     End Sub
 
@@ -613,7 +618,7 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, False, Total, gvr.DataKey("SerieFolio"), CveConconceptoCliente, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveCliente:=gvr.DataKey("CveCliente").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -796,7 +801,7 @@ Partial Class Bancos_FluctuacionCambiaria
             IdCtaComplementaria = gvr.DataKey("IdCtaContComplementaria").ToString().ToEntero()
 
             'movimiento de complementaria
-            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero) Then
+            If Not Conta.AddPrePolizasDetalle(CvePrePoliza, True, Total, gvr.DataKey("SerieFolio"), 202, gvr.DataKey("SerieFolio"), Now, IdCtaComplementaria, 0, CveCompra:=gvr.DataKey("CveCompra").ToEntero, TipoCambio:=TC, TipoCambioPago:=gvr.DataKey("TipoCambio").ToDecimal, ImporteMX:=Total, ImporteME:=Total, CveIE:=gvr.DataKey("CveIE").ToEntero, CveProveedor:=gvr.DataKey("CveProveedor").ToEntero) Then
                 ErrorRegistrar = True
                 Exit For
             End If
@@ -905,8 +910,8 @@ Partial Class Bancos_FluctuacionCambiaria
         Dim Total As Decimal = 0
         Dim Conta As New ClsContabilidad
         Conta.IniciaTransacSQL()
-        Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
-        ObjContPaq.IniciaTransacSQL()
+        'Dim ObjContPaq As New ClsContPAQi(UsuarioActual.Empresa)
+        'ObjContPaq.IniciaTransacSQL()
         Dim idCta As Integer = 0
         Dim CveCuenta As Integer = 0
         Dim CveCuentaPerdida, CveCuentaGanancia As Integer
@@ -932,11 +937,10 @@ Partial Class Bancos_FluctuacionCambiaria
         For Each gvr As GridViewRow In GvCuentas.Rows
             Dim cb As CheckBox = gvr.FCCheckBox("ChkGenerarBancos")
             If cb.Checked Then
-                Total = gvr.DataKey("Fluctuacion").ToDecimal
-                Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
+                Total = gvr.DataKey("Fluctuacion").ToDecimal
+                ' Dim IdCtaComplementaria As Integer = gvr.DataKey("IdCtaAfectable").ToEntero
                 Dim ConceptoReferencia As String = String.Format("{0} - {1} {2}", gvr.DataKey("Banco"), gvr.DataKey("NumCuenta"), MesTCtexto)
 
-
                 'MOVIMIENTO DE FLUCTUACION
                 If Total > 0 Then
                     CveConceptoContable = 64
@@ -948,15 +952,16 @@ Partial Class Bancos_FluctuacionCambiaria
                     CveCuenta = CveCuentaPerdida
                     idCta = idCtaPerdida
                     TipoMovto = False
-                End If
-
-                'movimiento de complementaria
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConconceptoBancos, ConceptoReferencia, Now, IdCtaComplementaria, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total)) Then
+                End If
+
+                'movimiento de complementaria
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, Not TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConconceptoBancos, ConceptoReferencia, Now, 0, 0, TipoCambio:=TC, ImporteMX:=Math.Abs(Total), ImporteME:=Math.Abs(Total), CveCuenta:=gvr.DataKey("CveCuentaMEComplementaria").ToEntero) Then
                     ErrorRegistrar = True
                     Exit For
                 End If
 
-                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), ConceptoReferencia, CveConceptoContable, ConceptoReferencia, Now, idCta, 0, ImporteMX:=Math.Abs(Total), CveCuenta:=CveCuenta, CveSubProyecto:=DdlSubproyectoBancos.SelectedValue.ToEntero) Then
+
+                If Not Conta.AddPrePolizasDetalle(CvePrePoliza, TipoMovto, Math.Abs(Total), Math.Abs(Total), CveConceptoContable, ConceptoReferencia, ConceptoReferencia, 0, CveSubProyecto:=DdlSubproyectoBancos.SelectedValue.ToEntero) Then
                     ErrorRegistrar = True
                 End If
             End If
@@ -966,7 +971,7 @@ Partial Class Bancos_FluctuacionCambiaria
 
         Dim AutoConta As Boolean = UsuarioActual.Empresa.Funcionalidad(200) = "1"
         If AutoConta Then
-            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
+            If Conta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                 SeContabilizo = True
             Else
                 ErrorRegistrar = True
@@ -974,15 +979,15 @@ Partial Class Bancos_FluctuacionCambiaria
             End If
         End If
 
-        If Not ErrorRegistrar And SeContabilizo Then
+        If Not ErrorRegistrar Then
 
-            Conta.Commit()
-            ObjContPaq.Commit()
+            Conta.Commit()
+            ' ObjContPaq.Commit()
             Alert(String.Format("La Fluctuación se ha generado <br/> <a href='/Contabilidad/RegPrePolizas.aspx?CvePrePoliza={0}'>Ver PrePóliza</a>", CvePrePoliza), TipoMensaje.MsgInformacion)
-            CargaDatosCuentas()
+            CargaDatosBancosCuentas()
         Else
-            Conta.RollBack()
-            ObjContPaq.Dispose()
+            Conta.RollBack()
+            ' ObjContPaq.Dispose()
         End If
         Conta.Dispose()
     End Sub
@@ -1161,20 +1166,20 @@ Partial Class Bancos_FluctuacionCambiaria
 #Region "GRIDVIEWS"
 
 
-    Protected Sub GvCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCuentas.RowDataBound
-        If e.Row.RowType = DataControlRowType.DataRow Then
-            'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
-            'e.Row.FCLabel("LbTipoCambioActual").Text = TipoCambioActual.ToString
-            'e.Row.FCLabel("LbTipoCambio").Text = If(TipoCambio > 0, TipoCambio.ToString, "No hay TipoCambio")
-            'e.Row.FCLabel("LbFluctuacion").Text = If(TipoCambio > 0, ((TipoCambio - TipoCambioActual) * e.Row.DBCampo("Saldo").ToString.ToDouble).ToString, "No aplica")
-
-            If Not e.Row.DBCampo("IdCtaContable").ToString.ToEntero > 0 Then
-                ' e.Row.FCLabel("LabelBanco").ForeColor = Drawing.Color.Red
-            End If
-
-        End If
-    End Sub
-
+    'Protected Sub GvCuentas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvCuentas.RowDataBound
+    '    If e.Row.RowType = DataControlRowType.DataRow Then
+    '        'TipoCambio = e.Row.DBCampo("TipoCambio").ToString.ToDouble
+    '        'e.Row.FCLabel("LbTipoCambioActual").Text = TipoCambioActual.ToString
+    '        'e.Row.FCLabel("LbTipoCambio").Text = If(TipoCambio > 0, TipoCambio.ToString, "No hay TipoCambio")
+    '        'e.Row.FCLabel("LbFluctuacion").Text = If(TipoCambio > 0, ((TipoCambio - TipoCambioActual) * e.Row.DBCampo("Saldo").ToString.ToDouble).ToString, "No aplica")
+
+    '        'If Not e.Row.DBCampo("IdCtaContable").ToString.ToEntero > 0 Then
+    '        '    ' e.Row.FCLabel("LabelBanco").ForeColor = Drawing.Color.Red
+    '        'End If
+
+    '    End If
+    'End Sub
+
     Private Sub GvFiliales_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvFiliales.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
 
@@ -1268,7 +1273,6 @@ Partial Class Bancos_FluctuacionCambiaria
         Banco.Dispose()
     End Sub
 
-
     Protected Sub BtnAcreedoresAntRemove_Click(sender As Object, e As EventArgs)
         Dim Banco As New ClsBancos
         Banco.IniciaTransacSQL()

Compras/Compras.aspx

@@ -534,6 +534,14 @@
                                     <asp:CheckBox runat="server" ID="chkImportacion"> </asp:CheckBox>
                                 </div>
                             </div>
+                            <div class="form-group proveedoreespes" runat="server" id="divFolioGarantia" visible="false">
+                                <span class="whitoutcol linewhitsize  proveedoreespes">Folio Garantía </span>
+                                <div class="whitoutcol whitoutcol">
+                                    <asp:DropDownList ID="DdlFolioGarantia" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="FolioGarantia" DataValueField="CveFolioGarantia" OnSelectedIndexChanged="DdlFolioGarantia_SelectedIndexChanged" CssClass="form-control input-sm input-small select2me">
+                                        <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
+                                    </asp:DropDownList>
+                                </div>
+                            </div>
                         </div>
                     </div>
                 </ContentTemplate>
@@ -655,20 +663,8 @@
                                                 <th style="width: 70px">Unidad</th>
                                                 <th style="width: 299px">Clasificación
                                                    
-                                                   
-
-                                                   
-
-
-
                                                     <asp:HyperLink ID="HplAddClasificacion" data-toggle="tooltip" data-placement="top" NavigateUrl="/Ventas/CatClasificaciones.aspx" CssClass="btn btn-default btn-circle btn-xs " ToolTip="Agregar Clasificacion" runat="server"><i class="fa fa-plus" style="color:black" aria-hidden="true"></i></asp:HyperLink>&nbsp;&nbsp;&nbsp;
                                                    
-                                                   
-
-                                                   
-
-
-
                                                     <span data-toggle="collapse" data-target="#DivReclasifica">
                                                         <div class="btn btn-default btn-circle btn-xs " data-toggle="tooltip" data-placement="top" title="Reclasificar productos"><i class="fa fa-arrow-circle-down" style="color: green" aria-hidden="true"></i></div>
                                                         <asp:LinkButton ID="ImgClasificacion" CssClass="btn btn-default btn-circle btn-xs " data-toggle="tooltip" data-placement="top" ToolTip="Aplicar Clasificación a Productos" runat="server" Style="display: none;"><i class="fa fa-arrow-circle-down" style="color:green" aria-hidden="true"></i></asp:LinkButton>
@@ -680,8 +676,6 @@
                                                     <asp:Label ID="LitHProyecto" runat="server" Text=""></asp:Label>
                                                     <asp:Label runat="server" ID="LblSubProyectoHeader" Text=""></asp:Label>&nbsp;
 
-                                                   
-
                                                     <asp:LinkButton ID="ImgActualizarProyecto" CssClass="btn btn-default btn-circle" data-toggle="tooltip" data-placement="top" ToolTip="Actualizar Cambios" runat="server" Visible="False"><i class="fa fa-arrow-circle-down" aria-hidden="true"></i></asp:LinkButton>
                                                     <span data-toggle="collapse" data-target="#DivReclasifica">
                                                         <div class="btn btn-default btn-circle btn-xs " data-toggle="tooltip" data-placement="top" title="Cambiar sucursal"><i class="fa fa-arrow-circle-down" style="color: green" aria-hidden="true"></i></div>
@@ -1238,7 +1232,7 @@
                                                 <HeaderStyle CssClass="Titulos" />
                                             </asp:TemplateField>
                                             <asp:BoundField HeaderText="Unidad" DataField="UM" ItemStyle-Width="5%" />
-                                            <asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText="Producto o Servicio" DataField="PS" />
+                                            <asp:BoundField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText=" Servicio" DataField="PS" />
                                             <asp:BoundField ItemStyle-Width="7.5%" HeaderText="P.U." DataField="PU" DataFormatString="{0:#,##0.00####}" ItemStyle-HorizontalAlign="Right" />
                                             <asp:TemplateField ItemStyle-Width="10%">
                                                 <ItemTemplate>

Compras/Compras.aspx.vb

@@ -12,6 +12,7 @@ Imports Extensiones
 Imports System.Activities.Expressions
 Imports iText.Barcodes.Dmcode
 Imports Microsoft.Reporting.WebForms
+Imports MoreLinq
 
 Partial Class Compras_Compras
     Inherits ClsPaginas
@@ -1246,6 +1247,16 @@ Partial Class Compras_Compras
             If UsuarioActual.Empresa.Funcionalidad(303) <> "" Then
                 btnProrateo2.Visible = True
             End If
+
+            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then 'cuando es emp acumuladora AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV")
+                divFolioGarantia.Visible = True
+                Using objAcum As New ClsAcumuladores
+                    If objAcum.FoliosGarantiaGet(-1, UsuarioActual.Empresa.CveEmpresa, Estatus:=-1, TipoFolio:="-1", Area:=-1, CveSubProyecto:=-1) Then
+                        DdlFolioGarantia.DataSource = objAcum.DtResultados.FiltraParametros("", "FechaIng DESC")
+                        DdlFolioGarantia.DataBind()
+                    End If
+                End Using
+            End If
             '****************************************************************
             'If UsuarioActual.CveEmpresa = 72 Then
             '    LiRecepcion.Visible = True
@@ -4643,6 +4654,9 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
+        If DdlFolioGarantia.Visible AndAlso DdlFolioGarantia.SelectedValue <> "-1" Then
+            If Not ValidaFolioGarantia() Then Exit Sub
+        End If
 
 
         '------------------TERMINA VALIDACIONES------------------
@@ -4927,7 +4941,7 @@ Partial Class Compras_Compras
                                                     CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IdPoliza, CveCajaChica:=CveCajaChica, CvePersonal:=CvePersonal, NumeroReembolso:=NumeroReembolso, CveProveedorSucursal:=DdlProveedorSucursal.SelectedValue.ToEntero,
                                                     AplicoPromocion:=ChkOCPromocion.Checked, PorcentajeIVA:=PorcentajeIVA, CveMetodoPago:=CveMetodoPago, CveRetIVAConcepto:=If(DdlRetIVAConcepto.Items.Count > 0, DdlRetIVAConcepto.SelectedValue.ToEntero, -1), CveConceptoContableAlmacen:=CveConceptoContableAlmacen,
                                                     CveRetISRConcepto:=If(DdlRetISRConcepto.Items.Count > 0, DdlRetISRConcepto.SelectedValue.ToEntero, -1), NoDeducible:=EsNoDeducible, CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, TotalOriginal:=TotalOriginal, CveTipoConcepto:=CveTipoConcepto,
-                                                    EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal, DoctosRelacionados:=DoctosRelacionados) Then
+                                                    EsImportacion:=EsImportacion, CveFactura:=CveFactura, CveSubProyecto:=CveSubProyectoPrincipal, DoctosRelacionados:=DoctosRelacionados, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
 
                                 ViewState("CveCompra") = ObjCompras.CveCompra
                                 If ObjCompras.DtResultados.Rows.Count > 0 Then ViewState("CompraFolio") = ObjCompras.DtResultados.Rows(0)("vFolio").ToString
@@ -8898,6 +8912,9 @@ Partial Class Compras_Compras
             Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
         End If
 
+        If DdlFolioGarantia.Visible AndAlso DdlFolioGarantia.SelectedValue <> "-1" Then
+            If Not ValidaFolioGarantia() Then Exit Sub
+        End If
 
         If CveFactura > 0 Then
             If Not AjustaCombustibles() Then
@@ -8981,7 +8998,7 @@ Partial Class Compras_Compras
                 If ObjCompra.UpdateCompra(TxtDescripcion.Text.Trim, TxtFolioSecundario.Text.Trim, TxtFechaPago.Text.ToDate, ChkAplicaNotaCredito.Checked, TxtObsFact.Text.Trim, CveEstatusFactura,
                                    TxtDescuento.Text.ToDouble, TxtSubTotal.Text.ToDouble, TxtIVA.Text.ToDouble, TxtTotal.Text.ToDouble,
                                    UsuarioActual.CveUsuario, CveCompra, CveCajaChica:=DdlRembolsoCajaChica.SelectedValue.ToEntero, CvePersonal:=DdlRembolsoPersonal.SelectedValue.ToEntero, CveProveedorSucursal:=If(DdlProveedorSucursal.SelectedValue.ToEntero > 0, DdlProveedorSucursal.SelectedValue.ToEntero, -1), PorcentajeIVA:=PorcentajeIVA, NumeroReembolso:=TxtRembolsoNumero.Text,
-                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal) Then
+                                   CveTipoCompra:=DdlTipoCompra.SelectedValue.ToEntero, NoDeducible:=EsNoDeducible, CveRetIVAConcepto:=TmpCveRetIVAConcepto, CveRetISRConcepto:=TmpCveRetISRConcepto, CveSubProyecto:=CveSubProyectoPrincipal, CveFolioGarantia:=DdlFolioGarantia.SelectedValue.ToEntero) Then
 
                     If Not ComparaDatatables() Then
 
@@ -19980,7 +19997,77 @@ Partial Class Compras_Compras
 
 #End Region
 
+#Region "GARANTÍAS"
+    Protected Sub DdlFolioGarantia_SelectedIndexChanged(sender As Object, e As EventArgs)
 
+        If DdlFolioGarantia.SelectedValue.ToEntero <> -1 Then
+            ValidaFolioGarantia(True)
+        End If
+
+    End Sub
+
+    Private Function ValidaFolioGarantia(Optional MsgExito As Boolean = False) As Boolean
+        If TmpDT?.Rows.Count > 0 Then
+            Dim ExistenciasPSFactura As New Dictionary(Of Integer, Decimal)
+            Dim ExistenciasPSGarantia As New Dictionary(Of Integer, Decimal)
+            Dim PSFaltantes As New Dictionary(Of Integer, Decimal)
+            Dim DtGarantia As New DataTable
+
+            'Agrupa los CvePS iguales y suma sus cantidades
+            For Each row In TmpDT.AsEnumerable()
+                Dim cvePS As Integer = row.Field(Of Integer)("CvePS")
+                Dim cantidad As Decimal = row.Field(Of Decimal)("Cantidad")
+                If ExistenciasPSFactura.ContainsKey(cvePS) Then
+                    ExistenciasPSFactura(cvePS) += cantidad
+                Else
+                    ExistenciasPSFactura.Add(cvePS, cantidad)
+                End If
+            Next
+
+            Using ObjAcum As New ClsAcumuladores
+                If ObjAcum.GetFoliosGarantiasDetalleDisponibles(DdlFolioGarantia.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa) Then
+                    DtGarantia = ObjAcum.DtResultados
+                    ExistenciasPSGarantia = DtGarantia.AsEnumerable().ToDictionary(Function(row) row.Field(Of Integer)("CvePS"), Function(row) row.Field(Of Decimal)("CantidadDisponible"))
+                Else
+                    Alert($"Ocurrió un error al obtener la información de la garantía.</br> CveUsuario={UsuarioActual.CveUsuario}</br> CveFolioGarantia={DdlFolioGarantia.SelectedValue}", TipoMensaje.MsgError)
+                    Return False
+                End If
+            End Using
+
+            For Each Producto In ExistenciasPSFactura
+                Dim cvePS As Integer = Producto.Key
+                Dim cantidadFactura As Decimal = Producto.Value
+                If ExistenciasPSGarantia.ContainsKey(cvePS) Then
+                    Dim cantidadGarantia As Decimal = ExistenciasPSGarantia(cvePS)
+                    If cantidadFactura > cantidadGarantia Then
+                        PSFaltantes.Add(cvePS, cantidadFactura - cantidadGarantia)
+                    End If
+                Else
+                    PSFaltantes.Add(cvePS, cantidadFactura)
+                End If
+            Next
+
+            Dim IEnumPSFaltantes = From row In TmpDT.AsEnumerable()
+                                   Join Producto In PSFaltantes On row.Field(Of Integer)("CvePS") Equals Producto.Key
+                                   Select New With {.CvePS = Producto.Key, .NombrePS = row.Field(Of String)("PS"), .CantidadFaltante = Producto.Value}
+
+            If PSFaltantes.Count > 0 Then
+                Dim mensaje As String = "Los siguientes productos no tienen suficientes existencias en la garantía seleccionada:</br></br>"
+                For Each Producto In IEnumPSFaltantes
+                    mensaje += $"Falta: &times;&hairsp;<b>{Producto.CantidadFaltante:0.##}</b>&emsp;{Producto.NombrePS}</br>"
+                Next
+                If MsgExito Then Alert(mensaje, TipoMensaje.MsgAdvertencia) Else Alert(mensaje, TipoMensaje.MsgError)
+            Else
+                If MsgExito Then Alert("Todos los productos seleccionados están disponibles en el Folio de Garantía.")
+                Return True
+            End If
+        Else
+            Alert("Agregue todos los productos a la factura antes de fijar el Folio de Garantía.", TipoMensaje.MsgAdvertencia)
+            DdlFolioGarantia.SelectedValue = "-1"
+        End If
+        Return False
+    End Function
+#End Region
     Protected Sub BtnFacturaNC_Click(sender As Object, e As EventArgs)
         If ChkNCInvNC.Checked Then
             CargaNCINV(ShowAllPendientes:=False)

Contabilidad/ContabilidadElectronica.aspx.vb

@@ -185,7 +185,7 @@ Partial Class Contabilidad_ContabilidadElectronica
         Dim DtCuentas As New DataTable
         If UsuarioActual.Empresa.TipoContabilidad = 1 Then
             Dim objconta As New ClsContabilidad
-            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, "-1", UsuarioActual.CveEmpresa, 0) Then
+            If objconta.GetBalanzaComprobacion(FechaI, FechaF, 1, -1, -1, -1, UsuarioActual.CveEmpresa, 0) Then
                 DtCuentas = objconta.DtResultados
             End If
             objconta.Dispose()

Contabilidad2/CatContaEjercicios.aspx

@@ -1,9 +1,53 @@
 <%@ Page Title="Contabilidad2 - Catálogo Ejercicios" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="CatContaEjercicios.aspx.vb" Inherits="Contabilidad2_CatContaEjercicios" %>
 
-<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %>
 <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
 </asp:Content>
 <asp:Content ID="Content2" ContentPlaceHolderID="Css" runat="Server">
+    <style>
+        .Widthall {
+            width: 100% !important;
+        }
+
+        .dataTables_scrollHeadInner {
+            width: 100% !important;
+            background-color: #dddddd;
+            padding-left: 0px !important;
+        }
+
+        .dataTables_scrollFoot {
+            display: none;
+            position: static;
+        }
+
+        .table-scrollable {
+            margin: 0px !important;
+        }
+
+        .dataTables_scroll {
+            margin-bottom: 0px;
+        }
+
+        .table.dataTable {
+            margin-top: 0px !important;
+        }
+
+        .dataTables_scrollBody table th {
+            padding: 0px !important;
+            padding-right: 4px !important;
+            padding-left: 4px !important;
+        }
+
+        .sinlink td a {
+            pointer-events: none;
+            cursor: default;
+            color: black;
+            font-size: small;
+        }
+
+        .white a {
+            color: white !important;
+        }
+    </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
 </asp:Content>
@@ -23,7 +67,7 @@
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
     <asp:UpdatePanel runat="server" ID="UpDatos" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover ScrollAD"
+            <asp:GridView runat="server" ID="GvDatos" EmptyDataText="No se encontraron Motivo de Baja Registrados" ToolTip="Listado de Motivo de Baja" CssClass="table table-striped table-advance table-hover Widthall ScrollAD mysmallbtn"
                 DataKeyNames="CveEjercicio,Ejercicio,PeriodoActualNumero,CuentaNombre,CveCuentaCierre,PolizaFolio,PrePolizaCierreFolio,Estatus" AutoGenerateColumns="False"
                 Style="text-align: center; width: 100%" GridLines="None">
                 <Columns>
@@ -34,17 +78,20 @@
                     <asp:BoundField DataField="Estatus" HeaderText="Estatus" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="80px">
                         <ItemTemplate>
-                            <asp:LinkButton ID="ImgC" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="PolizaCierre" CssClass="btn btn-circle btn-sm blue" Text="<i class='glyphicon glyphicon-ok'></i>" />
+                            <asp:LinkButton ID="ImgC" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="PolizaCierre"
+                                CssClass="btn btn-primary btn-circle btn-sm" Text="<i class='glyphicon glyphicon-ok'></i>" />
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="80px">
                         <ItemTemplate>
-                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-pencil'></i>" />
+                            <asp:LinkButton ID="ImgE" runat="server" AlternateText="Editar" CausesValidation="False" OnClick="ActualizaModulo"
+                                CssClass="btn green btn-circle btn-sm" Text="<i class='fa fa-pencil'></i>" />
                         </ItemTemplate>
                     </asp:TemplateField>
                     <asp:TemplateField ItemStyle-Width="80px">
                         <ItemTemplate>
-                            <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
+                            <asp:LinkButton ID="ImgEE" runat="server" AlternateText="Eliminar" CausesValidation="False" OnClick="EliminarRow" CommandName="Delete"
+                                CssClass="btn btn-danger btn-circle btn-sm" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="confirmar" data-btn-ok-label="si" />
                         </ItemTemplate>
                     </asp:TemplateField>
                 </Columns>

Contabilidad2/RepBalanzaComprobacion.aspx.vb

@@ -97,8 +97,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
                 End If
                 'End If
             End If
-            'DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-            'DdlSubproyecto.DataBind()
+            DdlSubproyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
+            DdlSubproyecto.DataBind()
 
             If Not ErrorParametros Then
                 CargaDatos()

Contabilidad2/RepEstadoResultadosHorizontal.aspx

@@ -101,24 +101,17 @@
                                         <asp:ListItem Text="Diciembre" Value="12"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
-
-
-                                <div class="col-md-1">
-                                    <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
-                                </div>
-                                <div class="col-md-2">
-                                    <asp:DropDownList ID="DdlProyecto" CssClass=" form-control input-sm select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="95%">
-                                    </asp:DropDownList>
+                                 
+                                <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>
                                 <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlSubproyecto" CssClass="form-control input-sm select2me" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="95%" AutoPostBack="True">
                                     </asp:DropDownList>
-                                </div>
-
-                            </div>
-
-
+                                </div> 
+                            </div> 
                         </div>
                     </div>
                 </div>

Contabilidad2/RepEstadoResultadosHorizontal.aspx.vb

@@ -350,7 +350,7 @@ Partial Class Contabilidad_RepEstadoResultadosHorizontal
 
             CargaEjercicios()
 
-            CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto)
+            CargarCentrosDeCosto(DdlProyecto, DdlSubproyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)
             TabSubProyecto.HeaderText = LblProyecto.Text & " " & LblSubProyecto.Text & " "
 
 

Contratos/Estimaciones.aspx.vb

@@ -59,7 +59,7 @@ Partial Class Contratos_Estimaciones
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
     End Sub

Contratos/RepContratos.aspx.vb

@@ -60,7 +60,7 @@ Partial Class RepContratos
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
     End Sub

Contratos/RepContratosDetalle.aspx.vb

@@ -60,7 +60,7 @@ Partial Class RepContratos
         DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1"))
     End Sub
     Private Sub CargaClasificacion()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
         DdlClasificacion.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todas", "-1"))
     End Sub

Flotillas/CatCombustibles.aspx.vb

@@ -33,14 +33,14 @@ Partial Class Maq_CatCombustibles
 
         If ObjFlotilla.GetCombustiblesTipos(UsuarioActual.CveEmpresa) Then
             ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatosCombustiblesTipos.DataSource = Nothing
         End If
 
-        If ObjFlotilla.GetCombustibles() Then
+        If ObjFlotilla.GetCombustibles(UsuarioActual.CveEmpresa) Then
             ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustiblesTipos(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatosCombustibles.DataSource = Nothing
         End If
@@ -75,7 +75,7 @@ Partial Class Maq_CatCombustibles
             Alert("El nuevo Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulosCombustibles.Update()
             ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString(), 0)
@@ -126,7 +126,7 @@ Partial Class Maq_CatCombustibles
         If ObjFlotilla.RemoveCombustibles(GvDatosCombustibles.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatosCombustibles.EditIndex = -1
             ViewState("DTCombustible") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -189,7 +189,7 @@ Partial Class Maq_CatCombustibles
             Alert("El nuevo Tipo de Combustible se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulosCombustiblesTipos.Update()
             ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustibles(-1) = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString(), 1)
@@ -221,7 +221,7 @@ Partial Class Maq_CatCombustibles
         If ObjFlotilla.RemoveCombustiblesTipos(GvDatosCombustiblesTipos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatosCombustiblesTipos.EditIndex = -1
             ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Tipo de Combustible se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -255,7 +255,7 @@ Partial Class Maq_CatCombustibles
         If ObjFlotilla.UpdateCombustiblesTipos(CombustibleTipo, EstatusCombustibleTipo, CveCombustibleTipo) Then
             GvDatosCombustiblesTipos.EditIndex = -1
             ViewState("DTCombustibleTipo") = ObjFlotilla.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTCombustiblesTipos = ObjFlotilla.DtResultados
+            GlobalDTCombustibles(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

General/CatProductosServiciosCaracteristicas.aspx.vb

@@ -40,9 +40,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios
 
     Public Sub CargaDatos()
         Dim ObjCaracteristicas As New ClsGralProductosServiciosCaracteristicas
-        If ObjCaracteristicas.GetProductosServiciosCaracteristicas() Then
+        If ObjCaracteristicas.GetProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) Then
             ViewState("DTProductosServiciosCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
+            'GlobalDTProductosServiciosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
         Else
             Me.GvDatosCaracteristicas.DataSource = Nothing
         End If
@@ -56,9 +56,9 @@ Partial Class GRAL_CatCaracteristicasProductosServicios
 
     Public Sub CargaDatosO()
         Dim ObjOpciones As New ClsGralProductosServiciosCaracteristicas
-        If ObjOpciones.GetProductosServiciosCaracteristicasOpciones() Then
+        If ObjOpciones.GetProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) Then
             ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
+            'GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
         Else
             GvDatosOpciones.DataSource = Nothing
         End If

Global.asax

@@ -42,23 +42,22 @@
 
         GuardaLogAsax(String.Format("Globalasax 5:{0}", DateTime.Now))
         Using ObjAC As New ClsAC
-            If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
-            If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
-            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            'If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+            'If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+            'If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
             If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
             If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
-            If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
-            If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
-            If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
+            'If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+            'If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+            'If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
             If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
             If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
             If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
             If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
             If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
-            If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
-            If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            'If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
             If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
-            If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
+            'If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
             If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
             If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
             ' If ObjAC.GetAreas() Then Application("GlobalDTAC_Areas") = ObjAC.DtResultados Else Application("GlobalDTAC_Areas") = Nothing   
@@ -103,50 +102,50 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------        
         'P R O S P E C T O S
 
-        GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
-        Using ObjProspectos As New ClsProspectos
-            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
-            If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
-            If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
-            If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
-            If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
-            If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
-            If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
-            If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
-            If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
-            If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
-            If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
-            If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
-            If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
-            If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
-            If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
-            If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
-            If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
-            If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
-            If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
-            If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
-        End Using
+        'GuardaLogAsax(String.Format("Globalasax 10:{0}", DateTime.Now))
+        'Using ObjProspectos As New ClsProspectos
+        'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
+        'If ObjProspectos.GetClasificacion Then Application("GlobalDTProspectosClasificacionesCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosClasificacionesCaracteristicas") = Nothing
+        'If ObjProspectos.GetCoordinadores(-1) Then Application("GlobalDTProspectosCoordinadores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCoordinadores") = Nothing
+        'If ObjProspectos.GetSupervisores(-1) Then Application("GlobalDTProspectosSupervisores") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSupervisores") = Nothing
+        'If ObjProspectos.GetProspectosSolicitudes(-1, -1, -1, -1, -1) Then Application("GlobalDTProspectosSolicitudes") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudes") = Nothing
+        'If ObjProspectos.GetSolicitudTipo Then Application("GlobalDTProspectosSolicitudesTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesTipos") = Nothing
+        'If ObjProspectos.GetApoyoTipo Then Application("GlobalDTProspectosApoyosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyosTipos") = Nothing
+        'If ObjProspectos.GetProspectoApoyo Then Application("GlobalDTProspectosApoyos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosApoyos") = Nothing
+        'If ObjProspectos.GetSolicitudEstatus Then Application("GlobalDTProspectosSolicitudesEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosSolicitudesEstatus") = Nothing
+        'If ObjProspectos.GetEventosTipo(-1) Then Application("GlobalDTProspectosEventosTipo") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEventosTipo") = Nothing
+        'If ObjProspectos.GetProspectosEventos(-1, -1) Then Application("GlobalDTProspectosEvento") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEvento") = Nothing
+        'If ObjProspectos.GetProspectosTipos() Then Application("GlobalDTProspectosTipos") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTipos") = Nothing
+        'If ObjProspectos.GetProspectosEstatus() Then Application("GlobalDTProspectosEstatus") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEstatus") = Nothing
+        'If ObjProspectos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTProspectosCaracteristicasClasificaciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasClasificaciones") = Nothing
+        'If ObjProspectos.GetTiposCaracteristicas(-1) Then Application("GlobalDTProspectosTiposCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosTiposCaracteristicas") = Nothing
+        'If ObjProspectos.GetCaracteristicas(-1) Then Application("GlobalDTProspectosCaracteristicas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicas") = Nothing
+        'If ObjProspectos.GetCaracteristicasOpciones(-1, -1) Then Application("GlobalDTProspectosCaracteristicasOpciones") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosCaracteristicasOpciones") = Nothing
+        'If ObjProspectos.GetEncuestas(-1, -1) Then Application("GlobalDTProspectosEncuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestas") = Nothing
+        'If ObjProspectos.GetPreguntas(-1, -1, -1) Then Application("GlobalDTProspectosEncuestasPreguntas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasPreguntas") = Nothing
+        'If ObjProspectos.GetRespuestas(-1, -1) Then Application("GlobalDTProspectosEncuestasRespuestas") = ObjProspectos.DtResultados Else Application("GlobalDTProspectosEncuestasRespuestas") = Nothing
+        'End Using
 
-        GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
+        'GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C L A S I F I C A C I O N E S
 
-        Using ObjClasificaciones As New ClsClasificaciones()
+        'Using ObjClasificaciones As New ClsClasificaciones()
 
-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'F A M I L I A S 
-            If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'F A M I L I A S 
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=2) Then Application("GlobalDTSubFamilias") = ObjClasificaciones.DtResultados Else Application("GlobalDTSubFamilias") = Nothing
 
-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'P R E S U P U E S T O
-            If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'P R E S U P U E S T O
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=3) Then Application("GlobalDTClasificacionesPresupuestos") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificacionesPresupuestos") = Nothing
 
-            '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-            'C L A S I F I C A C I O N E S 2
-            If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
+        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
+        'C L A S I F I C A C I O N E S 2
+        'If ObjClasificaciones.GetClasificaciones(Tipo:=4) Then Application("GlobalDTClasificaciones2") = ObjClasificaciones.DtResultados Else Application("GlobalDTClasificaciones2") = Nothing
+        'End Using
+        'GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
         '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
@@ -162,11 +161,11 @@
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C O M B U S T I B L E S
 
-        Using ObjFlotillas As New ClsFlotillas
-            If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
-            If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
+        'Using ObjFlotillas As New ClsFlotillas
+        'If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
+        'If ObjFlotillas.GetCombustiblesTipos(-1) Then Application("GlobalDTCombustiblesTipos") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustiblesTipos") = Nothing
+        'End Using
+        'GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -185,7 +184,7 @@
 
         BundleConfig.RegistrarBundles(BundleTable.Bundles)
         BundleTable.EnableOptimizations = True
-        System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None
+        ' System.Web.UI.ValidationSettings.UnobtrusiveValidationMode = UnobtrusiveValidationMode.None
 
         Dim EmpresaNotificaciones As New Empresa With {.SendMail = "signotificaciones@adssistemas.mx", .SendMailPassword = "sig123987", .SendMailServer = "mail.adssistemas.mx", .SendMailPuerto = 587}
         ClsPaginas.EmpresaNotificaciones = EmpresaNotificaciones
@@ -228,9 +227,9 @@
     End Sub
 
     Sub Application_End(sender As Object, e As EventArgs)
-        If EsProduccion = "1" Then
-            SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
-        End If
+        'If EsProduccion = "1" Then
+        '    SqlDependency.Stop(ConfigurationManager.ConnectionStrings("Conexion").ConnectionString)
+        'End If
         ' Code that runs on application shutdown
     End Sub
 

Inventarios/RecepcionAlmacen.aspx.vb

@@ -3567,7 +3567,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         CveClasificacionDifCostoNC = gvr.DataKey("CveClasificacion").ToEntero
                     Next
                     Dim IdCtaContableClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
-                    Dim CveCuentaClasificacion As Integer = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostosSIG", $"CveClasificacion = {CveClasificacionDifCostoNC}").ToEntero
 
                     TotalNC = TotalNC.RoundSQL
                     Dim DifCostoNC As Decimal = (TotalCosto - TotalNC).RoundSQL
@@ -3609,7 +3608,7 @@ Partial Class Inventarios_RecepcionAlmacen
                                 If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalNC, SerieFolio, CveConceptoContableNC, SerieFolio, Fecha, IdCtaContableNC, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalNC, Contabilizable:=EsContabilizable) Then
                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto * -1, SerieFolio, 68, SerieFolio, Fecha, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto * -1, Contabilizable:=If(CveTipoCompra = 10, False, EsContabilizable)) Then
                                         If DifCostoNC <> 0 Then
-                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, CveCuenta:=CveCuentaClasificacion, Contabilizable:=EsContabilizable, CveSubProyecto:=CveSubProyecto) Then
+                                            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, DifCostoNC * -1, SerieFolio, 69, SerieFolio, Fecha, IdCtaContableClasificacion, -1, CveClasificacion:=CveClasificacionDifCostoNC, CveCompra:=CveCompraSurtir, CveProveedor:=CveProveedor, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=DifCostoNC * -1, Contabilizable:=EsContabilizable, CveSubProyecto:=CveSubProyecto) Then
                                                 ErrorMovInv = True
                                             End If
                                         End If
@@ -4040,7 +4039,13 @@ Partial Class Inventarios_RecepcionAlmacen
                 End If
             End If
             If CvePrePoliza > 0 Then
-                Dim IdCtaContableAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
+                Dim dtta As DataTable = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.SelectedValue.ToEntero)
+                Dim IdCtaContableAlmacen As Integer = -1
+                Dim CveSubProyecto As Integer = -1
+                If dtta IsNot Nothing Then
+                    IdCtaContableAlmacen = dtta.FiltroPrimeroValor("IdCtaContable").ToEntero
+                    CveSubProyecto = dtta.FiltroPrimeroValor("CveSubProyecto").ToEntero
+                End If
 
                 ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa)
                 Dim TotalCosto As Decimal = ObjInventario.DtResultados.SUMD("Total").RoundSQL()
@@ -4049,7 +4054,7 @@ Partial Class Inventarios_RecepcionAlmacen
                 Dim PorcentajeRecepcionCompras As Decimal = TotalCosto / DtTempCompras.SUMD("SubTotalTC")
                 Dim ConceptoPartida As String = String.Format("{0}- Inv#{1}", HLFolio.Text, InvFolio)
 
-                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, Contabilizable:=If(CveTipoCompra = 10, False, True)) Then
+                If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, TotalCosto, InvFolio, 68, InvFolio, FechaMovto, IdCtaContableAlmacen, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=TotalCosto, CveSubProyecto:=CveSubProyecto, Contabilizable:=If(CveTipoCompra = 10, False, True)) Then
                     'se recorren las facturas a descontar el recepción
                     If DtTempCompras IsNot Nothing AndAlso DtTempCompras.Rows.Count > 0 Then
 
@@ -4073,7 +4078,7 @@ Partial Class Inventarios_RecepcionAlmacen
 
 
 
-                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then
+                            If ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, CveConceptoCostoIndirecto, ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono, CveSubProyecto:=CveSubProyecto) Then
                                 ' si tiene valor es que hay complementaria
                                 If ImporteAbonoME > 0 Then
                                     If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteAbono, ConceptoPartida, If(CveImportacionSurtir > 0, 242, 239), ConceptoPartida, FechaMovto, IdCtaContableCostoInd, -1, CveCompra:=CveComp, CveProveedor:=dr("CveProveedor").ToString.ToEntero, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImporteAbono) Then

Inventarios/TraspasoAlmacen.aspx.vb

@@ -1006,7 +1006,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim CveConceptoEntrada As Integer = 27
         If Not ChkTransitorio.Checked Then CveConceptoEntrada = 27 Else CveConceptoEntrada = 9
 
-        Dim CveFolioGarantia As Integer = Request.QueryString("CveFolioGarantia").ToEntero
+        Dim CveFolioGarantia As Integer = IfNull(Request("CveFolioGarantia"), -1).ToString.ToEntero
 
         'AGREGAMOS LA SALIDA DEL ALMACEN ORIGEN
         CveMovimientoSalida = ObjInventario.AddMovimiento(DdlAlmacenOrigen.SelectedValue.ToEntero, TipoMovimientoSalida, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
@@ -1014,7 +1014,7 @@ Partial Class Inventarios_TraspasoAlmacen
                                                           CveAlmacenDestino:=DdlAlmacenDestino.SelectedValue.ToEntero, GastoIndirecto:=If(ChkTransitorio.Checked And TxtGastoIndirecto.Text.ToDouble > 0, TxtGastoIndirecto.Text, "-1").ToDouble,
                                                           CveChofer:=If(ChkTransitorio.Checked, DdlChofer.SelectedValue.ToEntero, -1), Placa:="", FechaEntrega:=If(ChkTransitorio.Checked, TxtFechaEntrega.Text.Trim.ToDateTime.ToString("dd/MM/yyyy"), "-1"), EspecifUnidad:="",
                                                           ResponsableCarga:="", ResponsableRecibio:="", Identificacion:="", Domicilio:="",
-                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
+                                                          Telefono:="", Ciudad:="", Licencia:="", Modulo:="TA/G2", CveFolioGarantia:=CveFolioGarantia)
         FolioSalida = ObjInventario.Folio
         Folio = ObjInventario.Folio
         If CveMovimientoSalida <= 0 Then
@@ -1035,7 +1035,7 @@ Partial Class Inventarios_TraspasoAlmacen
         'ENTRADA
         CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenEntrada, CveConceptoEntrada, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1,
                                                                    Observaciones:=TxtObservaciones.Text.Trim, Recibio:=If(ChkTransitorio.Checked, TxtResponsable.Text.Trim, "-1"),
-                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3", CveFolioGarantia:=If(CveFolioGarantia > 0, CveFolioGarantia, -1))
+                                                                   CveAlmacenDestino:=If(ChkTransitorio.Checked, DdlAlmacenDestino.SelectedValue.ToEntero, -1), CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/G3", CveFolioGarantia:=CveFolioGarantia)
         FolioEntrada = ObjInventario.Folio
         If CveMovimientoEntrada <= 0 Then
             TextoError = "Ocurrió un error al generar el movimiento de entrada"

OS/PopUpMateriales.aspx.vb

@@ -96,7 +96,7 @@ Partial Class OS_PopUpMateriales
     End Sub
 
     Private Sub CargaClasificaciones()
-        DdlClasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
     End Sub
 
@@ -129,7 +129,7 @@ Partial Class OS_PopUpMateriales
                     Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString.ToEntero
                     Dim UM = GlobalDTUnidadesMedida.FiltraParametros("CveUnidadMedida = " & CveUnidadMedida).Rows(0)("UnidadMedida").ToString
                     Dim CveClasificacion As Integer = RowPS("CveClasificacion").ToString.ToEntero
-                    Dim Clasificacion As String = GlobalDTClasificaciones.FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
+                    Dim Clasificacion As String = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("CveClasificacion = " & CveClasificacion).Rows(0)("Clasificacion").ToString
 
                     AddPS(Material("CveMaterialUtilizado").ToString.ToEntero, CveOSDetalle, Material("Cantidad").ToString.ToDecimal, CveUnidadMedida, UM, Material("CvePS").ToString.ToEntero, PS, CveClasificacion, Clasificacion, Material("SeFacturara").ToString)
                 Next
@@ -176,7 +176,7 @@ Partial Class OS_PopUpMateriales
                 e.Row.FCDropDownList("DdlPS").DataBind()
                 e.Row.FCDropDownList("DdlPS").SelectedValue = e.Row.DBCampo("CvePS")
 
-                e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlClasificacion").DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlClasificacion").DataBind()
                 e.Row.FCDropDownList("DdlClasificacion").SelectedValue = e.Row.DBCampo("CveClasificacion")
             End If

Prospectos/CatClasificacionesCaracteristicas.aspx.vb

@@ -56,7 +56,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             If (ViewState("DTClasificacionesCaracteristicas") Is Nothing) Then
                 ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados
             End If
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatosCl.DataSource = Nothing
         End If
@@ -77,7 +77,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             Alert("La nueva Clasificación de Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
             'UpTitulos.Update()
             ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
 
             CambioClasificacionesCaracteristicas()
         End If
@@ -186,7 +186,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
 
             If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataBind()
                 e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaClasificacion")
             End If
@@ -199,11 +199,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
     End Sub
     Private Sub CargaClasificaciones()
         DdlCaracteristicaClasificacion.Items.Clear()
-        DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
         DdlCaracteristicaClasificacion.DataBind()
 
         DdlCaracteristicaClasificacionC.Items.Clear()
-        DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
         DdlCaracteristicaClasificacionC.DataBind()
     End Sub
     Protected Sub BtnDuplicarCaracteristicaTipo_Click(sender As Object, e As EventArgs) Handles BtnDuplicarCaracteristicaTipo.Click
@@ -219,7 +219,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
             'UpTitulos.Update()
             ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
 
             CambioCaracteristicaTipo()
         End If
@@ -292,11 +292,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
 
     Private Sub CargaTiposCaracteristicas()
         DdlCaracteristicaTipo.Items.Clear()
-        DdlCaracteristicaTipo.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaTipo.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
         DdlCaracteristicaTipo.DataBind()
 
         DdlCaracteristicaTipoO.Items.Clear()
-        DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
         DdlCaracteristicaTipoO.DataBind()
     End Sub
     Protected Sub GvDatosCaracteristicas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosCaracteristicas.RowDataBound
@@ -316,7 +316,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
 
             If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
-                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+                e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa)
                 e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataBind()
                 e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaTipo")
 
@@ -382,7 +382,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             If (ViewState("DTTiposCaracteristicas") Is Nothing) Then
                 ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados
             End If
-            GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -396,20 +396,11 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         End If
     End Sub
     Public Sub CargaDatosO()
-        Dim ObjCaracteristicasOpciones As New ClsProspectos
-        If ObjCaracteristicasOpciones.GetCaracteristicasOpciones(-1, UsuarioActual.CveEmpresa) Then
-            ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            If CType(ViewState("DTCaracteristicasOpciones"), DataTable).Columns.Count = 0 Then
-                ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            End If
-
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
-        Else
-            GvDatosOpciones.DataSource = Nothing
+        ViewState("DTCaracteristicasOpciones") = GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1)
+        If CType(ViewState("DTCaracteristicasOpciones"), DataTable).Columns.Count = 0 Then
+            ViewState("DTCaracteristicasOpciones") = GlobalDTProspectosCaracteristicasOpciones(-1, -1)
         End If
 
-        ObjCaracteristicasOpciones.Dispose()
-
         If ViewState("OrdenO").ToString() <> String.Empty Then
             CargaGridO(ViewState("OrdenO").ToString())
         Else
@@ -424,7 +415,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
             'UpTitulos.Update()
             ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
 
             CambioCaracteristicaTipo()
         End If
@@ -439,7 +430,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
             TxtOpcion.Text = ""
             Alert("La nueva Opción para Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
             ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados
 
             CambioCaracteristicasOpciones()
         End If
@@ -573,7 +564,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjClasificaciones.RemoveClasificacionesCaracteristicas(GvDatosCl.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatosCl.EditIndex = -1
             ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Clasificacion de Tipo de Caracteristica se eliminó correctamente.", TipoMensaje.MsgInformacion)
 
             CambioClasificacionesCaracteristicas()
@@ -587,7 +578,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjTiposCaracteristicas.RemoveTiposCaracteristicas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
             GvDatos.EditIndex = -1
             ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Tipo de Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
 
             CambioCaracteristicaTipo()
@@ -615,7 +606,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjCaracteristicasOpciones.RemoveCaracteristicasOpciones(GvDatosOpciones.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatosOpciones.EditIndex = -1
             ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados
             Alert("La Opción para Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
 
             CambioCaracteristicasOpciones()
@@ -670,7 +661,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjClasificaciones.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaClasificacion) Then
             GvDatosCl.EditIndex = -1
             ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
             CambioClasificacionesCaracteristicas()
@@ -690,7 +681,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjTiposCaracteristicas.UpdateTiposCaracteristicas(CaracteristicaTipo, CveCaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaTipo) Then
             GvDatos.EditIndex = -1
             ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
+            GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
             CambioCaracteristicaTipo()
@@ -732,7 +723,7 @@ Partial Class Prospectos_CatClasificacionesCaracteristicas
         If ObjCaracteristicasOpciones.UpdateCaracteristicasOpciones(CaracteristicaOpcion, CveCaracteristica, Estatus, CveCaracteristicaOpcion) Then
             GvDatosOpciones.EditIndex = -1
             ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
-            GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
+            GlobalDTProspectosCaracteristicasOpciones(UsuarioActual.CveEmpresa, -1) = ObjCaracteristicasOpciones.DtResultados
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
             CambioCaracteristicasOpciones()

Prospectos/CatProspectosApoyos.aspx.vb

@@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyos
 
     Public Sub CargaDatos()
         Dim ObjProspectosApoyos As New ClsProspectos
-        If ObjProspectosApoyos.GetProspectoApoyo() Then
-            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+        If ObjProspectosApoyos.GetProspectoApoyo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyos
             TxtProspectoApoyo.Text = ""
             Alert("El nuevo Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
-            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyos
         If ObjProspectosApoyos.RemoveProspectoApoyo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -103,7 +103,7 @@ Partial Class Prospectos_CatProspectosApoyos
         If ObjProspectosApoyos.UpdateProspectoApoyo(ProspectoApoyo, Estatus, CveProspectoApoyo) Then
             GvDatos.EditIndex = -1
             ViewState("DTProspectosApoyos") = ObjProspectosApoyos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = ObjProspectosApoyos.DtResultados
+            GlobalDTProspectosApoyos(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

Prospectos/CatProspectosApoyosTipos.aspx.vb

@@ -18,9 +18,9 @@ Partial Class Prospectos_CatProspectosApoyosTipos
 
     Public Sub CargaDatos()
         Dim ObjApoyoTipo As New ClsProspectos
-        If ObjApoyoTipo.GetApoyoTipo() Then
-            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+        If ObjApoyoTipo.GetApoyoTipo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -40,8 +40,8 @@ Partial Class Prospectos_CatProspectosApoyosTipos
             TxtApoyoTipo.Text = ""
             Alert("El nuevo Tipo de Apoyo se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
-            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -72,7 +72,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos
         If ObjApoyoTipo.RemoveApoyoTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Tipo de Apoyo se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -102,7 +102,7 @@ Partial Class Prospectos_CatProspectosApoyosTipos
         If ObjApoyoTipo.UpdateApoyoTipo(ApoyoTipo, Estatus, CveApoyoTipo) Then
             GvDatos.EditIndex = -1
             ViewState("DTApoyoTipo") = ObjApoyoTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = ObjApoyoTipo.DtResultados
+            GlobalDTProspectosApoyosTipos(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

Prospectos/RedesCallCenter.aspx.vb

@@ -97,7 +97,7 @@ Partial Class Prospectos_RedesCallCenter
 
                     GvPreguntas.DataSource = ObjProsEncuestas.DtResultados
                     DTProspectosPreguntas = ObjProsEncuestas.DtResultados
-                    If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then
+                    If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then
                         DTProspectosRespuestas = ObjProsEncuestas.DtResultados
                     End If
 

Prospectos/RedesEncuestas.aspx.vb

@@ -463,7 +463,7 @@ Partial Class Prospectos_RedesEncuestas
             GvPreguntas.DataSource = ObjProsEncuestas.DtResultados
             DTProspectosPreguntas = ObjProsEncuestas.DtResultados
 
-            If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta) Then
+            If ObjProsEncuestas.GetRespuestas(-1, CveEncuesta, UsuarioActual.CveEmpresa) Then
                 DTProspectosRespuestas = ObjProsEncuestas.DtResultados
             End If
 

Prospectos/Solicitudes/CatProspectosSolicitudesEstatus.aspx.vb

@@ -22,9 +22,8 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
 
     Public Sub CargaDatos()
         Dim ObjProspectosEstatus As New ClsProspectos
-        If ObjProspectosEstatus.GetSolicitudEstatus() Then
-            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+        If ObjProspectosEstatus.GetSolicitudEstatus(UsuarioActual.CveEmpresa) Then
+            ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -45,7 +44,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
             Alert("El nuevo Estatus se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +125,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
         If ObjProspectosEstatus.RemoveSolicitudEstatus(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Estatus se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -159,7 +158,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesEstatus
         If ObjProspectosEstatus.UpdateSolicitudEstatus(SolicitudEstatus, Estatus, CveSolicitudEstatus) Then
             GvDatos.EditIndex = -1
             ViewState("DTProspectosEstatus") = ObjProspectosEstatus.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = ObjProspectosEstatus.DtResultados
+            GlobalDTProspectosSolicitudesEstatus(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

Prospectos/Solicitudes/CatProspectosSolicitudesTipos.aspx.vb

@@ -22,9 +22,9 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
 
     Public Sub CargaDatos()
         Dim ObjSolicitudTipo As New ClsProspectos
-        If ObjSolicitudTipo.GetSolicitudTipo() Then
-            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+        If ObjSolicitudTipo.GetSolicitudTipo(UsuarioActual.CveEmpresa) Then
+            ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -45,7 +45,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
             Alert("El nuevo Tipo de Solicitud se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -126,7 +126,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
         If ObjSolicitudTipo.RemoveSolicitudTipo(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Tipo de Solicitud se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -159,7 +159,7 @@ Partial Class Prospectos_Solicitudes_CatProspectosSolicitudesTipos
         If ObjSolicitudTipo.UpdateSolicitudTipo(SolicitudTipo, Estatus, CveSolicitudTipo) Then
             GvDatos.EditIndex = -1
             ViewState("DTSolicitudTipo") = ObjSolicitudTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = ObjSolicitudTipo.DtResultados
+            GlobalDTProspectosSolicitudesTipos(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

RH/Personal.aspx.vb

@@ -2014,11 +2014,11 @@ Partial Class RH_Personal
                     Next
                 End If
 
-                If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
-                    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
-                Else
-                    TieneError = True
-                End If
+                'If ObjPersonal.GetPersonal(-1, UsuarioActual.CveEmpresa) Then
+                '    GlobalDTGralColectivas(-1) = ObjPersonal.DtResultados
+                'Else
+                '    TieneError = True
+                'End If
 
                 Mensaje = "El Personal se guardó correctamente."
                 Accion = If(Request("CveFactura") Is Nothing, "document.location.href=""/RH/CatPersonal.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")
@@ -2055,7 +2055,7 @@ Partial Class RH_Personal
                CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(),
                CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero()) Then
 
-                'Funsion usa RH Familiares
+                'Funcion usa RH Familiares
                 If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then
                     ProcesaDTFamiliares(ObjPersonal)
                 End If
@@ -2093,12 +2093,6 @@ Partial Class RH_Personal
 
         End If
 
-
-
-
-
-
-
         If TieneError Then
             ObjPersonal.RollBack()
             Alert("Ocurrio un error guardar el Personal. Por favor vuelva a intentar.", TipoMensaje.ToastAdventencia)
@@ -2106,14 +2100,12 @@ Partial Class RH_Personal
             ObjPersonal.Commit()
             Alert(Mensaje, TipoMensaje.MsgInformacion, Accion)
 
-
-
-
             CargaEstatusPersonal(DdlEstatusPersonal.SelectedValue.ToEntero())
             'If File.Exists(ModExtensiones.DirectorioBaseEmpresas & "Empresas\" & UsuarioActual.CveEmpresa & "\RH\Personal\" & ObjPersonal.URL) Then
             '    ImgPersonal.ImageUrl = "/Empresas/" & UsuarioActual.CveEmpresa & "/RH/Personal/" & ObjPersonal.URL
             'End If
             GlobalDTRHPersonal(UsuarioActual.CveEmpresa) = Nothing
+            GlobalDTCuentasDepositosPersonales(UsuarioActual.CveEmpresa) = Nothing
 
             If CvePersonal > 0 Then
                 Dim strquery As String = String.Format("UPDATE RH_Personal SET CveEstadoDomicilio = {2},CiudadOrigen ='{3}' WHERE CvePersonal ={1} AND CveEmpresa = {0} ",
@@ -3269,7 +3261,8 @@ Partial Class RH_Personal
     Protected Sub LbActualizarCuentaBanco_Click(sender As Object, e As EventArgs)
         Using ObjCuentasBancos As New ClsGenerales
             Dim nombrebanco As String = DdlBancoSat.SelectedItem.Text
-            If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero()) Then
+
+            If ObjCuentasBancos.UpdateCuentasDepositosPersonal(CveCuentaDeposito, nombrebanco, TxtNumeroCuenta.Text, TxtCLABECB.Text, DdlMoneda.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, ChkEstatusPagoE.Checked, ChkEstatuscuenta.Checked, DdlBancoSat.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then
                 'UpdateCuentasDepositosPersonal(CveCuentaDeposito As Integer, BancoNombre As String, Cuenta As String, CLABE As String, CveMoneda As Integer, CveUsuarioModifico As Integer, EstatusPagoElectronico As Boolean, Estatus As Boolean, CveSATBanco As Integer) As Boolean
                 Alert("Cuenta actualizada")
             End If
@@ -3397,7 +3390,7 @@ Partial Class RH_Personal
         DTCuentasBancos = New DataTable
         TempDTCuentasBancos = New DataTable
 
-        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal) Then
+        If ObjCuentasBancos.GetCuentasDepositos(CvePersonal:=CvePersonal, CveEmpresa:=UsuarioActual.CveEmpresa) Then
             DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados)
         Else
             Alert("No se pudieron cargar las cuentas bancarias. Por favor intente nuevamente.", TipoMensaje.MsgError)

Sistemas/CatSesiones.aspx

@@ -63,6 +63,7 @@
         <asp:ListItem Text="GlobalSATGenerales" Value="GlobalSATGenerales"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTActivoFijos" Value="GlobalDTActivoFijos"></asp:ListItem> 
         <asp:ListItem Text="GlobalDTVendedoresOld" Value="GlobalDTVendedoresOld"></asp:ListItem> 
+         <asp:ListItem Text="GlobalDTAC" Value="GlobalDTAC"></asp:ListItem> 
 
     </asp:DropDownList>&nbsp;&nbsp; 
       

Sistemas/CatSesiones.aspx.vb

@@ -104,7 +104,9 @@ Partial Class Sistemas_CatSesiones
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTActivoFijos" Then
             CargaActivoFijos()
         ElseIf DdlVariable.SelectedItem.Value = "GlobalDTVendedoresOld" Then
-            CargaActivoFijos()
+            CargaActivoFijos()
+        ElseIf DdlVariable.SelectedItem.Value = "GlobalDTAC" Then
+            cargaAC()
         End If
 
 
@@ -362,10 +364,29 @@ Partial Class Sistemas_CatSesiones
         ObjEmp.Dispose()
         'Fin Carga  Empresas
     End Sub
-    Private Sub carga1()
-        Dim ObjAC As New ClsAC
-        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados
-        ObjAC.Dispose()
+    Private Sub cargaAC()
+        Using ObjAC As New ClsAC
+            If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+            If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
+            If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
+            If ObjAC.GetUnidadesAdministrativas(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+            If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+            If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
+            If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
+            If ObjAC.GetPD_Estrategias() Then Application("GlobalDTAC_PD_Estrategias") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Estrategias") = Nothing
+            If ObjAC.GetPD_LineasAccion() Then Application("GlobalDTAC_PD_LineasAccion") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_LineasAccion") = Nothing
+            If ObjAC.GetPD_Metas() Then Application("GlobalDTAC_PD_Metas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Metas") = Nothing
+            If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
+            If ObjAC.GetProgramaOperativo(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
+            If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+            If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
+            If ObjAC.GetFuentesRecaudacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
+            If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
+            If ObjAC.GetMatrizGD Then Application("GlobalDTAC_MatrizEgresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizEgresos") = Nothing
+
+        End Using
     End Sub
     Private Sub CargaMonedas()
         'Carga Monedas
@@ -488,7 +509,7 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaProsCla()
         Dim Prosp As New ClsProspectos
-        If Prosp.GetClasificacion Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
+        If Prosp.GetClasificacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTProspectosClasificaciones") = Prosp.DtResultados Else Application("GlobalDTProspectosClasificaciones") = Nothing
         Prosp.Dispose()
     End Sub
 
@@ -562,21 +583,21 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaCONAC()
         Dim ObjAC As New ClsAC
 
-        If ObjAC.GetClasificacionFuncional() Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
+        If ObjAC.GetClasificacionFuncional(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionFuncional") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionFuncional") = Nothing
 
-        If ObjAC.GetClasificacionGeografica() Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
+        If ObjAC.GetClasificacionGeografica(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionGeografica") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionGeografica") = Nothing
 
-        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+        If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
 
         If ObjAC.GetFuenteFinanciamientoCONAC() Then Application("GlobalDTAC_FuentesFinanciamientoCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamientoCONAC") = Nothing
 
         If ObjAC.GetProgramaCONAC() Then Application("GlobalDTAC_ProgramasCONAC") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramasCONAC") = Nothing
 
-        If ObjAC.GetUnidadesAdministrativas() Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
+        If ObjAC.GetUnidadesAdministrativas(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_UnidadesAdministrativas") = ObjAC.DtResultados Else Application("GlobalDTAC_UnidadesAdministrativas") = Nothing
 
-        If ObjAC.GetClasificacionAdministrativa() Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
+        If ObjAC.GetClasificacionAdministrativa(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ClasificacionAdministrativa") = ObjAC.DtResultados Else Application("GlobalDTAC_ClasificacionAdministrativa") = Nothing
 
-        If ObjAC.GetPD_EjeRector() Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
+        If ObjAC.GetPD_EjeRector(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_PD_EjeRector") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_EjeRector") = Nothing
 
         If ObjAC.GetPD_Programas() Then Application("GlobalDTAC_PD_Programas") = ObjAC.DtResultados Else Application("GlobalDTAC_PD_Programas") = Nothing
 
@@ -588,13 +609,13 @@ Partial Class Sistemas_CatSesiones
 
         If ObjAC.GetTipoGasto() Then Application("GlobalDTAC_TipoGasto") = ObjAC.DtResultados Else Application("GlobalDTAC_TipoGasto") = Nothing
 
-        If ObjAC.GetProgramaOperativo() Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
+        If ObjAC.GetProgramaOperativo(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_ProgramaOperativo") = ObjAC.DtResultados Else Application("GlobalDTAC_ProgramaOperativo") = Nothing
 
-        If ObjAC.GetFuentesFinanciamiento() Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
+        If ObjAC.GetFuentesFinanciamiento(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesFinanciamiento") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesFinanciamiento") = Nothing
 
         If ObjAC.GetRubrosIngreso() Then Application("GlobalDTAC_RubrosIngreso") = ObjAC.DtResultados Else Application("GlobalDTAC_RubrosIngreso") = Nothing
 
-        If ObjAC.GetFuentesRecaudacion() Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
+        If ObjAC.GetFuentesRecaudacion(UsuarioActual.CveEmpresa) Then Application("GlobalDTAC_FuentesRecaudacion") = ObjAC.DtResultados Else Application("GlobalDTAC_FuentesRecaudacion") = Nothing
 
         If ObjAC.GetMatrizID Then Application("GlobalDTAC_MatrizIngresos") = ObjAC.DtResultados Else Application("GlobalDTAC_MatrizIngresos") = Nothing
 
@@ -625,7 +646,7 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargarCombustible()
 
         Dim ObjFlotillas As New ClsFlotillas
-        If ObjFlotillas.GetCombustibles() Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
+        If ObjFlotillas.GetCombustibles(UsuarioActual.CveEmpresa) Then Application("GlobalDTCombustibles") = ObjFlotillas.DtResultados Else Application("GlobalDTCombustibles") = Nothing
 
         ObjFlotillas.Dispose()
     End Sub

Ventas/CatClasificacionesDetalle.aspx.vb

@@ -82,12 +82,12 @@ Partial Class CatClasificacionesDetalle
     Private Sub CargaGlobal()
         Dim ObjClasificaciones As New ClsClasificaciones
 
-        If ObjClasificaciones.GetClasificaciones() Then
-            GlobalDTClasificaciones = ObjClasificaciones.DtResultados
-        Else
-            Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
-        End If
-
+        'If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa) Then
+        '    GlobalDTClasificaciones = ObjClasificaciones.DtResultados
+        'Else
+        '    Alert("Ocurrió un error al cargar las clasificaciones generales. Por favor avisar a Sistemas.", TipoMensaje.MsgError)
+        'End If
+        GlobalDTClasificaciones(UsuarioActual.CveEmpresa) = Nothing
         If ObjClasificaciones.GetClasificacionesSubProyecto(CveClasificacion, UsuarioActual.CveEmpresa) Then
             ViewState("DTClasificaciones") = ObjClasificaciones.DtResultados
         End If

Ventas/CatFamiliaSubFamilia.aspx.vb

@@ -76,8 +76,7 @@ Partial Class Ventas_CatFamiliaSubFamilia
 
     Public Sub CargaDatosS()
         Dim ObjClasificaciones As New ClsClasificaciones
-        If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-            GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+        If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
             ViewState("DTSubFamilias") = GlobalDTSubFamilias(UsuarioActual.CveEmpresa)
         Else
             GvDatosS.DataSource = Nothing
@@ -197,9 +196,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
             Alert("La nueva SubFamilia se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulosS.Update()
 
-            If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-                GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+            If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
+                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
+                GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
             End If
 
             'DdlCuentaGastoS.SelectedValue = "-1"
@@ -290,9 +289,9 @@ Partial Class Ventas_CatFamiliaSubFamilia
         Dim ObjClasificaciones As New ClsClasificaciones
         If ObjClasificaciones.RemoveClasificacion(GvDatosS.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatosS.EditIndex = -1
-            If ObjClasificaciones.GetClasificaciones(-1, 2) Then
-                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
-                GlobalDTSubFamilias = ObjClasificaciones.DtResultados
+            If ObjClasificaciones.GetClasificaciones(UsuarioActual.CveEmpresa, 2) Then
+                ViewState("DTSubFamilias") = ObjClasificaciones.DtResultados
+                GlobalDTSubFamilias(UsuarioActual.CveEmpresa) = Nothing
             End If
             Alert("La SubFamilia se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If

Ventas/CatPS.aspx.vb

@@ -51,7 +51,7 @@ Partial Class CatPS
     End Sub
 
     Public Sub CargaClasificaciones()
-        Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0} AND (UsoClasificacion = {1} OR {1} = -1)", UsuarioActual.CveEmpresa, DdlTipoClasificacion.SelectedValue.ToEntero))
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format(" (UsoClasificacion = {0} OR {0} = -1)", DdlTipoClasificacion.SelectedValue.ToEntero))
         Ddlclasificacion.DataBind()
         Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub

Ventas/ClientesAbonar.aspx.vb

@@ -898,7 +898,7 @@ Partial Class Ventas_ClientesAbonar
 
                         For Each Gvr As GridViewRow In GvCxC.Rows
                             If Gvr.FCCheckBox("Chk").Checked Then
-                                CveSubProyecto = Gvr.DataKey("CveSubProyecto").ToEntero
+                                CveSubProyectoMaximo = Gvr.DataKey("CveSubProyecto").ToEntero
                                 Exit For
                             End If
                         Next
@@ -1225,9 +1225,9 @@ Partial Class Ventas_ClientesAbonar
                         End If
                     End If
 
-                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) AndAlso UsuarioActual.CveEmpresa <> 158 Then
+                    If MsgError = "" AndAlso ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, 3) Then
                         If ObjMov.ValorPolizaDescuadre > 0 Then
-                            MsgError = ObjMov.MensajePolizaDescuadre + " La diferencia es de: " + ObjMov.ValorDiferencia
+                            MsgError = ObjMov.MensajePolizaDescuadre & " La diferencia es de: " & ObjMov.ValorDiferencia
                         End If
                     End If
 

Ventas/PopUpBuscarPs.aspx.vb

@@ -28,7 +28,7 @@ Partial Class PopUpBuscarPs
 
 #Region "  INICIALIZA VALORES  "
     Private Sub CargaClasificaciones()
-        Ddlclasificacion.DataSource = GlobalDTClasificaciones.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        Ddlclasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         Ddlclasificacion.DataBind()
         Ddlclasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub

Ventas/ProductosServicios.aspx.vb

@@ -657,7 +657,7 @@ Partial Class ProductosyServicios
         If ObjOpciones.UpdateProductosServiciosCaracteristicasOpciones(Opcion, CveCaracteristica, CveOpcion) Then
             GvDatosOpciones.EditIndex = -1
             ViewState("DTProductosServiciosCaracteristicasOpciones") = ObjOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = ObjOpciones.DtResultados
+            GlobalDTProductosServiciosCaracteristicasOpciones(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
 
             CambioProductosServiciosCaracteristicasOpciones()