diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8dd046ff6..20159e06d 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -3848,7 +3848,7 @@ Partial Class PopUpVerFactura
                     Dr("Abono") = 0
                     DtMovimientosPoliza.Rows.Add(Dr)
                 End If
-            ElseIf UsuarioActual.CveEmpresa = 119 Then
+            ElseIf UsuarioActual.CveEmpresa.Contiene(119, 141) Then
                 Dim PreP As New ClsContabilidad
                 If PreP.GetPrePolizasDetalle(-1, CveIE) Then
                     DtMovimientosPoliza = New DataTable
@@ -3861,8 +3861,8 @@ Partial Class PopUpVerFactura
 
                         For Each drt As DataRow In PreP.DtResultados.Rows
                             Dim Dr = DtMovimientosPoliza.NewRow
-                            Dr("CODIGO") = drt("ContpaqCodigo")
-                            Dr("Cuenta") = drt("ContpaqCuenta")
+                            Dr("CODIGO") = drt("CuentaCodigo")
+                            Dr("Cuenta") = drt("CuentaNombre")
                             Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
                             Dr("Abono") = If(drt("TipoMovto").ToString = "True", drt("ImporteMN"), "0")
                             DtMovimientosPoliza.Rows.Add(Dr)