diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 3fa9b72ca..61dc24738 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1563,7 +1563,7 @@ Partial Class PopUpVerFactura
 
         Dim Fecha As String = "", Nombre As String = ""
         Dim OpcionDetallado As Integer = 1
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then OpcionDetallado = 2
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.CveEmpresa = 197 Then OpcionDetallado = 2
 
         Dim ObjVenta As New ClsVentas
         Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -1662,9 +1662,13 @@ Partial Class PopUpVerFactura
                                     Orden = 5
                                     TipoTabla = 1
                                 Case "VentaTotalRemision"
-                                    rowData("Columna") = "Ventas Remisiones"
-                                    Orden = 6
-                                    TipoTabla = 1
+                                    If UsuarioActual.CveEmpresa.Contiene(190, 192) Then
+                                        rowData("Columna") = "Ventas Remisiones"
+                                        Orden = 6
+                                        TipoTabla = 1
+                                    Else
+                                        Orden = 0
+                                    End If
                                 Case "TotalEfectivo"
                                     rowData("Columna") = "Total Efectivo"
                                     Orden = 7
@@ -1727,13 +1731,13 @@ Partial Class PopUpVerFactura
                                 DtDatosCajas.Rows.Add(rowData.ItemArray)
                             End If
 
-                            If row(0).ToString() = "SaldoAnteriorAplicado" Then
-                                Dim RowMP As DataRow = DtMetodosPago.NewRow
-                                RowMP("MetodoPago") = "Saldo Aplicado"
-                                RowMP("Importe") = Total.ToDecimal()
+                            'If row(0).ToString() = "SaldoAnteriorAplicado" Then
+                            '    Dim RowMP As DataRow = DtMetodosPago.NewRow
+                            '    RowMP("MetodoPago") = "Saldo Aplicado"
+                            '    RowMP("Importe") = Total.ToDecimal()
 
-                                DtMetodosPago.Rows.Add(RowMP)
-                            End If
+                            '    DtMetodosPago.Rows.Add(RowMP)
+                            'End If
 
                         End If
                     Next