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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-02-08 18:08:30 -07:00
parent 005b41a921 006d94145e
commit 3498b91ffc
50 changed files with 191 additions and 1705 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
App_Code/ClsPaginas.vb
View File

@@ -1320,11 +1320,10 @@ Public Class ClsPaginas
If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
End If End If
If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveSubProyecto <> -1 OrElse CveEstatus <> -1 Then
Dim StrSQL As New StringBuilder Dim StrSQL As New StringBuilder
If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto) If CveSubProyecto <> -1 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0}", CveSubProyecto)
If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatus = {0}", CveEstatus)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -1347,10 +1346,9 @@ Public Class ClsPaginas
If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"}) If ObjSubProyectos.GetSubProyectosUsuarios(CveEmpresa:=CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
End If End If
If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEmpresa <> -1 OrElse CveEstatus <> -1 Then If CveUsuario <> -1 OrElse CveProyecto <> -1 OrElse CveEstatus <> -1 Then
Dim StrSQL As New StringBuilder Dim StrSQL As New StringBuilder
If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto) If CveProyecto <> -1 Then StrSQL.AppendFormat(" AND CveProyecto = {0}", CveProyecto)
If CveEmpresa <> -1 Then StrSQL.AppendFormat(" AND CveEmpresa = {0}", CveEmpresa)
If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario) If CveUsuario <> -1 Then StrSQL.AppendFormat(" AND CveUsuario = {0}", CveUsuario)
If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus) If CveEstatus <> -1 Then StrSQL.AppendFormat(" AND CveEstatusProyecto = {0}", CveEstatus)
Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows) Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), StrSQL.ToString.Trim.TrimStart("A"c, "N"c, "D"c), "", DataViewRowState.CurrentRows)
@@ -4260,7 +4258,7 @@ Public Class ClsPaginas
ObjUsuario.Dispose() ObjUsuario.Dispose()
Return Retorno Return Retorno
End Function End Function
Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListBox = Nothing) Public Sub CargarCentrosDeCosto(DdlProyecto As ListControl, DdlSubProyecto As ListControl, LthProyectoP As Label, LblSubProyecto As Label, Optional AplicaTodos As String = "Todos", Optional DdlSubProyectoMultiple As ListControl = Nothing)
Select Case UsuarioActual.Empresa.Tipo_CentroCosto Select Case UsuarioActual.Empresa.Tipo_CentroCosto
Case 1 Case 1
If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False If DdlProyecto IsNot Nothing Then DdlProyecto.Visible = False
@@ -4292,9 +4290,20 @@ Public Class ClsPaginas
If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1")) If AplicaTodos <> "" Then DdlSubProyectoMultiple.Items.Insert(0, New ListItem(AplicaTodos, "-1"))
End If End If
If DdlSubProyecto IsNot Nothing Then If DdlSubProyecto IsNot Nothing Then
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)) CargarSubProyecto(DdlSubProyecto, "-1", AplicaTodos)
DdlSubProyecto.DataBind() End If
If AplicaTodos <> "" Then DdlSubProyecto.Items.Insert(0, New ListItem(AplicaTodos, "-1")) End Sub
Public Sub CargarSubProyecto(DdlSubProyecto As ListControl, CveProyecto As String, Optional AplicaTodos As String = "Seleccione")
DdlSubProyecto.Items.Clear()
DdlSubProyecto.ClearSelection()
DdlSubProyecto.DataSource = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, CveProyecto.ToEntero(), UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(CveProyecto.ToEntero(), -1, UsuarioActual.CveEmpresa, 1))
DdlSubProyecto.DataBind()
If AplicaTodos <> "" Then
If DdlSubProyecto.GetType() Is GetType(ListBox) Then
'DdlSubProyecto.Text = "Seleccione"
Else
DdlSubProyecto.Items.Insert(0, New ListItem(If(CveProyecto <> "-1", AplicaTodos, "Todos"), "-1"))
End If
End If End If
End Sub End Sub
Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False) Public Sub CargaSeccionesAlmacen(ByRef DdlSeccionAlmacen As DropDownList, CveAlmacen As Integer, CvePS As Integer, CveEmpresa As Integer, Optional IncluyeSeleccione As Boolean = False)
@@ -8058,7 +8067,7 @@ Public Class ClsPaginas
End Class End Class
#End Region #End Region
#Region "GlobalSIGAppPaginas" #Region "Diccionario de páginas"
Private Function Obt_ClavePagina(Pagina As String) As Integer Private Function Obt_ClavePagina(Pagina As String) As Integer
Dim Retorno As Integer Dim Retorno As Integer
Dim PaginaDict As System.Collections.Hashtable Dim PaginaDict As System.Collections.Hashtable

5
CGame/CatEstatus.aspx.VB
View File

@@ -1,7 +1,6 @@
Option Strict On Option Strict On
Imports System.Data Imports System.Data
Imports System.Collections.Generic Imports System.Collections.Generic
Imports System.Linq
Imports System.Linq Imports System.Linq
Imports System.Web Imports System.Web
Imports System.Web.UI.WebControls Imports System.Web.UI.WebControls
@@ -19,7 +18,9 @@
Else Else
Return -1 Return -1
End If End If
End Get End Get
Set(value As Integer)
ViewState("CveEstatus") = value
End Set End Set
End Property End Property

4
Compras/RepCompras.aspx
View File

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

88
Compras/RepCompras.aspx.vb
View File

@@ -63,65 +63,13 @@ Partial Class Compras_RepCompras
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3") DdlGrupo.SelectedValueExist("3")
End Sub 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() 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 'CargaProveedores
DdlProveedores.setEsWebService(True) DdlProveedores.setEsWebService(True)
DdlProveedores.Attributes.Add("data-metodo", "getproveedores") DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
@@ -144,38 +92,22 @@ Partial Class Compras_RepCompras
DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind() 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 'Carga Grupo
CargaGrupo() CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub End Sub
Private Sub ConfiguraEmpresa() Private Sub ConfiguraEmpresa()
ChkIVA.Checked = True ChkIVA.Checked = True
If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
End Sub 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 #End Region
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged 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 If Not IsPostBack Then
CargaCombos() CargaCombos()
'DdlPS.ddl.Visible = False '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 If
End Sub End Sub
@@ -110,19 +100,7 @@ Partial Class Compras_RepComprasAF
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
If DdlProyecto.SelectedValue = "-1" Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
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"))
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()

43
Compras/RepComprasAFDetalle.aspx.vb
View File

@@ -149,21 +149,6 @@ Partial Class Compras_RepComprasAFDetalle
Dim asd As Integer = 1 Dim asd As Integer = 1
End Try 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 If UsuarioActual.CveEmpresa = 72 Then
GvDatos.FBColumn("NoSerie").Visible = True GvDatos.FBColumn("NoSerie").Visible = True
End If End If
@@ -175,6 +160,8 @@ Partial Class Compras_RepComprasAFDetalle
Private Sub CargaCombos() Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind() DdlProveedores.DataBind()
@@ -182,13 +169,9 @@ Partial Class Compras_RepComprasAFDetalle
DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3")) DdlProveedores.Items.Add(New ListItem("Consumo Interno", "-3"))
End If End If
DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind() DdlMonedas.DataBind()
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo") DdlTipoActivoFijo.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa).FiltraParametros("", "TipoActivoFijo")
DdlTipoActivoFijo.DataBind() DdlTipoActivoFijo.DataBind()
@@ -206,14 +189,12 @@ Partial Class Compras_RepComprasAFDetalle
DdlClasificacion2.DataSource = Nothing DdlClasificacion2.DataSource = Nothing
End If End If
ObjClasificacion.Dispose() ObjClasificacion.Dispose()
DdlClasificacion2.DataBind() DdlClasificacion2.DataBind()
DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1")) DdlClasificacion2.Items.Insert(0, New ListItem("Todas", "-1"))
DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2")) DdlClasificacion2.Items.Insert(1, New ListItem("Sin Clasificación", "-2"))
DdlClasificacion2.SelectedValueExist(-1) DdlClasificacion2.SelectedValueExist(-1)
DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa) DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
DdlActivoFijo.DataBind() DdlActivoFijo.DataBind()
DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) 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")) DdlPS.ddl.Items.Add(New ListItem("*** Actualizar listado de Productos o Servicios ***", "-2"))
End If End If
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
End Sub End Sub
Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged Private Sub DdlTipoActivoFijo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlTipoActivoFijo.SelectedIndexChanged
DdlSubTipoActivoFijo.Items.Clear() 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.DataBind()
DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSubTipoActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubTipoActivoFijo.SelectedIndex = 0 DdlSubTipoActivoFijo.SelectedIndex = 0
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
If DdlProyecto.SelectedValue = "-1" Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
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"))
End Sub End Sub
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()

