diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 3d4835b4c..1dd2de17a 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -1018,7 +1018,13 @@
                                                 <div class="row">
                                                     <label class="col-md-4 truncate">Peso en Kg:</label>
                                                     <div class="col-md-8">
-                                                        <asp:TextBox ID="TxtPesoKg" runat="server" Width="60px"></asp:TextBox>
+                                                        <asp:TextBox ID="TxtPesoKg" runat="server" Width="60px" Class="form-control input-sm"></asp:TextBox>
+                                                    </div>
+                                                </div>
+                                                 <div class="row">
+                                                    <label class="col-md-4 truncate">Dimensiones:</label>
+                                                    <div class="col-md-8">
+                                                        <asp:TextBox ID="TxtDimensiones" runat="server" Width="120px" Class="form-control input-sm"></asp:TextBox>
                                                     </div>
                                                 </div>
                                             </div>
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 7118644ca..5d9f6071c 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -812,6 +812,7 @@ Partial Class ProductosyServicios
                 If ObjProductosServicios.PesoKg > 0 Then
                     TxtPesoKg.Text = ObjProductosServicios.PesoKg.ToString
                 End If
+                TxtDimensiones.Text = ObjProductosServicios.Dimensiones
 
                 DdlTipoPSDes.SelectedValueExist(ObjProductosServicios.CveClasificacionDetalle.ToString)
                 DdlUnidadMedida.SelectedValue = ObjProductosServicios.CveUnidadMedida.ToString
@@ -939,10 +940,9 @@ 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
+
+                TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString()
+                DivTiempoCaducidad.Visible = ChkCaducidad.Checked
 
                 If ObjProductosServicios.AplicaSeccion Then
                     CargaGvSeccionAlmacen()
@@ -1330,7 +1330,7 @@ Partial Class ProductosyServicios
                                                CveModelo:=DdlModelo.SelectedValue.ToEntero(), CveMedida:=DdlMedida.SelectedValue.ToEntero(), CveRinTamaño:=DdlRin.SelectedValue.ToEntero(),
                                                ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) > 0 Then
+                                                CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) > 0 Then
                     ViewState("CvePS") = ObjProductosServicios.CvePS
                     For Each GVR As GridViewRow In GvImpuestosLocales.Rows
                         If GVR.FCCheckBox("ChkDeduccion").Checked Then
@@ -1380,7 +1380,7 @@ Partial Class ProductosyServicios
                                                   ClaveImpuestoEmpaque:=DdlImpEmpaque.SelectedValue.ToString, ClaveImpuestoUM:=DdlImpUM.SelectedValue.ToString, ClaveCategoriaToxicidad:=DdlCategoriaToxicidad.SelectedValue.ToString,
                                                   ClaveImpuestoTipoProducto:=DdlImpTipoProducto.SelectedValue.ToString, EsOutSourcing:=ChkEsOutSourcing.Checked,
                                                   AplicaSerie:=ChkSerie.Checked, AplicaLote:=ChkLote.Checked, AplicaCaducidad:=ChkCaducidad.Checked, AplicaSeccion:=ChkSeccion.Checked, TiempoCaducidad:=TiempoCaducidad, CvePSAdicionalVigencia:=DdlPSAdicionalVigencia.SelectedValue.ToEntero(), PrecioLibre:=ChkPrecioLibre.Checked,
-                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal) Then
+                                                  CveMaterialPeligroso:=DdlMaterialPeligroso.SelectedValue.ToEntero, CveEmbalaje:=DdlEmbalaje.SelectedValue.ToEntero, PesoKg:=TxtPesoKg.Text.ToDecimal, Dimensiones:=TxtDimensiones.Text.Trim) Then
 
                     If Not ObjProductosServicios.LimpiaImpuestosLocales(CvePS) Then
                         TieneError = True