From c0883cf9c1827b342a2d9492f8c46316c79d9d87 Mon Sep 17 00:00:00 2001
From: Raul Pimienta <raul.pimienta@adssistemas.mx>
Date: Fri, 20 Sep 2019 16:53:02 -0700
Subject: [PATCH] Soporte conceptos de mercancia en compras (80,72)

---
 Compras/Compras.aspx.vb | 3 +++
 1 file changed, 3 insertions(+)

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