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
@@ -73,10 +73,10 @@ Partial Class Ventas_RepVentas
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
If Not IsPostBack Then
|
||||
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
|
||||
TipoCambio = 1
|
||||
TCEspecifico = -1
|
||||
If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
|
||||
CargaCombos()
|
||||
|
||||
'MODALIDADES
|
||||
@@ -104,7 +104,6 @@ Partial Class Ventas_RepVentas
|
||||
End If
|
||||
|
||||
CargaGrupo()
|
||||
CargaTipoCentroCosto()
|
||||
|
||||
If UsuarioActual.CveVendedor > 0 AndAlso Not UsuarioActual.TienePermisoProceso(263) Then
|
||||
DdlVendedor.SelectedValuesIfExistM(UsuarioActual.CveVendedor.ToString())
|
||||
@@ -116,9 +115,7 @@ Partial Class Ventas_RepVentas
|
||||
LnkDescargaCartaPorte.Visible = True
|
||||
End If
|
||||
|
||||
|
||||
If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
|
||||
|
||||
LblServicioDomicilioFiltro.Visible = True
|
||||
DVServicioDomicilio.Visible = True
|
||||
DivLblDistr.Visible = True
|
||||
@@ -154,88 +151,16 @@ Partial Class Ventas_RepVentas
|
||||
DdlGrupo.SelectedValueExist("3")
|
||||
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 ConfiguraEmpresa()
|
||||
' If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
|
||||
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCombos()
|
||||
'CargaClientes
|
||||
|
||||
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
|
||||
|
||||
'CargaClientes
|
||||
Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
|
||||
If EsWS Then
|
||||
DdlClientes.setEsWebService(True)
|
||||
@@ -266,11 +191,6 @@ Partial Class Ventas_RepVentas
|
||||
DdlEstatus.SelectedIndex = 0
|
||||
End If
|
||||
|
||||
'CargaProyectos
|
||||
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
|
||||
DdlProyecto.DataBind()
|
||||
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
|
||||
|
||||
'Carga Clasificacion Cliente
|
||||
DdlClienteClasificacion.DataSource = GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa)
|
||||
DdlClienteClasificacion.DataBind()
|
||||
@@ -283,15 +203,8 @@ Partial Class Ventas_RepVentas
|
||||
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
|
||||
txtFechaF.Text = Now.ToShortDateString
|
||||
|
||||
|
||||
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
|
||||
|
||||
@@ -360,7 +273,7 @@ Partial Class Ventas_RepVentas
|
||||
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 DdlTipoComprobante_SelectedIndexChanged(sender As Object, e As EventArgs)
|
||||
|
||||
Reference in New Issue
Block a user