- valida al agregar cada producto, aplicaserie/lote/cad/secc

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