CatImpuestosLocales se agrega campo CveClasificacion
This commit is contained in:
rakcsle
@@ -38,9 +38,14 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CveImpuestoLocal = -1
|
||||
|
||||
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Estatus = 'Activo' AND UsoClasificacion = 2 ")
|
||||
DdlClasificacion.DataBind()
|
||||
DdlClasificacion.Items.Insert(0, New ListItem("Seleccione una", "-1"))
|
||||
|
||||
CargaCuentasContables()
|
||||
CargaDatos()
|
||||
OrdenaDatos()
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -75,49 +80,6 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
#Region "GV IMPUESTOS "
|
||||
|
||||
|
||||
'Protected Sub GvImpuestos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvImpuestos.RowEditing
|
||||
' GvImpuestos.EditIndex = e.NewEditIndex
|
||||
' CargaDatos()
|
||||
'End Sub
|
||||
|
||||
Protected Sub GvImpuestos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvImpuestos.RowUpdating
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
Dim TieneError = False
|
||||
Dim CveImpuestoLocal As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero
|
||||
Dim Impuesto As String = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtImpuestoLocal").Text.Trim
|
||||
Dim Porcentaje As Decimal = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDecimal
|
||||
Dim Orden = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtOrdenImpuesto").Text.ToEntero
|
||||
Dim TipoImpuesto = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlTipoImpuestoEdit").SelectedValue.ToEntero
|
||||
Dim IdCtaContable = GvImpuestos.Rows(e.RowIndex).FCDropDownList("DdlCuentasContables").SelectedValue.ToEntero
|
||||
|
||||
Dim Estatus As Integer
|
||||
If GvImpuestos.Rows(e.RowIndex).FCCheckBox("ChkEstatusEdit").Checked = True Then
|
||||
Estatus = 1
|
||||
Else
|
||||
Estatus = 0
|
||||
End If
|
||||
|
||||
|
||||
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
GvImpuestos.EditIndex = -1
|
||||
CargaDatos()
|
||||
Else
|
||||
Alert("Ocurrio un erro al actualizar los datos", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvImpuestos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvImpuestos.RowCancelingEdit
|
||||
GvImpuestos.EditIndex = -1
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvImpuestos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvImpuestos.RowDeleting
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
Dim TieneError = False
|
||||
@@ -168,13 +130,7 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
|
||||
|
||||
|
||||
Private Sub OrdenaDatos()
|
||||
If (GvImpuestos.Rows.Count > 0) Then
|
||||
GvImpuestos.UseAccessibleHeader = True
|
||||
GvImpuestos.HeaderRow.TableSection = TableRowSection.TableHeader
|
||||
RegistraScript("OrdenarGV();")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#End Region
|
||||
|
||||
@@ -182,13 +138,18 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
Private Sub BtnAgregarImpuestoModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuestoModal.Click
|
||||
CveImpuestoLocal = -1
|
||||
|
||||
If CveImpuestoLocal > 0 Then
|
||||
BtnAgregarImpuesto.Text = "Actualizar"
|
||||
UpFooter.Update()
|
||||
Else
|
||||
BtnAgregarImpuesto.Text = "Agregar"
|
||||
End If
|
||||
|
||||
TxtOrden.Text = ""
|
||||
TxtImpuesto.Text = ""
|
||||
TxtPorcentaje.Text = ""
|
||||
DdlTipoImpuesto.SelectedValueExist("-1")
|
||||
DdlCuentasContables.SelectedValueExist("-1")
|
||||
DdlClasificacion.SelectedValueExist("-1")
|
||||
BtnAgregarImpuesto.Text = "Agregar"
|
||||
ChkEstatus.Checked = True
|
||||
|
||||
UpAddImpuesto.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#divAddImpuestoLocal').modal();LimpiaModal()")
|
||||
End Sub
|
||||
|
||||
@@ -199,7 +160,7 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
If CveImpuestoLocal = -1 Then
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDecimal, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
CargaDatos()
|
||||
End If
|
||||
TxtImpuesto.Text = ""
|
||||
@@ -216,7 +177,7 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
Dim IdCtaContable = DdlCuentasContables.SelectedValue.ToEntero
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable) Then
|
||||
If Not ObjVentas.UpdateImpuestosLocales(CveImpuestoLocal, Impuesto, Porcentaje, Orden, TipoImpuesto, Estatus, IdCtaContable, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
@@ -236,35 +197,22 @@ Partial Class Ventas_CatImpuestosLocales
|
||||
RegistraScript("$('#divAddImpuestoLocal').modal('hide');")
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnCargaModal_Click(sender As Object, e As EventArgs)
|
||||
Dim ObjImpuestos As New ClsVentas
|
||||
|
||||
Dim Clave = CType(sender, LinkButton).CommandArgument.ToEntero
|
||||
|
||||
If ObjImpuestos.GetImpuestosLocales(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
DtImpuestosLocales = ObjImpuestos.DtResultados.FiltraParametros(String.Format("CveImpuestoLocal = {0}", Clave))
|
||||
End If
|
||||
|
||||
|
||||
TxtOrden.Text = DtImpuestosLocales(0)("Orden").ToString
|
||||
DdlTipoImpuesto.SelectedValueExist(DtImpuestosLocales(0)("TipoImpuesto").ToString)
|
||||
DdlCuentasContables.SelectedValueExist(DtImpuestosLocales(0)("IdCuentaImpuestoLocal").ToString)
|
||||
|
||||
|
||||
ObjImpuestos.Dispose()
|
||||
End Sub
|
||||
|
||||
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
|
||||
DdlTipoImpuesto.SelectedValueExist(GvRow.DataKey("TipoImpuesto"))
|
||||
DdlCuentasContables.SelectedValueExist(GvRow.DataKey("IdCuentaImpuestoLocal"))
|
||||
TxtImpuesto.Text = GvRow.DataKey("ImpuestoLocal")
|
||||
TxtPorcentaje.Text = GvRow.DataKey("Porcentaje")
|
||||
TxtOrden.Text = GvRow.DataKey("Orden")
|
||||
ChkEstatus.Checked = If(GvRow.DataKey("EstatusBol").ToEntero = 1, True, False)
|
||||
ChkEstatus.Checked = Boolean.Parse(GvRow.DataKey("EstatusBol")) 'If(GvRow.DataKey("EstatusBol").ToEntero = 1, True, False)
|
||||
DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion"))
|
||||
|
||||
BtnAgregarImpuesto.Text = "Actualizar"
|
||||
CveImpuestoLocal = GvRow.DataKey("CveImpuestoLocal").ToEntero
|
||||
|
||||
UpAddImpuesto.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAddImpuestoLocal"))
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user