diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6109d4080..625483f7f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5384,6 +5384,7 @@ Partial Class Compras_Compras
                                         'P R E  P O L I Z A S
 
                                         Dim CveConceptoAfectacion As Integer = 5 'Proveedores
+                                        Dim CveConceptoOriginal As Integer
                                         If CveTipoConcepto = 2 Then CveConceptoAfectacion = 305 'cuando es acreedor
                                         If CveMoneda <> 1 Then
                                             Select Case CveConceptoAfectacion
@@ -5781,7 +5782,7 @@ Partial Class Compras_Compras
 
                                                     Dim CveSubProyectoInsertar As Integer = -1
 
-                                                    Dim ConceptoContable = Row("CveConcepto").ToString.ToEntero
+                                                    Dim ConceptoContable As Integer = Row("CveConcepto").ToString.ToEntero
                                                     Dim TipoMovimiento As Boolean = If(Row("TipoMovto").ToString = "True", True, False)
                                                     Dim importeMovimiento As Decimal = 0
                                                     Dim IdCtaContable As Integer = 0
@@ -5791,7 +5792,7 @@ Partial Class Compras_Compras
                                                     Dim Multiplicador As Integer = If(Row("Multiplicador").ToString.ToEntero = 1, 1, -1)
                                                     Dim Referencia As String = $"{TxtSerie.Text}-{TxtFolio.Text}" ' concatenation interpolation
                                                     Dim PorcentajeImpuesto As Decimal = 0
-
+                                                    CveConceptoOriginal = ConceptoContable
 
                                                     Select Case ConceptoContable
 
@@ -7185,7 +7186,7 @@ Partial Class Compras_Compras
                                                                                 importeMovimiento = importeMovimiento.Abs.RoundSQL()
                                                                                 importeMN = importeMovimiento
                                                                                 If importeMovimiento <> 0 Then
-                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, TipoMovimiento, importeMovimiento, Concepto, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedor, CveIE:=CveIE, ImporteMX:=importeMN, CvePrePolizaOriginal:=CvePrePoliza, ImporteME:=0, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, CveSubProyecto:=CveSubProyecto) Then
                                                                                         ErrorPrepoliza = True
                                                                                         Exit For
                                                                                     End If
@@ -7631,8 +7632,8 @@ Partial Class Compras_Compras
                                                     If ErrorPrepoliza Then
                                                         Exit For
                                                     End If
-                                                    ', 305, 306, 311
-                                                    If importeMovimiento <> 0 Or (ConceptoContable.Contiene(5) AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
+                                                    '5, 305, 306, 311
+                                                    If importeMovimiento <> 0 Or (CveConceptoOriginal = 5 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Fac", "Ant")) Or (ConceptoContable.Contiene(18) AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not GuardoConcepto18) Then
                                                         'Conta ContPAQ
                                                         If IdCtaContable = 0 Then
                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", ConceptoContable))("ConceptoContable").ToString)
@@ -15489,11 +15490,11 @@ Partial Class Compras_Compras
         'If DdlOCVinculaInv.SelectedValue.ToEntero = 237 And Not CveFlete > 0 Then Alert("Necesita vincular un flete si selecciona Factura de Flete", TipoMensaje.MsgAdvertencia) : Exit Sub
         'If DdlOCVinculaInv.SelectedValue.ToEntero = 240 And Not CveImportacion > 0 Then Alert("Necesita vincular una Importación si selecciona Factura de Importación", TipoMensaje.MsgAdvertencia) : Exit Sub
 
-        If UsuarioActual.CveEmpresa = 119 And DdlTipoComprobante.SelectedValue = "Fac" Then
-            If Not VerificarProductosCompraConOC() Then
-                Exit Sub
-            End If
-        End If
+        'If UsuarioActual.CveEmpresa = 119 And DdlTipoComprobante.SelectedValue = "Fac" Then
+        '    If Not VerificarProductosCompraConOC() Then
+        '        Exit Sub
+        '    End If
+        'End If
 
         Dim SubTotalGV = 0.0D
         Dim Amortizacion As Decimal = TmpDT.SUMD("Total")