diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 10911f968..a94a5da41 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4225,6 +4225,9 @@ Partial Class Compras_Compras
                                         If OCVinculada And Not (CveImportacion > 0 Or CveFlete > 0) Then
                                             CveConceptoContableAlmacen = DdlOCVinculaInv.SelectedValue.ToEntero
                                         End If
+                                        If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                                            CveConceptoContableAlmacen = 205
+                                        End If
                                     Else
                                         CveConceptoContableAlmacen = 225
                                     End If