From fd413d7f0659138e103503b5d45d91356e3055bf Mon Sep 17 00:00:00 2001
From: HECTOR RODRIGUEZ <hecttor201@gmail.com>
Date: Tue, 29 Jun 2021 14:15:23 -0700
Subject: [PATCH]

---
 AC/RepPresupuestoEgresos.aspx     | 2 +-
 Contabilidad/RegPrePoliza.aspx.vb | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/AC/RepPresupuestoEgresos.aspx b/AC/RepPresupuestoEgresos.aspx
index 587751c16..ba0579ec6 100644
--- a/AC/RepPresupuestoEgresos.aspx
+++ b/AC/RepPresupuestoEgresos.aspx
@@ -300,7 +300,7 @@
                                 </asp:BoundField>--%>
                                 <asp:TemplateField HeaderText="Por Pagar">
                                     <ItemTemplate>
-                                        <asp:Label ID="lblXPagar" runat="server" Text='<%# (CDbl(Eval("Ejercido").ToString) - CDbl(Eval("Pagado").ToString)).ToString("N2")%>'></asp:Label>
+                                        <asp:Label ID="lblXPagar" runat="server" Text='<%# (CDbl(Eval("Devengado").ToString) - CDbl(Eval("Pagado").ToString)).ToString("N2")%>'></asp:Label>
                                     </ItemTemplate>
                                     <ItemStyle HorizontalAlign="Right" Width="120px" />
                                 </asp:TemplateField>
diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb
index cf3304a90..6fd47f81b 100644
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -1945,7 +1945,7 @@ Partial Class ContabilidadC_RegPrePoliza
 
 
         'If ObjPoliza.GetPoliza(IdPoliza, -1, -1, -1, -1) AndAlso ObjPoliza.DtResultados.Rows.Count > 0 Then
-        If ObjConta.GetPrePolizasDetalle(CvePrePoliza) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
+        If ObjConta.GetPrePolizasDetalle(CvePrePoliza, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then
             Dim dtVC As DataTable
             Dim dr As DataRow
             dtVC = ObjConta.DtResultados