--puntos varios

Compras/PopUpVerFactura.aspx.vb

@@ -1557,6 +1557,16 @@ Partial Class PopUpVerFactura
         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
+                        FechaConsulta = ObjVta.DtResultados.FiltroPrimeroValor("FechaInicial").ToString().ToDate().Date
+                        CveSubProyecto = ObjVta.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero()
+                    End If
+                End Using
+            End If
+
             CveCorte = -1
         End If
 
@@ -1638,7 +1648,10 @@ Partial Class PopUpVerFactura
 
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
                 If DtReporteCorte IsNot Nothing Then
-                    Dim DtTT = GenerateTransposedTable(DtReporteCorte)
+                    Dim dtDatos = DtReporteCorte.Clone()
+                    dtDatos.ImportRow(DtReporteCorte.Rows(0))
+
+                    Dim DtTT = GenerateTransposedTable(dtDatos)
                     Dim DtDatosVentas As New DataTable()
                     DtDatosVentas.Columns.Add(New DataColumn("Orden", GetType(Integer)))
                     DtDatosVentas.Columns.Add(New DataColumn("Columna", GetType(String)))