4
Compras/RepComprasDetalle.aspx
View File

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

72
Compras/RepComprasDetalle.aspx.vb
View File

@@ -134,7 +134,6 @@ Partial Class Compras_RepComprasDetalle
End If End If
DdlProyecto.SelectedValueExist(CveProyecto) DdlProyecto.SelectedValueExist(CveProyecto)
If DivProyecto.Visible Then CargaSubProyecto()
'CARGA LISTBOXs 'CARGA LISTBOXs
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
@@ -177,62 +176,11 @@ Partial Class Compras_RepComprasDetalle
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("3") DdlGrupo.SelectedValueExist("3")
End Sub 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() Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'Carga Tipo de Gasto 'Carga Tipo de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind() DdlTipoGasto.DataBind()
@@ -252,23 +200,11 @@ Partial Class Compras_RepComprasDetalle
DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DDlUsuarioCaptura.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
DDlUsuarioCaptura.DataBind() DDlUsuarioCaptura.DataBind()
'CargaProyecto
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Carga Grupos 'Carga Grupos
CargaGrupo() CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub 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() Private Sub CargaDatos()
Dim ObjCompras As New ClsCompras() Dim ObjCompras As New ClsCompras()
@@ -321,7 +257,7 @@ Partial Class Compras_RepComprasDetalle
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged 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> <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div> </div>
<div class="col-md-2" runat="server" id="DivProyecto"> <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:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label> <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"> <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<div class="col-md-1">Fecha I. Captura</div> <div class="col-md-1">Fecha I. Captura</div>
<div class="col-md-1"> <div class="col-md-1">

69
Compras/RepComprasPeriodo.aspx.vb
View File

@@ -48,60 +48,11 @@ Partial Class Compras_RepComprasPeriodo
DdlGrupo.SelectedValueExist("3") DdlGrupo.SelectedValueExist("3")
End Sub 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() Private Sub CargaCombos()
'Carga Tipo Centro de Costo
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'Carga Proveedores 'Carga Proveedores
DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedores.DataBind() DdlProveedores.DataBind()
@@ -122,15 +73,9 @@ Partial Class Compras_RepComprasPeriodo
DdlMonedas.DataSource = GlobalDTMonedas() DdlMonedas.DataSource = GlobalDTMonedas()
DdlMonedas.DataBind() 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 'Carga Grupo
CargaGrupo() CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
End Sub End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
@@ -167,18 +112,12 @@ Partial Class Compras_RepComprasPeriodo
End Sub 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 #End Region
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Private Sub RblTipoCambio_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RblTipoCambio.SelectedIndexChanged 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>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row"> <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"> <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 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> </asp:DropDownList>
</div> </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"> <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 ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList> </asp:DropDownList>

58
Compras/RepPagado.aspx.cs
View File

@@ -36,6 +36,8 @@ public partial class Compras_RepPagado : ClsPaginas
private void InicializaValores() private void InicializaValores()
{ {
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
//Carga Moneda //Carga Moneda
DdlMoneda.DataSource = GlobalDTMonedas; DdlMoneda.DataSource = GlobalDTMonedas;
DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1")); 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}"; TxtFechaICompra.Text = MinFecha.ToShortDateString(); //$"01/01/{DateTime.Now.Year}";
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString(); 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() private void CargaCuentasBancarias()
@@ -153,7 +101,7 @@ public partial class Compras_RepPagado : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaSubProyectos(); CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
} }
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e) protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

4
Compras/RepPagadoDetalle.aspx
View File

@@ -85,12 +85,12 @@
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row"> <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"> <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 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> </asp:DropDownList>
</div> </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"> <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 ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList> </asp:DropDownList>

65
Compras/RepPagadoDetalle.aspx.cs
View File

@@ -41,6 +41,8 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
private void InicializaValores() private void InicializaValores()
{ {
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
//Carga Moneda //Carga Moneda
DdlMoneda.DataSource = GlobalDTMonedas; DdlMoneda.DataSource = GlobalDTMonedas;
DdlMoneda.Items.Insert(0, new ListItem("Todos", "-1")); 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}"; txtFechaI.Text = $"01/{DateTime.Now.Month}/{DateTime.Now.Year}";
txtFechaF.Text = DateTime.Now.ToShortDateString(); 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(); txtFechaI.Text = Request["FechaI"] == null ? "" : Request["FechaI"].ToString();
txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString(); txtFechaF.Text = Request["FechaF"] == null ? "" : Request["FechaF"].ToString();
TxtFechaICompra.Text = Request["FechaICompra"] == null ? "" : Request["FechaICompra"].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()); DdlProyecto.SelectedValueExist(Request["CveProyecto"] == null ? "-1" : Request["CveProyecto"].ToString());
DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString()); DdlSubProyecto.SelectedValueExist(Request["CveSubProyecto"] == null ? "-1" : Request["CveSubProyecto"].ToString());
if (Request["CveProveedor"] != null && Request["CveProveedor"].ToString().ToEntero() > 0) if (Request["CveProveedor"] != null && Request["CveProveedor"].ToString().ToEntero() > 0)
{ {
DataRow DrowProveedor; DataRow DrowProveedor;
int CveProveedor = Request["CveProveedor"].ToString().ToEntero(); int CveProveedor = Request["CveProveedor"].ToString().ToEntero();
DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0]; DrowProveedor = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor).Rows[0];
DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString(); DdlProveedores.txtText.Value = DrowProveedor["RazonSocial"].ToString();
DdlProveedores.txtValue.Value = CveProveedor.ToString(); DdlProveedores.txtValue.Value = CveProveedor.ToString();
} }
DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString()); DdlUsuario.SelectedValueExist(Request["CveUsuario"] == null ? "-1" : Request["CveUsuario"].ToString());
DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString()); DdlResponsable.SelectedValueExist(Request["CveResponsable"] == null ? "-1" : Request["CveResponsable"].ToString());
DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString()); DdlBanco.SelectedValueExist(Request["CveBanco"] == null ? "-1" : Request["CveBanco"].ToString());
@@ -138,51 +124,6 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
CargaDatos(); 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() private void CargaCuentasBancarias()
{ {
DdlCuentaBancaria.Items.Clear(); DdlCuentaBancaria.Items.Clear();
@@ -211,7 +152,7 @@ public partial class Compras_RepPágadoDetalle : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaSubProyectos(); CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
} }
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e) protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

4
Compras/RepPagadoPeriodo.aspx
View File

@@ -104,12 +104,12 @@
</div> </div>
<div class="portlet-body" style="display: none;"> <div class="portlet-body" style="display: none;">
<div class="row"> <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"> <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 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> </asp:DropDownList>
</div> </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"> <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 ID="DdlSubProyecto" runat="server" Width="100%" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="form-control input-sm select2me">
</asp:DropDownList> </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}"; TxtFechaICompra.Text = MinFecha.ToShortDateString(); //'$"01/01/{DateTime.Now.Year}";
TxtFechaFCompra.Text = DateTime.Now.ToShortDateString(); TxtFechaFCompra.Text = DateTime.Now.ToShortDateString();
//Carga Proyectos CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
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() private void CargaCuentasBancarias()
{ {
DdlCuentaBancaria.Items.Clear(); DdlCuentaBancaria.Items.Clear();
@@ -352,7 +299,7 @@ public partial class Compras_RepPagadoPeriodo : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaSubProyectos(); CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
} }
protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e) protected void DdlBanco_SelectedIndexChanged(object sender, EventArgs e)

