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

4
Compras/RepCompras.aspx
View File

@@ -162,9 +162,7 @@
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">

88
Compras/RepCompras.aspx.vb
View File

@@ -63,65 +63,13 @@ Partial Class Compras_RepCompras
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3")
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
DdlGrupo.DataBind()
End If
DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
End Sub
Private Sub CargaCombos()
txtFechaI.Text = $"01/01/{Now.Year}"
txtFechaI.Text = $"01/01/{Now.Year}"
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'CargaProveedores
DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -144,38 +92,22 @@ Partial Class Compras_RepCompras
DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind()
'CargaProyecto
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind()
'Carga Grupo
CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub
Private Sub ConfiguraEmpresa()
ChkIVA.Checked = True
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero))
DdlSubProyecto.DataBind()
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
End Sub
#End Region
#Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged

24
Compras/RepComprasAF.aspx.vb
View File

@@ -50,16 +50,6 @@ Partial Class Compras_RepComprasAF
If Not IsPostBack Then
CargaCombos()
'DdlPS.ddl.Visible = False
If UsuarioActual.Empresa.GralSoloProyecto Then
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
LblProyecto.Visible = False
End If
End If
End Sub
@@ -110,19 +100,7 @@ Partial Class Compras_RepComprasAF
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
If DdlProyecto.SelectedValue = "-1" Then
DdlProyecto.Items.Clear()
DdlSubProyecto.Items.Clear()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
Else
CargaSubProyecto()
End If
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()

43
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -149,21 +149,6 @@ Partial Class Compras_RepComprasAFDetalle
Dim asd As Integer = 1
End Try
If UsuarioActual.Empresa.GralSoloProyecto Then
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.SelectedValue = "-1"
DdlSubProyecto.DataBind()
'DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
DdlProyecto.Visible = False
DdlProyecto.Items(0).Text = ""
LblProyecto.Visible = False
End If
If UsuarioActual.CveEmpresa = 72 Then
GvDatos.FBColumn("NoSerie").Visible = True
End If
@@ -175,6 +160,8 @@ Partial Class Compras_RepComprasAFDetalle
Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind()
@@ -182,13 +169,9 @@ Partial Class Compras_RepComprasAFDetalle
DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
End If
DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind()
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
DdlTipoActivoFijo.DataBind()
@@ -206,14 +189,12 @@ Partial Class Compras_RepComprasAFDetalle
DdlClasificacion2.DataSource = Nothing
End If
ObjClasificacion.Dispose()
DdlClasificacion2.DataBind()
DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1"))
DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
DdlClasificacion2.SelectedValueExist(-1)
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind()
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -230,33 +211,17 @@ Partial Class Compras_RepComprasAFDetalle
DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
End Sub
Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
DdlSubTipoActivoFijo.Items.Clear()
DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoActivoFijo = {0}", DdlTipoActivoFijo.SelectedValue), "SubTipoActivoFijo")
DdlSubTipoActivoFijo.DataSource = GlobalDTSubTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros($"CveTipoActivoFijo = {DdlTipoActivoFijo.SelectedValue}", "SubTipoActivoFijo")
DdlSubTipoActivoFijo.DataBind()
DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubTipoActivoFijo.SelectedIndex = 0
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
If DdlProyecto.SelectedValue = "-1" Then
DdlProyecto.Items.Clear()
DdlSubProyecto.Items.Clear()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
Else
CargaSubProyecto()
End If
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue), "SubProyecto")
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos()

4
Compras/RepComprasDetalle.aspx
View File

@@ -201,9 +201,7 @@
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">

72
Compras/RepComprasDetalle.aspx.vb
View File

@@ -134,7 +134,6 @@ Partial Class Compras_RepComprasDetalle
End If
DdlProyecto.SelectedValueExist(CveProyecto)
If DivProyecto.Visible Then CargaSubProyecto()
'CARGA LISTBOXs
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
@@ -177,62 +176,11 @@ Partial Class Compras_RepComprasDetalle
DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3")
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(10, New ListItem("Remesa-SubProyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("SubProyecto", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Sucursal", "13"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.Items.Insert(12, New ListItem("Proyecto", "13"))
DdlGrupo.DataBind()
End If
DdlGrupo.Items.Add(New ListItem("Tipo Proveedor", "14"))
DdlGrupo.Items.Add(New ListItem("Tipo Gasto", "15"))
End Sub
Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'Carga Tipo de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind()
@@ -252,23 +200,11 @@ Partial Class Compras_RepComprasDetalle
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind()
'CargaProyecto
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Carga Grupos
CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
End Sub
Private Sub CargaDatos()
Dim ObjCompras As New ClsCompras()
@@ -321,7 +257,7 @@ Partial Class Compras_RepComprasDetalle
#Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged

8
Compras/RepComprasPeriodo.aspx
View File

@@ -100,15 +100,11 @@
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
</div>
<div class="col-md-1">Fecha I. Captura</div>
<div class="col-md-1">

69
Compras/RepComprasPeriodo.aspx.vb
View File

@@ -48,60 +48,11 @@ Partial Class Compras_RepComprasPeriodo
DdlGrupo.SelectedValueExist("3")
End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
DivLblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Sucursal", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Sucursal", "12"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
DdlGrupo.Items.Insert(10, New ListItem("Remesa-Proyecto", "11"))
DdlGrupo.Items.Insert(11, New ListItem("Proyecto", "12"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'Carga Proveedores
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind()
@@ -122,15 +73,9 @@ Partial Class Compras_RepComprasPeriodo
DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind()
'CargaProyecto
DdlProyecto.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110), GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}))
DdlProyecto.DataBind()
'Carga Grupo
CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub
Private Sub CargaDatos()
@@ -167,18 +112,12 @@ Partial Class Compras_RepComprasPeriodo
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1).FiltraParametros(String.Format("CveProyecto = {0}", DdlProyecto.SelectedValue.ToEntero))
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region
#Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged

