Commit inicial Ventas Productivo

Ventas/CatVentasDeducciones.aspx.vb

@@ -0,0 +1,100 @@
+
+Option Explicit On
+Option Strict On
+
+Imports Extensiones
+Imports System.Data
+Partial Class Ventas_CatVentasDeducciones
+    Inherits ClsPaginas
+
+
+#Region "Propiedades"
+
+#End Region
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            CargaTodo()
+        End If
+    End Sub
+
+    Public Sub CargaTodo()
+        CargaGrid()
+    End Sub
+
+
+#Region "Porcentajes"
+    Public Sub CargaGrid()
+        Dim Objeto As New ClsVentas
+        If Objeto.GetDeduccion(UsuarioActual.CveEmpresa) Then
+            GvDeducciones.DataSource = Objeto.DtResultados
+            GvDeducciones.DataBind()
+
+        End If
+        Objeto.Dispose()
+        UpGVPorcentajes.Update()
+    End Sub
+
+    Protected Sub AgregarGvDeducciones_Click(sender As Object, e As EventArgs) Handles AgregarGVPorcentajes.Click
+        Dim AgregarDeduccion As New ClsVentas
+        AgregarDeduccion.AddDeduccion(TxtDeduccion.Text, TxtPorcentaje.Text.ToDouble, UsuarioActual.CveUsuario.ToEntero, UsuarioActual.CveEmpresa.ToEntero)
+        If AgregarDeduccion.GetDeduccion(UsuarioActual.CveEmpresa) Then
+            CargaGrid()
+        End If
+        AgregarDeduccion.Dispose()
+
+        TxtDeduccion.Text = ("")
+        TxtPorcentaje.Text = ("")
+        TxtDeduccion.Focus()
+        UpGVPorcentajes.Update()
+    End Sub
+
+    Protected Sub GvDeducciones_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDeducciones.RowEditing
+        GvDeducciones.EditIndex = e.NewEditIndex
+        CargaGrid()
+        UpGVPorcentajes.Update()
+    End Sub
+
+    Protected Sub GvDeducciones_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDeducciones.RowUpdating
+        Dim Objeto As New ClsVentas
+        Dim Deduccion = GvDeducciones.Rows(e.RowIndex).FCTextBox("TxtVentaDeduccion").Text.Trim
+        Dim Porcentaje = GvDeducciones.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDouble
+        Dim Clave = GvDeducciones.Rows(e.RowIndex).DataKey("CveVentaDeduccion").ToEntero
+        Objeto.UpdateDeduccion(Clave, Deduccion, Porcentaje, UsuarioActual.CveUsuario.ToEntero, UsuarioActual.CveEmpresa.ToEntero)
+        GvDeducciones.EditIndex = -1
+        CargaGrid()
+    End Sub
+
+    Protected Sub GvDeducciones_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDeducciones.RowCancelingEdit
+        GvDeducciones.EditIndex = -1
+        CargaGrid()
+        Alert("Se canceló la edición de los campos.")
+    End Sub
+
+    Protected Sub GvDeducciones_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDeducciones.RowDeleting
+        Dim ObjNombres As New ClsVentas
+        Dim CveVentaDeduccion = GvDeducciones.Rows(e.RowIndex).DataKey("CveVentaDeduccion").ToEntero
+
+        If ObjNombres.RemoveDeduccion(CveVentaDeduccion) Then
+            GvDeducciones.EditIndex = -1
+
+            Alert("Se borró corrrectamente la deducción.", TipoMensaje.MsgInformacion)
+
+
+
+        End If
+
+
+        ObjNombres.Dispose()
+        CargaGrid()
+        UpGVPorcentajes.Update()
+    End Sub
+
+
+
+#End Region
+
+
+
+
+End Class
+