diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 1c4f06b5f..8eafbde09 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1327,9 +1327,9 @@ Partial Class PopUpVerFactura
 
         Dim CveTipoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacen}").ToString.ToEntero
 
-        If CveTipoAlmacen = 19 Or CveTipoAlmacen = 20 Then
-            CveConcepto = 24
-        End If
+        'If CveTipoAlmacen = 19 Or CveTipoAlmacen = 20 Then
+        '    CveConcepto = 24
+        'End If
 
         ObjInventarios.Dispose()
         If RazonSocial = "" AndAlso NombreCliente <> "" Then RazonSocial = NombreCliente