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

-

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-08-12 15:00:37 -07:00
parent 9e45ca63a3
commit f5a5debe7d
3 changed files with 11 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Contratos/Contrato.aspx.vb
View File

@@ -1488,14 +1488,15 @@ Partial Class Contratos_Default
#Region "COMBOS - INFO GENERAL"
Private Sub CargaProyecto()
If UsuarioActual.Empresa.GralSoloProyecto Then
CargaSubProyectoContrato(-1)
trddlproyecto.Visible = False
lblsubproyecto.Text = "Proyecto"
Else
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
DdlProyecto.DataBind()
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyectoContrato, LblProyecto, lblsubproyecto)
trddlproyecto.Visible = LblProyecto.Visible
'If UsuarioActual.Empresa.GralSoloProyecto Then
' CargaSubProyectoContrato(-1)
' lblsubproyecto.Text = "Proyecto"
'Else
' DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
' DdlProyecto.DataBind()
'End If
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)