From 428b8b9bc0bab5bc764999ae5c53352fd3a93b9d Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 1 Feb 2022 12:28:37 -0700 Subject: [PATCH] =?UTF-8?q?--=20pide=20el=20material=20peligroso,=20solo?= =?UTF-8?q?=20si=20est=C3=A1=20habilidad=20la=20carta=20porte?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ProductosServicios.aspx.vb | 19 ++++++------------- 1 file changed, 6 insertions(+), 13 deletions(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 0ff1aca73..36978c5c2 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/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