AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-

Browse Source
This commit is contained in:
rrene
2024-01-04 22:48:50 -07:00
parent 1db1bb969e
commit 47e28dcd02
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
OS/RepOrdenesServicios.aspx.vb
View File

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