-

OS/RepOrdenesServicios.aspx.vb

@@ -53,9 +53,10 @@ Partial Class OS_RepOrdenesServicios
     Public Sub CargaDatos()
         Dim ObjOrdenesServicios As New ClsOS()
 
-        Dim FechaI, FechaF, FechaTerminado As String
-        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim(), "-1")
-        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
+        Dim FechaI, FechaF As Date
+        Dim FechaTerminado As String
+        FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim().ToDate, MinFecha)
+        FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim().ToDate, MaxFecha)
         FechaTerminado = If(IsDate(TxtFechaTerminado.Text.Trim()), TxtFechaTerminado.Text.Trim(), "-1")
 
         Dim Opcion As Integer = 1
@@ -64,7 +65,6 @@ Partial Class OS_RepOrdenesServicios
         If UsuarioActual.TienePermisoProceso(348) Then
             Opcion = 2
             CveUsuarioAsignado = -1
-
         End If
 
         Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero <= 0, -1, DdlClientes.SelectedValue.ToEntero)