Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
247
Ventas/CatEsquemaComisiones.aspx.vb
Normal file
247
Ventas/CatEsquemaComisiones.aspx.vb
Normal file
@@ -0,0 +1,247 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Partial Class Ventas_CatEsquemaComisiones
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "PROPIEDADES"
|
||||
|
||||
#End Region
|
||||
Private Sub Ventas_CatEsquemaComisiones_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
If Not IsPostBack Then
|
||||
InicializaValores()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region " INICIALIZA VALORES "
|
||||
Private Sub InicializaValores()
|
||||
CargaDdlEsquemaComisiones()
|
||||
CargaGridEsquema()
|
||||
CargaGridLimites()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
#Region " ESQUEMA COMISIONES "
|
||||
Private Sub LbAgregarEsquema_Click(sender As Object, e As EventArgs) Handles LbAgregarEsquema.Click
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
|
||||
If Not ObjEsquemas.AddEsquemaComisiones(TxtEsquemaComision.Text, DdlTipoComision.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjEsquemas.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
Alert(String.Format("Se guardo el esquema {0}", TxtEsquemaComision.Text), TipoMensaje.MsgInformacion)
|
||||
TxtEsquemaComision.Text = ""
|
||||
CargaGridEsquema()
|
||||
Else
|
||||
Alert("Error al guardar esquema", TipoMensaje.MsgError)
|
||||
End If
|
||||
CargaDdlEsquemaComisiones()
|
||||
End Sub
|
||||
|
||||
Private Sub GVEsquema_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVEsquema.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlTipoComisionEdit").SelectedValue = e.Row.DBCampo("TipoComision")
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GVEsquema_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GVEsquema.RowEditing
|
||||
GVEsquema.EditIndex = e.NewEditIndex
|
||||
CargaGridEsquema()
|
||||
End Sub
|
||||
Private Sub GVEsquema_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GVEsquema.RowCancelingEdit
|
||||
GVEsquema.EditIndex = -1
|
||||
CargaGridEsquema()
|
||||
End Sub
|
||||
Private Sub GVEsquema_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVEsquema.RowUpdating
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
Dim CveEsquemaComision = GVEsquema.Rows(e.RowIndex).DataKey("CveEsquemaComision").ToEntero
|
||||
Dim EsquemaComision = GVEsquema.Rows(e.RowIndex).FCTextBox("TxTComisionEdit").Text.Trim
|
||||
Dim TipoComision = GVEsquema.Rows(e.RowIndex).FCDropDownList("DdlTipoComisionEdit").SelectedValue.ToEntero
|
||||
|
||||
If Not ObjEsquemas.UpdateEsquemaComisiones(CveEsquemaComision, EsquemaComision, TipoComision, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjEsquemas.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
GVEsquema.EditIndex = -1
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaGridEsquema()
|
||||
CargaDdlEsquemaComisiones()
|
||||
CargaGridLimites()
|
||||
Else
|
||||
Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
|
||||
End If
|
||||
UpdatosEsquema.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GVEsquema_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVEsquema.RowDeleting
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
Dim CveEsquemaComision = GVEsquema.Rows(e.RowIndex).DataKey("CveEsquemaComision").ToEntero
|
||||
|
||||
If Not ObjEsquemas.RemoveEsquemaComisiones(GVEsquema.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
End If
|
||||
|
||||
If Not TieneError Then
|
||||
GVEsquema.EditIndex = -1
|
||||
Alert("El Esquema se elimino correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaGridEsquema()
|
||||
CargaDdlEsquemaComisiones()
|
||||
Else
|
||||
Alert("Error al eliminar Esquema", TipoMensaje.MsgError)
|
||||
End If
|
||||
ObjEsquemas.Dispose()
|
||||
'GVEsquema.DataSource = DtMovimientos
|
||||
'GVEsquema.DataBind()
|
||||
UpdatosEsquema.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridEsquema()
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
|
||||
If ObjEsquemas.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
GVEsquema.DataSource = ObjEsquemas.DtResultados.FiltraParametros("", Orderby:="EsquemaComision")
|
||||
End If
|
||||
ObjEsquemas.Dispose()
|
||||
GVEsquema.DataBind()
|
||||
UpdatosEsquema.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
Private Sub CargaDdlEsquemaComisiones()
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
If ObjEsquemas.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
DdlEsquemaComision.DataSource = ObjEsquemas.DtResultados
|
||||
End If
|
||||
|
||||
|
||||
DdlEsquemaComision.DataBind()
|
||||
DdlEsquemaComision.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
ObjEsquemas.Dispose()
|
||||
UpTitulosLimites.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
#Region " LIMITES "
|
||||
Private Sub LbAgregarLimites_Click(sender As Object, e As EventArgs) Handles LbAgregarLimites.Click
|
||||
Dim ObjEsquemas As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
|
||||
If Not ObjEsquemas.AddEsquemaComisionLimite(TxtLimite.Text.ToDouble, TxtComision.Text.ToDouble, DdlEsquemaComision.SelectedValue.ToEntero, TxtNivel.Text, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) > 0 Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjEsquemas.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
Alert("Se guardo correctamente", TipoMensaje.MsgInformacion)
|
||||
TxtLimite.Text = ""
|
||||
TxtComision.Text = ""
|
||||
DdlEsquemaComision.SelectedIndex = -1
|
||||
CargaGridLimites()
|
||||
Else
|
||||
Alert("Error al guardar esquema", TipoMensaje.MsgError)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub GVLimites_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVLimites.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
Dim ObjLimites As New ClsEsquemasComisiones
|
||||
|
||||
If ObjLimites.GetEsquemaComisiones(-1, "-1", -1, UsuarioActual.CveEmpresa) Then
|
||||
e.Row.FCDropDownList("DdlComisionEdit").DataSource = ObjLimites.DtResultados.FiltraParametros("", Orderby:="EsquemaComision")
|
||||
e.Row.FCDropDownList("DdlComisionEdit").DataBind()
|
||||
|
||||
End If
|
||||
e.Row.FCDropDownList("DdlComisionEdit").Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
e.Row.FCDropDownList("DdlComisionEdit").SelectedValueExist(e.Row.DataKey("CveEsquemaComision"))
|
||||
ObjLimites.Dispose()
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub GVLimites_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GVLimites.RowEditing
|
||||
GVLimites.EditIndex = e.NewEditIndex
|
||||
CargaGridLimites()
|
||||
End Sub
|
||||
Private Sub GVLimites_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GVLimites.RowCancelingEdit
|
||||
GVLimites.EditIndex = -1
|
||||
CargaGridLimites()
|
||||
End Sub
|
||||
Private Sub GVLimites_RowUpdating(sender As Object, e As GridViewUpdateEventArgs) Handles GVLimites.RowUpdating
|
||||
Dim ObjLimites As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
Dim CveEsquemaComisionLimite = GVLimites.Rows(e.RowIndex).DataKey("CveEsquemaComisionLimite").ToEntero
|
||||
Dim CveEsquemaComision As Integer = GVLimites.Rows(e.RowIndex).FCDropDownList("DdlComisionEdit").SelectedValue.ToEntero
|
||||
Dim Nivel = GVLimites.Rows(e.RowIndex).FCTextBox("TxTNivelEdit").Text.Trim
|
||||
Dim LimiteMaximo = GVLimites.Rows(e.RowIndex).FCTextBox("TxTLimiteEdit").Text.Trim.ToDouble
|
||||
Dim Comision = GVLimites.Rows(e.RowIndex).FCTextBox("TxTComisionLimiteEdit").Text.Trim.ToDouble
|
||||
'Dim Importe = DirectCast(GVLimites.Rows(e.RowIndex).FindControl("TxtImporteEdit"), TextBox).Text.Trim.ToDouble
|
||||
|
||||
If Not ObjLimites.UpdateEsquemaComisionLimite(CveEsquemaComisionLimite, LimiteMaximo, Comision, CveEsquemaComision, Nivel, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjLimites.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
GVLimites.EditIndex = -1
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaGridLimites()
|
||||
Else
|
||||
Alert("Error al actualizar los cambios.", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
UpDatosLimites().Update()
|
||||
End Sub
|
||||
|
||||
Private Sub GVLimites_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GVLimites.RowDeleting
|
||||
Dim ObjLimites As New ClsEsquemasComisiones
|
||||
Dim TieneError = False
|
||||
Dim CveEsquemaComisionLimite = GVLimites.Rows(e.RowIndex).DataKey("CveEsquemaComisionLimite").ToEntero
|
||||
|
||||
If Not ObjLimites.RemoveEsquemaComisionLimite(CveEsquemaComisionLimite, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjLimites.Dispose()
|
||||
|
||||
If Not TieneError Then
|
||||
GVLimites.EditIndex = -1
|
||||
Alert("Se eliminador datos correctamente", TipoMensaje.MsgInformacion)
|
||||
CargaGridLimites()
|
||||
Else
|
||||
Alert("Error al eliminar", TipoMensaje.MsgError)
|
||||
End If
|
||||
|
||||
UpDatosLimites.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaGridLimites()
|
||||
Dim ObjLimites As New ClsEsquemasComisiones
|
||||
If ObjLimites.GetEsquemaComisionLimite(-1, -1, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
|
||||
GVLimites.DataSource = ObjLimites.DtResultados
|
||||
End If
|
||||
ObjLimites.Dispose()
|
||||
|
||||
GVLimites.DataBind()
|
||||
UpDatosLimites.Update()
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user