AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2022-02-01 12:28:37 -07:00
parent 4bc559e249
commit 428b8b9bc0
1 changed files with 6 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Ventas/ProductosServicios.aspx.vb
View File

@@ -1249,15 +1249,16 @@ Partial Class ProductosyServicios
End Sub End Sub
Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
If DdlSATPS.txtValue.Value.ToEntero > 0 Then If DdlSATPS.txtValue.Value.ToEntero > 0 Then
ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero) If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then ' si tiene activada la carta porte
If Not ValidaMaterialPeligrosoMensaje Then
Exit Sub ValidaMaterialPeligroso(DdlSATPS.txtValue.Value.ToEntero)
If Not ValidaMaterialPeligrosoMensaje Then
Exit Sub
End If
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 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) 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 Exit Sub
End If End If
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 If UsuarioActual.Empresa.Funcionalidad(265) = "1" And TxtCodigo.Text = "" Then
Alert("El código es requerido.", TipoMensaje.MsgAdvertencia) 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) Alert("La cantidad de venta mínima debe de ser especificada (mayor a cero)", TipoMensaje.MsgAdvertencia)
Return Return
End If End If
End If End If
Dim CveTamaño As Integer = DdlTamanio.SelectedValue.ToEntero 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) Alert($"Un producto/servicio con la clasificación '{Dr("Clasificacion")}' debe tener especificado un tamaño.", TipoMensaje.MsgAdvertencia)
Return Return
End If End If
End If End If
Dim ObjProductosServicios As New ClsProductosServicios() Dim ObjProductosServicios As New ClsProductosServicios()
@@ -3111,8 +3106,6 @@ Partial Class ProductosyServicios
Dim DTDatos As New DataTable Dim DTDatos As New DataTable
DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}") DTDatos = ObjGrales.DtResultados.FiltraParametros($" CveSATPS= {CveSATPS}")
'Es material Peligros 'Es material Peligros
If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then If DTDatos.Rows(0)("EsPeligroso").ToString.ToEntero = 1 Then