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">
                                         <Columns>
                                             <asp:BoundField HeaderText="Almacén" DataField="Almacen"/>
-                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad"/>
-                                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad"/>
+                                            <asp:BoundField HeaderText="Cantidad" DataField="Cantidad" DataFormatString="{0:n2}" ItemStyle-HorizontalAlign="Right"/>
+                                            <asp:BoundField HeaderText="Fecha Caducidad" DataField="FechaCaducidad" DataFormatString="{0:dd/MM/yyyy}"/>
                                         </Columns>
 
                                     </asp:GridView>
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 @@
                                                 <div class="row" style="margin-top: 5px;" runat="server" id="DivTiempoCaducidad" visible="false">
                                                     <label class="col-md-6 truncate">Tiempo de Caducidad</label>
                                                     <div class="col-md-6">
-                                                        <asp:TextBox runat="server" ID="TxtTiempoCaducidad"/><label>Días</label>
+                                                        <asp:TextBox runat="server" ID="TxtTiempoCaducidad" Width="75px"/><label>Días</label>
                                                         <asp:RegularExpressionValidator ID="RfvTxtTiempoCaducidad" runat="server" ControlToValidate="TxtTiempoCaducidad" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tiempo Caducidad''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar" ValidationExpression="\d{1,}" Display="None"></asp:RegularExpressionValidator>
                                                         <ajax:ValidatorCalloutExtender ID="VceTxtTiempoCaducidad" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtTiempoCaducidad" Width="300px" ></ajax:ValidatorCalloutExtender>
                                                     </div>
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()