From a8eca285834ecd46ce7846b08c17df978bc73b7d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 22 Jan 2025 11:29:17 -0700
Subject: [PATCH] =?UTF-8?q?--=20consideraci=C3=B3n,=20para=20que=20no=20se?=
 =?UTF-8?q?=20elimine=20el=20movimiento=20relacionado=20cuando=20es=20el?=
 =?UTF-8?q?=20concepto=20de=20=20"devoluci=C3=B3n=20de=20pr=C3=A9stamo=20d?=
 =?UTF-8?q?e=20proveedor"?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntradasSalidas.aspx.vb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 9008ba63a..d6672b5bb 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -950,12 +950,19 @@ Partial Class Inventarios_EntradasSalidas
             TieneRelacionado = Mov.TieneRelacionado
             ConceptoRelacionado = Mov.ConceptoRelacionado
 
+
             'sino existe el movimiento
             If (DdlConcepto.Items.FindByValue(Mov.CveConcepto.ToString()) Is Nothing) Then
                 Dim dr As DataRow = GlobalDTInvConceptos.FiltroPrimero(String.Format("CveConcepto = {0}", Mov.CveConcepto))
                 DdlConcepto.Items.Insert(0, New ListItem(dr("Concepto").ToString, dr("CveConcepto").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString
             End If
 
+            'CONDICION ESPECIAL , PARA DEVOLUCIONES DE PRÉSTAMO PROVEEDORES
+            If DdlConcepto.SelectedValue = "29" Then
+                TieneRelacionado = 0 'PARA ELIMINACIÓN NO LO RELACIONE, EN EL PA, TAMBIEN SE TIENE ESTA CONSIDERACIÓN
+                CveMovimientoRelacionado = 0
+            End If
+
             DdlConcepto.SelectedValue = Mov.CveConcepto.ToString
             ddlConcepto_SelectedIndexChanged(DdlConcepto, EventArgs.Empty)