corrección globaldt

Ventas/CatPreciosLista.aspx.vb

@@ -32,11 +32,11 @@ Partial Class Ventas_CatPreciosLista
             CvePrecioLista = -1
             EsEditar = 0
             dvEstatus.Visible = False
-            CargaDatos(-1)
+            CargaDatos()
         End If
     End Sub
 
-    Private Sub CargaDatos(CveConductor As Integer)
+    Private Sub CargaDatos()
         Dim ObjVta As New ClsVentas
         If ObjVta.GetPrecioListas(CveEmpresa:=UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjVta.DtResultados
@@ -44,13 +44,11 @@ Partial Class Ventas_CatPreciosLista
         Else
             GvDatos.DataSource = Nothing
         End If
-
-        If ObjVta.GetPrecioListas(-1) Then
-            GlobalDTPrecioListas(-1) = ObjVta.DtResultados
-        End If
         ObjVta.Dispose()
-
         GvDatos.DataBind()
+
+        GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
+
     End Sub
 
     Protected Sub imgE_Click(sender As Object, e As EventArgs)
@@ -91,7 +89,7 @@ Partial Class Ventas_CatPreciosLista
         TxtPrecioLista.Text = ""
 
 
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
         UpBodyCompuesto.Update()
 
@@ -104,7 +102,7 @@ Partial Class Ventas_CatPreciosLista
             Alert("El Precio de lista se eliminó correctamente", TipoMensaje.MsgInformacion)
         End If
         ObjPrecioLista.Dispose()
-        CargaDatos(-1)
+        CargaDatos()
         UpDatos.Update()
     End Sub