12
Compras/RepProductosServicios.aspx
View File

@@ -177,17 +177,13 @@
</div> </div>
</div> </div>
<div class="row"> <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"> <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:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </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"> <div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"> <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</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> <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> </div>

71
Compras/RepProductosServicios.aspx.vb
View File

@@ -62,11 +62,7 @@ Partial Class Compras_RepProductosServicios
Private Sub SetValues() Private Sub SetValues()
'Cargo Proyectos 'Carga Tipos de Gasto
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'CAarga Tipos de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind() DdlTipoGasto.DataBind()
@@ -118,7 +114,7 @@ Partial Class Compras_RepProductosServicios
CargaGrupo() CargaGrupo()
'Carga Tipo Centro de Costo 'Carga Tipo Centro de Costo
CargaTipoCentroCosto() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then If UsuarioActual.Empresa.Funcionalidad(590).ToString.ToEntero = 1 Then
lblCultivo.Visible = True lblCultivo.Visible = True
@@ -159,7 +155,6 @@ Partial Class Compras_RepProductosServicios
RowActivoFijo.Visible = True RowActivoFijo.Visible = True
'Carga Fechas 'Carga Fechas
txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
@@ -186,63 +181,9 @@ Partial Class Compras_RepProductosServicios
DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15")) DdlGrupo.Items.Insert(9, New ListItem("Cultivo", "15"))
End If End If
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub 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() Private Sub CargaDatos()
Dim ObjCompras As New ClsCompras() Dim ObjCompras As New ClsCompras()
@@ -389,12 +330,7 @@ Partial Class Compras_RepProductosServicios
#Region " SELECTED INDEX CHANGED" #Region " SELECTED INDEX CHANGED"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
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"))
End Sub End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged 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.DataSource = Nothing
DdlCultivo.DataBind() DdlCultivo.DataBind()
End If End If
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Protected Sub DdlFamilia_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlFamilia.SelectedIndexChanged 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> </div>
<div class="row"> <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"> <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:DropDownList ID="DdlProyecto" Width="100%" CssClass="select2me" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </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"> <div class="col-md-2">
<%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"> <%-- <asp:DropDownList ID="DdlSubProyecto" Width="100%" CssClass="select2me" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto"></asp:DropDownList>--%>
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</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> <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> </div>
<label class="col-md-1 truncate">Estatus</label> <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
End If End If
DdlProyecto.SelectedValueExist(Proyecto) DdlProyecto.SelectedValueExist(Proyecto)
If DivProyecto.Visible Then CargaSubProyecto()
'CARGA LISTBOXs 'CARGA LISTBOXs
DdlSubProyecto.SelectedValuesIfExistM(SubProyecto) DdlSubProyecto.SelectedValuesIfExistM(SubProyecto)
DdlTipoGasto.SelectedValuesIfExistM(TipoGasto) DdlTipoGasto.SelectedValuesIfExistM(TipoGasto)
@@ -181,12 +180,10 @@ Partial Class Compras_RepProductosServiciosDetalle
Private Sub SetValues() Private Sub SetValues()
'Cargo Proyectos 'Carga Tipo Centro de Costo
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
DdlProyecto.DataBind()
'Carga Tipos de Gasto
'CAarga Tipos de Gasto
DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa) DdlTipoGasto.DataSource = GlobalDTTiposGastos(UsuarioActual.CveEmpresa)
DdlTipoGasto.DataBind() DdlTipoGasto.DataBind()
@@ -237,10 +234,6 @@ Partial Class Compras_RepProductosServiciosDetalle
'Carga Grupos 'Carga Grupos
CargaGrupo() CargaGrupo()
'Carga Tipo Centro de Costo
CargaTipoCentroCosto()
'CARGA COSTOS 'CARGA COSTOS
If UsuarioActual.CveEmpresa = 66 Then If UsuarioActual.CveEmpresa = 66 Then
@@ -269,7 +262,6 @@ Partial Class Compras_RepProductosServiciosDetalle
RowActivoFijo.Visible = True RowActivoFijo.Visible = True
'Carga Fechas 'Carga Fechas
txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString txtFechaI.Text = FirstDayOfMonth(Now.AddMonths(-5)).ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
@@ -298,103 +290,6 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlGrupo.DataBind() DdlGrupo.DataBind()
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub 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 Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
@@ -455,14 +350,6 @@ Partial Class Compras_RepProductosServiciosDetalle
Agrupador = DdlGrupo.SelectedItem.Text Agrupador = DdlGrupo.SelectedItem.Text
End Sub 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() Private Sub CargaCultivo()
DdlCultivo.Items.Clear() DdlCultivo.Items.Clear()
If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then If DdlSubProyecto.GetSelectedValuesM(True) <> "" Then
@@ -472,18 +359,16 @@ Partial Class Compras_RepProductosServiciosDetalle
DdlCultivo.DataSource = Nothing DdlCultivo.DataSource = Nothing
DdlCultivo.DataBind() DdlCultivo.DataBind()
End If End If
'DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
#End Region #End Region
#Region "SELECT INDEX CHANGED" #Region "SELECT INDEX CHANGED"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
CargaCultivo() CargaCultivo()
' DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged '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> <asp:Label ID="LblProyecto" runat="server">Proyecto:</asp:Label>
</div> </div>
<div class="col-md-2" runat="server" id="DivProyecto"> <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:DropDownList ID="DdlProyecto" CssClass="select2me" runat="server" OnSelectedIndexChanged="DdlProyecto_SelectedIndexChanged" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Proyecto" DataValueField="CveProyecto" Width="100%"></asp:DropDownList>
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label> <asp:Label runat="server" ID="LblSubProyecto" CssClass="col-md-1">SubProyecto:</asp:Label>
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"> <asp:DropDownList ID="DdlSubProyecto" CssClass="select2me" AppendDataBoundItems="true" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Width="100%"></asp:DropDownList>
<asp:ListItem Selected="true" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<div class="col-md-1">Fecha I. Captura</div> <div class="col-md-1">Fecha I. Captura</div>
<div class="col-md-1"> <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(4, new ListItem("Mes", "7"));
DdlGrupo.Items.Insert(5, new ListItem("Año/Mes", "8")); DdlGrupo.Items.Insert(5, new ListItem("Año/Mes", "8"));
DdlGrupo.Items.Insert(6, new ListItem("Fecha", "9")); 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(7, new ListItem("Proveedor", "10"));
DdlGrupo.Items.Insert(8, new ListItem("Usuario", "11")); 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() private void CargaCombos()
@@ -193,20 +136,8 @@ public partial class Compras_RepProductosServiciosPeriodo : ClsPaginas
//Carga SubFamilias //Carga SubFamilias
DdlSubFamilia.DataSource = get_GlobalDTSubFamilias(66); DdlSubFamilia.DataSource = get_GlobalDTSubFamilias(66);
DdlSubFamilia.DataBind(); DdlSubFamilia.DataBind();
//COSTOS AF
DdlGrupo.Items.Insert(NumItems + 1, new ListItem("Costos por Activo Fijo", "14"));
}
RowActivoFijo.Visible = true;
//COSTOS AF //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")); 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(), CveCategoria:DdlCategoria.SelectedValue.ToEntero(),CveFamilia: DdlFamilia.SelectedValue.ToEntero(),CveSubFamilia: DdlSubFamilia.SelectedValue.ToEntero(),
CveTipoAF:DdlTipoAF.SelectedValue.ToEntero(), CveSubTipoAF:DdlSubTipoAF.SelectedValue.ToEntero(), CveActivoFijo: DdlAF.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; GvDatos.DataSource = ObjCompras.DtResultados;
DtDatos= ObjCompras.DtResultados; DtDatos= ObjCompras.DtResultados;
} }
ObjCompras.Dispose(); ObjCompras.Dispose();
GvDatos.DataBind(); GvDatos.DataBind();
UPDatos.Update(); UPDatos.Update();
}
#endregion #endregion
#region SELECTED INDEX CHANGE #region SELECTED INDEX CHANGE

