From 3a97888e3d63388b5aafff32091a1aa504f80d02 Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Tue, 21 Jul 2020 11:34:26 -0700
Subject: [PATCH] error con el campo AplicaCaducidad

---
 Inventarios/EntradasSalidas.aspx.vb | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 692b3f871..e914638ac 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -435,6 +435,7 @@ Partial Class Inventarios_EntradasSalidas
         dt.Columns.Add("Serie", Type.GetType("System.String"))
         dt.Columns.Add("Lote", Type.GetType("System.String"))
         dt.Columns.Add("FechaCaducidad", Type.GetType("System.DateTime"))
+        dt.Columns.Add("AplicaCaducidad", Type.GetType("System.String"))
 
         dt.Columns.Add("Observaciones")
         dt.Columns.Add("CountMovimientoEntradaDetalle")
@@ -1256,6 +1257,7 @@ Partial Class Inventarios_EntradasSalidas
             registro.Item("Lote") = If(Lote <> "", Lote, "")
             registro.Item("FechaCaducidad") = FechaCaducidad
             registro.Item("Observaciones") = Observaciones
+            registro.Item("AplicaCaducidad") = RowPS("AplicaCaducidad").ToString
             DtMovimientos.Rows.Add(registro)
             CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' "))
             RegistraScript("playsonidito('beep-07.wav')")