diff --git a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
index 3719f257d..5d76ce0f0 100644
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx
@@ -151,6 +151,7 @@
                                     <td width="60px" align="center">Número</td>
                                     <td width="300px" align="left">Concepto</td>
                                     <td width="100px" align="center">Referencia</td>
+                                    <td width="100px" align="center">SubProyecto</td>
                                     <td width="100px" align="center">Cargos</td>
                                     <td width="100px" align="center">Abonos</td>
                                     <td width="100px" align="center">Saldo</td>
@@ -194,6 +195,9 @@
                                     <td width="100px">
                                         <asp:Label ID="LbReferencia" runat="server" Text='<%# Eval("Referencia")%>'></asp:Label>
                                     </td>
+                                    <td width="100px">
+                                        <asp:Label ID="LblSubProyecto" runat="server" Text='<%# Eval("SubProyecto")%>'></asp:Label>
+                                    </td>
                                     <td width="100px" align="right">
                                         <asp:Label ID="LbCargos" runat="server"></asp:Label>
                                     </td>
diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 285af40ba..0261612f2 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -3691,12 +3691,12 @@ Partial Class Inventarios_EntradasSalidas
                 End If
             End If
 
-            If ValorEntrada > ValorSalida Then
+            If ValorEntrada >= ValorSalida Then
                 If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ValorEntrada + ValorSalida, "", 260, tConcepto, Fecha, IdCuentaOtrosIngresos, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ValorEntrada + ValorSalida) Then
                     ErrorMovInv = True
                     Mensaje = "Ocurrió un error al guardar los movimientos contables de ajuste de ingreso"
                 End If
-            ElseIf ValorSalida > ValorEntrada Then
+            ElseIf ValorSalida >= ValorEntrada Then
                 'inserta el gasto
                 Dim dr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                 Dim tCveClasificacion As Integer = -1