From 2c56c04d1fc80371ca390d28407bfd6cf0cd7947 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 10 Sep 2024 16:15:25 -0700
Subject: [PATCH] --FIX conexion abierta

---
 Inventarios/Kardex.aspx.vb | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index cca6c141b..5959cfaf8 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -482,7 +482,7 @@ Partial Class Inventarios_Kardex
     Private Sub GenerarPDF(Optional Formato As String = "PDF")
         If GvM.Rows.Count > 0 Then
             If ddlProducto2.SelectedValue.ToEntero > 0 Then
-                Dim Movimientos As New ClsInventarios
+
                 Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero
                 Dim Entrada As Boolean = cbEntrada.Checked
                 Dim Salida As Boolean = cbSalida.Checked
@@ -525,12 +525,20 @@ Partial Class Inventarios_Kardex
                 Dim Serie As String = If(TxtSerie.Text <> "", TxtSerie.Text, "-1")
 
                 Dim SerieAgrupado As String = If(TxtSerie.Text = "", "", $"<b>Existencia y costos calculada por numero de serie:</b>&nbsp;{TxtSerie.Text} ")
+                Dim dt As DataTable = Nothing
 
-                If Movimientos.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+                Using ObjInv As New ClsInventarios
+                    If ObjInv.GetKardex(Entrada, Salida, CvePS, FechaI, FechaF, CveAlmacen, CveTiposAlmacen.Substring(0, CveTiposAlmacen.Length - 1), DdlUnidadMedida.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ChkAgruparAlmacen.Checked, Serie, CveAlmacenes) Then
+                        dt = ObjInv.DtResultados.Copy()
+                    Else
+                        Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
+                    End If
+                End Using
 
+                If dt IsNot Nothing Then
                     Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
                     Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    Dim dt As DataTable = Movimientos.DtResultados
+
                     Dim params As New List(Of ReportParameter)
                     params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
                     params.Add(New ReportParameter("FechaInicio", FechaI))
@@ -543,9 +551,8 @@ Partial Class Inventarios_Kardex
                     params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
                     params.Add(New ReportParameter("OcultarImportes", UsuarioActual.TienePermisoProceso(201).ToString))
                     ImprimirPDF("Empresas/Grales/Formatos/RepKardex.rdlc", dt, params, "ReporteKardex", Formato)
-                Else
-                    Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia)
                 End If
+
             Else
                 Alert("Debes seleccionar un Producto/Servicio", TipoMensaje.MsgAdvertencia)
             End If