diff --git a/Inventarios/AjustesSeccionAlmacen.aspx b/Inventarios/AjustesSeccionAlmacen.aspx
index 054cd4912..de1c2cc0a 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx
+++ b/Inventarios/AjustesSeccionAlmacen.aspx
@@ -88,7 +88,7 @@
                     <asp:TemplateField ItemStyle-Width="7%">
                         <ItemTemplate>
                             <%--<asp:Literal ID="LtlExistencia" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>'></asp:Literal>--%>
-                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia").ToString().Split("."c)(0) %>' Width="45px" style='text-align:right;' />
+                            <asp:TextBox ID="TxtCantidad" runat="server" Text='<%# Eval("Existencia", "{0:#,###.###}") %>' Width="45px" style='text-align:right;' />
                             <asp:RangeValidator ID="RVR" Display="Dynamic" ControlToValidate="TxtCantidad" runat="server" MinimumValue="0" Type="Double" ErrorMessage="No cumple con la cantidad especificada"></asp:RangeValidator>
                         </ItemTemplate>
                     </asp:TemplateField>
diff --git a/Inventarios/AjustesSeccionAlmacen.aspx.vb b/Inventarios/AjustesSeccionAlmacen.aspx.vb
index 11eaa4b15..45bd0b5fa 100644
--- a/Inventarios/AjustesSeccionAlmacen.aspx.vb
+++ b/Inventarios/AjustesSeccionAlmacen.aspx.vb
@@ -212,11 +212,11 @@ Partial Class Inventarios_AjustesSeccionAlmacen
                     Next
 
                     'inserto la prepoliza
-                    If CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
+                    If Not ErrorMovInv AndAlso CveMovimientoEntrada > 0 AndAlso CveMovimientoSalida > 0 Then
                         Dim Concepto As String = "Ajuste Sección"
                         Dim IdCtaContableOrigen As Integer = 0
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inventario/AjusteAlmacen", 53, 0, 0, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
-                        Dim importe As Decimal = resultado.SUMD("Total").RoundAD
+                        Dim importe As Decimal = resultado.SUMD("Total").RoundSQL
                         Dim contabilizable As Boolean = False
                         If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importe, Concepto, 68, Concepto, Fecha, IdCtaContableOrigen, -1, CveMovimientoAlmacen:=CveMovimientoSalida, Contabilizable:=contabilizable, ImporteMX:=importe) Then
                             ErrorMovInv = True