Puntos GDiaz:

--Selectivas

Ventas/CatSelectivas.aspx.vb

@@ -0,0 +1,91 @@
+
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+
+Partial Class Ventas_CatSelectivas
+    Inherits ClsPaginas
+
+    Private Property CveSelectiva As Integer
+        Get
+            Return (IfNull(ViewState("CveSelectiva"), "-1", ViewState("CveSelectiva"))).ToString().ToEntero()
+        End Get
+        Set(value As Integer)
+            ViewState("CveSelectiva") = value
+        End Set
+    End Property
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaDatos()
+        End If
+    End Sub
+
+
+    Private Sub CargaDatos()
+        LimpiaDatos()
+
+        Dim ObjGral As New ClsProductosServicios()
+        If ObjGral.GetSelectiva(-1, UsuarioActual.CveEmpresa) Then
+            GvDatos.DataSource = ObjGral.DtResultados.Copy()
+        End If
+        ObjGral.Dispose()
+        GvDatos.DataBind()
+
+        UpDatos.Update()
+    End Sub
+
+    Protected Sub GvDatos_RowDeleting(sender As Object, e As GridViewDeleteEventArgs)
+        Dim GvRow As GridViewRow = GvDatos.Rows(e.RowIndex)
+
+        CveSelectiva = GvRow.DataKey("CveSelectiva").ToEntero()
+
+        Using ObjVentas As New ClsProductosServicios
+            If ObjVentas.RemoveSelectiva(CveSelectiva, UsuarioActual.CveEmpresa) Then
+                Alert("Se eliminó correctamente")
+            End If
+        End Using
+
+        CargaDatos()
+    End Sub
+    Protected Sub imgE_Click(sender As Object, e As EventArgs)
+        Dim GvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+
+        CveSelectiva = GvRow.DataKey("CveSelectiva").ToEntero()
+        TxtSelectiva.Text = GvRow.DataKey("Selectiva")
+
+        UpModal.Update()
+
+        RegistraScript("$('#DivDatos').modal('show');")
+    End Sub
+
+    Private Sub LimpiaDatos()
+        CveSelectiva = -1
+        TxtSelectiva.Text = ""
+    End Sub
+    Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs)
+
+        Dim ObjVentas As New ClsProductosServicios
+        If CveSelectiva = -1 Then
+            If ObjVentas.AddSelectiva(TxtSelectiva.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+                Alert("La selectiva se agrego correctamente")
+            End If
+        Else
+            If ObjVentas.UpdateSelectiva(CveSelectiva, TxtSelectiva.Text, UsuarioActual.CveEmpresa) Then
+                Alert("La selectiva se actualizó correctamente")
+            End If
+        End If
+        ObjVentas.Dispose()
+
+        RegistraScript("$('#DivDatos').modal('hide');")
+
+        CargaDatos()
+    End Sub
+    Protected Sub LnkAgregar_Click(sender As Object, e As EventArgs)
+        LimpiaDatos()
+
+        RegistraScript("$('#DivDatos').modal('show');")
+    End Sub
+
+End Class