-- consideración, para que no se elimine el movimiento relacionado cuando es el concepto de "devolución de préstamo de proveedor"

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)