From 095045c855eca2eb31fd2201c4dbf680f5b621a5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 27 May 2024 16:09:52 -0700
Subject: [PATCH] =?UTF-8?q?--=20mejora=20acomodo=20de=20c=C3=B3digo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/RepNotasSinAlmacen.aspx.vb | 29 ++++++++++++++------------
 1 file changed, 16 insertions(+), 13 deletions(-)

diff --git a/Inventarios/RepNotasSinAlmacen.aspx.vb b/Inventarios/RepNotasSinAlmacen.aspx.vb
index 55a9eb262..1ee22d54b 100644
--- a/Inventarios/RepNotasSinAlmacen.aspx.vb
+++ b/Inventarios/RepNotasSinAlmacen.aspx.vb
@@ -1,7 +1,6 @@
 Imports System.Data
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
-Imports Stimulsoft.Report.QuickButtons.StiWpfQuickButtonAttribute
 Partial Class RepNotasSinAlmacen
     Inherits ClsPaginas
 
@@ -122,8 +121,8 @@ Partial Class RepNotasSinAlmacen
         CargaDatos()
     End Sub
 
-    Private Sub CargaDatos()
-        Dim Reporte As New ClsInventarios
+    Private Sub CargaDatos()
+
         Dim CveClienteProveedor As Integer = -1
 
         Dim TipoDocumento As String = DdlTipoDocto1.SelectedValue
@@ -139,14 +138,18 @@ Partial Class RepNotasSinAlmacen
             Else
                 CveClienteProveedor = DdlCliente.SelectedValue.ToEntero
             End If
-
-            If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
+            Dim Reporte As New ClsInventarios
+            If Reporte.RepNotasSinAlmacen(Opcion, CveClienteProveedor, FechaInicial, FechaFinal, TipoDocumento, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
+                Dim dtt As DataTable = Reporte.DtResultados
+                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then ' es empresa hospitalaria
+                    dtt = dtt.fit
+                End If
                 GvVentas.DataSource = Reporte.DtResultados
                 DtNotasSinAlmacenVentas = Reporte.DtResultados
             Else
                 GvVentas.DataSource = Nothing
-            End If
-
+            End If
+            Reporte.Dispose()
             GvVentas.DataBind()
 
         Else
@@ -155,15 +158,15 @@ Partial Class RepNotasSinAlmacen
                 CveClienteProveedor = -1
             Else
                 CveClienteProveedor = DdlProveedor.SelectedValue.ToEntero
-            End If
-
+            End If
+            Dim Reporte As New ClsInventarios
             If Reporte.RepNotasSinAlmacen(2, CveClienteProveedor, FechaInicial, FechaFinal, DdlTipoDocto2.SelectedValue, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
                 GvCompras.DataSource = Reporte.DtResultados
                 DtNotasSinAlmacenCompras = Reporte.DtResultados
             Else
                 GvCompras.DataSource = Nothing
-            End If
-
+            End If
+            Reporte.Dispose()
             GvCompras.DataBind()
 
             'If (GvCompras.Rows.Count > 0) Then
@@ -174,8 +177,8 @@ Partial Class RepNotasSinAlmacen
         End If
 
         UpDatosGvVentas.Update()
-        UpDatosGvCompras.Update()
-        Reporte.Dispose()
+        UpDatosGvCompras.Update()
+
     End Sub