-validacion de fecha incial menor a fecha final

2024-10-22 18:39:21 -07:00
parent 00dbc0bbad
commit 04e0238689
1 changed files with 5 additions and 0 deletions
--- 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