From 4553cd1e149c7d27276b794b72e0325b6da4c50c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Thu, 14 Jul 2022 15:35:14 -0700
Subject: [PATCH] BDH. Cancelar usados cuando no tiene movimientos de ExA

---
 App_Code/Modelos.vb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index c557b907e..df4f9c307 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -5308,6 +5308,8 @@ Namespace Modelos
                         If Not ErrorCancelar Then
                             Dim Filtro As String = ""
                             Dim FiltroDevAlmacen As String = ""
+                            Dim FiltroEntradaUsados As String = ""
+
                             Select Case ObjFactura.TipoDocto
                                 Case "Ing"
                                     Filtro = "CveConcepto IN (3, 40)"
@@ -5318,6 +5320,10 @@ Namespace Modelos
                                     Filtro = "CveConcepto = 18"
                                 Case Else
                                     Filtro = "CveConcepto = 9"
+                                    'VERIFICA SI TIENE ENTRADAS DE USADOS TAMBIEN
+                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
+                                        FiltroEntradaUsados = "CveConcepto = 42"
+                                    End If
                             End Select
 
                             'CARGA REMISIONES DE LA VENTA DEVUELTA
@@ -5342,6 +5348,14 @@ Namespace Modelos
 
                                     DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2")
                                     TieneSalida = DtExistencias.Rows.Count > 0
+
+                                    'VERIFICA SI SOLO TIENE CARGA DE USADOS EN CASO DE NO TENER SALIDAS DE ALMACEN
+                                    If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
+                                        FiltroEntradaUsados = "CveConcepto = 42"
+                                        If Not TieneSalida Then
+                                            TieneSalida = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {FiltroEntradaUsados}").Rows.Count > 0
+                                        End If
+                                    End If
                                 Else
                                     ErrorCancelar = True
                                     MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."