SMS -Mostrar precio por lista de precios

Ventas/CatPreciosLista.aspx.vb

@@ -45,10 +45,8 @@ Partial Class Ventas_CatPreciosLista
             GvDatos.DataSource = Nothing
         End If
         ObjVta.Dispose()
-        GvDatos.DataBind()
-
-        GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
-
+        GvDatos.DataBind()
+
     End Sub
 
     Protected Sub imgE_Click(sender As Object, e As EventArgs)
@@ -84,6 +82,8 @@ Partial Class Ventas_CatPreciosLista
             dvEstatus.Visible = False
             BtnAgregarCatalogo.Text = "Agregar"
         End If
+        GlobalDTPrecioListas(UsuarioActual.CveEmpresa) = Nothing
+
         RegistraScript("$('#divAgregar').modal('hide')")
         ObjVta.Dispose()
         TxtPrecioLista.Text = ""