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

-- cambios GlobalDTSubPr

Browse Source
This commit is contained in:
rrene
2024-08-01 15:50:25 -07:00
parent 30e0decf3e
commit 934d00e235
14 changed files with 44 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contratos/Contrato.vb
View File

@@ -835,7 +835,7 @@ Partial Class Contratos_Default
End Sub
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProyectoContrato.Items.Clear()
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
End Sub

10
Contratos/ContratoObra.aspx.vb
View File

@@ -1263,15 +1263,7 @@ Partial Class Contratos_ContratoObra
' DdlProyecto.DataBind()
'End If
End Sub
'Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
' CargaSubProyectoContrato(DdlProyecto.SelectedValue.ToEntero)
'End Sub
'Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
' DdlSubProyectoContrato.Items.Clear()
' DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
' DdlSubProyectoContrato.DataBind()
' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
'End Sub
Private Sub CargaContratista()
DdlContratista.setEsWebService(True)
DdlContratista.Attributes.Add("data-metodo", "getproveedores")