diff --git a/OS/RepOrdenesServicios.aspx.vb b/OS/RepOrdenesServicios.aspx.vb index 24d98f641..0a448ad7f 100644 --- a/OS/RepOrdenesServicios.aspx.vb +++ b/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)