-parametro porcentajeimpuesto

2020-04-22 05:41:06 -07:00
parent 495fa04119
commit 944d26a5bd
5 changed files with 50 additions and 15 deletions
--- a/App_Code/ClsContabilidad.vb
+++ b/App_Code/ClsContabilidad.vb
@@ -2683,7 +2683,10 @@ Public Class ClsContabilidad

        Return Retorno
    End Function
-    Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer,
+                                                       IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer,
+                                                       CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1,
+                                                       Optional PorcentajeImpuesto As Decimal = 0) As Boolean
        Dim Retorno As Boolean = False

        DataAdapter("PA_Conta_PlantillasPolizasDetalleAdd")
@@ -2699,6 +2702,7 @@ Public Class ClsContabilidad
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
        End With

        Try
@@ -2715,7 +2719,9 @@ Public Class ClsContabilidad
        End Try
        Return Retorno
    End Function
-    Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer, CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1) As Boolean
+    Public Function UpdateConta_PlantillasPolizasDetalle(CveConcepto As Integer, TipoMovto As Integer, IdCtaContable As Integer, Orden As Integer,
+                                                         CvePlantillaPolizaDetalle As Integer, CveSubProyecto As Integer, CveProveedor As Integer,
+                                                         Optional CvePersonal As Integer = -1, Optional PorcentajeImpuesto As Decimal = 0) As Boolean
        Dim retorno As Boolean = False

        DataAdapter("PA_Conta_PlantillasPolizasDetalleUpdate")
@@ -2729,6 +2735,7 @@ Public Class ClsContabilidad
            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
            .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
+            .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
        End With

        Try
--- a/Contabilidad/PlantillasPolizasDetalle.aspx
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx
@@ -160,7 +160,7 @@
    
       <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPolizaDetalle, TipoMovimiento, CveSubProyecto, CveProveedor, CvePersonal, CveConcepto, IdCtaContable, Orden" EmptyDataText="No se encontraron Plantilla de Pólizas Registradas" ToolTip="Listado de Plantilla de Pólizas" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CvePlantillaPolizaDetalle, TipoMovimiento, CveSubProyecto, CveProveedor, CvePersonal, CveConcepto, IdCtaContable, Orden,PorcentajeImpuesto" EmptyDataText="No se encontraron Plantilla de Pólizas Registradas" ToolTip="Listado de Plantilla de Pólizas" CssClass="table table-striped table-advance table-hover Widthall" GridLines="None">
                <Columns>
                    <asp:TemplateField HeaderText="Concepto Contable">
                        <ItemTemplate>
@@ -283,7 +283,13 @@
                                     <label for="<%= TxtOrden.ClientID.ToString()%>">Orden:</label>
                                </div>

-
+                                 <div class="form-group form-md-line-input input-iconright">
+                                     <asp:DropDownList ID="DdlPorcentajeImpuesto" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" Visible="false" AppendDataBoundItems="true" Width="240px" ValidationGroup="GrpAgregar">
+                                         <asp:ListItem Text="8%" Value="0.08"></asp:ListItem>
+                                         <asp:ListItem Text="16%" Value="0.16"></asp:ListItem>
+                                     </asp:DropDownList>
+                                     <label id="LblPorcentajeImpuesto" runat="server" for="<%= DdlPorcentajeImpuesto.ClientID.ToString()%>">Tasa:</label>
+                                </div>
                                 <div class="form-group form-md-line-input input-iconright">
                                    <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me js-referencia-programmatic" runat="server" AppendDataBoundItems="true" DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="240px" ValidationGroup="GrpAgregar"></asp:DropDownList>
                                     <label ID="LblPersonal" runat="server" for="<%= DdlPersonal.ClientID.ToString()%>">Personal:</label>
--- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb
+++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb
@@ -158,6 +158,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
        DTDetalle.Columns.Add("IdCtaContable", GetType(Integer))
        DTDetalle.Columns.Add("Orden", GetType(String))
        DTDetalle.Columns.Add("Usuario", GetType(String))
+        DTDetalle.Columns.Add("PorcentajeImpuesto", GetType(Decimal))
    End Sub
 #End Region

