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 Private Function VallidaCantidadPasajeros(CveTipoAF As Integer, Cantidad As Integer) As Boolean
Dim Respuesta As Boolean = True Dim Respuesta As Boolean = True
If CveTipoAF = 181 And Cantidad < 21 Then 'autobus
If CveTipoAF = 181 And Cantidad < 30 Then 'autobus
Respuesta = False 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 ElseIf CveTipoAF = 184 And Cantidad > 21 Then 'sprinter
Respuesta = False Respuesta = False
Alert("El tipo de unidad sprinter no puede tener más de 21 pasajeros.", TipoMensaje.MsgAdvertencia) Alert("El tipo de unidad sprinter no puede tener más de 21 pasajeros.", TipoMensaje.MsgAdvertencia)
End If End If
Return Respuesta Return Respuesta
End Function End Function