Limpieza masiva Centros de costo
-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
@@ -130,7 +130,6 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
End If
|
||||
End If
|
||||
DdlProyecto.SelectedValueExist(Proyecto)
|
||||
If DivProyecto.Visible Then CargaSubProyecto()
|
||||
'CARGA LISTBOXs
|
||||
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
|
||||
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
|
||||
@@ -181,12 +180,10 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
|
||||
Private Sub SetValues()
|
||||
|
||||
'Cargo Proyectos
|
||||
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlProyecto.DataBind()
|
||||
'Carga Tipo Centro de Costo
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
|
||||
|
||||
'CAarga Tipos de Gasto
|
||||
'Carga Tipos de Gasto
|
||||
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
|
||||
DdlTipoGasto.DataBind()
|
||||
|
||||
@@ -237,10 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
'Carga Grupos
|
||||
CargaGrupo()
|
||||
|
||||
'Carga Tipo Centro de Costo
|
||||
CargaTipoCentroCosto()
|
||||
|
||||
|
||||
'CARGA COSTOS
|
||||
If UsuarioActual.CveEmpresa = 66 Then
|
||||
|
||||
@@ -269,7 +262,6 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
|
||||
RowActivoFijo.Visible = True
|
||||
|
||||
|
||||
'Carga Fechas
|
||||
txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
|
||||
txtFechaF.Text = Now.ToShortDateString
|
||||
@@ -298,103 +290,6 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
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
|
||||
'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()
|
||||
|
||||
' DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
|
||||
' 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()
|
||||
|
||||
' DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "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()
|
||||
|
||||
'ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
|
||||
' LblProyecto.InnerText = "Sucursal:"
|
||||
' LblSubProyecto.InnerText = "Proyecto:"
|
||||
|
||||
' DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "1"))
|
||||
' DdlGrupo.Items.Insert(1, New ListItem("Proyecto", "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
|
||||
|
||||
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
|
||||
CargaDatos()
|
||||
@@ -455,14 +350,6 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
Agrupador = DdlGrupo.SelectedItem.Text
|
||||
End Sub
|
||||
|
||||
Private Sub CargaSubProyecto()
|
||||
DdlSubProyecto.Items.Clear()
|
||||
If DdlProyecto.SelectedValue <> "-1" Then
|
||||
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
|
||||
DdlSubProyecto.DataBind()
|
||||
End If
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
Private Sub CargaCultivo()
|
||||
DdlCultivo.Items.Clear()
|
||||
If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
|
||||
@@ -472,18 +359,16 @@ Partial Class Compras_RepProductosServiciosDetalle
|
||||
DdlCultivo.DataSource = Nothing
|
||||
DdlCultivo.DataBind()
|
||||
End If
|
||||
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region "SELECT INDEX CHANGED"
|
||||
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
|
||||
CargaSubProyecto()
|
||||
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
|
||||
End Sub
|
||||
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
|
||||
CargaCultivo()
|
||||
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
End Sub
|
||||
|
||||
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
|
||||
|
||||
Reference in New Issue
Block a user