Option Explicit On
Option Strict On

Imports Extensiones
Partial Class Inventarios_RepVentasXSurtir
    Inherits ClsPaginas
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not IsPostBack Then

            InicializaValores()
            CargaURLParametros()

        End If
    End Sub

#Region "  INICIALIZA VALORES  "
    Private Sub InicializaValores()

        'Carga Productos
        DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")

        If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
            DdlPS.SelectedText = "Todos"
            DdlPS.SelectedValue = "-1"
        Else
            DdlPS.ddl.Items.Clear()
            DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
            DdlPS.ddl.DataBind()
            DdlPS.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
        End If

        'Carga Sucursales
        DdlSubProyectos.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
        DdlSubProyectos.DataBind()

        UPFiltros.Update()
    End Sub
#End Region

#Region "  CARGA URL PARAMETROS  "
    Private Sub CargaURLParametros()
        If Request("CvePS") IsNot Nothing AndAlso IsNumeric(Request("CvePS")) AndAlso Request("CvePS").ToEntero > 0 Then
            DdlPS.SelectedValue = Request("CvePS").ToString
            UPFiltros.Update()
            CargaDatos()
        End If
    End Sub
#End Region

#Region "  CARGA DATOS  "
    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub
    Private Sub CargaDatos()
        Dim ObjInventarios As New ClsInventarios

        If ObjInventarios.GetPendientePorSurtirVenta(DdlPS.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveUsuario, DdlTipo.SelectedValue.ToEntero) Then
            GvDatos.DataSource = ObjInventarios.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        GvDatos.DataBind()
        ObjInventarios.Dispose()
        UpDatos.Update()
    End Sub
    Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Select Case e.Row.DBCampo("EsDevolucionVenta").ToEntero
                Case 0
                    e.Row.Cells(0).Text = "<div class='label label-success'>Surtir</div>"
                Case 1
                    e.Row.Cells(0).Text = "<div class='label label-warning'>Recibir</div>"
            End Select
        End If
    End Sub
#End Region

End Class