Option Explicit On
Option Strict On

Imports System.Data
Imports Extensiones

Partial Class Ventas_CatPSSubProyectosVendedores

    Inherits ClsPaginas

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
        If Not IsPostBack Then
            CargaDatos()
            CargaCombos()
        End If
    End Sub

    Protected Sub CargaDatos()
        Dim ObjVentas As ClsVentas = New ClsVentas()

        If ObjVentas.GetPSSubProyectosVendedores(UsuarioActual.CveEmpresa) Then
            GvPSSubProyectosVendedores.DataSource = ObjVentas.DtResultados
            GvPSSubProyectosVendedores.DataBind()
        End If

        ObjVentas.Dispose()
        UpDatos.Update()
    End Sub

    Protected Sub CargaCombos()

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

        DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
        DdlVendedor.DataBind()
        DdlVendedor.Items.Insert(0, New ListItem("Seleccione", "-1"))
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
        UpModalAdd.Update()
    End Sub


    Protected Sub LimpiaRegistro()
        DdlPS.SelectedValue = "-1"
        DdlPS.SelectedText = ""
        DdlVendedor.SelectedIndex = 0
        DdlSubProyecto.SelectedIndex = 0
        UpModalAdd.Update()
    End Sub

    Protected Sub LnkAgregar_Click(ByVal sender As Object, ByVal e As EventArgs)
        RegistraScript("$('#DModalAdd').modal();")
        LimpiaRegistro()
        UpModalAdd.Update()
    End Sub

    Protected Sub BtnAdd_Click(ByVal sender As Object, ByVal e As EventArgs)
        If DdlPS.SelectedValue = "" Then
            Alert("Tiene que seleccionar un producto/servicio.")
            Return
        End If

        If DdlVendedor.SelectedValue = "-1" Then
            Alert("Tiene que seleccionar un vendedor.")
            Return
        End If

        If DdlSubProyecto.SelectedValue = "-1" Then
            Alert("Tiene que seleccionar un subproyecto.")
            Return
        End If

        Dim ObjVentas As ClsVentas = New ClsVentas()
        Dim Continuar As Boolean = ObjVentas.AddPSSubProyectosVendedores(DdlPS.SelectedValue.ToEntero(), DdlSubProyecto.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero())
        ObjVentas.Dispose()

        If Continuar Then
            RegistraScript("$('#DModalAdd').modal('hide');")
            LimpiaRegistro()
            Alert("El registro se ha agregado")
            CargaDatos()
        End If
    End Sub

    Protected Sub LnkEliminar_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim gvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
        Dim ObjVentas As ClsVentas = New ClsVentas()
        Dim Continuar As Boolean = ObjVentas.RemovePSSubProyectosVendedores(gvRow.DataKey("CvePS").ToEntero(), gvRow.DataKey("CveSubProyecto").ToEntero(), gvRow.DataKey("CveVendedor").ToEntero())
        ObjVentas.Dispose()

        If Continuar Then
            CargaDatos()
            Alert("El registro se ha eliminado")
        End If
    End Sub

End Class