From 09e80875c33cc9b8f7180a891b6c86b2dc75bdb2 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 28 Apr 2021 16:53:14 -0700
Subject: [PATCH] - valida al agregar cada producto, aplicaserie/lote/cad/secc

---
 Inventarios/ResguardoMaterial.aspx.vb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb
index c01aab527..42f088a0d 100644
--- a/Inventarios/ResguardoMaterial.aspx.vb
+++ b/Inventarios/ResguardoMaterial.aspx.vb
@@ -377,6 +377,11 @@ Partial Class Inventarios_ResguardoMaterial
                         'End If
                         'dtt.Dispose()
                     End If
+                Else
+                    ThSeccion.Visible = False
+                    TrSeccion.Visible = False
+                    DdlSeccionAlmacen.Items.Clear()
+
                 End If
                 'activa lote
                 If CBool(drp("AplicaLote")) Then
@@ -496,6 +501,22 @@ Partial Class Inventarios_ResguardoMaterial
         DdlClasificacion.SelectedValue = "-1"
         txtCantidad.Text = ""
         TxtObservacionesdetalle.Text = ""
+
+        ThCaducidad.Visible = False
+        TrCaducidad.Visible = False
+        TxtCaducidad.Text = ""
+        ThLote.Visible = False
+        TrLote.Visible = False
+        TxtLote.Text = ""
+        ThSerie.Visible = False
+        TrSerie.Visible = False
+        TxtnSerie.Visible = False
+        TxtnSerie.Text = ""
+
+        ThSeccion.Visible = False
+        TrSeccion.Visible = False
+        DdlSeccionAlmacen.Items.Clear()
+
     End Sub
 #End Region