4
Compras/RepPagado.aspx
View File

@@ -98,12 +98,12 @@
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>
</div>
<label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>

58
Compras/RepPagado.aspx.cs
View File

@@ -36,6 +36,8 @@ public partial class Compras_RepPagado : ClsPaginas
private void InicializaValores()
{
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
//Carga Moneda
DdlMoneda.DataSource = GlobalDTMonedas;
DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -69,60 +71,6 @@ public partial class Compras_RepPagado : ClsPaginas
TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{DateTime.Now.Year}";
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
//Carga Proyectos
DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario,-1,UsuarioActual.Empresa.CveEmpresa,1);
DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlProyecto.DataBind();
CargaSubProyectos();
CargaTipoCentroCosto();
}
private void CargaTipoCentroCosto()
{
if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Sucursal:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Proyecto:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.InnerText = "Sucursal:";
LblSubProyecto.InnerText = "Proyecto:";
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.InnerText = "Proyecto:";
LblSubProyecto.InnerText = "Sucursal:";
}
}
private void CargaSubProyectos()
{
DdlSubProyecto.Items.Clear();
if (DdlProyecto.SelectedValue.ToEntero() > 0)
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
}
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
private void CargaCuentasBancarias()
@@ -153,7 +101,7 @@ public partial class Compras_RepPagado : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{
CargaSubProyectos();
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
}
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

4
Compras/RepPagadoDetalle.aspx
View File

@@ -85,12 +85,12 @@
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>
</div>
<label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>

