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

--- cambio e cant de pasajeros

Browse Source
This commit is contained in:
rrene
2025-03-03 17:36:52 -07:00
parent ab6a85a268
commit 060e87d9d3
1 changed files with 2 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Transportes/RepContratos.aspx.vb
View File

@@ -248,15 +248,13 @@ Partial Class ListadoContratos
Private Function VallidaCantidadPasajeros(CveTipoAF As Integer, Cantidad As Integer) As Boolean
Dim Respuesta As Boolean = True
If CveTipoAF = 181 And Cantidad < 30 Then 'autobus
If CveTipoAF = 181 And Cantidad < 21 Then 'autobus
Respuesta = False
Alert("El tipo unidad autobus debe de tener un minimo de 30 pasajeros.", TipoMensaje.MsgAdvertencia)
Alert("El tipo unidad autobus debe de tener un minimo de 22 pasajeros.", TipoMensaje.MsgAdvertencia)
ElseIf CveTipoAF = 184 And Cantidad > 21 Then 'sprinter
Respuesta = False
Alert("El tipo de unidad sprinter no puede tener más de 21 pasajeros.", TipoMensaje.MsgAdvertencia)
End If
Return Respuesta
End Function