-

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