SIG/Inventarios/RepReciclaje.aspx.vb

Option Explicit On
Option Strict On
Imports System.Data
Imports Extensiones
Imports System.IO

Partial Class Inventarios_RepReciclaje
    Inherits ClsPaginas

#Region "PROPIEDADES"


#End Region

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            InicializaValores()
        End If
    End Sub

    Public Sub InicializaValores()
        txtFechaI.Text = Now.FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = Now.ToShortDateString

        'Carga Clientes
        DdlCliente.setEsWebService(True)
        DdlCliente.Attributes.Add("data-metodo", "getcliente")
        DdlCliente.SelectedText = "Todos"
        DdlCliente.SelectedValue = "-1"

        'Carga PS
        DdlPS.setEsWebService(True)
        DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
        DdlPS.SelectedText = "Todos"
        DdlPS.SelectedValue = "-1"

        'Carga Almacenes
        DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (9,11)")
        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()
    End Sub

#End Region

    Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs)
        Dim ObjInv As New ClsInventarios
        If ObjInv.GetRemanufactura(DdlCliente.SelectedValue.ToEntero, DdlAlmacen.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero,
                                   DdlProyecto.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa,
                                   txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, UsuarioActual.CveUsuario) Then
            GvDatos.DataSource = ObjInv.DtResultados
        End If
        ObjInv.Dispose()
        GvDatos.DataBind()
        If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
            GvDatos.Columns(5).HeaderText = "Sucursal"
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
            GvDatos.Columns(5).HeaderText = "Proyecto"
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
            GvDatos.Columns(5).HeaderText = "Sucursal/Proyecto"
        ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
            GvDatos.Columns(5).HeaderText = "Proyecto/Sucursal"
        End If
        UpDatos.Update()
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs)
        If e.Row.RowType = DataControlRowType.DataRow Then
            If UsuarioActual.Empresa.TipoContabilizacion.Contiene(1, 2) Then
                e.Row.Cells(5).Text = e.Row.DBCampo("SubProyecto").ToString
            End If
        End If
    End Sub
    Protected Sub LnkReciclaje_Click(sender As Object, e As EventArgs)
        Response.Redirect("/Inventarios/Remanufactura.aspx", True)
        UppAddAcciones.Update()
    End Sub
End Class