Ventas/RepProductosServicios.aspx.vb

@@ -295,12 +295,12 @@ Partial Class Ventas_RepProductosServicios
             DivMarca.Visible = True
             LblMarca.Visible = True
 
-            Dim ObjMarcas As New ClsProductosServicios
-            If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
-                DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
-                ObjMarcas.Dispose()
-                DdlMarcaPSDes.DataBind()
-            End If
+            Using ObjMarcas As New ClsProductosServicios
+                If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
+                    DdlMarcaPSDes.DataSource = ObjMarcas.DtResultados
+                    DdlMarcaPSDes.DataBind()
+                End If
+            End Using
         End If
         DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
     End Sub