--FIX Impresion cortes

Compras/PopUpVerFactura.aspx.vb

@@ -1736,10 +1736,6 @@ Partial Class PopUpVerFactura
         Dim OpcionDetallado As Integer = 1
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(197, 189) Then OpcionDetallado = 2
 
-        Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"
-
-        If ConsultaPorSucursal Then
-            'SI NO TIENE ESTOS VALORES, SARCALOS DEL CORTE
         If CveCorte > 0 AndAlso (FechaConsulta = ModExtensiones.MaxFecha OrElse CveSubProyecto <= 0) Then
             Using ObjVta As New ClsPuntoVenta
                 If ObjVta.GetVta_Cortes("-1", "-1", -1, CveCorte, UsuarioActual.CveEmpresa, -1) AndAlso ObjVta.DtResultados.Rows.Count > 0 Then
@@ -1749,9 +1745,6 @@ Partial Class PopUpVerFactura
             End Using
         End If
 
-            'CveCorte = -1
-        End If
-
         Dim ObjVenta As New ClsVentas
 
         If ObjVenta.GetVta_ReporteCortesDetalle(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa, 2, ConsultaIVA:=UsuarioActual.CveEmpresa.Contiene(190, 192), FechaConsulta:=FechaConsulta) Then
@@ -1774,17 +1767,10 @@ Partial Class PopUpVerFactura
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa.Contiene(189, 197) Then
-            If ConsultaPorSucursal Then
             If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, FechaConsulta, FechaConsulta, CveSubProyecto) Then
                 DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("FechaInicial IS NOT NULL")
                 Fecha = FechaConsulta.ToString("dd/MM/yyyy")
             End If
-            Else
-                If ObjVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
-                    DtReporteCorte = ObjVenta.DtResultados.FiltraParametros("CveCorte > 0")
-                    Fecha = DtReporteCorte.FiltroPrimeroValor("FechaInicial", "")
-                End If
-            End If
 
             If ObjVenta.GetVta_MovimientosCajas(CveCorte, -1, CveSubProyecto:=CveSubProyecto, FechaConsulta:=FechaConsulta) Then
                 DtIngresosRetiros = ObjVenta.DtResultados.Copy()
@@ -1799,7 +1785,7 @@ Partial Class PopUpVerFactura
 
 
         Dim FechaCorte As String = $"&emsp;<b>Fecha fin</b> {Fecha}"
-        If ConsultaPorSucursal Then
+        If OpcionDetallado = 2 Then
             FechaCorte = $"&emsp;<b>Fecha: </b> {Fecha}"
         End If