59
Contabilidad/AuxiliarPrePolizas.aspx.cs
View File

@@ -28,69 +28,14 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas
private void InicializaValores() private void InicializaValores()
{ {
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, null, LblSubProyecto);
txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString(); txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString();
txtFechaF.Text = DateTime.Now.ToShortDateString(); txtFechaF.Text = DateTime.Now.ToShortDateString();
DdlPlantillaPoliza.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa); DdlPlantillaPoliza.DataSource = get_GlobalDTContaPlantillasPolizas(UsuarioActual.CveEmpresa);
DdlPlantillaPoliza.Items.Insert(0, new ListItem("Seleccione", "-1")); DdlPlantillaPoliza.Items.Insert(0, new ListItem("Seleccione", "-1"));
DdlPlantillaPoliza.DataBind(); DdlPlantillaPoliza.DataBind();
CargaConceptosContables(); CargaConceptosContables();
DdlProyecto.DataSource = get_GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1);
DdlProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
DdlProyecto.DataBind();
CargaTipoCentroCosto();
if (DivProyecto.Visible)
{
CargaSubProyectos();
}
} }
private void CargaSubProyectos()
{
DdlSubProyecto.Items.Clear();
if (DdlProyecto.SelectedValue.ToEntero() > 0)
{
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1);
DdlSubProyecto.DataBind();
}
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
UpSubProyecto.Update();
}
private void CargaTipoCentroCosto()
{
if (UsuarioActual.Empresa.Tipo_CentroCosto == 1)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.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();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 2)
{
DdlSubProyecto.Items.Clear();
DivProyecto.Visible = false;
LblProyecto.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();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.Text = "Sucursal:";
LblSubProyecto.Text = "Proyecto:";
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.Text = "Proyecto:";
LblSubProyecto.Text = "Sucursal:";
}
}
protected void LnkExcel_Click(object sender, EventArgs e) protected void LnkExcel_Click(object sender, EventArgs e)
{ {
GenerarPDF("EXCEL"); GenerarPDF("EXCEL");
@@ -158,7 +103,7 @@ public partial class Contabilidad_AuxiliarPrePolizas : ClsPaginas
protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e) protected void DdlProyecto_SelectedIndexChanged(object sender, EventArgs e)
{ {
CargaSubProyectos(); CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue);
} }
protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e) protected void GvDatos_RowDataBound(object sender, GridViewRowEventArgs e)

48
Inventarios/Remanufactura.aspx.vb
View File

@@ -87,6 +87,8 @@ Partial Class Inventarios_Remanufactura
Public Sub InicializaValores() Public Sub InicializaValores()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
TxtFecha.Text = Now.ToShortDateString TxtFecha.Text = Now.ToShortDateString
'Carga Clientes 'Carga Clientes
@@ -106,15 +108,7 @@ Partial Class Inventarios_Remanufactura
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlProyecto.DataBind()
CargaFolio() CargaFolio()
CargaTipoCentroCosto()
CreaDTVentas() CreaDTVentas()
End Sub End Sub
@@ -133,37 +127,6 @@ Partial Class Inventarios_Remanufactura
UpDatosRemanufactura.Update() UpDatosRemanufactura.Update()
End Sub End Sub
Private Sub CargaTipoCentroCosto()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.Text = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlSubProyecto.Items.Clear()
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.Text = "Sucursal:"
LblSubProyecto.Text = "Proyecto:"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.Text = "Proyecto:"
LblSubProyecto.Text = "Sucursal:"
End If
End Sub
#End Region #End Region
#Region "GUARDAR" #Region "GUARDAR"
@@ -976,12 +939,7 @@ Partial Class Inventarios_Remanufactura
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.Items.Clear() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
If DdlProyecto.SelectedValue.ToEntero > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlSubProyecto.DataBind()
End Sub End Sub
#End Region #End Region

6
Inventarios/RepMovimientosSalida.aspx
View File

@@ -63,12 +63,10 @@
<asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator> <asp:RequiredFieldValidator ID="rfvFechaF" runat="server" ControlToValidate="txtFechaF" Display="None" ErrorMessage="El campo <b>''Fecha Final''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender> <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label> <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
<div runat="server" id="Div1" class="col-md-1"> <div runat="server" id="Div1" class="col-md-1">

4
Inventarios/RepReciclaje.aspx
View File

@@ -78,12 +78,12 @@
<div class="col-md-2"> <div class="col-md-2">
<asp:DropDownList ID="DdlAlmacen" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" AppendDataBoundItems="true"></asp:DropDownList> <asp:DropDownList ID="DdlAlmacen" runat="server" Class="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="Almacen" DataValueField="CveAlmacen" AppendDataBoundItems="true"></asp:DropDownList>
</div> </div>
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
</asp:DropDownList> </asp:DropDownList>

47
Inventarios/RepReciclaje.aspx.vb
View File

@@ -19,6 +19,9 @@ Partial Class Inventarios_RepReciclaje
End Sub End Sub
Public Sub InicializaValores() Public Sub InicializaValores()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
@@ -39,53 +42,11 @@ Partial Class Inventarios_RepReciclaje
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1")) DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
DdlAlmacen.DataBind() DdlAlmacen.DataBind()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlProyecto.DataBind()
CargaTipoCentroCosto()
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()
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()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlSubProyecto.Items.Clear()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
End If
End Sub End Sub
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
DdlSubProyecto.Items.Clear() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
If DdlProyecto.SelectedValue.ToEntero > 0 Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
End Sub End Sub
#End Region #End Region

6
OC/CatEstatus.aspx
View File

@@ -86,12 +86,12 @@
<div class="row"> <div class="row">
<label class="col-md-1">Proyecto: </label> <label class="col-md-1">Proyecto: </label>
<div class="col-md-2" id="DivProyecto" runat="server"> <div class="col-md-2" id="DivProyecto" runat="server">
<asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
</div> </div>
<label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label> <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
<div class="col-md-2" id="DivSubProyecto" runat="server"> <div class="col-md-2" id="DivSubProyecto" runat="server">
<asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

70
OC/CatEstatus.aspx.vb
View File

