diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 552ac743b..eb1cb8e32 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5490,7 +5490,7 @@ Partial Class Compras_Compras
                                                 Dim ImporteConcepto As Decimal = 0
                                                 Dim CveConceptoMovimiento As Integer = 2
                                                 'apoyo logistico/garantia
-                                                If UsuarioActual.CveEmpresa = 140 AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then
+                                                If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso DdlTipoCompra.SelectedValue = "12" Then
                                                     CveConceptoMovimiento = 13
                                                 End If
                                                 If (DdlTipoComprobante.SelectedValue = "Fac" AndAlso CveCompraRefacturacion <= 0) OrElse CveConceptoMovimiento = 13 Then