101 lines
3.1 KiB
VB.net
101 lines
3.1 KiB
VB.net
|
|
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
|
|
|