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

71
Compras/RepProductosServicios.aspx.vb
View File

@@ -62,11 +62,7 @@ Partial Class Compras_RepProductosServicios
Private Sub SetValues()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'CAarga Tipos de Gasto
'Carga Tipos de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind()
@@ -118,7 +114,7 @@ Partial Class Compras_RepProductosServicios
CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
lblCultivo.Visible = True
@@ -159,7 +155,6 @@ Partial Class Compras_RepProductosServicios
RowActivoFijo.Visible = True
'Carga Fechas
txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
txtFechaF.Text = Now.ToShortDateString
@@ -186,63 +181,9 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
End If
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8")
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Centro de costo"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Centro de costo", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 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()
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.DataBind()
LblSubProyecto.InnerText = "Proyecto"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Proyecto<br/>:"
LblSubProyecto.InnerText = "Subproyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Subproyecto", "2"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("Sucursal", "2"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub CargaDatos()
Dim ObjCompras As New ClsCompras()
@@ -389,12 +330,7 @@ Partial Class Compras_RepProductosServicios
#Region " SELECTED INDEX CHANGED"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue <> "-1" Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1)
DdlSubProyecto.DataBind()
End If
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
@@ -406,7 +342,6 @@ Partial Class Compras_RepProductosServicios
DdlCultivo.DataSource = Nothing
DdlCultivo.DataBind()
End If
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged