diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 9ed1ee22f..658433bc9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8479,10 +8479,10 @@ Partial Class Ventas
                         If AutoConta Then
                             If idCuentaContabilizacion > 0 Then
                                 If ObjConta.ContabilizarPrePoliza(ObjFactura.CvePrePoliza, ObjFactura.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjContPaq) Then
-
+                                    If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
                                 Else
                                     Alert("Ocurrio un Error al contabilizar, pongase en contacto con Soporte Técnico", TipoMensaje.MsgError)
-
+                                    If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack()
                                 End If
                             Else
                                 Alert(String.Format("Falta asignación de las siguientes cuentas contables:   {0}", CuentasContablesInvalidas), TipoMensaje.MsgAdvertencia)
@@ -8490,7 +8490,7 @@ Partial Class Ventas
                             End If
                         End If
 
-                        If ObjContPaq IsNot Nothing Then ObjContPaq.Commit()
+
                         'If ObjContPaq IsNot Nothing Then ObjContPaq.RollBack()
 
                         'RMF, cuando es pedido, se manda autorización.
@@ -10700,7 +10700,7 @@ Partial Class Ventas
                                                         .CuentaPredial = drr("CuentaPredial").ToString(),
                                                         .ImporteGravaIVAAdicional = drr("ImporteIEPS").ToString().ToDecimal}
             'verifica suma subtotales
-            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal <> concepto.Importe Then 'proceso de ajusta de decimales
+            If i = Obj.DtDetalle.Rows.Count AndAlso totSubTotal.RoundSQL(2) <> concepto.Importe.RoundSQL(2) AndAlso Math.Abs(totSubTotal.RoundSQL(2) - concepto.Importe.RoundSQL(2)) <= 0.01 Then 'proceso de ajusta de decimales
                 concepto.Importe = totSubTotal
             End If
             totSubTotal = totSubTotal - concepto.Importe
@@ -10710,19 +10710,19 @@ Partial Class Ventas
 
             'si es ingreso amortizado por la totalidad, y arroja el valor total de cero, no debe de impuestos, y si la BASE de calculo es mayor a cero
             If Timbre.Comprobante.Total > 0 AndAlso concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional > 0 Then
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional, .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento + concepto.ImporteGravaIVAAdicional).RoundSQL(6), .TasaOCuota = drr("PorcentajeIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteIVA").ToString().ToDecimal})
             End If
 
             If drr("ImporteIEPS").ToString().ToDouble > 0 Then
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "T", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeIEPS").ToString().ToDecimal, .Impuesto = "003", .Importe = drr("ImporteIEPS").ToString().ToDecimal})
             End If
 
             If drr("ImporteRetIVA").ToString().ToDouble > 0 Then 'si hay retenciones
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetIVA").ToString().ToDecimal, .Impuesto = "002", .Importe = drr("ImporteRetIVA").ToString().ToDecimal})
             End If
 
             If drr("ImporteRetISR").ToString().ToDouble > 0 Then 'retención de ISR
-                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = concepto.Importe - concepto.Descuento, .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal})
+                concepto.Impuestos.Add(New CFDIConceptosImpuestos With {.TrasladooRetencion = "R", .Base = (concepto.Importe - concepto.Descuento).RoundSQL(6), .TasaOCuota = drr("PorcentajeRetISR").ToString().ToDecimal, .Impuesto = "001", .Importe = drr("ImporteRetISR").ToString().ToDecimal})
             End If
 
             Timbre.Conceptos.Add(concepto)