From 47e28dcd02673de0df8af87024d3af08d8301ce7 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 Jan 2024 22:48:50 -0700 Subject: [PATCH] - --- OS/RepOrdenesServicios.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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)