@@ -68,7 +68,7 @@ Partial Class OC_CatEstatus
ViewState("TipoSeleccionado") = DdlTipo.SelectedValue ViewState("TipoSeleccionado") = DdlTipo.SelectedValue
CargaDatos() CargaDatos()
CargaEstatus() CargaEstatus()
CargaProyectos() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargaUsuarios() CargaUsuarios()
'SOLO MUESTRA SUBPROYECTO 'SOLO MUESTRA SUBPROYECTO
@@ -76,23 +76,17 @@ Partial Class OC_CatEstatus
'TdProyecto.Visible = False 'TdProyecto.Visible = False
'TdSubProyectoTitulo.Visible = False 'TdSubProyectoTitulo.Visible = False
DivProyecto.Visible = False 'DivProyecto.Visible = False
LblSubproyecto.Visible = False 'LblSubProyecto.Visible = False
CboSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa).FiltraParametros("", "", {"CveSubProyecto", "SubProyecto"})
CboSubProyecto.DataBind()
CboSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
CboSubProyecto_SelectedIndexChanged(CboSubProyecto, EventArgs.Empty)
DdlSubProyecto_SelectedIndexChanged(DdlSubProyecto, EventArgs.Empty)
chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();") chkMostrarLimites.Attributes.Add("onchange", "javascript:chkMostrarLimitesCambio();")
MaintainScrollPositionOnPostBack = True MaintainScrollPositionOnPostBack = True
End If End If
End Sub End Sub
#Region "C A T A L O G O " #Region "C A T A L O G O "
Public Sub CargaDatos() Public Sub CargaDatos()
@@ -203,8 +197,8 @@ Partial Class OC_CatEstatus
'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError) 'Alert("Ocurrió un error al guardar/editar estatus de órden de compra", TipoMensaje.MsgError)
End If End If
End Sub End Sub
#Region "O R D E N A M I E N T O" #Region "O R D E N A M I E N T O"
Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs) Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim Orden As String = "" Dim Orden As String = ""
@@ -240,9 +234,9 @@ Partial Class OC_CatEstatus
GvDatos.DataBind() GvDatos.DataBind()
UpCatalogo.Update() UpCatalogo.Update()
End Sub End Sub
#End Region #End Region
#Region "G V D A T O S" #Region "G V D A T O S"
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.RowType = DataControlRowType.DataRow Then
@@ -264,10 +258,10 @@ Partial Class OC_CatEstatus
Alert("Ocurrió un error al eliminar el estatus. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError) Alert("Ocurrió un error al eliminar el estatus. Por favor verifique y vuelva a intentar.", TipoMensaje.MsgError)
End If End If
End Sub End Sub
#End Region #End Region
#End Region #End Region
#Region "C O N F I G U R A C I O N " #Region "C O N F I G U R A C I O N "
Public Sub CargaUsuarios() Public Sub CargaUsuarios()
ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) ddlSuperior.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa)
@@ -280,7 +274,7 @@ Partial Class OC_CatEstatus
Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1) Dim CveSuperior As Integer = If(tblSuperior.Visible = True, ddlSuperior.SelectedValue.ToEntero, -1)
If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then If hdnCveEstatusUsuarios.Value.ToEntero = -1 Then
If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, CboSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then If objOC.AddEstatusUsuarios(hdnCveEstatus.Value.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, hdnCveUsuario.Value.ToEntero, True, CveSuperior, LimiteSuperior, LimiteInferior, UsuarioActual.CveUsuario) Then
RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value)) RegistraScript(String.Format("{0}.style.background-color='yellow'", IDCellYellow.Value))
End If End If
@@ -312,8 +306,6 @@ Partial Class OC_CatEstatus
Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i)) Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i)) Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -396,7 +388,6 @@ Partial Class OC_CatEstatus
Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i)) Dim lblSuperior As Label = e.Row.FCLabel(String.Format("lblSuperior{0}", i))
Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i)) Dim lblLimites As Label = e.Row.FCLabel(String.Format("lblLimites{0}", i))
ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString ibOpciones.CommandArgument = GlobalDTOCEstatus(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows(0)("CveEstatusSiguiente").ToString
Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows Dim RowEU As DataRowCollection = tmpT.FiltraParametros(String.Format("CveEstatus = {0}", CveEstatus)).Rows
@@ -489,19 +480,9 @@ Partial Class OC_CatEstatus
UPSuperior.Update() UPSuperior.Update()
UPPEmp.Update() UPPEmp.Update()
RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();") RegistraScript("$('#DivSuperior').show(1000); PosicionaObjeto('" + imgBtn.ClientID + "','DivSuperior'); chkMostrarLimitesCambio();")
End Sub End Sub
#Region "E S T A T U S U S U A R I O S" #Region "E S T A T U S U S U A R I O S"
Private Sub CargaProyectos()
CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
CboProyecto.DataBind()
CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
End Sub
Private Sub CargaSubProyectos()
CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
CboSubProyecto.DataBind()
CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
End Sub
Private Sub CreaGrid(Tipo As String) Private Sub CreaGrid(Tipo As String)
Dim i As Integer = 1 Dim i As Integer = 1
@@ -526,10 +507,10 @@ Partial Class OC_CatEstatus
End While End While
End Sub End Sub
Protected Sub CargaGridEstatusUsuarios(Tipo As String) Protected Sub CargaGridEstatusUsuarios(Tipo As String)
If CboSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or CboSubProyecto.SelectedValue.ToEntero = -2 Then If DdlSubProyecto.SelectedValue.ToEntero > 0 And (Tipo = "OC" Or Tipo = "Req") Or DdlSubProyecto.SelectedValue.ToEntero = -2 Then
'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear() 'If Tipo = "OC" Then TmpDTOC.Rows.Clear() Else TmpDTReq.Rows.Clear()
Dim CveSubProyecto = If(CboSubProyecto.SelectedValue.ToEntero = -2, -1, CboSubProyecto.SelectedValue.ToEntero) Dim CveSubProyecto = If(DdlSubProyecto.SelectedValue.ToEntero = -2, -1, DdlSubProyecto.SelectedValue.ToEntero)
Dim objEstatusOC As New ClsOC Dim objEstatusOC As New ClsOC
If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then If objEstatusOC.GetEstatusUsuarios(-1, -1, CveSubProyecto, -1, UsuarioActual.CveEmpresa, -1, 1) Then
@@ -557,17 +538,10 @@ Partial Class OC_CatEstatus
GvEstatusUsuariosREQ.DataBind() GvEstatusUsuariosREQ.DataBind()
End If End If
End Sub End Sub
Protected Sub CboProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
If CboProyecto.SelectedValue.ToEntero > 0 Then CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
GvEstatusUsuariosOC.Enabled = False
GvEstatusUsuariosREQ.Enabled = False
btnGuardarEstatusUsuariosOC.Visible = False
btnGuardarEstatusUsuariosREQ.Visible = False
CargaSubProyectos()
End If
End Sub End Sub
Protected Sub CboSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
GvEstatusUsuariosOC.Enabled = True GvEstatusUsuariosOC.Enabled = True
GvEstatusUsuariosREQ.Enabled = True GvEstatusUsuariosREQ.Enabled = True
btnGuardarEstatusUsuariosOC.Visible = True btnGuardarEstatusUsuariosOC.Visible = True
@@ -580,7 +554,7 @@ Partial Class OC_CatEstatus
Dim objEstatusOC As New ClsOC Dim objEstatusOC As New ClsOC
objEstatusOC.IniciaTransacSQL() objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False Dim HuboErrores As Boolean = False
Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows For Each Row As GridViewRow In GvEstatusUsuariosREQ.Rows
@@ -646,7 +620,7 @@ Partial Class OC_CatEstatus
Dim objEstatusOC As New ClsOC Dim objEstatusOC As New ClsOC
objEstatusOC.IniciaTransacSQL() objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False Dim HuboErrores As Boolean = False
Dim CveSubProyecto = CboSubProyecto.SelectedValue.ToEntero Dim CveSubProyecto = DdlSubProyecto.SelectedValue.ToEntero
For Each Row As GridViewRow In GvEstatusUsuariosOC.Rows For Each Row As GridViewRow In GvEstatusUsuariosOC.Rows

6
OS/CatEstatusOrdenServicio.aspx
View File

@@ -136,11 +136,11 @@
<div class="row"> <div class="row">
<label class="col-md-1">Proyecto: </label> <label class="col-md-1">Proyecto: </label>
<div class="col-md-2" id="DivProyecto" runat="server"> <div class="col-md-2" id="DivProyecto" runat="server">
<asp:DropDownList ID="CboProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlProyecto" runat="server" DataTextField="Proyecto" DataValueField="CveProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
</div> </div>
<label class="col-md-1" id="LblSubproyecto" runat="server">SubProyecto: </label> <asp:Label ID="LblSubProyecto" class="col-md-1" runat="server">SubProyecto: </asp:Label>
<div class="col-md-2" id="DivSubProyecto" runat="server"> <div class="col-md-2" id="DivSubProyecto" runat="server">
<asp:DropDownList ID="CboSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlSubProyecto" runat="server" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me" Width="250px" AutoPostBack="true"></asp:DropDownList>
</div> </div>
</div> </div>
</div> </div>

35
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -63,19 +63,13 @@ Partial Class OS_CatEstatusOrdenServicio
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then If Not Page.IsPostBack Then
'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
'CargaDatos()
'AsociarEstatusUsuarios()
'CargarUsuarioConEstatus()
'CargarSubProyectos()
CargarProyectos()
CargarTodosLosDatos() CargarTodosLosDatos()
CveEstatuOS = -1 CveEstatuOS = -1
End If End If
End Sub End Sub
Private Sub CargarTodosLosDatos() Private Sub CargarTodosLosDatos()
'CargarSubProyectos()
CargaDatos() CargaDatos()
AsociarEstatusUsuarios() AsociarEstatusUsuarios()
CargarUsuarioConEstatus() CargarUsuarioConEstatus()
@@ -85,18 +79,14 @@ Partial Class OS_CatEstatusOrdenServicio
DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
Using ObjEstatusOrdenServicios As New ClsOS Using ObjEstatusOrdenServicios As New ClsOS
If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa)) DtEstatusOS = ObjEstatusOrdenServicios.DtResultados.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
GvDatos.DataSource = DtEstatusOS GvDatos.DataSource = DtEstatusOS
GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados GlobalDTEstatusOrdenServicios(UsuarioActual.CveEmpresa) = ObjEstatusOrdenServicios.DtResultados
End If End If
If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=CboSubProyecto.SelectedValue.ToEntero) Then If ObjEstatusOrdenServicios.GetEstatusUsuarios(-1, -1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero) Then
DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados DTEstatusUsuarios = ObjEstatusOrdenServicios.DtResultados
End If End If
End Using End Using
GvDatos.DataBind() GvDatos.DataBind()
OrdenaDatos() OrdenaDatos()
@@ -252,11 +242,11 @@ Partial Class OS_CatEstatusOrdenServicio
End Sub End Sub
Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click Private Sub GuardarDatosGvUsuariosEstatus(sender As Object, e As EventArgs) Handles BtnGuardarUsuariosEstatus.Click
If CboSubProyecto.SelectedValue.ToEntero > 0 Then If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
Dim objEstatusOC As New ClsOS Dim objEstatusOC As New ClsOS
objEstatusOC.IniciaTransacSQL() objEstatusOC.IniciaTransacSQL()
Dim HuboErrores As Boolean = False Dim HuboErrores As Boolean = False
Dim CveSubProyecto As Integer = CboSubProyecto.SelectedValue.ToEntero Dim CveSubProyecto As Integer = DdlSubProyecto.SelectedValue.ToEntero
For Each Row As GridViewRow In GvUsuariosEstatus.Rows For Each Row As GridViewRow In GvUsuariosEstatus.Rows
Dim controles As Integer = Row.Controls.Count Dim controles As Integer = Row.Controls.Count
@@ -301,26 +291,15 @@ Partial Class OS_CatEstatusOrdenServicio
Next Next
End Sub End Sub
Private Sub CargarProyectos() Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CboProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1).FiltraParametros("", "", {"CveProyecto", "Proyecto"}) CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
CboProyecto.DataBind()
CboProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
End Sub
Private Sub CargaSubProyectos()
CboSubProyecto.DataSource = GlobalDTSubProyectos(CboProyecto.SelectedValue.ToEntero)
CboSubProyecto.DataBind()
CboSubProyecto.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-2"))
End Sub
Private Sub Proyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboProyecto.SelectedIndexChanged
CargaSubProyectos()
'CargaDatos() 'CargaDatos()
EstatusUsuariosGridActualizar() EstatusUsuariosGridActualizar()
CargarTodosLosDatos() CargarTodosLosDatos()
UpGvUsuariosEstatus.Update() UpGvUsuariosEstatus.Update()
End Sub End Sub
Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CboSubProyecto.SelectedIndexChanged Private Sub SubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
EstatusUsuariosGridActualizar() EstatusUsuariosGridActualizar()
CargarTodosLosDatos() CargarTodosLosDatos()
End Sub End Sub

