108 lines
3.6 KiB
VB.net
108 lines
3.6 KiB
VB.net
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
|