-- faltaba dispose

Inventarios/InventarioFisicoDetalle.aspx.vb

@@ -658,7 +658,7 @@ Partial Class Inventarios_InventarioFisicoDetalle
     Private Sub LnkExcelUniverso_Click(sender As Object, e As EventArgs) Handles LnkExcelUniverso.Click
         Dim IncluyePS, ExcluyePS, IncluyeClasificacion, ExcluyeClasificacion, IncluyeProveedor As New StringBuilder
         Dim ObjInventario As New ClsInventarios
-        Dim DtPS As DataTable
+        Dim DtPS As DataTable = Nothing
         If ObjInventario.GetInventarioFisicoUniversoProductos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then
             If ObjInventario.DtResultados.Rows.Count > 0 Then
                 DtPS = ObjInventario.DtResultados.FiltraParametros("", "", {"Codigo", "PS", "Clasificacion", "RazonSocial"})
@@ -666,6 +666,8 @@ Partial Class Inventarios_InventarioFisicoDetalle
                 Alert("Error al consultar la informacion")
             End If
         End If
+        ObjInventario.Dispose()
+
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()