diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index b745538a5..3fecb240d 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/Transportes/RepContratos.aspx.vb
@@ -122,6 +122,11 @@ Partial Class ListadoContratos
             Exit Sub
         End If
 
+        If TxtFechaSalida.Text.ToDateTime > TxtFechaRegreso.Text.ToDateTime Then
+            Alert("La fecha inicial no puede ser mayor al final.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         'Agregamos Contrato
 
         Dim ObjContratos As New ClsContratos