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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Contratos/CatPresupuestos.aspx.vb
View File

@@ -38,7 +38,7 @@ Partial Class Contratos_CatPresupuestos
Protected Sub CargaSubProyecto(CveProyecto As Integer)
DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
Else

4
Contratos/Contrato.aspx.vb
View File

@@ -921,7 +921,7 @@ Partial Class Contratos_Default
Dim ObjFolios As New ClsGralFolios
If ObjFolios.GetFolios("Con", UsuarioActual.CveEmpresa) Then
If ObjFolios.DtResultados.FiltraParametros($"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}").Rows.Count > 0 Then
FolioSugerido = $"{GlobalDTSubProyectos(-1, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}"
FolioSugerido = $"{GlobalDTSubProyectos(UsuarioActual.CveEmpresa, DdlSubProyectoContrato.SelectedValue.ToEntero).FiltroPrimeroValor("Serie")}-{ObjFolios.DtResultados.FiltroPrimeroValor("FActual", $"CveSubProyecto = {DdlSubProyectoContrato.SelectedValue}")}"
TxtNumeroContrato.Text = FolioSugerido
Else
Alert("La sucursal no cuenta con folios de contratos", TipoMensaje.MsgAdvertencia)
@@ -1737,7 +1737,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", "SubProyecto"})
DdlSubProyectoContrato.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlSubProyectoContrato.DataBind()
DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1"))
End Sub

2
Contratos/ContratoObra.aspx.vb
View File

@@ -5548,7 +5548,7 @@ Partial Class Contratos_ContratoObra
Private Sub CargaDLLCargaGVCentrosConsto()
DdlCentroCostos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlCentroCostos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlCentroCostos.DataBind()
DdlCentroCostos.Items.Insert(0, New ListItem("Seleccione uno", "-1"))

2
Contratos/FacturacionMasiva.aspx.vb
View File

@@ -106,7 +106,7 @@ Partial Class Contratos_FacturacionMasiva
DdlCliente.DataBind()
DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa)
DdlContrato.DataBind()
DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
DdlSucursal.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSucursal.DataBind()
End Sub
Private Sub CargaDatos(CveContrato As Integer, CveCliente As Integer)

2
Contratos/PopUpBuscarContrato.aspx.vb
View File

@@ -56,7 +56,7 @@ Partial Class Contratos_PopUpBuscarContrato
End Sub
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProtecto.Items.Clear()
DdlSubProtecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlSubProtecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto"})
DdlSubProtecto.DataBind()
DdlSubProtecto.Items.Insert(0, New ListItem("Todos", "-1"))
UPFiltros.Update()

2
Contratos/Presupuestos.aspx.vb
View File

@@ -81,7 +81,7 @@ Partial Class Contratos_Presupuestos
Protected Sub CargaSubProyectoContrato(CveProyecto As Integer)
DdlSubProyecto.Items.Clear()
If CveProyecto > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectos(CveProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto).FiltraParametros("", "", {"CveSubproyecto", "SubProyecto2"})
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione un SubProyecto", "-1"))
Else

2
Contratos/RepPresupuestosDetalle.aspx.vb
View File

@@ -108,7 +108,7 @@ Partial Class Contratos_RepPresupuestosDetalle
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
ElseIf DdlAgrupador.SelectedValue.ToEntero = 2 Then
If Not EsProyecto Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
CargaSubProyecto()
DdlSubProyecto.SelectedValueExist(Gpo)

2
Contratos/RepPresupuestosDetalleCompras.aspx.vb
View File

@@ -102,7 +102,7 @@ Partial Class Contratos_RepPresupuestosDetalleCompras
DdlSubProyecto.SelectedValueExist(CveSubProyecto)
ElseIf Agrupador = 1 Then
If Not EsProyecto Then
Dim Dr As DataRow = GlobalDTSubProyectos(-1, Gpo)(0)
Dim Dr As DataRow = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, Gpo)(0)
DdlProyecto.SelectedValueExist(Dr("CveProyecto"))
CargaSubProyecto()
DdlSubProyecto.SelectedValueExist(Gpo)