From d067a308aa1a614e985c987387696d0606a735ee Mon Sep 17 00:00:00 2001
From: Rene Molina <rrene33@hotmail.com>
Date: Tue, 27 Aug 2019 11:03:21 -0700
Subject: [PATCH] =?UTF-8?q?concepto=2029,=20devoluci=C3=B3n=20de=20pr?=
 =?UTF-8?q?=C3=A9stamos=20a=20proveedor?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index cb508eee9..32218a1f0 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -1528,7 +1528,7 @@ Partial Class Inventarios_EntradasSalidas
                                     If UsuarioActual.Empresa.Funcionalidad(342).ToEntero > 0 Then
                                         IdCtaContableOtro = UsuarioActual.Empresa.Funcionalidad(342).ToEntero
                                     End If
-                                Case 13
+                                Case 13, 29
                                     CveConceptoContable = 69
                                     Dim drr As DataRow = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltroPrimero("")
                                     If drr IsNot Nothing Then