Soporte conceptos de mercancia en compras (80,72)

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