- mejoras, propuesta de julián, SMS

Ventas/ProductosServicios.aspx.vb

@@ -1038,7 +1038,7 @@ Partial Class ProductosyServicios
                 ChkSeccion.Checked = ObjProductosServicios.AplicaSeccion
 
                 TxtTiempoCaducidad.Text = ObjProductosServicios.DtResultados.Rows(0)("TiempoCaducidad").ToString()
-                DivTiempoCaducidad.Visible = ChkCaducidad.Checked
+                HabilitaAplicaCaducidadTiempo()
 
                 If ObjProductosServicios.AplicaSeccion Then
                     CargaGvSeccionAlmacen()
@@ -1436,7 +1436,7 @@ Partial Class ProductosyServicios
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 
             Dim TiempoCaducidad As Integer = -1
-            If ChkCaducidad.Checked Then
+            If ChkCaducidad.Checked AndAlso DivTiempoCaducidad.Visible Then
                 If TxtTiempoCaducidad.Text.Length > 0 AndAlso IsNumeric(TxtTiempoCaducidad.Text) Then
                     TiempoCaducidad = TxtTiempoCaducidad.Text.ToEntero()
                 Else
@@ -1444,13 +1444,9 @@ Partial Class ProductosyServicios
                     Exit Sub
                 End If
             End If
-
-
             If TxtFechaVigenciaRSCO.Text = "" Then
                 TxtFechaVigenciaRSCO.Text = "01/01/1900"
             End If
-
-
             If CvePS = -1 Then
                 Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
                 If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper
@@ -3054,9 +3050,13 @@ Partial Class ProductosyServicios
     End Function
 
     Protected Sub ChkCaducidad_CheckedChanged(sender As Object, e As EventArgs)
-        Dim Activar As Boolean = ChkCaducidad.Checked
-        DivTiempoCaducidad.Visible = Activar
-        RfvTxtTiempoCaducidad.Enabled = Activar
+        HabilitaAplicaCaducidadTiempo()
+    End Sub
+    Private Sub HabilitaAplicaCaducidadTiempo()
+        If UsuarioActual.CveEmpresa.Contiene(119, 158) Then
+            DivTiempoCaducidad.Visible = ChkCaducidad.Checked
+            RfvTxtTiempoCaducidad.Enabled = ChkCaducidad.Checked
+        End If
     End Sub
 
     Private Function GuardarProductoEnFranquicia(ObjPS As ClsProductosServicios, PSS As String, CveMetodoInv As Integer, EsPaquete As Integer, Agregar As Boolean) As Boolean