@@ -172,7 +173,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
                CvePlantilla = ObjPlantillaPoliza.CvePlantillaPoliza
                If DTDetalle.Rows.Count > 0 Then
                    For Each Row As DataRow In DTDetalle.Rows
-                        If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                        If Not ObjPlantillaPoliza.AddConta_PlantillasPolizasDetalles(CvePlantilla, Row("CveConcepto").ToString.ToEntero, Row("TipoMovto").ToString.ToEntero, Row("IdCtaContable").ToString.ToEntero, Row("Orden").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                            ErrorPlantilla = True
                            Exit For
                        End If
@@ -228,7 +229,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle

        If HdnModalidad.Value = "I" Then
            If CvePlantillaPoliza > 0 Then
-                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                If ObjPlantillaPolizaDetalle.AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza, DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                    TxtOrden.Text = ""
                    updatatos()
                    Alert("El nuevo Registro se guardó correctamente.", TipoMensaje.MsgInformacion)
@@ -260,7 +261,7 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
            If HdnID.Value.ToEntero <> -1 Then
                If CvePlantillaPoliza > 0 Then
                    If ObjPlantillaPolizaDetalle.UpdateConta_PlantillasPolizasDetalle(DdlConcepto.SelectedValue.ToEntero, DdlTipoMovimiento.SelectedValue.ToEntero, DdlCtaContable.SelectedValue.ToEntero, TxtOrden.Text.Trim.ToEntero,
-                                                                                     HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero) Then
+                                                                                     HdnID.Value.ToEntero, DDLSubProyecto.SelectedValue.ToEntero, DDLProveedor.SelectedValue.ToEntero, DdlPersonal.SelectedValue.ToEntero, DdlPorcentajeImpuesto.SelectedValue.ToDecimal) Then
                        Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
                        updatatos()
                    Else
@@ -352,6 +353,13 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
            DdlPersonal.Visible = False
            LblPersonal.Visible = False
        End If
+        If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
+            DdlPorcentajeImpuesto.Visible = True
+            LblPorcentajeImpuesto.Visible = True
+        Else
+            DdlPorcentajeImpuesto.Visible = False
+            LblPorcentajeImpuesto.Visible = False
+        End If
    End Sub


@@ -392,6 +400,15 @@ Partial Class Contabilidad_PlantillasPolizasDetalle
            DdlPersonal.Visible = False
            LblPersonal.Visible = False
        End If
+        If DdlConcepto.SelectedValue.Contiene("19", "61") Then ' conceptos de IVA Acreditable e IVA Trasladado
+            DdlPorcentajeImpuesto.SelectedValueExist(GvRow.DataKey("PorcentajeImpuesto"))
+            DdlPorcentajeImpuesto.Visible = True
+            LblPorcentajeImpuesto.Visible = True
+        Else
+            DdlPorcentajeImpuesto.Visible = False
+            LblPorcentajeImpuesto.Visible = False
+        End If
+
        UpModal.Update()
        RegistraScript(String.Format("$('#{0}').modal();", "divAgregarSucursal"))
        CargaDatos()
--- a/Contabilidad/RegPrePoliza.aspx
+++ b/Contabilidad/RegPrePoliza.aspx
@@ -302,7 +302,7 @@
            </table>

            <div style="width: 100%; min-height: 200px; overflow-scrolling: auto;">
-                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
+                <asp:GridView ID="GvMov" runat="server" AutoGenerateColumns="False" ShowHeader="False" DataKeyNames="IdMov,IDCuenta,Cargo,Abono,TipoMovto,CveConcepto,CveProveedor,CvePersonal, CveCompra,CveClasificacion,CveCliente,CveVenta,TC,CveOC,PorcentajeImpuesto" Width="100%" CssClass=" GvMov GvSize table table-striped table-advance table-hover mysmallbtn" GridLines="None">
                    <Columns>
                        <asp:TemplateField>
                            <HeaderTemplate>Cuenta</HeaderTemplate>
