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

Actualizacion sobre la asignacion y permisos en las ordenes de servicio mayormente todo enfocado a la lógica de subProyecto

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-10-05 17:03:03 -05:00
parent a97d4cc137
commit 0ad131aa45
5 changed files with 181 additions and 71 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
OS/OrdenesServicios.aspx.vb
View File

@@ -413,11 +413,14 @@ Partial Class OS_OrdenesServicios
#Region "C A R G A S"
Private Sub CargaSubProyecto(Optional CveSubProyecto As Integer = -1)
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
Dim ObjOS As New ClsOS
If ObjOS.GetSubProyectosEstatusInicial(UsuarioActual.CveUsuario, 1, UsuarioActual.CveEmpresa) Then
DdlSubProyecto.Items.Clear()
DdlSubProyecto.SelectedValue = Nothing
DdlSubProyecto.DataSource = ObjOS.DtResultados.FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
DdlSubProyecto.DataBind()
If CveSubProyecto > 0 Then DdlSubProyecto.SelectedValueExist(CveSubProyecto)
End If
End Sub
Private Sub CargaTiposOrden()
Dim ObjOS As New ClsOS