From 10b1d4e239a1eb6eec017caa3d64612fbf0d88c2 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Thu, 9 Jan 2020 15:38:31 -0700 Subject: [PATCH] terminando el modulo de catalogo clasificacion porcentaje --- Contabilidad/CatClasificacionPorcentaje.aspx | 74 +++++++--- .../CatClasificacionPorcentaje.aspx.vb | 126 ++++++++++++++++++ 2 files changed, 183 insertions(+), 17 deletions(-) diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx b/Contabilidad/CatClasificacionPorcentaje.aspx index 9e56dad31..728874eca 100644 --- a/Contabilidad/CatClasificacionPorcentaje.aspx +++ b/Contabilidad/CatClasificacionPorcentaje.aspx @@ -14,7 +14,7 @@
  • - +
    • @@ -23,15 +23,19 @@ - + + - - - - - + + + + + <%----%>
    @@ -40,7 +44,7 @@
    - +     @@ -60,23 +64,59 @@

    - Motivos de baja

    + Clasificación porcentaje
    - - - + + +
    -
    -
    -   - +
    +
    + + +
    - +
    +
    + + + + +
    +
    +
    + + + + +
    +
    +
    + + + + +
    +
    +
    + + + + +
    +
    +
    + + + + +
    +

    diff --git a/Contabilidad/CatClasificacionPorcentaje.aspx.vb b/Contabilidad/CatClasificacionPorcentaje.aspx.vb index c5f34dd68..4c7f79bc3 100644 --- a/Contabilidad/CatClasificacionPorcentaje.aspx.vb +++ b/Contabilidad/CatClasificacionPorcentaje.aspx.vb @@ -5,10 +5,29 @@ Imports Microsoft.Reporting.WebForms Partial Class Contabilidad_CatClasificacionPorcentaje Inherits ClsPaginas + Private Property DtClasificacionPorcentaje As DataTable + Get + Return CType(ViewState("DtClasificacionPorcentaje"), DataTable) + End Get + Set(value As DataTable) + ViewState("DtClasificacionPorcentaje") = value + End Set + End Property + + Private Property CveClasificacion As Integer + Get + Return CType(ViewState("CveClasificacion"), Integer) + End Get + Set(value As Integer) + ViewState("CveClasificacion") = value + End Set + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then CargaDatos() + CargaContPaq() End If End Sub @@ -17,8 +36,115 @@ Partial Class Contabilidad_CatClasificacionPorcentaje Dim ObjGenerales As New ClsGenerales If ObjGenerales.GetClasificacionPorcentaje(UsuarioActual.CveEmpresa, CveClasificacionPorcentaje:=-1, CveClasificacion:=-1, PorcentajeIVA:=-1, Opcion:=2) Then GvDatos.DataSource = ObjGenerales.DtResultados + DtClasificacionPorcentaje = ObjGenerales.DtResultados End If ObjGenerales.Dispose() GvDatos.DataBind() + + DdlClasificaciones.Items.Add(New ListItem("Seleccione", "-1")) + DdlClasificaciones.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa) + DdlClasificaciones.DataBind() + + End Sub + + Protected Sub CargaContPaq() + Dim Empresa As DataTable = GlobalDTEmpresas(UsuarioActual.CveEmpresa) + Dim Servidor As String = Empresa.FiltroPrimeroValor("ServerContPAQi") + Dim BD As String = Empresa.FiltroPrimeroValor("BDContPAQi") + Dim Usuario As String = Empresa.FiltroPrimeroValor("UsrContPAQi") + Dim Contra As String = Empresa.FiltroPrimeroValor("PwdContPAQi") + + Dim ObjPaq As New ClsContPAQi(Servidor, BD, Usuario, Contra) + + DdlIdCtaIVAXAcreditar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) + DdlIdCtaIVAAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) + DdlIdCtaIVAXTrasladar.Items.Add(New ListItem("Seleccione una cuenta", "-1")) + DdlIdCtaIVATrasladado.Items.Add(New ListItem("Seleccione una cuenta", "-1")) + DdlIdCtaIVANoAcreditable.Items.Add(New ListItem("Seleccione una cuenta", "-1")) + + If ObjPaq.GetCuentas(-1, "-1", -1, IdPadre:=-1) Then + DdlIdCtaIVAXAcreditar.DataSource = ObjPaq.DtResultados + DdlIdCtaIVAAcreditable.DataSource = ObjPaq.DtResultados + DdlIdCtaIVAXTrasladar.DataSource = ObjPaq.DtResultados + DdlIdCtaIVATrasladado.DataSource = ObjPaq.DtResultados + DdlIdCtaIVANoAcreditable.DataSource = ObjPaq.DtResultados + End If + ObjPaq.Dispose() + DdlIdCtaIVAXAcreditar.DataBind() + DdlIdCtaIVAAcreditable.DataBind() + DdlIdCtaIVAXTrasladar.DataBind() + DdlIdCtaIVATrasladado.DataBind() + DdlIdCtaIVANoAcreditable.DataBind() + End Sub + + Protected Sub BtnAgregarMotivo_Click(sender As Object, e As EventArgs) Handles BtnAgregarClas.Click + BtnAgregarTiposDModal.Text = "Agregar" + BtnEditarTiposDModal.Visible = False + BtnAgregarTiposDModal.Visible = True + TxtPorcentajeIva.Text = "" + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal" + Dim ObjGenerales As New ClsGenerales + If BtnAgregarTiposDModal.Text = "Agregar" Then + If ObjGenerales.AddClasificacionPorcentaje(DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, DdlIdCtaIVAAcreditable.SelectedValue, + DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue, UsuarioActual.CveEmpresa) Then + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) + Alert("Clasificación porcentaje agregado correctamente") + If ObjGenerales.GetClasificacionPorcentaje(-1) Then + GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + End If + CargaDatos() + CargaContPaq() + UpDatos.Update() + End If + ElseIf BtnAgregarTiposDModal.Text = "Actualizar" Then + If ObjGenerales.UpdateClasificacionPorcentaje(CveClasificacion, DdlClasificaciones.SelectedValue, TxtPorcentajeIva.Text.ToDouble, DdlIdCtaIVAXAcreditar.SelectedValue, + DdlIdCtaIVAAcreditable.SelectedValue, DdlIdCtaIVAXTrasladar.SelectedValue, DdlIdCtaIVATrasladado.SelectedValue) Then + RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD")) + Alert("Clasificación porcentaje actualizado correctamente") + If ObjGenerales.GetClasificacionPorcentaje(-1) Then + GlobalDTClasificacionPorcentaje(-1) = ObjGenerales.DtResultados + End If + CargaDatos() + CargaContPaq() + UpDatos.Update() + End If + End If + ObjGenerales.Dispose() + End Sub + + Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting + Dim objgenerales As New ClsGenerales + If objgenerales.RemoveClasificacionPorcentaje(GvDatos.DataKeys(e.RowIndex).Value.ToString) Then + Alert("la clasificación porcentaje se eliminó correctamente") + If objgenerales.GetClasificacionPorcentaje(-1) Then + GlobalDTClasificacionPorcentaje(-1) = objgenerales.DtResultados + End If + CargaDatos() + CargaContPaq() + UpDatos.Update() + End If + objgenerales.Dispose() + End Sub + + Public Sub GvDatos_RowEditing(sender As Object, e As EventArgs) + BtnAgregarTiposDModal.Text = "Actualizar" + + Dim renglon As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + DdlClasificaciones.SelectedValue = If(renglon.DataKey("CveClasificacion").ToString IsNot "", renglon.DataKey("CveClasificacion"), "-1") + TxtPorcentajeIva.Text = renglon.DataKey("PorcentajeIVA") + DdlIdCtaIVAXAcreditar.SelectedValue = If(renglon.DataKey("IdCtaIVAXAcreditar").ToString IsNot "", renglon.DataKey("IdCtaIVAXAcreditar"), "-1") + DdlIdCtaIVAAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVAAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVAAcreditable"), "-1") + DdlIdCtaIVAXTrasladar.SelectedValue = If(renglon.DataKey("IdCtaIVAXTrasladar").ToString IsNot "", renglon.DataKey("IdCtaIVAXTrasladar"), "-1") + DdlIdCtaIVATrasladado.SelectedValue = If(renglon.DataKey("IdCtaIVATrasladado").ToString IsNot "", renglon.DataKey("IdCtaIVATrasladado"), "-1") + DdlIdCtaIVANoAcreditable.SelectedValue = If(renglon.DataKey("IdCtaIVANoAcreditable").ToString IsNot "", renglon.DataKey("IdCtaIVANoAcreditable"), "-1") + + BtnEditarTiposDModal.Visible = False + BtnAgregarTiposDModal.Visible = True + UpModalTiposD.Update() + RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD")) End Sub End Class