Limpieza masiva Centros de costo

-Se unificó todo el comporatmiento de centros de costo en ClsPaginas -Se unificó la carga de subproyectos en ClsPaginas
2023-02-08 16:44:41 -07:00
parent fd682230cb
commit 006d94145e
50 changed files with 191 additions and 1705 deletions
--- a/Inventarios/Remanufactura.aspx.vb
+++ b/Inventarios/Remanufactura.aspx.vb
@@ -87,6 +87,8 @@ Partial Class Inventarios_Remanufactura

    Public Sub InicializaValores()

+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        TxtFecha.Text = Now.ToShortDateString

        'Carga Clientes
@@ -106,15 +108,7 @@ Partial Class Inventarios_Remanufactura
        DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlAlmacen.DataBind()

-        'Cargo Proyectos
-        DdlProyecto.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
-        DdlProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
-        DdlProyecto.DataBind()
-
        CargaFolio()
-
-        CargaTipoCentroCosto()
-
        CreaDTVentas()

    End Sub
@@ -133,37 +127,6 @@ Partial Class Inventarios_Remanufactura
        UpDatosRemanufactura.Update()
    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

 #Region "GUARDAR"
@@ -976,12 +939,7 @@ Partial Class Inventarios_Remanufactura

 #Region "SELECTED INDEX CHANGE"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        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()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

 #End Region
--- a/Inventarios/RepMovimientosSalida.aspx
+++ b/Inventarios/RepMovimientosSalida.aspx
@@ -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>
                                <ajax:ValidatorCalloutExtender ID="vcoRfvFF" runat="server" HighlightCssClass="vco" TargetControlID="rfvFechaF" Width="350px"></ajax:ValidatorCalloutExtender>
                            </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">
                           
-                             <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:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
-                            </asp:DropDownList> 
+                             <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> 
                        </div>
                            <label runat="server" id="LblGripo" class="col-md-1 truncate">Grupo:</label>
                             <div runat="server" id="Div1" class="col-md-1">                           
--- a/Inventarios/RepReciclaje.aspx
+++ b/Inventarios/RepReciclaje.aspx
@@ -78,12 +78,12 @@
                        <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>
                        </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">
                            <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>
                        </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">
                            <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>
--- a/Inventarios/RepReciclaje.aspx.vb
+++ b/Inventarios/RepReciclaje.aspx.vb
@@ -19,6 +19,9 @@ Partial Class Inventarios_RepReciclaje
    End Sub

    Public Sub InicializaValores()
+
+        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, Nothing, LblSubProyecto)
+
        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = Now.ToShortDateString

@@ -39,53 +42,11 @@ Partial Class Inventarios_RepReciclaje
        DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
        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

 #Region "SELECTED INDEX CHANGE"
    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs)
-        DdlSubProyecto.Items.Clear()
-        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()
+        CargarSubProyecto(DdlSubProyecto, DdlProyecto.SelectedValue)
    End Sub

 #End Region