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()

        CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto, divProyecto:=DivProyecto)

        txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString
        txtFechaF.Text = NowADS().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()

    End Sub

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