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

Limpieza masiva Centros de costo

Browse Source 
-Se unificó todo el comporatmiento de centros de costo en ClsPaginas
-Se unificó la carga de subproyectos en ClsPaginas
This commit is contained in:
MLopez
2023-02-08 16:44:41 -07:00
parent fd682230cb
commit 006d94145e
50 changed files with 191 additions and 1705 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -287,81 +287,8 @@ Partial Class RepVentaDetalle
DdlGrupo.DataBind()
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlSubProyectoEjecucion.Items.Clear()
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoEjecucion.DataBind()
DdlGrupo.Items.Insert(5, New ListItem("Sucursal", "6"))
DdlGrupo.Items.Insert(15, New ListItem("Sucursal Ejec.", "15"))
DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Sucursal", "17"))
DdlGrupo.Items.Insert(17, New ListItem("% IVA Sucursal", "18"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlSubProyectoEjecucion.Items.Clear()
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoEjecucion.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoEjecucion.DataBind()
DdlGrupo.Items.Insert(5, New ListItem("Proyecto", "6"))
DdlGrupo.Items.Insert(15, New ListItem("Proyecto Ejec.", "15"))
DdlGrupo.Items.Insert(16, New ListItem("Año/Mes Proyecto", "17"))
DdlGrupo.Items.Insert(17, New ListItem("% IVA Proyecto", "18"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
DdlGrupo.Items.Insert(14, New ListItem("SubProyecto Ejec.", "15"))
DdlGrupo.Items.Insert(15, New ListItem("Año/Mes SubProyecto", "17"))
DdlGrupo.Items.Insert(16, New ListItem("% IVA SubProyecto", "18"))
DdlGrupo.Items.Insert(17, New ListItem("Centro de Costo", "19"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub CargaCombos()
Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargaClientes()
'DdlClientes.setEsWebService(False)
@@ -376,11 +303,6 @@ Partial Class RepVentaDetalle
'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
'CargaProyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind()
@@ -406,8 +328,6 @@ Partial Class RepVentaDetalle
DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo()
CargaTipoCentroCosto()
End Sub
Private Sub CargaEstatus()
@@ -421,12 +341,6 @@ Partial Class RepVentaDetalle
DdlEstatus.DataBind()
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region
#Region "SELECTED INDEX CHANGE"
@@ -435,7 +349,7 @@ Partial Class RepVentaDetalle
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)