30
PortalCliente/PortalCliente.aspx.vb
View File

@@ -2623,36 +2623,6 @@ Partial Class Ventas_PortalCliente
End If End If
End Sub End Sub
'Private Sub CargaTipoCentroCosto()
' If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
' divProyecto.Visible = False
' LblSubProyecto.InnerText = "Sucursal"
' DdlSubProyecto.Items.Clear()
' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' DdlSubProyecto.DataBind()
' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
' divProyecto.Visible = False
' LblSubProyecto.InnerText = "Proyecto"
' DdlSubProyecto.Items.Clear()
' DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
' DdlSubProyecto.DataBind()
' DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
' ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
' LblProyecto.InnerText = "Sucursal"
' LblSubProyecto.InnerText = "Proyecto"
' ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
' LblProyecto.InnerText = "Proyecto"
' LblSubProyecto.InnerText = "Sucursal"
' End If
'End Sub
Private Sub CreaDTVentas() Private Sub CreaDTVentas()
TmpDT = New DataTable TmpDT = New DataTable
TmpDT.Columns.Add("CveVenta", GetType(Integer)) TmpDT.Columns.Add("CveVenta", GetType(Integer))

2
Ventas/AuxiliarClienteVentas.aspx
View File

@@ -119,7 +119,7 @@
<asp:ListBox ID="DdlVendedor" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox> <asp:ListBox ID="DdlVendedor" AppendDataBoundItems="true" DataTextField="Vendedor" DataValueField="CveVendedor" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">Sucursal:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">Sucursal:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox> <asp:ListBox ID="DdlSubProyecto" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>

7
Ventas/AuxiliarClienteVentas.aspx.vb
View File

@@ -39,8 +39,6 @@ Partial Class Ventas_AuxiliarClienteVentas
End If End If
End Sub End Sub
Private Sub CargaFiltros() Private Sub CargaFiltros()
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
@@ -60,10 +58,7 @@ Partial Class Ventas_AuxiliarClienteVentas
DdlVendedor.DataBind() DdlVendedor.DataBind()
DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1")) DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.Items.Clear() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, Nothing)
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa) 'GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy") txtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
txtFechaF.Text = Now.ToString("dd/MM/yyyy") txtFechaF.Text = Now.ToString("dd/MM/yyyy")

4
Ventas/Clientes.aspx
View File

@@ -4276,13 +4276,13 @@
<asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todos" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label runat="server" id="LblProyecto" class="col-md-1 truncate" style="width: 120px">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate" style="width: 120px">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2" style="width: 120px"> <div runat="server" id="DivProyecto" class="col-md-2" style="width: 120px">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList> </asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate" style="width: 120px; text-align: right">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2" style="width: 120px"> <div runat="server" id="DivSubProyecto" class="col-md-2" style="width: 120px">
<asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyectoFiltro" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem> <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>

94
Ventas/Clientes.aspx.vb
View File

@@ -1154,14 +1154,6 @@ Partial Class Clientes
End Sub End Sub
Private Sub CargaSubProyectosSuscursales()
CargarCentrosDeCosto(Nothing, DdlSubProyectoClienteSucursal, Nothing, LblSubProyectoClienteSucursal)
End Sub
Private Sub CargaCuentasEquipos() Private Sub CargaCuentasEquipos()
@@ -1329,15 +1321,6 @@ Partial Class Clientes
CargaCombosComercioExterior() CargaCombosComercioExterior()
End Sub
Private Sub CargaSubProyectoss()
'DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
DdlSubProyecto.DataBind()
End Sub End Sub
Private Sub CargaMetodosPago() Private Sub CargaMetodosPago()
'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ") 'DdlMetodoPago.DataSource = GlobalDTMetodosPago.FiltraParametros("Estatus = 'Activo'", "ClaveSAT") '.FiltraParametros("CveMetodoPago > 0 ")
@@ -8443,72 +8426,15 @@ Partial Class Clientes
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaFiltros()
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
DdlSubProyectoFiltro.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Sucursal:"
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoFiltro.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Sucursal", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyectoFiltro.Items.Clear()
DivProyecto.Visible = False
LblProyecto.Visible = False
LblSubProyecto.InnerText = "Proyecto:"
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyectoFiltro.DataBind()
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
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.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
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("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub CargaFiltros()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Cargo Clasificaciones 'Cargo Clasificaciones
DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacionFilto.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacionFilto.DataBind() DdlClasificacionFilto.DataBind()
'CargaSubProyectos 'Cargo Sucursal
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoFiltro.DataBind()
DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSucursalVendedor.DataBind() DdlSucursalVendedor.DataBind()
DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1")) DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -8536,21 +8462,11 @@ Partial Class Clientes
'End If 'End If
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto()
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub
Private Sub CargaSubProyecto()
DdlSubProyectoFiltro.Items.Clear()
If DdlProyecto.SelectedValue <> "-1" Then
DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoFiltro.DataBind()
End If
DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)

