Transportes Mejoras

Transportes/RepContratos.aspx.vb

@@ -102,6 +102,10 @@ Partial Class ListadoContratos
     End Sub
     Protected Sub AddContrato(sender As Object, e As EventArgs)
 
+        If Not VallidaCantidadPasajeros(DdlTipoAF.SelectedValue.ToEntero, TxtCantidadPasajeros.Text.ToEntero) Then
+            Exit Sub
+        End If
+
         Dim ErrorProceso As Boolean = False
         Dim CveContrato As Integer = -1
 
@@ -221,6 +225,22 @@ Partial Class ListadoContratos
         RegistraScript("$('#ModalAgregar').modal('hide')", "hidemodal1")
     End Sub
 
+    Private Function VallidaCantidadPasajeros(CveTipoAF As Integer, Cantidad As Integer) As Boolean
+
+        Dim Respuesta As Boolean = True
+
+        If CveTipoAF = 181 And Cantidad < 30 Then 'autobus
+            Respuesta = False
+            Alert("El tipo unidad autobus debe de tener un minimo de 30 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
+
     Protected Sub ResetModal()
         'Reiniciamos modal
         TxtDescripcion.Text = ""