-- cambios en GlobalDT

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()