--- a/Contabilidad/RegPrePoliza.aspx.vb
+++ b/Contabilidad/RegPrePoliza.aspx.vb
@@ -296,8 +296,8 @@ Partial Class ContabilidadC_RegPrePoliza
            .Add("Cuenta", Type.GetType("System.String"))
            .Add("Referencia", Type.GetType("System.String"))
            .Add("Concepto", Type.GetType("System.String"))
-            .Add("Cargo", Type.GetType("System.Double"))
-            .Add("Abono", Type.GetType("System.Double"))
+            .Add("Cargo", Type.GetType("System.Decimal"))
+            .Add("Abono", Type.GetType("System.Decimal"))
            .Add("TipoMovto", Type.GetType("System.Int32"))
            .Add("EsComodin", Type.GetType("System.Int32"))
            .Add("CveConcepto", Type.GetType("System.Int32"))
@@ -316,7 +316,8 @@ Partial Class ContabilidadC_RegPrePoliza
            .Add("IdCtaContable", Type.GetType("System.Int32"))
            .Add("CveOC", Type.GetType("System.Int32"))
            .Add("ConceptoContable", Type.GetType("System.String"))
-            .Add("TC", Type.GetType("System.Double"))
+            .Add("TC", Type.GetType("System.Decimal"))
+            .Add("PorcentajeImpuesto", Type.GetType("System.Decimal"))
        End With
    End Sub

@@ -714,7 +715,8 @@ Partial Class ContabilidadC_RegPrePoliza
            dr("CveProveedor") = drt("CveProveedor")
            dr("CvePersonal") = drt("CvePersonal")
            dr("CveClasificacion") = -1
-            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("MultipleSubProyecto") = drt("MultipleSubProyecto")
+            dr("PorcentajeImpuesto") = drt("PorcentajeImpuesto")
            DtMovimientos.Rows.Add(dr)
        Next

@@ -861,6 +863,7 @@ Partial Class ContabilidadC_RegPrePoliza
                    Dim Importe As Double = 0
                    Dim TipoMovto As Boolean = False
                    Dim IdCtaContable As Integer = 0
+                    Dim PorcentajeImpuesto As Decimal = 0

                    'Registra movimieno bancario
                    If CveConcepto = 30 Then
@@ -877,7 +880,8 @@ Partial Class ContabilidadC_RegPrePoliza
                    Dim CveCompra As Integer = -1

                    'inserto las compras que voy a pagarDdlSaldos
-                    For Each gvr As GridViewRow In GvMov.Rows
+                    For Each gvr As GridViewRow In GvMov.Rows
+
                        If gvr.DataKey("IDCuenta").ToEntero > 0 Then
                            IdCtaContable = gvr.DataKey("IDCuenta")
                        End If
@@ -919,8 +923,9 @@ Partial Class ContabilidadC_RegPrePoliza
                                                           CveProveedor:=CveProveedor, CveCompra:=CveCompra,
                                                           CvePersonal:=gvr.DataKey("CvePersonal").ToEntero, CveClasificacion:=gvr.DataKey("CveClasificacion").ToEntero,
                                                            ImporteMX:=Importe, CveTipoGasto:=gvr.FCDropDownList("DdlTipoGasto").SelectedValue.ToEntero,
-                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDouble > 0, gvr.DataKey("TC").ToString.ToDouble, 1),
-                                                           ImporteME:=If(gvr.DataKey("TC").ToString.ToDouble > 0, (Importe / (gvr.DataKey("TC").ToString.ToDouble - 1)).RoundSQL, 0)) Then
+                                                            CveCliente:=gvr.DataKey("CveCliente").ToEntero, CveVenta:=gvr.DataKey("CveVenta").ToEntero, TipoCambio:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, gvr.DataKey("TC").ToString.ToDecimal, 1),
+                                                           ImporteME:=If(gvr.DataKey("TC").ToString.ToDecimal > 0, (Importe / (gvr.DataKey("TC").ToString.ToDecimal - 1)).RoundSQL, 0),
+                                                            PorcentajeImpuesto:=gvr.DataKey("PorcentajeImpuesto").ToDecimal) Then
                            Else
                                MsgError = "No se pudo insertar el detalle de la póliza2"
                                Exit For