65
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -41,6 +41,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
private void InicializaValores()
{
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
//Carga Moneda
DdlMoneda.DataSource = GlobalDTMonedas;
DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1"));
@@ -71,16 +73,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
txtFechaF.Text = DateTime.Now.ToShortDateString();
//Carga Proyectos
DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlProyecto.DataBind();
CargaSubProyectos();
CargaTipoCentroCosto();
txtFechaI.Text = Request["FechaI"] == null ? "" : Request["FechaI"].ToString();
txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString();
TxtFechaICompra.Text = Request["FechaICompra"] == null ? "" : Request["FechaICompra"].ToString();
@@ -89,23 +81,17 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
if (Request["CveProveedor"] != null && Request["CveProveedor"].ToString().ToEntero() > 0)
{
DataRow DrowProveedor;
int CveProveedor = Request["CveProveedor"].ToString().ToEntero();
DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];
DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
DdlProveedores.txtValue.Value = CveProveedor.ToString();
}
DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());
@@ -138,51 +124,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
CargaDatos();
}
private void CargaTipoCentroCosto()
{
if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Sucursal:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Proyecto:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.InnerText = "Sucursal:";
LblSubProyecto.InnerText = "Proyecto:";
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.InnerText = "Proyecto:";
LblSubProyecto.InnerText = "Sucursal:";
}
}
private void CargaSubProyectos()
{
DdlSubProyecto.Items.Clear();
if (DdlProyecto.SelectedValue.ToEntero() > 0)
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
}
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
private void CargaCuentasBancarias()
{
DdlCuentaBancaria.Items.Clear();
@@ -211,7 +152,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{
CargaSubProyectos();
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
}
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

4
Compras/RepPagadoPeriodo.aspx
View File

@@ -104,12 +104,12 @@
</div>
<div class="portlet-body" style="display: none;">
<div class="row">
<label runat="server" id="LblProyecto" class="col-md-1">Proyecto:</label>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" Width="100%" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>
</div>
<label runat="server" id="LblSubProyecto" class="col-md-1">SubProyecto:</label>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList>

57
Compras/RepPagadoPeriodo.aspx.cs
View File

@@ -78,61 +78,8 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
//Carga Proyectos
DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.Empresa.CveEmpresa, 1);
DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlProyecto.DataBind();
CargaSubProyectos();
CargaTipoCentroCosto();
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
}
private void CargaTipoCentroCosto()
{
if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Sucursal:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.Visible = false;
LblSubProyecto.InnerText = "Proyecto:";
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.InnerText = "Sucursal:";
LblSubProyecto.InnerText = "Proyecto:";
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.InnerText = "Proyecto:";
LblSubProyecto.InnerText = "Sucursal:";
}
}
private void CargaSubProyectos()
{
DdlSubProyecto.Items.Clear();
if (DdlProyecto.SelectedValue.ToEntero() > 0)
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1);
}
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyecto.DataBind();
}
private void CargaCuentasBancarias()
{
DdlCuentaBancaria.Items.Clear();
@@ -352,7 +299,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{
CargaSubProyectos();
CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
}
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

12
Compras/RepProductosServicios.aspx
View File

@@ -177,17 +177,13 @@
</div>
</div>
<div class="row">
<label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
<div id="DivProyecto" runat="server" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
</div>
<label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
<div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server" AutoPostBack="true"></asp:ListBox>
</div>

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

12
Compras/RepProductosServiciosDetalle.aspx
View File

@@ -169,17 +169,13 @@
</div>
</div>
<div class="row">
<label id="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</label>
<asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto</asp:Label>
<div id="DivProyecto" runat="server" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
</div>
<label id="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </label>
<asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto </asp:Label>
<div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>--%>
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div>
<label class="col-md-1 truncate">Estatus</label>

123
Compras/RepProductosServiciosDetalle.aspx.vb
View File

@@ -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

8
Compras/RepProductosServiciosPeriodo.aspx
View File

@@ -102,15 +102,11 @@
<asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div>
<div class="col-md-2" runat="server" id="DivProyecto">
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
</div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%">
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
</div>
<div class="col-md-1">Fecha I. Captura</div>
<div class="col-md-1">

86
Compras/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -58,68 +58,11 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
DdlGrupo.Items.Insert(4, new ListItem("Mes", "7"));
DdlGrupo.Items.Insert(5, new ListItem("Año/Mes", "8"));
DdlGrupo.Items.Insert(6, new ListItem("Fecha", "9"));
DdlGrupo.Items.Insert(7, new ListItem("Proveedor", "10"));
DdlGrupo.Items.Insert(8, new ListItem("Usuario", "11"));
DdlGrupo.Items.Insert(9, new ListItem("Estatus Fact.", "12"));
DdlGrupo.DataBind();
DdlGrupo.SelectedValueExist("8");
}
private void CargaTipoCentroCosto()
{
if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
DivLblProyecto.Visible = false;
LblSubProyecto.Text = "Sucursal:";
DdlSubProyecto.DataSource = get_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();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
DivLblProyecto.Visible = false;
LblSubProyecto.Text = "Proyecto:";
DdlSubProyecto.DataSource = get_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();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 3)
{
DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
DdlGrupo.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.Text = "Sucursal:";
LblSubProyecto.Text = "Proyecto:";
DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "1"));
DdlGrupo.Items.Insert(1, new ListItem("Proyecto", "2"));
DdlGrupo.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.Text = "Proyecto:";
LblSubProyecto.Text = "Sucursal:";
DdlGrupo.Items.Insert(7, new ListItem("Proveedor", "10"));
DdlGrupo.Items.Insert(8, new ListItem("Usuario", "11"));
DdlGrupo.Items.Insert(9, new ListItem("Estatus Fact.", "12"));
DdlGrupo.DataBind();
DdlGrupo.SelectedValueExist("8");
}
private void CargaCombos()
@@ -193,20 +136,8 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
//Carga SubFamilias
DdlSubFamilia.DataSource = get_GlobalDTSubFamilias(66);
DdlSubFamilia.DataBind();
//COSTOS AF
DdlGrupo.Items.Insert(NumItems + 1, new ListItem("Costos por Activo Fijo", "14"));
}
RowActivoFijo.Visible = true;
//COSTOS AF
ColumnasDistintaProyecto[0] = "CveProyecto";
ColumnasDistintaProyecto[1] = "Proyecto";
if (UsuarioActual.Empresa.Funcionalidad(102) == "1" && !UsuarioActual.TienePermisoProceso(110)) { DdlProyecto.DataSource=get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); } else { DdlProyecto.DataSource= get_GlobalDTProyectos(UsuarioActual.CveEmpresa, -1).FiltraParametros("", "", ColumnasDistintaProyecto); }
DdlProyecto.DataBind();
DdlGrupo.Items.Insert(NumItems + 1, new ListItem("Costos por Activo Fijo", "14"));
}
@@ -247,22 +178,13 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
CveCategoria:DdlCategoria.SelectedValue.ToEntero(),CveFamilia: DdlFamilia.SelectedValue.ToEntero(),CveSubFamilia: DdlSubFamilia.SelectedValue.ToEntero(),
CveTipoAF:DdlTipoAF.SelectedValue.ToEntero(), CveSubTipoAF:DdlSubTipoAF.SelectedValue.ToEntero(), CveActivoFijo: DdlAF.SelectedValue.ToEntero()))
{
GvDatos.DataSource = ObjCompras.DtResultados;
DtDatos= ObjCompras.DtResultados;
}
ObjCompras.Dispose();
GvDatos.DataBind();
UPDatos.Update();
}
private void CargaSubProyectos()
GvDatos.DataSource = ObjCompras.DtResultados;
DtDatos= ObjCompras.DtResultados;
}
ObjCompras.Dispose();
GvDatos.DataBind();
UPDatos.Update();
}
#endregion
#region SELECTED INDEX CHANGE