diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0809c0dc4..ab912d19b 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6699,7 +6699,7 @@ Partial Class Compras_Compras
                                                                             Dim TCO As Decimal = 1
                                                                             For Each Dr As DataRow In TmpDT.FiltraParametros("ISNULL(TipoAF,0) <> 2 And ISNULL(CveAlmacen,0) = 0 And ISNULL(AplicaCostoIndirecto,0) <> 1 And ISNULL(CveTipoPS,0) = 2").Rows
                                                                                 If ObjOC.OrdenesCompraDetalleCostoPP(Dr("CveOrdenCompraDetalle").ToString.ToEntero) AndAlso ObjOC.DtResultados.Rows.Count >= 1 Then
-                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
+                                                                                    Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text} OC {ObjOC.DtResultados.FiltroPrimeroValor("Folio").ToString} Inv:{ObjOC.DtResultados.FiltroPrimeroValor("FolioAlmacen").ToString}"
                                                                                     Importe176 = ObjOC.DtResultados.FiltroPrimeroValor("Importe176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME176").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN176 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN176").ToDecimal * Dr("Cantidad").ToString.ToDecimal
                                                                                     Importe228 = ObjOC.DtResultados.FiltroPrimeroValor("Importe228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME228").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN228 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN228").ToDecimal * Dr("Cantidad").ToString.ToDecimal
                                                                                     Importe229 = ObjOC.DtResultados.FiltroPrimeroValor("Importe229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteME229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteME229").ToDecimal * Dr("Cantidad").ToString.ToDecimal : ImporteMN229 = ObjOC.DtResultados.FiltroPrimeroValor("ImporteMN229").ToDecimal * Dr("Cantidad").ToString.ToDecimal
@@ -20227,7 +20227,7 @@ Private Sub CargaNCINV()
 
 
 
-                    If DiferenciaInvOC.RoundSQL() <> 0 Then
+                    If DiferenciaInvOC.RoundAD() <> 0 Then
 
 
 
@@ -20241,8 +20241,8 @@ Private Sub CargaNCINV()
                         If CvePrePoliza > 0 Then
 
                             If CveMoneda = 2 And UsuarioActual.CveEmpresa.Contiene(119) Then
-                                ImporteME = (DiferenciaInvOC / TCInvOC).RoundSQL()
-                                ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundSQL()
+                                ImporteME = (DiferenciaInvOC / TCInvOC).RoundAD()
+                                ImporteMEComp = ((ImporteME * TCInvOC) - ImporteME).RoundAD()
 
                                 Dim DifImporte As Decimal = DiferenciaInvOC - (ImporteME + ImporteMEComp)