12
Ventas/RepAuxiliarFacturas.aspx
View File

@@ -82,17 +82,13 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label class="col-md-1 ">Cliente:</label> <label class="col-md-1 ">Cliente:</label>
<div class="col-md-2"> <div class="col-md-2">

49
Ventas/RepAuxiliarFacturas.aspx.vb
View File

@@ -75,12 +75,7 @@ Partial Class Ventas_RepAuxiliarFacturas
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
If DdlProyecto.SelectedValue <> "-1" Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged Protected Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
@@ -93,56 +88,16 @@ Partial Class Ventas_RepAuxiliarFacturas
DdlPS.SelectedText = "Todos" DdlPS.SelectedText = "Todos"
DdlPS.SelectedValue = "-1" DdlPS.SelectedValue = "-1"
End If End If
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()
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()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
End If
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
'Cargo Clientes 'Cargo Clientes
'CargaClientes() 'CargaClientes()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Cargo Clasificaciones 'Cargo Clasificaciones
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
'Vendedor 'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind() DdlVendedor.DataBind()
@@ -172,7 +127,7 @@ Partial Class Ventas_RepAuxiliarFacturas
DdlEstatus.SelectedIndex = 1 DdlEstatus.SelectedIndex = 1
End If End If
CargaTipoCentroCosto() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
TipoCambio = 1 TipoCambio = 1
TCEspecifico = 0 TCEspecifico = 0

6
Ventas/RepPS.aspx
View File

@@ -86,11 +86,9 @@
</div> </div>
<div class="titlefiltros caption"> <div class="titlefiltros caption">
<div class="row"> <div class="row">
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<div class="col-md-1 truncate"> <div class="col-md-1 truncate">
Fecha Inicio: Fecha Inicio:

42
Ventas/RepPS.aspx.vb
View File

@@ -54,7 +54,7 @@ Partial Class Ventas_RepPS
End Sub End Sub
Private Sub CargaCombos() Private Sub CargaCombos()
CargaTipoCentroCosto() CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
DdlClasificacion.DataBind() DdlClasificacion.DataBind()
@@ -90,46 +90,6 @@ Partial Class Ventas_RepPS
'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1")) 'DdlMarcaPSDes.Items.Insert(0, New ListItem(" Todos ", "-1"))
End Sub End Sub
Private Sub CargaTipoCentroCosto()
Dim index As Integer = 17
If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
DdlSubProyecto.Items.Clear()
LblSubProyecto.InnerText = "Sucursal:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
DdlSubProyecto.Items.Clear()
LblSubProyecto.InnerText = "Proyecto:"
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
DdlSubProyecto.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 3 Then
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
If DdlGrupo.Items.Count < 17 Then
index = DdlGrupo.Items.Count
End If
DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblSubProyecto.InnerText = "Proyecto:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
If DdlGrupo.Items.Count < 17 Then
index = DdlGrupo.Items.Count
End If
DdlGrupo.Items.Insert(index, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblSubProyecto.InnerText = "Sucursal:"
End If
End Sub
Private Sub CargaDatos() Private Sub CargaDatos()
Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM) Dim Clasificacion As String = If(DdlClasificacion.GetSelectedValuesM = "", "-1", DdlClasificacion.GetSelectedValuesM)

12
Ventas/RepProductosServicios.aspx
View File

@@ -194,17 +194,13 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" > <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%;" ></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label class="col-md-1 ">Cliente:</label> <label class="col-md-1 ">Cliente:</label>
<div class="col-md-2"> <div class="col-md-2">

95
Ventas/RepProductosServicios.aspx.vb
View File

