diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index f6173c45f..bb6174d4e 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -3266,7 +3266,7 @@ Partial Class ProductosyServicios
         HabilitaAplicaCaducidadTiempo()
     End Sub
     Private Sub HabilitaAplicaCaducidadTiempo()
-        If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+        If UsuarioActual.CveEmpresa.Contiene(119, 158, 199) Then
             DivTiempoCaducidad.Visible = ChkCaducidad.Checked
             RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked
         End If