Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
274
Ventas/CatImpuestosLocales.aspx.vb
Normal file
274
Ventas/CatImpuestosLocales.aspx.vb
Normal file
@@ -0,0 +1,274 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
Partial Class Ventas_CatImpuestosLocales
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region " PROPIEDADES"
|
||||
Private Property DtCuentasContables As Data.DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtCuentasContables"), DataTable)
|
||||
End Get
|
||||
Set(value As Data.DataTable)
|
||||
ViewState("DtCuentasContables") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DtImpuestosLocales As Data.DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtImpuestosLocales"), DataTable)
|
||||
End Get
|
||||
Set(value As Data.DataTable)
|
||||
ViewState("DtImpuestosLocales") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property CveImpuestoLocal As Integer
|
||||
Get
|
||||
Return ViewState("CveImpuestoLocal").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveImpuestoLocal") = value
|
||||
End Set
|
||||
End Property
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CveImpuestoLocal = -1
|
||||
CargaCuentasContables()
|
||||
CargaDatos()
|
||||
OrdenaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim ObjVentas As New ClsVentas()
|
||||
If ObjVentas.GetImpuestosLocales(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
GvImpuestos.DataSource = ObjVentas.DtResultados
|
||||
GvImpuestos.DataBind()
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaCuentasContables()
|
||||
If UsuarioActual.Empresa.UsaContabilidad OrElse UsuarioActual.Empresa.UsaAC Then
|
||||
Dim ObjContabilidad As New ClsContPAQi(UsuarioActual.Empresa)
|
||||
'UsuarioActual.Empresa.Funcionalidad(208).ToEntero
|
||||
If ObjContabilidad.GetCuentasRecursiva(1, 1) Then
|
||||
DtCuentasContables = ObjContabilidad.DtResultados
|
||||
Else
|
||||
DtCuentasContables = Nothing
|
||||
End If
|
||||
ObjContabilidad.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
DdlCuentasContables.DataSource = DtCuentasContables
|
||||
DdlCuentasContables.DataBind()
|
||||
End Sub
|
||||
|
||||
|
||||
#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 Double = GvImpuestos.Rows(e.RowIndex).FCTextBox("TxtVentaPorcentaje").Text.ToDouble
|
||||
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
|
||||
|
||||
Dim CveImpuesto As Integer = GvImpuestos.Rows(e.RowIndex).DataKey("CveImpuestoLocal").ToEntero
|
||||
|
||||
If Not ObjVentas.RemoveImpuestosLocales(CveImpuesto) Then
|
||||
TieneError = True
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
|
||||
|
||||
If Not TieneError Then
|
||||
GvImpuestos.EditIndex = -1
|
||||
Alert("Se elimino correctamente el Impuesto Local.", TipoMensaje.MsgInformacion)
|
||||
Else
|
||||
Alert("Ocurrio un error al eliminar el Impuesto Local.", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
|
||||
|
||||
CargaDatos()
|
||||
End Sub
|
||||
|
||||
Private Sub GvImpuestos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvImpuestos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
|
||||
If (e.Row.RowState And DataControlRowState.Edit) > 0 Then
|
||||
e.Row.FCDropDownList("DdlTipoImpuestoEdit").SelectedValueExist(e.Row.DataKey("TipoImpuesto"))
|
||||
|
||||
e.Row.FCDropDownList("DdlCuentasContables").DataSource = DtCuentasContables
|
||||
e.Row.FCDropDownList("DdlCuentasContables").DataBind()
|
||||
e.Row.FCDropDownList("DdlCuentasContables").Items.Add(New ListItem("Seleccione", "-1"))
|
||||
e.Row.FCDropDownList("DdlCuentasContables").SelectedValue = e.Row.DBCampo("IdCuentaImpuestoLocal")
|
||||
|
||||
End If
|
||||
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Alternate OrElse e.Row.RowState = DataControlRowState.Normal Then
|
||||
If e.Row.DBCampo("IdCuentaImpuestoLocal").ToEntero > 0 Then
|
||||
e.Row.FCLiteral("LtlCuentaContable").Text = DtCuentasContables.FiltroPrimeroValor("CtaCodigo", $"Id = {e.Row.DBCampo("IdCuentaImpuestoLocal")}")
|
||||
Else
|
||||
e.Row.FCLiteral("LtlCuentaContable").Text = "Sin Cuenta"
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
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
|
||||
|
||||
#Region "BTN'S"
|
||||
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
|
||||
|
||||
RegistraScript("$('#divAddImpuestoLocal').modal();LimpiaModal()")
|
||||
End Sub
|
||||
|
||||
Private Sub BtnAgregarImpuesto_Click(sender As Object, e As EventArgs) Handles BtnAgregarImpuesto.Click
|
||||
Dim ObjVentas As New ClsVentas
|
||||
Dim Estatus = 0
|
||||
|
||||
If CveImpuestoLocal = -1 Then
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
If ObjVentas.AddImpuestosLocales(TxtImpuesto.Text.Trim, TxtPorcentaje.Text.ToDouble, TxtOrden.Text.ToEntero, DdlTipoImpuesto.SelectedValue.ToEntero, Estatus, DdlCuentasContables.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
CargaDatos()
|
||||
End If
|
||||
TxtImpuesto.Text = ""
|
||||
TxtPorcentaje.Text = ""
|
||||
TxtOrden.Text = ""
|
||||
TxtImpuesto.Focus()
|
||||
Else
|
||||
If CveImpuestoLocal <> -1 Then
|
||||
Dim TieneError = False
|
||||
Dim Impuesto As String = TxtImpuesto.Text.Trim
|
||||
Dim Porcentaje As Double = TxtPorcentaje.Text.ToDouble
|
||||
Dim Orden = TxtOrden.Text.ToEntero
|
||||
Dim TipoImpuesto = DdlTipoImpuesto.SelectedValue.ToEntero
|
||||
Dim IdCtaContable = DdlCuentasContables.SelectedValue.ToEntero
|
||||
If ChkEstatus.Checked Then Estatus = 1
|
||||
|
||||
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 error al actualizar los datos", TipoMensaje.MsgAdvertencia)
|
||||
End If
|
||||
CveImpuestoLocal = -1
|
||||
End If
|
||||
End If
|
||||
ObjVentas.Dispose()
|
||||
UpDatos.Update()
|
||||
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)
|
||||
BtnAgregarImpuesto.Text = "Actualizar"
|
||||
CveImpuestoLocal = GvRow.DataKey("CveImpuestoLocal").ToEntero
|
||||
UpAddImpuesto.Update()
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "divAddImpuestoLocal"))
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user