@@ -56,11 +56,11 @@ Partial Class Ventas_RepProductosServicios
End If End If
End Sub End Sub
#Region " CARGA DATOS INICIALES " #Region " CARGA DATOS INICIALES "
Private Sub CargaGrupo() Private Sub CargaGrupo()
DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3")) DdlGrupo.Items.Insert(0, New ListItem("Categoria", "3"))
DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4")) DdlGrupo.Items.Insert(1, New ListItem("Clasificación", "4"))
@@ -90,70 +90,7 @@ Partial Class Ventas_RepProductosServicios
End Sub 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(0, New ListItem("Sucursal", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
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(0, New ListItem("Proyecto", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
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.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub SetValues() Private Sub SetValues()
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Cargo Categorias 'Cargo Categorias
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind() DdlCategoria.DataBind()
@@ -183,14 +120,6 @@ Partial Class Ventas_RepProductosServicios
End If End If
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoEjecucion.DataBind()
'Vendedor 'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
DdlVendedor.DataBind() DdlVendedor.DataBind()
@@ -229,7 +158,8 @@ Partial Class Ventas_RepProductosServicios
DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
TipoCambio = 1 TipoCambio = 1
TCEspecifico = 0 TCEspecifico = 0
@@ -272,10 +202,10 @@ Partial Class Ventas_RepProductosServicios
GvDatos.Columns(5).Visible = False GvDatos.Columns(5).Visible = False
End If End If
End Sub End Sub
#End Region #End Region
#Region " CARGA DATOS " #Region " CARGA DATOS "
Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
CargaDatos() CargaDatos()
@@ -458,12 +388,7 @@ Partial Class Ventas_RepProductosServicios
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
DdlSubProyecto.Items.Clear() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
If DdlProyecto.SelectedValue <> "-1" Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub End Sub
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged 'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged

12
Ventas/RepProductosServiciosDetalle.aspx
View File

@@ -195,17 +195,13 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me" Style="width: 100%"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label class="col-md-1 ">Cliente:</label> <label class="col-md-1 ">Cliente:</label>
<div class="col-md-2"> <div class="col-md-2">

91
Ventas/RepProductosServiciosDetalle.aspx.vb
View File

@@ -113,81 +113,10 @@ Partial Class Ventas_RepProductosServiciosDetalle
DdlGrupo.SelectedValueExist("8") DdlGrupo.SelectedValueExist("8")
End Sub 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(0, New ListItem("Sucursal", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Sucursal Ejec.", "19"))
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(0, New ListItem("Proyecto", "2"))
DdlGrupo.Items.Insert(16, New ListItem("Proyecto Ejec.", "19"))
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.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
LblProyecto.InnerText = "Sucursal:"
LblSubProyecto.InnerText = "Proyecto:"
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
LblProyecto.InnerText = "Proyecto:"
LblSubProyecto.InnerText = "Sucursal:"
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:"
DdlGrupo.Items.Insert(0, New ListItem("Proyecto", "1"))
DdlGrupo.Items.Insert(1, New ListItem("SubProyecto", "2"))
DdlGrupo.Items.Insert(17, New ListItem("SubProyecto Ejec.", "19"))
DdlGrupo.DataBind()
End If
End Sub
Private Sub SetValues() Private Sub SetValues()
txtFechaI.Text = Now.ToShortDateString txtFechaI.Text = Now.ToShortDateString
txtFechaF.Text = Now.ToShortDateString txtFechaF.Text = Now.ToShortDateString
'Cargo Proyectos
DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
DdlProyecto.DataBind()
'Cargo Categorias 'Cargo Categorias
DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa) DdlCategoria.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
DdlCategoria.DataBind() DdlCategoria.DataBind()
@@ -206,13 +135,6 @@ Partial Class Ventas_RepProductosServiciosDetalle
'ObjClientes.Dispose() 'ObjClientes.Dispose()
'DdlClientes.DataBind() 'DdlClientes.DataBind()
'CargaSubProyectos
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
DdlSubProyectoEjecucion.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyectoEjecucion.DataBind()
'Vendedor 'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).FiltraParametros("VendedorTipo in (1,4)") 'vendedores y vendedores de piso
DdlVendedor.DataBind() DdlVendedor.DataBind()
@@ -267,7 +189,8 @@ Partial Class Ventas_RepProductosServiciosDetalle
DdlTipoPSDes.DataBind() DdlTipoPSDes.DataBind()
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto() CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
CargarCentrosDeCosto(Nothing, DdlSubProyectoEjecucion, Nothing, Nothing)
TCEspecifico = 0 TCEspecifico = 0
TipoCambio = 1 TipoCambio = 1
@@ -696,17 +619,9 @@ Partial Class Ventas_RepProductosServiciosDetalle
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
If DdlProyecto.SelectedValue <> "-1" Then
DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1, 1)
DdlSubProyecto.DataBind()
End If
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged 'Protected Sub DdlCategoria_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCategoria.SelectedIndexChanged
' DdlClasificacion.Items.Clear() ' DdlClasificacion.Items.Clear()

12
Ventas/RepProductosServiciosPeriodo.aspx
View File

@@ -105,17 +105,13 @@
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label class="col-md-1 truncate">F.I.:</label> <label class="col-md-1 truncate">F.I.:</label>
<div class="col-md-2"> <div class="col-md-2">

92
Ventas/RepProductosServiciosPeriodo.aspx.cs
View File

@@ -109,11 +109,6 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
DdlEstatus.Items.Add(new ListItem("Canceladas", "4")); DdlEstatus.Items.Add(new ListItem("Canceladas", "4"));
if (UsuarioActual.Empresa.TipoFacturacion == "CFDi") if (UsuarioActual.Empresa.TipoFacturacion == "CFDi")
{ {
DdlEstatus.SelectedIndex = 2;
}
else
{
DdlEstatus.SelectedIndex = 1;
DdlEstatus.SelectedIndex = 2; DdlEstatus.SelectedIndex = 2;
} }
else else
@@ -147,93 +142,10 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
} }
DdlClienteClasificacion.DataSource = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa); DdlClienteClasificacion.DataSource = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
DdlClienteClasificacion.DataBind(); DdlClienteClasificacion.DataBind();
DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1")); DdlClienteClasificacion.Items.Insert(0, new ListItem("Todos", "-1"));
CargaGrupo();
//Carga Tipo Centro de Costo
CargaTipoCentroCosto();
}
//Carga Grupos //Carga Grupos
{
DdlSubProyecto.Items.Clear();
DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyecto.DataBind();
DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
}
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();
DdlSubProyectoEjecucion.Items.Clear();
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyectoEjecucion.DataBind();
DdlGrupo.Items.Insert(0, new ListItem("Sucursal", "2"));
DdlGrupo.Items.Insert(16, new ListItem("Sucursal Ejec.", "19"));
DdlGrupo.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();
DdlSubProyectoEjecucion.Items.Clear();
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
DdlSubProyectoEjecucion.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1);
DdlSubProyectoEjecucion.Items.Insert(0, new ListItem("Todos", "-1"));
DdlSubProyectoEjecucion.DataBind();
DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "2"));
DdlGrupo.Items.Insert(16, new ListItem("Proyecto Ejec.", "19"));
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.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
DdlGrupo.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 4)
{
LblProyecto.InnerText = "Sucursal:";
LblSubProyecto.InnerText = "Proyecto:";
LblSubProyectoEjecucion.InnerText = "Proyecto Ejecución:";
DdlGrupo.Items.Insert(0, new ListItem("Proyecto", "1"));
DdlGrupo.Items.Insert(1, new ListItem("SubProyecto", "2"));
DdlGrupo.Items.Insert(17, new ListItem("SubProyecto Ejec.", "19"));
DdlGrupo.DataBind();
}
else if (UsuarioActual.Empresa.Tipo_CentroCosto == 5)
{
LblProyecto.InnerText = "Proyecto:";
LblSubProyecto.InnerText = "Sucursal:";
LblSubProyectoEjecucion.InnerText = "Sucursal Ejecución:";
CargaGrupo(); CargaGrupo();
//Carga Tipo Centro de Costo //Carga Tipo Centro de Costo
@@ -287,7 +199,7 @@ public partial class Ventas_RepProductosServiciosPeriodo : ClsPaginas
else else
{ {
DdlEstatus.DataSource = GlobalDTEstatusFactura; DdlEstatus.DataSource = GlobalDTEstatusFactura;
} }
DdlEstatus.Items.Add(new ListItem("Todos", "-1")); DdlEstatus.Items.Add(new ListItem("Todos", "-1"));
DdlEstatus.DataBind(); DdlEstatus.DataBind();
} }

8
Ventas/RepVentaDetalle.aspx
View File

@@ -200,13 +200,11 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox> <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
<%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">

92
Ventas/RepVentaDetalle.aspx.vb
View File

@@ -287,81 +287,8 @@ Partial Class RepVentaDetalle
DdlGrupo.DataBind() DdlGrupo.DataBind()
End Sub End Sub
Private Sub CargaTipoCentroCosto() Private Sub CargaCombos()
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
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()
CargaClientes() CargaClientes()
'DdlClientes.setEsWebService(False) 'DdlClientes.setEsWebService(False)
@@ -376,11 +303,6 @@ Partial Class RepVentaDetalle
'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1")) '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 'Vendedor
DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
DdlVendedor.DataBind() DdlVendedor.DataBind()
@@ -406,8 +328,6 @@ Partial Class RepVentaDetalle
DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1")) DdlTipoRelacion.Items.Insert(0, New ListItem("Todos", "-1"))
CargaGrupo() CargaGrupo()
CargaTipoCentroCosto()
End Sub End Sub
Private Sub CargaEstatus() Private Sub CargaEstatus()
@@ -421,12 +341,6 @@ Partial Class RepVentaDetalle
DdlEstatus.DataBind() DdlEstatus.DataBind()
End Sub 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 #End Region
#Region "SELECTED INDEX CHANGE" #Region "SELECTED INDEX CHANGE"
@@ -435,7 +349,7 @@ Partial Class RepVentaDetalle
End Sub End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto() CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
End Sub End Sub
Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Protected Sub DdlClienteClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs)

8
Ventas/RepVentas.aspx
View File

@@ -205,13 +205,11 @@
</div> </div>
<div class="portlet-body" style="display: none"> <div class="portlet-body" style="display: none">
<div class="row"> <div class="row">
<label runat="server" id="LblProyecto" class="col-md-1 truncate">Proyecto:</label> <asp:Label ID="LblProyecto" runat="server" class="col-md-1 truncate">Proyecto:</asp:Label>
<div runat="server" id="DivProyecto" class="col-md-2"> <div runat="server" id="DivProyecto" class="col-md-2">
<asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <asp:DropDownList ID="DdlProyecto" runat="server" AutoPostBack="true" AppendDataBoundItems="true" DataTextField="Proyecto" DataValueField="CveProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"></asp:DropDownList>
<asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
</asp:DropDownList>
</div> </div>
<label runat="server" id="LblSubProyecto" class="col-md-1 truncate">SubProyecto:</label> <asp:Label ID="LblSubProyecto" runat="server" class="col-md-1 truncate">SubProyecto:</asp:Label>
<div runat="server" id="DivSubProyecto" class="col-md-2"> <div runat="server" id="DivSubProyecto" class="col-md-2">
<asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox> <asp:ListBox ID="DdlSubProyecto" SelectionMode="Multiple" data-text="Todos" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall" Style="width: 100%;" runat="server"></asp:ListBox>
<%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me"> <%-- <asp:DropDownList ID="DdlSubProyecto" runat="server" AppendDataBoundItems="true" DataTextField="SubProyecto" DataValueField="CveSubProyecto" Class="table-group-action-input form-control input-inline input-small input-sm select2me">

99
Ventas/RepVentas.aspx.vb
View File

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