diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 2012fd09c..5cf8974a0 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1582,7 +1582,7 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
             If ObjPuntoVenta.GetVta_ReporteCortes(UsuarioActual.CveEmpresa, MinFecha, MaxFecha, CveSubProyecto, CveCorte:=CveCorte) Then
                 DtReporteCorte = ObjPuntoVenta.DtResultados.FiltraParametros("CveCorte > 0")
             End If
@@ -1610,19 +1610,19 @@ Partial Class PopUpVerFactura
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                 DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
             End If
-    Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
-    If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
+            Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
+            If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
                 DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
             End If
 
-    Dim params As New List(Of ReportParameter)
+            Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", ClsPaginas.NowADS().ToString("dd/MM/yyyy hh:mm:ss tt")))
             params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
             params.Add(New ReportParameter("LogoPath", RutaImagenLogo))
 
-            If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+            If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then
                 If DtReporteCorte IsNot Nothing Then
                     Dim DtTT = GenerateTransposedTable(DtReporteCorte)
                     Dim DtDatosVentas As New DataTable()
@@ -1756,32 +1756,48 @@ Partial Class PopUpVerFactura
                     lrds.Add(rds5)
 
 
-                    If UsuarioActual.CveEmpresa = 193 Then
-    Dim CveCuenta As Integer = 186367
-    Using ObjConta As New ClsContabilidad
-    If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
-    Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
-                                lrds.Add(rdsConta)
-                            End If
-    End Using
+                    If UsuarioActual.CveEmpresa.Contiene(197, 193) Then
+                        Dim CveCuenta As Integer = -1
+                        If UsuarioActual.CveEmpresa = 193 Then
+                            CveCuenta = 186367
+                        Else
+                            CveCuenta = 0
 
-    If DtDepositos IsNot Nothing Then
-    Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
+                            If CveSubProyecto = 12756 Then 'nav
+                                CveCuenta = 188796
+                            End If
+
+                            If CveSubProyecto = 12755 Then 'hillo
+                                CveCuenta = 188795
+                            End If
+                        End If
+
+                        If CveCuenta >= 0 Then
+                            Using ObjConta As New ClsContabilidad
+                                If ObjConta.GetAnexoCatalogo(CveCuenta, Fecha.ToDate(), Fecha.ToDate(), -1, -1, -1, UsuarioActual.CveEmpresa, 1) Then
+                                    Dim rdsConta As New ReportDataSource With {.Name = "DsContabilidad", .Value = ObjConta.DtResultados}
+                                    lrds.Add(rdsConta)
+                                End If
+                            End Using
+                        End If
+
+                        If DtDepositos IsNot Nothing Then
+                            Dim rdsDepositos As New ReportDataSource With {.Name = "DsDepositos", .Value = DtDepositos}
                             lrds.Add(rdsDepositos)
                         End If
 
-    End If
+                    End If
 
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
-    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
-    'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
-    End If
-    End If
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
+                    'params.Add(New ReportParameter("NotasCredito", RowCorte("NotasCredito").ToString()))
+                    'params.Add(New ReportParameter("VentasCredito", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                    'params.Add(New ReportParameter("VentasCorte", RowCorte("VentasCorte").ToString()))
+                End If
+            End If
 
-    Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
+            Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = DtMetodosPago}
             lrds.Add(rds)
             Dim rds2 As New ReportDataSource With {.Name = "DataSet2", .Value = DtCortesVentas}
             lrds.Add(rds2)
@@ -6277,7 +6293,7 @@ Partial Class PopUpVerFactura
             DtPrecios.Columns.Add(New DataColumn("CBBase64", GetType(String)))
 
             For Each Row As DataRow In DtPrecios.Rows
-                Row("CBBase64") = system.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
+                Row("CBBase64") = System.Convert.ToBase64String(GeneraCodigoQR(Row("CodigoBarras").ToString(), 40, 150, 0, "CODE_39", True))
             Next
 
             Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/Etiqueta.mrt"