-- pide el material peligroso, solo si está habilidad la carta porte

Ventas/ProductosServicios.aspx.vb

@@ -1249,15 +1249,16 @@ Partial Class ProductosyServicios
     End Sub
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
-
         If DdlSATPS.txtValue.Value.ToEntero > 0 Then
-            ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
-            If Not ValidaMaterialPeligrosoMensaje Then
+            If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte
 
-                Exit Sub
+                ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
+                If Not ValidaMaterialPeligrosoMensaje Then
+                    Exit Sub
+                End If
             End If
-        End If
 
+        End If
 
         If DdlSATPS.SelectedValue.Contiene("46920", "0", "-1") AndAlso UsuarioActual.CveEmpresa.Contiene(119, 158, 72, 80, 145) Then
             Alert("El Producto Servicio SAT con clave '01010101' no es valido, por favor seleccione otro", TipoMensaje.MsgAdvertencia)
@@ -1283,10 +1284,6 @@ Partial Class ProductosyServicios
                 Exit Sub
             End If
         End If
-        'If DdlSubFamilia.SelectedValue = "-1" AndAlso UsuarioActual.TienePermisoProceso(138) Then
-        '    Alert("Se debe especificar Familia y Subfamilia de Costos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
 
         If UsuarioActual.Empresa.Funcionalidad(265) = "1" And TxtCodigo.Text = "" Then
             Alert("El código es requerido.", TipoMensaje.MsgAdvertencia)
@@ -1303,7 +1300,6 @@ Partial Class ProductosyServicios
                 Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia)
                 Return
             End If
-
         End If
 
         Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero
@@ -1329,7 +1325,6 @@ Partial Class ProductosyServicios
                 Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
                 Return
             End If
-
         End If
 
         Dim ObjProductosServicios As New ClsProductosServicios()
@@ -3111,8 +3106,6 @@ Partial Class ProductosyServicios
             Dim DTDatos As New DataTable
             DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}")
 
-
-
             'Es material Peligros
             If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then