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

Apoyo logistico, ordenes de servicio

Browse Source
This commit is contained in:
Oscar Irigoyen
2023-01-10 12:23:17 -07:00
parent 0f31351535
commit 23a419b9f6
17 changed files with 465 additions and 90 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
OS/RepOrdenesServicios.aspx.vb
View File

@@ -20,6 +20,8 @@ Partial Class OS_RepOrdenesServicios
ViewState("CveUsuarioTecnico") = -1
End If
txtFechaI.Text = $"01/01/{Now.Year}"
CargaDatos()
OrdenaDatos()
End If
@@ -59,7 +61,18 @@ Partial Class OS_RepOrdenesServicios
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
FechaTerminado = If(IsDate(TxtFechaTerminado.Text.Trim()), TxtFechaTerminado.Text.Trim(), "-1")
If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
Dim Opcion As Integer = 1
Dim CveUsuarioAsignado As Integer = UsuarioActual.CveUsuario
If UsuarioActual.TienePermisoProceso(348) Then
Opcion = 2
CveUsuarioAsignado = -1
End If
If ObjOrdenesServicios.GetRepOrdenesServicio(FechaI, FechaF, FechaTerminado, DdlClientes.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlUsuarioRecibio.SelectedValue.ToEntero,
DdlTecnico.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Opcion:=Opcion, CveUsuarioAsignado:=CveUsuarioAsignado) Then
Dim Filtro As String = ""
Select Case DdlFacturado.SelectedValue
Case "1"