From a4465e9bfc2b554f0dd66b28eb5c7252c07cf250 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 6 Apr 2021 11:42:29 -0700
Subject: [PATCH] mejora en lote/caducidad

---
 Inventarios/RecepcionAlmacen.aspx.vb | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 07d18b516..d91a6cdad 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -532,7 +532,7 @@ Partial Class Inventarios_RecepcionAlmacen
         If UsuarioActual.CveSubProyecto = 8804 Then 'AGS
             StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,12,15")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         Else
-            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,6,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
+            StrAlmacenes = $"CveTipoAlmacen IN ({If(CveTiposAlmacen.Length > 0, CveTiposAlmacen, "1,2,15,14")}) {If(CveSubProyecto > 0, $"And CveSubProyecto = {CveSubProyecto}", "")}"
         End If
 
         If CveTipoCompra = 10 Then
@@ -549,9 +549,18 @@ Partial Class Inventarios_RecepcionAlmacen
         UpGenerales.Update()
     End Sub
 
-    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacen.SelectedIndexChanged
+    Protected Sub DdlAlmacen_SelectedIndexChanged(sender As Object, e As EventArgs)
         If DdlAlmacen.SelectedValue <> "-1" Then
 
+            Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacen.selectedvalue.toentero).FiltroPrimeroValor("CveSubProyecto").ToEntero
+            'RMF condición temporal
+            If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                ValidaLoteCaducidad = True
+            Else
+                ValidaLoteCaducidad = False
+            End If
+
+
             CargaGVInv()
             'For Each Gvr As GridViewRow In GvInv.Rows
             '    If Gvr.FCDropDownList("DdlSeccionAlmacen").SelectedValue = "-1" Then
@@ -1005,9 +1014,6 @@ Partial Class Inventarios_RecepcionAlmacen
                     End If
 
                     CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
-                    If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
-                        ValidaLoteCaducidad = True
-                    End If
 
                     CveAlmacenDevolucionProveedor = DtRecepcion.Rows(0)("CveAlmacenDevolucionProveedor").ToString.ToEntero
 
@@ -4122,11 +4128,6 @@ Partial Class Inventarios_RecepcionAlmacen
                         DivDocumentos.Visible = True
                         UpDocumentos.Update()
                     End If
-                    'RMF condición temporal
-                    Dim CveSubProyecto As Integer = ObjInventario.DtResultados.Rows(0)("CveSubProyecto").ToString.ToEntero
-                    If UsuarioActual.CveEmpresa = 119 AndAlso CveSubProyecto = 10276 Then
-                        ValidaLoteCaducidad = True
-                    End If
 
                     CargaGVInv()