From 7f0468b15e9f92caa30ba52470f7db9bd90e6959 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Tue, 31 May 2022 21:18:28 -0700
Subject: [PATCH] CatImpuestosLocales se agrega campo CveClasificacion

---
 App_Code/ClsVentas.vb              |   8 ++-
 Empresas/13/Formatos/Factura.rdlc  |  12 ++--
 Ventas/CatImpuestosLocales.aspx    |  38 ++++-------
 Ventas/CatImpuestosLocales.aspx.vb | 104 ++++++++---------------------
 4 files changed, 52 insertions(+), 110 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 2770e61a7..560863804 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -2675,7 +2675,7 @@ Public Class ClsVentas
 #End Region
 
 #Region " I M P U E S T O S L O C A L E S"
-    Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddImpuestosLocales(ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, CveUsuario As Integer, CveEmpresa As Integer, Optional CveClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ImpuestosLocalesAdd")
 
@@ -2688,6 +2688,9 @@ Public Class ClsVentas
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
             .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+
+
         End With
 
         Try
@@ -2717,7 +2720,7 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
-    Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer) As Boolean
+    Public Function UpdateImpuestosLocales(CveImpuestoLocal As Integer, ImpuestoLocal As String, Porcentaje As Decimal, Orden As Integer, TipoImpuesto As Integer, Estatus As Integer, IdCtaContable As Integer, Optional CveClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_ImpuestosLocalesUpdate")
 
@@ -2729,6 +2732,7 @@ Public Class ClsVentas
             .Add("@Orden", SqlDbType.Int).Value = Orden
             .Add("@Estatus", SqlDbType.Bit).Value = Estatus
             .Add("@IdCtaContable", SqlDbType.Int).Value = IdCtaContable
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
         End With
 
         Try
diff --git a/Empresas/13/Formatos/Factura.rdlc b/Empresas/13/Formatos/Factura.rdlc
index 902b37b90..a8e5e9793 100644
--- a/Empresas/13/Formatos/Factura.rdlc
+++ b/Empresas/13/Formatos/Factura.rdlc
@@ -232,10 +232,10 @@
               <Width>1.66402cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.98986cm</Width>
+              <Width>6.81899cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>1.33583cm</Width>
+              <Width>1.43976cm</Width>
             </TablixColumn>
             <TablixColumn>
               <Width>1.42482cm</Width>
@@ -892,7 +892,7 @@
                         <Paragraph>
                           <TextRuns>
                             <TextRun>
-                              <Value>=Fields!ObjetoImpuesto.Value</Value>
+                              <Value>=Fields!CodigoObjetoImpuesto.Value</Value>
                               <Style>
                                 <FontSize>7pt</FontSize>
                               </Style>
@@ -1063,7 +1063,7 @@
         <Top>6.28717cm</Top>
         <Left>0.44641cm</Left>
         <Height>1.2353cm</Height>
-        <Width>20.06999cm</Width>
+        <Width>20.00305cm</Width>
         <ZIndex>4</ZIndex>
         <Style>
           <Border>
@@ -3614,8 +3614,8 @@
           <DataField>SATClaveUM</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
-        <Field Name="ObjetoImpuesto">
-          <DataField>ObjetoImpuesto</DataField>
+        <Field Name="CodigoObjetoImpuesto">
+          <DataField>CodigoObjetoImpuesto</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
       </Fields>
diff --git a/Ventas/CatImpuestosLocales.aspx b/Ventas/CatImpuestosLocales.aspx
index f6e5ce367..d33bb2221 100644
--- a/Ventas/CatImpuestosLocales.aspx
+++ b/Ventas/CatImpuestosLocales.aspx
@@ -93,12 +93,13 @@
         <ContentTemplate>
             <asp:HiddenField ClientIDMode="Static" runat="server" ID="HdnCveImpuesto" Value="-1" />
 
-            <asp:GridView ID="GvImpuestos" runat="server" GridLines="None" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,Orden,Estatus,TipoImpuesto,IdCuentaImpuestoLocal,EstatusBol" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Impuestos Locales">
+            <asp:GridView ID="GvImpuestos" runat="server" GridLines="None" DataKeyNames="CveImpuestoLocal,ImpuestoLocal,Porcentaje,Orden,Estatus,TipoImpuesto,IdCuentaImpuestoLocal,EstatusBol,CveClasificacion" CssClass="table table-striped table-advance table-hover Widthall" CellSpacing="0" Width="100%" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" ToolTip="Listado de Impuestos Locales">
                 <Columns>
                     <asp:BoundField DataField="ImpuestoLocal" HeaderText="Impuesto Local" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Porcentaje" HeaderText="Porcentaje" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField DataField="Orden" HeaderText="Orden" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField DataField="TipoImpuestoTexto" HeaderText="Tipo Impuesto" ItemStyle-HorizontalAlign="Left" />
+                    <asp:BoundField DataField="Clasificacion" HeaderText="Clasificación" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Left" HeaderText="Cuenta Contable">
                         <ItemTemplate>
                             <asp:Literal ID="LtlCuentaContable" runat="server" Text=""></asp:Literal>
@@ -149,6 +150,7 @@
                                     <asp:RequiredFieldValidator ID="RFVOrden" runat="server" CssClass="help-block errorimput" ControlToValidate="TxtOrden" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Orden'</b> es necesario, por favor ingréselo." ValidationGroup="GrpObligatorio"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
                                 </div>
+
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlTipoImpuesto" runat="server" CssClass="form-control select2me js-Impuesto-programmatic" Width="100%">
                                         <asp:ListItem Value="1" Text="Impuesto Local Retenido"></asp:ListItem>
@@ -159,7 +161,14 @@
                                     </asp:DropDownList>
                                     <label for="<%= DdlCuentasContables.ClientID.ToString()%>">Tipo Impuesto:</label>
                                 </div>
-                                <br />
+
+                               <div class="form-group form-md-line-input input-iconright">
+                                    <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass="form-control select2me" Width="100%" DataTextField="Clasificacion" DataValueField="CveClasificacion" >                                       
+                                        <asp:ListItem Value="-1" Text="Seleccione una"></asp:ListItem>
+                                    </asp:DropDownList>
+                                    <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                </div>
+                                
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:DropDownList ID="DdlCuentasContables" runat="server" AppendDataBoundItems="true" DataTextField="CtaCodigo" DataValueField="Id" CssClass="form-control select2me js-Cuentas-programmatic" CausesValidation="true" Width="100%">
                                         <asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
@@ -193,7 +202,7 @@
     <asp:HiddenField ID="HdnID" runat="server" Value="-1" ClientIDMode="Static" />
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
-    <script src="/Metronic/assets/global/scripts/datatable.js"></script>
+ <%--   <script src="/Metronic/assets/global/scripts/datatable.js"></script>
     <script src="/Metronic/assets/global/plugins/datatables/all.min.js"></script>
 
 
@@ -205,26 +214,7 @@
         var DdlCuentasContables = '<%= DdlCuentasContables.ClientID%>';
         var ChkEstatus = '<%= ChkEstatus.ClientID%>';
 
-        function ShowDivRegistro() {
-            $('#divAddImpuestoLocal').modal();
-        }
-
-        function OrdenarGV() {
-            var Tam = TamañoVentana();
-            var Alto = Tam.height - 270;
-            if (Alto < 100) {
-                Alto = 100;
-            }
-            $('#C_GvImpuestos').DataTable({
-                scrollY: Alto + 'px',
-                scrollCollapse: true,
-                paging: false,
-                searching: false,
-                info: false
-            });
-            $('#C_GvImpuestos').parent().parent().children().first().css("position", "static");
-        }
-
+    
      
         function CleanObjects() {
             document.getElementById(TxtImpuesto).value = "";
@@ -247,7 +237,7 @@
 
             var $cuenta = $(".js-Cuentas-programmatic").select2();
             $cuenta.val('-1').trigger("change");
-        }
+        }--%>
 
 
     </script>
diff --git a/Ventas/CatImpuestosLocales.aspx.vb b/Ventas/CatImpuestosLocales.aspx.vb
index b03199507..90651bd66 100644
--- a/Ventas/CatImpuestosLocales.aspx.vb
+++ b/Ventas/CatImpuestosLocales.aspx.vb
@@ -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