From 17af0de0b416c7eff0981f960db0c86b9344f3eb Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 27 Oct 2020 12:44:41 -0700 Subject: [PATCH] aplicando retro sobre sobre el tiempo caducidad --- App_Code/ClsPaginas.vb | 16 ++++++++-------- Inventarios/Kardex.aspx | 4 ++-- Ventas/ProductosServicios.aspx | 2 +- Ventas/ProductosServicios.aspx.vb | 4 ++++ 4 files changed, 15 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b48153412..82bb1cb39 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -38,14 +38,14 @@ Public Class ClsPaginas - Public ReadOnly Property EsProduccion As Boolean - Get - If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then - Return False - Else - Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1") - End If - End Get + Public ReadOnly Property EsProduccion As Boolean + Get + If IsNothing(System.Configuration.ConfigurationManager.AppSettings("EsProduccion")) Then + Return False + Else + Return (System.Configuration.ConfigurationManager.AppSettings("EsProduccion").ToString() = "1") + End If + End Get End Property #Region "Propiedades" diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index b8f4344fc..08a6d22d6 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -560,8 +560,8 @@ DataKeyNames="Almacen,Cantidad,FechaCaducidad"> - - + + diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx index 9ce597ef4..91b9fb262 100644 --- a/Ventas/ProductosServicios.aspx +++ b/Ventas/ProductosServicios.aspx @@ -876,7 +876,7 @@
- +
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 09381fd6c..7f2285a55 100644 --- 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()