-- mejora acomodo de código

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