diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 61708bf2c..87a4fad1e 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -11261,8 +11261,7 @@ Partial Class Ventas
                 CveCuentaIVATrasladado = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=TmpDT.MAX("PorcentajeIVA").ToDouble).Rows(0)("CveCuentaIVATrasladado").ToString().ToEntero()
             End If
 
-            Dim UsaComplementariaClientes As Boolean = False
-            If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True
+            Dim UsaComplementariaClientes As Boolean = True
 
             If ObjConta.GetPlantillaConceptos(ObjFactura.CveEmpresa, CvePlantilaPoliza) Then
                 Dim dtt As DataTable = ObjConta.DtResultados
@@ -12971,8 +12970,8 @@ Partial Class Ventas
 
                                 'If TotalCosto <> 0 Then
                                 If Not ObjConta.AddPrePolizasDetalle(factura.CvePrePoliza, TipoMovto68, TotalCosto, factura.SerieFolio, 68, factura.SerieFolio, factura.Fecha, IdCtaContable, -1, CveVenta:=factura.CveVenta, CveCliente:=factura.CveCliente, CveMovimientoAlmacen:=CveMovimientoInventario, ImporteMX:=TotalCosto, CveCuenta:=CveCuenta, CveSubProyecto:=factura.CveSubProyecto) Then
-                                        OcurrioError = True
-                                    End If
+                                    OcurrioError = True
+                                End If
                                 'End If
 
                             Else
@@ -13800,8 +13799,8 @@ Partial Class Ventas
             Dim CuentasContablesInvalidasSIG As New StringBuilder
             Dim ContaIdPoliza As Integer = 0
             Dim ConceptoAmortizacion As Integer = 0
-            Dim UsaComplementariaClientes As Boolean = False
-            If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True
+            Dim UsaComplementariaClientes As Boolean = True
+            'If UsuarioActual.CveEmpresa.Contiene(1, 119) Then UsaComplementariaClientes = True
             'Dim FechaMaxima As Date = MinFecha
 
 
@@ -15085,7 +15084,7 @@ Partial Class Ventas
                                     Dim ValorInventario As Decimal = 0
 
                                     For Each RowInv As DataRow In tmpCostos.Rows
-                                        ValorInventario = DTMovimientosDetalles.SUM("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).ToString().ToDecimal.RoundSQL()
+                                        ValorInventario = DTMovimientosDetalles.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD()
                                         IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGasto", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
 
@@ -15109,7 +15108,7 @@ Partial Class Ventas
                                     End If
 
                                     IdCtaContable = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCtaContable", $"CveAlmacen = {ddlAlmacen.SelectedValue}").ToEntero()
-                                    ValorInventario = DTMovimientosDetalles.SUMD("Total", $"CveMovimiento = {Mov("CveMovimiento")}").RoundSQL()
+                                    ValorInventario = DTMovimientosDetalles.SUMD("Total", $"CveMovimiento = {Mov("CveMovimiento")}").RoundAD()
 
                                     If ValorInventario <> 0 Then
                                         'Entrada
@@ -18411,7 +18410,7 @@ Partial Class Ventas
                 Return Not OcurrioError
             End If
 
-            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+            Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
 
             If CvePrePoliza <= 0 Then
                 GenerarPrePolizaNueva = True
@@ -18424,7 +18423,7 @@ Partial Class Ventas
             End If
 
             For Each RowInv As DataRow In DtCostosDistinct.Rows
-                ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
+                ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
                 IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                 CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                 TotalCostoAcumulado += ValorInventario
@@ -18565,10 +18564,10 @@ Partial Class Ventas
                                 Dim ValorInventario As Decimal
                                 Dim TotalCostoAcumulado As Decimal = 0D
                                 Dim Cont As Integer = 1
-                                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+                                Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
 
                                 For Each RowInv As DataRow In DtCostosDistinct.Rows
-                                    ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
+                                    ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
                                     IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                     CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                     TotalCostoAcumulado += ValorInventario
@@ -18682,10 +18681,10 @@ Partial Class Ventas
                                     Dim ValorInventario As Decimal
                                     Dim TotalCostoAcumulado As Decimal = 0D
                                     Dim Cont As Integer = 1
-                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundSQL
+                                    Dim TotalCosto As Decimal = DtCostos.SUMD("Total").RoundAD
 
                                     For Each RowInv As DataRow In DtCostosDistinct.Rows
-                                        ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundSQL
+                                        ValorInventario = DtCostos.SUMD("Total", String.Format("CveClasificacion = {0}", RowInv("CveClasificacion"))).RoundAD
                                         IdCtaContable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaCostos", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         CveCuenta = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimeroValor("IdCuentaGastoSIG", $"CveClasificacion = {RowInv("CveClasificacion")}").ToEntero()
                                         TotalCostoAcumulado += ValorInventario
@@ -23637,11 +23636,7 @@ Partial Class Ventas
             IdCuentaContableNoDeducible = 3114
         End If
 
-        Dim UsaComplementaria As Boolean = False
-
-        If UsuarioActual.CveEmpresa = 119 Then
-            UsaComplementaria = True
-        End If
+        Dim UsaComplementaria As Boolean = True
 
         If MsgError = "" Then
             CvePrePoliza = ObjConta.AddPrePolizas("Ventas/Saldarr", 47, SaldoVenta, SaldoVenta, tCveMoneda, TxtFechaSaldarVenta.Text.ToDate, ConceptoPartida, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)