Catalogo ps, subproyectos y vendedores

2024-08-21 03:14:14 -06:00
parent 59b18484d1
commit a09e28cd9b
4 changed files with 256 additions and 1 deletions
--- a/Ventas/CatPSSubProyectosVendedores.aspx.vb
+++ b/Ventas/CatPSSubProyectosVendedores.aspx.vb
@@ -0,0 +1,107 @@
+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