aplicando retro sobre sobre el tiempo caducidad

2020-10-27 12:44:41 -07:00
parent 4edcc49351
commit 17af0de0b4
4 changed files with 15 additions and 11 deletions
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -876,6 +876,10 @@ Partial Class ProductosyServicios
                ChkLote.Checked = ObjProductosServicios.AplicaLote
                ChkCaducidad.Checked = ObjProductosServicios.AplicaCaducidad
                ChkSeccion.Checked = ObjProductosServicios.AplicaSeccion
+                If ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad") IsNot Nothing Then
+                    TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString()
+                    DivTiempoCaducidad.Visible = ChkCaducidad.Checked
+                End If

                If ObjProductosServicios.AplicaSeccion Then
                    CargaGvSeccionAlmacen()